PLS264L1 - Gerar Nova Estrutura

O ponto de entrada PLS264L1 permite gerar uma nova estrutura de campos, os quais podem ser utilizados na geração do arquivo texto do cartão (geração de carteirinha).
É possível utilizar uma estrutura totalmente nova, ou uma existente, além de pemirtir adicionar novos campos.

A estrutura padrão é gerada  com base no parâmetro MV_PLSLCAR, conforme a estrutura á seguir:

MV_PLSLCAR = 1
 
Alias
Tipo Dado
Tamanho
Decimal
TARJAMAG1 
C
34
0
TARJAMAG2 
C
30
0
MATRICULA 
C
21
0
CONTRATACA
C
15
0
NOMEUSUARI
C
30
0
DTNACTO   
C
10
0
DTVALID   
C
10
0
DTINC     
C
10
0
PLANO     
C
04
0
TPCONTRATO
C
04
0
RZSOCIAL  
C
40
0
INFORMACOE
C
11
0
MENSAGEM1 
C
30
0
MENSAGEM2 
C
30
0
MENSAGEM3 
C
30
0
MENSAGEM4 
C
30
0
MENSAGEM5 
C
30
0
MENSAGEM6 
C
30
0
MENSAGEM7 
C
30
0
MENSAGEM8 
C
30
0
 

MV_PLSLCAR = 2
 
Alias
Tipo Dado
Tamanho
Decimal
SEP01     
C
10
0
CODSISCOP 
C
01
0
BRANCO01  
C
01
0
UNIBENEF  
C
03
0
BRANCO02  
C
01
0
EMPRESA   
C
04
0
INSCRICAO 
C
06
0
GRAUDEPEN 
C
02
0
BRANCO03  
C
01
0
DIGITO    
C
01
0
BRANCO04  
C
05
0
DTNACTO   
C
10
0
 
BRANCO05  
C
03
0
CONTRATACA
C
13
0
BRANCO06  
C
05
0
TPACOMODA 
C
13
0
BRANCO12  
C
05
0
DTVALID   
C
10
0
NOMEUSUARI
C
28
0
BRANCO07  
C
01
0
VIACAR    
C
02
0
BRANCO08  
C
01
0
LOCALCOB  
C
04
0
BRANCO09  
C
04
0
DESPLA    
C
17
0
BRANCO10  
C
04
0
ABRANG    
C
19
0
CPT       
C
12
0
BRANCO11  
C
06
0
NREDUZ    
C
18
0
SEP02     
C
06
0
TARJAMAG1 
C
26
0
TARJAMAG2 
C
38
0
SEP03     
C
11
0
 

MV_PLSLCAR = 3
Alias
Tipo Dado
Tamanho
Decimal
	CODEMP	
	C	
	4	
	0	
	DESEMP	
	C	
	50	
	0	
	VALIDADE	
	C	
	10	
	0	
	TITULAR	
	C	
	50	
	0	
	DEPENDENTE	
	C	
	50	
	0	
	MATRICULA	
	C	
	22	
	0	
	PLANO	
	C	
	4	
	0	
	DESPLANO	
	C	
	50	
	0	
	REDE	
	C	
	10	
	0	
	CONSULTA	
	C	
	8	
	0	
	EXAME	
	C	
	8	
	0	
	INTERN	
	C	
	8	
	0	
	PARTO	
	C	
	8	
	0	
	PADRAO	
	C	
	15	
	0	
	NASCIMENTO	
	C	
	10	
	0	
	OBS	
	C	
	50	
	0	
	EXAMEESP	
	C	
	8	
	0	
	VIACAR	
	C	
	2	
	0	
	BADGET	
	C	
	10	
	0	
 

PLSA264

PLS264L1 - Gerar Nova Estrutura ( ) --> aRet

aRet(array_of_record)
• Array contendo a estrutura dos campos utilizados na geração do arquivo texto do cartão.
  [1][1] - Nome do Campo
  [1][2] - Tipo de Dado
  [1][3] - Tamanho
  [1][4] - Decimal
  
  * Verificar o exemplo deste ponto logo abaixo

User Function PLS264L1Local aStruc := {}      //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Exemplo baseado em incluir novos campos no layout padrao.           ³    //³ MV_PLSLCAR = 1                                                      ³//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ	// Tarja magnetica...                                                  Aadd(aStruc,{"TARJAMAG1"   ,"C",34,0})Aadd(aStruc,{"TARJAMAG2"   ,"C",30,0})//  Frente do Cartao...Aadd(aStruc,{"MATRICULA"   ,"C",21,0})Aadd(aStruc,{"CONTRATACA"  ,"C",15,0})Aadd(aStruc,{"NOMEUSUARI"  ,"C",30,0})Aadd(aStruc,{"DTNACTO"     ,"C",10,0})Aadd(aStruc,{"DTVALID"     ,"C",10,0})Aadd(aStruc,{"DTINC"    ,"C",10,0})Aadd(aStruc,{"PLANO"    ,"C",04,0})Aadd(aStruc,{"TPCONTRATO"     ,"C",04,0})Aadd(aStruc,{"RZSOCIAL"    ,"C",40,0})// Verso do Cartao... Aadd(aStruc,{"INFORMACOE"  ,"C",11,0})Aadd(aStruc,{"MENSAGEM1"   ,"C",30,0})Aadd(aStruc,{"MENSAGEM2"   ,"C",30,0})Aadd(aStruc,{"MENSAGEM3"   ,"C",30,0})Aadd(aStruc,{"MENSAGEM4"   ,"C",30,0})Aadd(aStruc,{"MENSAGEM5"   ,"C",30,0})Aadd(aStruc,{"MENSAGEM6"   ,"C",30,0})Aadd(aStruc,{"MENSAGEM7"   ,"C",30,0})Aadd(aStruc,{"MENSAGEM8"   ,"C",30,0}) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Inclui novos campos ao layout padrao                                ³    //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ Aadd(aStruc,{"CAMPONOVO1"   ,"C",30,0})Aadd(aStruc,{"CAMPONOVO2"   ,"C",30,0})Aadd(aStruc,{"CAMPONOVO3"   ,"C",30,0})   	Return(aStruc)