Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Fiscal
Programa FonteSPEDFISCAL.PRW


02. DESCRIÇÃO

Ponto de entrada que permite a geração de apenas um campo com as informações de endereço e número do cadastro dos participantes, registro 0150 SPEDFISCAL.

03. ESPECIFICAÇÃO

Parâmetros do ponto de entrada:

NomeTipoDescrição
PARAMIXB[1]Array of Record

Informativo, com o "Alias" da Tabela SA1 ou SA2 relacionada no parâmetro abaixo.

PARAMIXB[2]Array of Record

Alias do registro posicionado

Retorno:

NomeTipoDescrição
aRetArray of Record

aRet[01] = Logradouro e endereço do imóvel

aRet[02] = Número do imóvel

04. EXEMPLO DE UTILIZAÇÃO


SPDFIS06
#include "rwmake.ch"
#include "Topconn.ch"
#include "protheus.ch"
  
 
#include 'protheus.ch'  
 
User Function SPDFIS06() 

//Parametro somente informativo para indicação de qual cadastro considerar no "Alias" abaixo: SA1 ou SA2.
Local cAlias1 := ParamixB[1] 
//Parametro com o registro posicionado na SFT e já relacionado com as demais tabelas do SPED FISCAL
Local cAlias2 := ParamixB[2] 

Local cEndereco := ""
Local cNumero   := ""                              
 
If cAlias1 == "SA1" 
    //Cadastro de Cliente       
    cEndereco := (cAlias2)->A1_END        
    cNumero   := "155" 
Else        
    cEndereco := (cAlias2)->A2_END
    // Cadastro de Fornecedor       
    cNumero   := "155" 
Endif
 
Return {cEndereco,cNumero}


05. DEMAIS INFORMAÇÕES

Não há