| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  ADVPL
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
Novos campos TAB SC7010 |
|
Versão: |
. |
|
Plataforma: |
. |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
|
|
Mensagem do
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
ROBERTOMEN
em 08/04/2024, 11:30 h
Local: PR Registro: 04/07/2017 Postagens: 546 |
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
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
|
|
