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
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