import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: SPDPISIC - Informações Complementares - Registro C110
Descrição: Ponto de Entrada utilizado para gerar o registro C110 de forma alternativa à tabela CDT (Complementos Fiscais).Automaticamente será gerado um registro 0450 referente ao código de Informação Complementar utilizado. Eventos Programa Fonte SPEDPISCOF.PRW Sintaxe SPDPISIC - Informações Complementares - Registro C110 ( [ PARAMIXB[1] ], [ PARAMIXB[2] ], [ PARAMIXB[3] ], [ PARAMIXB[4] ], [ PARAMIXB[5] ], [ PARAMIXB[6] ] ) --> aRetorno Parâmetros:
Retorno aRetorno
Observações Exemplos #INCLUDE "PROTHEUS.CH" #INCLUDE "RWMAKE.CH"User Function SPDPISIC()Local cDoc := PARAMIXB[1] //FT_NFISCALLocal cSerie := PARAMIXB[2] //FT_SERIELocal cFornec := PARAMIXB[3] //FT_CLIEFORLocal cLoja := PARAMIXB[4] //FT_LOJALocal dEntr := PARAMIXB[5] //FT_ENTRADALocal cEntSai := PARAMIXB[6] //Entr/Saida Local cChave := ""Local nX := 0Local aRetorno := {}Local aAreaSFT := SFT->(GetArea())If cEntSai == "1" cChave := xFilial("SFT")+"E"+DTOS(dEntr)+cSerie+cDoc+cFornec+cLojaElse cChave := xFilial("SFT")+"S"+DTOS(dEntr)+cSerie+cDoc+cFornec+cLojaEndif If SFT->(DbSeek(cChave)) For nX := 1 To 2 If nX == 1 aAdd(aRetorno,{ "000001",; //02 - COD_INF "INFORMACOES COMPLEMENTARES"}) //03 - TXT_COMPL Elseif nX == 2 aAdd(aRetorno,{ "000002",; //02 - COD_INF "INFORMACOES COMPLEMENTARES 2"}) //03 - TXT_COMPL Endif Next nXEndifRestArea(aAreaSFT)Return aRetorno Variáveis
|