Histórico da Página
Composition Setup | |||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
import.css=/download/attachments/327912/newLayout.css | |||||||||||||||||
Portuguese | |||||||||||||||||
Pagetitle | Ponto de Entrada | Ponto de Entrada |
Abrangências: | Microsiga Protheus 11 |
Versões: | Microsiga Protheus 11 |
Compatível Países: | Brasil |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Português (Brasil) |
Descrição:
Ponto de Entrada utilizado para gerar o registro C195 de forma alternativa à tabela CDT (Complementos Fiscais).Automaticamente será gerado um registro 0460 referente ao código de Informação Complementar utilizado.
Eventos
Programa Fonte
SPEDFISCAL.PRW
Sintaxe
SPDPINFO - Informações Complementares - Registro C195 ( [ PARAMIXB[1] ], [ PARAMIXB[2] ], [ PARAMIXB[3] ], [ PARAMIXB[4] ], [ PARAMIXB[5] ], [ PARAMIXB[6] ] ) --> aRetorno
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
PARAMIXB[1] | Caracter | FT_NFISCAL | |||||||||||||||
PARAMIXB[2] | Array of Record | FT_SERIE | |||||||||||||||
PARAMIXB[3] | Array of Record | FT_CLIEFOR | |||||||||||||||
PARAMIXB[4] | Array of Record | FT_LOJA | |||||||||||||||
PARAMIXB[5] | Array of Record | FT_ENTRADA | |||||||||||||||
PARAMIXB[6] | Array of Record | Indica se operação é de entrada ou saída. |
Retorno
aRetorno
- (array_of_record)
- Retorna em cada dimensão do array um registro C195 a ser criado em referência a nota fiscal que está sendo processada.
Observações
Exemplos
#INCLUDE "PROTHEUS.CH" #INCLUDE "RWMAKE.CH"User Function SPDPINFO()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 ABC"}) //03 - TXT_COMPL Elseif nX == 2 aAdd(aRetorno,{ "000002",; //02 - COD_INF "INFORMACOES COMPLEMENTARES 123 "}) //03 - TXT_COMPL Endif Next nXEndifRestArea(aAreaSFT)Return aRetorno
Variáveis
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
Array of Record | Global | Não |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas