Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Logística
Módulo:SIGATMS - Gestão de Transportes 

02. DESCRIÇÃO

Ponto de entrada utilizado para o ajuste de informações nos dados da NF de Saída gerados a partir do Cálculo de documentos de transporte.

Retorno:

cRet- Texto a ser incluído na tabela SD2.

03. EXEMPLO DE UTILIZAÇÃO

TM200SD2
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
        
        cRet += ", MaItArred(nY) "
        cRet += ", MaFisLF(nY) " // Atualiza livros fiscais
    ENDIF

Return cRet


04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

  • Não há.