Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
Programa Fonte
#INCLUDE 'TOTVS.CH'
User Function TM200SD2()
Local cRet := ""
Local aStruSD2 := SD2->(dbStruct())
Local lProc := FUNNAME()=="XPTO"
IF lProc
conout("[TESTE TM200SD2] -> PASSOU")
nPos := AScan(aStruSD2,{|x| Upper(alltrim(x[1])) == "D2_DIFAL"})
If nPos > 0
cRet += ',MaFisAlt("IT_DIFAL" ,aItemOri[nY,'+ cValtochar(nPos) + ' ],nY,.F.,,,,.F.) '
EndIF
nPos := AScan(aStruSD2,{|x| Upper(alltrim(x[1])) == "D2_ALFCCMP"})
If nPos > 0
cRet += ',MaFisAlt("IT_ALFCCMP" ,aItemOri[nY,'+ cValtochar(nPos) + ' ],nY,.F.,,,,.F.) '
EndIF
nPos := AScan(aStruSD2,{|x| Upper(alltrim(x[1])) == "D2_ALIQCMP"})
If nPos > 0
cRet += ',MaFisAlt("IT_ALIQCMP" ,aItemOri[nY,'+ cValtochar(nPos) + ' ],nY,.F.,,,,.F.) '
EndIF
ENDIF
cRet += ", MaItArred(nY) "
cRet += ", MaFisLF(nY) " // Atualiza livros fiscais
ENDIF
Return cRet |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas