PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
Novos campos TAB SC7010
Versão:
.
Plataforma:
.
Complemento:
DB:
SQL Server
Complemento:
LinkedIn
Mensagem do Enviar e-mail Abrir o Perfil do usuário ANDREAS ANDREAS em 08/04/2024, 10:05 h
Local: SP  Registro: 25/09/2023  Postagens: 79
Bom dia, tive que criar alguns campos customizados na SC7010
Para receberem valores de outros campos com contas, consigo atribuir por gatilhos ou teria que atribuir via AdvPL?

Esses campos devem ter seus valores atualizados caso o valor dos outros campos mudem

Campos Criados:

C7_XIPIUNI - Valor Unitario do IPI = C7_VALIPI / C7_QUANT     
     
C7_XFREUNI - Valor unitario do frete = C7_VALFRE / C7_QUANT     

C7_XSTUNIT - Valor da ST unitario = C7_ICMSRET / C7_QUANT     

C7_XPRECO - Valor UNITARIO c/ impostos = (C7_PRECO + C7_XIPIUNIT + C7_XFRETEUNIT + C7_XSTUNIT)

C7_XTOTAL - Valor total c/ impostos = C7_QUANT * C7_XPRECO     C7_XTOTAL

Mensagem do Enviar e-mail Abrir o Perfil do usuário ROBERTOMEN ROBERTOMEN em 08/04/2024, 11:30 h
Local: PR  Registro: 04/07/2017  Postagens: 500
Bom dia.

Da pra fazer via ponto de entrada, assim:


*********************
user Function MT120OK
*********************

Local nX
Local nPC7_XIPIUNI:= aScan(aHeader, {|x| UPPER(Alltrim(x[2]))=="C7_XIPIUNI" })
Local nPC7_VALIPI := aScan(aHeader, {|x| UPPER(Alltrim(x[2]))=="C7_VALIPI" })
Local nPC7_QUANT := aScan(aHeader, {|x| UPPER(Alltrim(x[2]))=="C7_QUANT" })
Local lRet        := .T.


For nX := 1 to Len(Acols)
    if !aCols[nX][Len(aHeader) + 1] // Se a linha do Acols não estiver deletada
       aCols[nX,C7_XIPIUNI] := aCols[nX,nPC7_VALIPI ] / aCols[nX,nPC7_QUANT]
    endif
Next

Return lRet



Agora é só incluir a mesma lógica neste mesmo P.E. para C7_XFREUNI , C7_XSTUNIT, C7_XPRECO e C7_XTOTAL, declarando as variáveis Locais e incluíndo o cálculo no if

Mensagem do Enviar e-mail Abrir o Perfil do usuário ANDREAS ANDREAS em 09/04/2024, 09:13 h
Local: SP  Registro: 25/09/2023  Postagens: 79
muito obrigado

Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal