Histórico da Página

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

//Parametro para indicação de qual cadastro considerar no parametro abaixo: SA1 ou SA2 (somente informativo) 
Local cAlias1 := ParamixB[1] 
Local cAlias//Parametro com o registro posicionado na SFT e demais tabelas para , SA1, SA2, SB1, etc... 
Local cAlias2 := ParamixB[12]	 

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