Histórico da Página
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.
...
cRet- Texto a ser incluído na tabela SD2.
03. EXEMPLO DE UTILIZAÇÃO
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 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á.
Templatedocumentos |
---|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas