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 += "Mensagem a ser gravada na tabela SD2 ',MaFisAlt("IT_ALIQCMP" ,aItemOri[nY,'+ cValtochar(nPos) + ' ],nY,.F.,,,,.F.) ' EndIF ENDIF cRet += ", MaItArred(nY) " cRet += ", MaFisLF(nY) " // Atualiza livros SD2 fiscais Return cRet ENDIF Return cRet |
04. DEMAIS INFORMAÇÕES
Não há.
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas