PLS264L3 - Alterações no Arquivo

O ponto de entrada PLS264L3 permite realizar alterações no arquivo de trabalho que será utilizado para geração do arquivo texto do cartão (geração de carteirinha). O Alias utilizado é o "Dados".

Observações:
- O ponto de entrada PLS264L1 permite incluir novos campos na estrutura, sendo que estes campos podem ser manipulados por meio do ponto PLS264L3.:
- No ponto de entrada PLS264L3 é necessário utilizar um comando para gerar o arquivo. Segue o comando padrão do sistema de acordo com o layout utilizado:
   MV_PLSLCAR = 1 - Copy To &cArquivo DELIMITED
   MV_PLSLCAR = 2 - Copy To &cArquivo SDF
   MV_PLSLCAR = 3 - Copy To &cArquivo DELIMITED

É possível também, realizar todo tratamento da geração do arquivo neste ponto. Caso queira que o sistema gere, o Alias "Dados" deve ser modificado de acordo com o que deve ser gerado no arquivo texto.

Estrutura do Alias "Dados":
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

PLS264L3 - Alterações no Arquivo ( )

()

User Function PLS264L3   //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Posiciona no início do Alias        ³//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙDados->(dbGoTop())     While !Dados->(Eof())   If CondicaoCliente      Dados->CAMPO1 := "Campo 1"           Dados->CAMPO2 := "Campo 2"      Dados->CAMPO3 := "Campo 3"   EndIf   Dados->(DbSkip()) EndDo   //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Grava arquivo                      ³                 //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙCopy To &cArquivo SDF Return