Histórico da Página

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