Histórico da Página
Índice | ||
---|---|---|
|
01. DADOS GERAIS
Linha do Produto | Microsiga Protheus® |
---|---|
Segmento | Serviços |
Módulo | Fiscal |
...
Informações | ||
---|---|---|
| ||
Programa Fonte SPEDFISCAL.PRW |
03. ESPECIFICAÇÃO
Sintaxe
Informações Complementares - Registro C195
SPDPINFO( [ PARAMIXB[1] ], [ PARAMIXB[2] ], [ PARAMIXB[3] ], [ PARAMIXB[4] ], [ PARAMIXB[5] ], [ PARAMIXB[6] ] ) --> aRetorno
Parâmetros do ponto de entrada
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "PROTHEUS.CH" #INCLUDE "RWMAKE.CH" User Function SPDPINFO() Local cDoc := PARAMIXB[1] //FT_NFISCAL Local cSerie := PARAMIXB[2] //FT_SERIE Local cFornec := PARAMIXB[3] //FT_CLIEFOR Local cLoja := PARAMIXB[4] //FT_LOJA Local dEntr := PARAMIXB[5] //FT_ENTRADA Local cEntSai := PARAMIXB[6] //Entr/Saida Local cChave := "" Local nX := 0 Local aRetorno := {} Local aAreaSFT := SFT->(GetArea()) If cEntSai == "1" cChave := xFilial("SFT")+"E"+DTOS(dEntr)+cSerie+cDoc+cFornec+cLoja Else cChave := xFilial("SFT")+"S"+DTOS(dEntr)+cSerie+cDoc+cFornec+cLoja Endif If SFT->(DbSeek(cChave)) For nX := 1 To 2 If nX == 1 aAdd(aRetorno,{ "000001",; //02 - COD_INF "INFORMACOES COMPLEMENTARES ABC"}) //03 - TXT_COMPL Elseif nX == 2 aAdd(aRetorno,{ "000002",; //02 - COD_INF "INFORMACOES COMPLEMENTARES 123 "}) //03 - TXT_COMPL Endif Next nX Endif RestArea(aAreaSFT) Return aRetorno |
05. DEMAIS INFORMAÇÕES
Não há.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas