Bem Vindo Visitante Lista de Usuários

 Todos os Fórums
  ADVPL

Enviar para a impressoraImprimir   

Subject ajuda no ponto de entrada.
Mensagem do Enviar e-mail Abrir o Perfil do usuário AGOMES_2008 AGOMES_2008 em 8/30/2019 as 10:45 hs
Local: SP   Registrada: 11/14/2007  Postagem: 300
Bom dia, estou tentando fazer um ponto de entrada, onde eu faço uma conta e gravo o resultado no C6_ICMSRET.Porém ele funciona, mas grava no C6_ICMSRET .T..
Alguém pode me ajudar?


Local aArea:= GetArea()
Local aAreaC6:= SC6->(GetArea())
Local lRet:= .T.

IF ALLTRIM(M->C6_TES) <> "615"
     RETURN
ENDIF

DBSELECTAREA("SC6")
DBSETORDER(1)


nTES     := aScan(aHeader,{|x|Alltrim(x[2]) == alltrim("C6_TES")})
nVl      := aScan(aHeader,{|x|Alltrim(x[2]) == alltrim("C6_VALOR")})
nClasfis := aScan(aHeader,{|x|Alltrim(x[2]) == alltrim("C6_CLASFIS")})
nPROD    := aScan(aHeader,{|x|Alltrim(x[2]) == alltrim("C6_PRODUTO")})
nICMR    := aScan(aHeader,{|x|Alltrim(x[2]) == alltrim("C6_ICMSRET")})


IF FOUND()
     IF ALLTRIM(M->C6_TES) == "615" //// .OR. ALLTRIM(acols[nLoja]) == "09"
          For i:=1 to len(aCols)                                                    
               if ALLTRIM(acols[nTES]) == "615" //.AND. ALLTRIM(SUBSTR(acols[nClasfis],1,1)) == "3"
                    acols[nICMR] := ROUND((acols[nVL]*1.12) *0.1282,2)
               else
                    acols[nICMR] := ROUND((acols[nVL]*1.12) *0.1106,2)
               endif
          Next
     ENDIF
     
ENDIF


A. Gomes

Para participar do Fórum você precisa efetuar login primeiro
Caso você não esteja registrado registre-se para participar do fórum

 Mudar para Fórum