| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Logística |
| Módulo: | SIGATMS - Gestão de Transportes |
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.
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
Não há.