Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Obs.: - A coluna "Valor para Edição" quando preenchida, conterá os valores disponíveis para edição do "Conteúdo da linha". Quando a linha coluna "Valor para Edição" estiver vazia, o sistema não permitirá edição do respectivo "Conteúdo da linha".

Controle
Linhas
Controle
Detalhes
Controle
Sequencial
Posição
Inicial
Posição
Final
DecimalInformação da LinhaConteúdo da LinhaValor Para edição
0H
 

      
 

HEADER ARQUIVO                          .T.                                                                                                                                                                                                                                        
0T
 

      
 

TRAILLER ARQUIVO                        .T.                                                                                                                                                                                                                                        
1D1      
 

DETALHE SEGMENTO AIIF(SEA->EA_MODELO $ "01|02|03|04|05|10|41|43",.T.,.F.)                                                                                                    
1D2      
 

DETALHE SEGMENTO
B                      
BIIF(SEA->EA_MODELO $ "01|02|03|04|05|10|41|43",.T.,.F.)
                                                                                
                                                                                                    
1H
 

      
 

HEADER DE LOTE - A /
B                  
BIIF(SEA->EA_MODELO $ "01|02|03|04|05|10|41|43",.T.,.F.)
                                                                                
                                                                                                    
1T
 

      
 

TRAILLER DE LOTE - A /
B                
BIIF(SEA->EA_MODELO $ "01|02|03|04|05|10|41|43",.T.,.F.)
                                                                                
                                                                                                    
2D1      
 

DETALHE SEGMENTO
J                      
JIIF(SEA->EA_MODELO $ "30/31", .T.,.F.)                                                                                                                                                                                                     
2D2      
 

DETALHE SEGMENTO
J52                    
J52IIF(SEA->EA_MODELO $ "30/31" .AND. SE2->E2_VALOR >= GETMV(MV_PAGJ52), .T.,.F.)
                                                         
                                                                                                    
2H
 

      
 

HEADER DE LOTE - J /
J52                
J52IIF(SEA->EA_MODELO $ "30/31", .T.,.F.)                                                                                                                                                                                                     
2T
 

      
 

TRAILLER DE LOTE - J /
J52              
J52IIF(SEA->EA_MODELO $ "30/31", .T.,.F.)                                                                                                                                                                                                     
0H
 

130COD BCO                                 341                                                                                                    
0H
 

470LOTE SERVICO                            0                                                                                                    
0H
 

880REG.HEADER ARQ.
                         
0                                                                                                    
0H
 

9140COMPL REGISTRO                          SPACE(6)                                                                                                                                                                                                                                   
0H
 

15170VERS.LAYOUT ARQ                         81                                                                                                    
0H
 

18180TIPO INSCRICAO                          IIF(SM0->M0_TPINSC == 3,"1","2")                                                                                                                                                                                                           
0H
 

19320NUM. INSCRICAO                          PADL(ALLTRIM(SM0->M0_CGC),14,"0")
                                                                                                      
                                                                                                    
0H
 

33520COMPL REGISTRO                          SPACE(20)                                                                                                                                                                                                                                  
0H
 

53570AGENCIA                                 PADL(ALLTRIM(SEA->EA_AGEDEP),5,"0")
                                                                                                    
                                                                                                    
0H
 

58580COMPL REGISTRO                          SPACE(1)                                                                                                                                                                                                                                   
0H
 

59700CONTA
CORRENTE                          
CORRENTEPADL(ALLTRIM(SEA->EA_NUMCON),12,"0")
                                                                                                   
                                                                                                    
0H
 

71710COMPL REGISTRO                          SPACE(1)                                                                                                                                                                                                                                   
0H
 

72720DIGITO DA CTA                           CNABDVCC()                                                                                                                                                                                                                                 
0H
 

731020NOME DA
EMPRESA                         
EMPRESAPADR(ALLTRIM(SM0->M0_NOMECOM),30,"")
                                                                                                   
                                                                                                    
0H
 

1031320NOME DO BANCO                           PADR("BANCO ITAU SA",30,"")                                                                                                                                                                                                                
0H
 

1331420COMPL REGISTRO                          SPACE(10)                                                                                                                                                                                                                                  
0H
 

1431430REMESSA                                 1                                                                                                    
0H
 

1441510DT.GERACAO                              GRAVADATA(DDATABASE,.F.,5)                                                                                                             {"DATE()","DDATABASE"}                                                                              
0H
 

1521570HR.GERACAO                              STRTRAN(TIME(),":","")                                                                                                                                                                                                                     
0H
 

1581660COMPL REGISTRO                          REPLICATE("0",9)                                                                                                                                                                                                                           
0H
 

1671710DENSIDADE GRAV.                         REPLICATE("0",5)                                                                                                                                                                                                                           
0H
 

1722400COMPL REGISTRO                          SPACE(69)                                                                                                                                                                                                                                  
1T
 

130COD BANCO                               341                                                                                                    
1T
 

470LOTE SERVICO                            1                                                                                                    
1T
 

880REGISTRO LOTE                           5                                                                                                    
1T
 

9170COMPL REGISTRO                          SPACE(9)                                                                                                                                                                                                                                   
1T
 

18230QTDE REG
LOTE                           
LOTEIIF(SEA->EA_MODELO $ "01/03/41/43",PADL((NTOTCNAB2*2)+2,6,"0"),PADL((NTOTCNAB2+2),6,"0"))
                                              
                                                                                                    
1T
 

24412VLR CREDITO                             PADL(SOMAVALOR(),18,"0")                                                                                                                                                                                                                   
1T
 

42590COMPL REGISTRO                          REPLICATE("0",18)                                                                                                                                                                                                                          
1T
 

602300COMPL REGISTRO                          SPACE(171)                                                                                                                                                                                                                                 
1T
 

2312400OCORRENCIAS                             SPACE(10)                                                                                                                                                                                                                                  
1H
 

130COD BCO                                 341                                                                                                    
1H
 

470LOTE ID PAGTOS                          1                                                                                                    
1H
 

880REG HEADER
LOTE                         
LOTE1                                                                                                    
1H
 

990TIPO OPERACAO                           C                                                                                                                                                                                                                                        
1H
 

10110TIPO PAGTO                              SEA->EA_TIPOPAG                                                                                                                                                                                                                            
1H
 

12130FORMA PAGTO                             SEA->EA_MODELO                                                                                                                                                                                                                             
1H
 

14160VERSAO LAYOUT                           40                                                                                                    
1H
 

17170COMPL REGISTRO                          SPACE(1)                                                                                                                                                                                                                                   
1H
 

18180INSCR. TIPO                             IIF(SM0->M0_TPINSC == 3,"1","2")                                                                                                                                                                                                           
1H
 

19320INSCR. NUMERO                           PADL(ALLTRIM(SM0->M0_CGC),14,"0")
                                                                                                      
                                                                                                    
1H
 

33360ID LANCTO                                                                                                                                                                                                                                                                          
1H
 

37520COMPL REGISTRO                          SPACE(16)                                                                                                                                                                                                                                  
1H
 

53570AGENCIA DA CTA                          PADL(ALLTRIM(SEA->EA_AGEDEP),5,"0")
                                                                                                    
                                                                                                    
1H
 

58580COMPL REGISTRO                          CNABDVAG()                                                                                                                                                                                                                                 
1H
 

59700CTA CORRENTE                            PADL(ALLTRIM(SEA->EA_NUMCON),12,"0")
                                                                                                   
                                                                                                    
1H
 

71710COMPL REGISTRO                          CNABDVCC()                                                                                                                                                                                                                                 
1H
 

72720DAC DA AG./CTA                          SPACE(1)                                                                                                                                                                                                                                   
1H
 

731020NOME EMPRESA                            PADR(ALLTRIM(SM0->M0_NOMECOM),30,"")
                                                                                                   
                                                                                                    
1H
 

1031320FINAL LOTE                                                                                                                                                                                                                                                                         
1H
 

1331420COMPL.HIST.C/C                          SPACE(30)                                                                                                                                                                                                                                  
1H
 

1431720LOGRADOURO                              PADR(IIF(EMPTY(SM0->M0_ENDENT),SM0->M0_ENDCOB,SM0->M0_ENDENT),30,"")
                                                                   
                                                                                                    
1H
 

1731770NUMERO                                  REPLICATE("0",5)                                                                                                                                                                                                                           
1H
 

1781920COMPLEMENTO                             PADR(ALLTRIM(SM0->M0_COMPENT),15,"")
                                                                                                   
                                                                                                    
1H
 

1932120CIDADE                                  PADR(IIF(EMPTY(SM0->M0_CIDENT),SM0->M0_CIDCOB,SM0->M0_CIDENT),20,"")
                                                                   
                                                                                                    
1H
 

2132200CEP                                     PADR(IIF(EMPTY(SM0->M0_CEPENT),SM0->M0_CEPCOB,SM0->M0_CEPENT),8,"0")
                                                                   
                                                                                                    
1H
 

2212220ESTADO                                  PADR(IIF(EMPTY(SM0->M0_ESTENT),SM0->M0_ESTCOB,SM0->M0_ESTENT),2,"")
                                                                    
                                                                                                    
1H
 

2232300COMPL REGISTRO                          SPACE(8)                                                                                                                                                                                                                                   
1H
 

2312400OCORRENCIAS                             SPACE(10)                                                                                                                                                                                                                                  
2H
 

130COD BCO                                 341                                                                                                    
2H
 

470LOTE ID PAGTOS                          1                                                                                                    
2H
 

880REG HEADER
LOTE                         
LOTE1                                                                                                    
2H
 

990TIPO OPERACAO                           C                                                                                                                                                                                                                                        
2H
 

10110TIPO PAGTO                              SEA->EA_TIPOPAG                                                                                                                                                                                                                            
2H
 

12130FORMA PAGTO                             SEA->EA_MODELO                                                                                                                                                                                                                             
2H
 

14160VERSAO LAYOUT                           30                                                                                                    
2H
 

17170COMPL REGISTRO                          SPACE(1)                                                                                                                                                                                                                                   
2H
 

18180INSCR. TIPO                             IIF(SM0->M0_TPINSC == 3,"1","2")                                                                                                                                                                                                           
2H
 

19320INSCR. NUMERO                           PADL(ALLTRIM(SM0->M0_CGC),14,"0")
                                                                                                      
                                                                                                    
2H
 

33520ID LANCTO                               SPACE(20)                                                                                                                                                                                                                                  
2H
 

53570AGENCIA DA CTA                          PADL(ALLTRIM(SEA->EA_AGEDEP),5,"0")
                                                                                                    
                                                                                                    
2H
 

58580COMPL REGISTRO                          CNABDVAG()                                                                                                                                                                                                                                 
2H
 

59700CTA CORRENTE                            PADL(ALLTRIM(SEA->EA_NUMCON),12,"0")
                                                                                                   
                                                                                                    
2H
 

71710COMPL REGISTRO                          CNABDVCC()                                                                                                                                                                                                                                 
2H
 

72720DAC DA AG./CTA                          SPACE(1)                                                                                                                                                                                                                                   
2H
 

731020NOME EMPRESA                            PADR(ALLTRIM(SM0->M0_NOMECOM),30,"")
                                                                                                   
                                                                                                    
2H
 

1031320FINAL LOTE                                                                                                                                                                                                                                                                         
2H
 

1331420COMPL.HIST.C/C                          SPACE(30)                                                                                                                                                                                                                                  
2H
 

1431720LOGRADOURO                              PADR(IIF(EMPTY(SM0->M0_ENDENT),SM0->M0_ENDCOB,SM0->M0_ENDENT),30,"")
                                                                   
                                                                                                    
2H
 

1731770NUMERO                                  REPLICATE("0",5)                                                                                                                                                                                                                           
2H
 

1781920COMPLEMENTO                             PADR(ALLTRIM(SM0->M0_COMPENT),15,"")
                                                                                                   
                                                                                                    
2H
 

1932120CIDADE                                  PADR(IIF(EMPTY(SM0->M0_CIDENT),SM0->M0_CIDCOB,SM0->M0_CIDENT),20,"")
                                                                   
                                                                                                    
2H
 

2132200CEP                                     PADR(IIF(EMPTY(SM0->M0_CEPENT),SM0->M0_CEPCOB,SM0->M0_CEPENT),8,"0")
                                                                   
                                                                                                    
2H
 

2212220ESTADO                                  PADR(IIF(EMPTY(SM0->M0_ESTENT),SM0->M0_ESTCOB,SM0->M0_ESTENT),2,"")
                                                                    
                                                                                                    
2H
 

2232300COMPL REGISTRO                          SPACE(8)                                                                                                                                                                                                                                   
2H
 

2312400OCORRENCIAS                             SPACE(10)                                                                                                                                                                                                                                  
2T
 

130COD BANCO                               341                                                                                                    
2T
 

470LOTE SERVICO                            1                                                                                                    
2T
 

880REGISTRO LOTE                           5                                                                                                    
2T
 

9170COMPL REGISTRO                          SPACE(9)                                                                                                                                                                                                                                   
2T
 

18230QTDE REG LOTE                           IIF(SEA->EA_MODELO $ "30/31",PADL((NTOTCNAB2*2)+2,6,"0"),PADL((NTOTCNAB2+2),6,"0"))
                                                    
                                                                                                    
2T
 

24412VLR CREDITO                             PADL(SOMAVALOR(),18,"0")                                                                                                                                                                                                                   
2T
 

42590COMPL REGISTRO                          REPLICATE("0",18)                                                                                                                                                                                                                          
2T
 

602300COMPL REGISTRO                          SPACE(171)                                                                                                                                                                                                                                 
2T
 

2312400OCORRENCIAS                             SPACE(10)                                                                                                                                                                                                                                  
0T
 

130BCO
COMPENSACAO                         
COMPENSACAO341                                                                                                    
0T
 

470LOTE DE SERVICO                         9999                                                                                                    
0T
 

880REG TRAILER ARQ                         9                                                                                                    
0T
 

9170COMPL REGISTRO                          SPACE(9)                                                                                                                                                                                                                                   
0T
 

18230QTD LOTES                                                                                                                                                                                                                                                                          
0T
 

24290QTD REGISTRO                                                                                                                                                                                                                                                                       
0T
 

302400COMPL REGISTRO                          SPACE(211)                                                                                                                                                                                                                                 
1D1130BCO
COMPENSACAO                         
COMPENSACAO341                                                                                                    
1D1470LOTE SERVICO                            1                                                                                                    
1D1880RG.DETALHE LOTE                         3                                                                                                    
1D19130SEQ.REG.LOTE                            PADL(INT(INCREMENTA()-1),5,"0")                                                                                                                                                                                                            
1D114140COD.SEQ.REG.DET                         A                                                                                                                                                                                                                                        
1D115170TIPO DE MOV.                            0                                                                                                    
1D118200ZEROS                                   REPLICATE("0",3)                                                                                                                                                                                                                           
1D121230COD BCO FAVOR                           PADL(ALLTRIM(SA2->A2_BANCO),3,"0")
                                                                                                     
                                                                                                    
1D124280AGENCIA FAVOR                           PADR(ALLTRIM(SA2->A2_AGENCIA),5,"")
                                                                                                    
                                                                                                    
1D129290COMP REGISTRO                           SA6->A6_DVAGE                                                                                                                                                                                                                              
1D130410CTA CORREN
CRED                         
CREDPADR(ALLTRIM(SA2->A2_NUMCON),12,"")
                                                                                                    
                                                                                                    
1D142420COMP REGISTRO                           SA6->A6_DVCTA                                                                                                                                                                                                                              
1D143430COMP REGISTRO                           SPACE(1)                                                                                                                                                                                                                                   
1D144730NOME
FAVORECIDO                         
FAVORECIDOPADR(ALLTRIM(SA2->A2_NOME),30,"")
                                                                                                      
{"A2_NREDUZ","A2_NOME"}                                                                             
1D174930DOC ATRI EMP                            PADR(ALLTRIM(SE2->E2_IDCNAB),20,"")
                                                                                                    
                                                                                                    
1D1941010DT PAGTO                                GRAVADATA(SE2->E2_VENCTO,.F.,5)
                                                                                                        
{"E2_VENCTO","E2_EMISSAO","E2_VENCREA"}                                                             
1D11021040TIPO DA MOEDA                           9                                                                                                    
1D11051190COD ISPB                                SPACE(15)                                                                                                                                                                                                                                  
1D11201342VALOR PAGTO                             PADL(SE2->(E2_SALDO)*100,15,"0")                                                                                                       {"E2_VALOR","E2_SALDO"}                                                                             
1D11351490NOSSO NUMERO                            PADR(ALLTRIM(SE2->E2_NUMBCO),15,"")
                                                                                                    
                                                                                                    
1D11501540COMP REGISTRO                           SPACE(5)                                                                                                                                                                                                                                   
1D11551620DT REAL PAGTO                           GRAVADATA(SE2->E2_VENCREA,.F.,5)
                                                                                                       
{"E2_VENCTO","E2_EMISSAO","E2_VENCREA"}                                                             
1D11631772VALOR EFETIVO                           PADL(SE2->(E2_SALDO+E2_SDACRESC-E2_SDDECRESC)*100,15,"0")
                                                                              
                                                                                                    
1D11781950COMP HISTORICO                          SPACE(18)                                                                                                                                                                                                                                  
1D11961970COMP REGISTRO                           SPACE(2)                                                                                                                                                                                                                                   
1D11982030NRO
DOCUMENTO                           
DOCUMENTOREPLICATE("0",6)                                                                                                                                                                                                                           
1D12042170NRO FAVORECIDO                          PADL(ALLTRIM(SA2->A2_CGC),14,"0")
                                                                                                      
                                                                                                    
1D12182190FINAL DOC STATU                                                                                                                                                                                                                                                                    
1D12202240FINALIDADE TED                          5                                                                                                    
1D12252290COMP REGISTRO                           SPACE(5)                                                                                                                                                                                                                                   
1D12302300AVISO FAVORECID                         0                                                                                                    
1D12312400OCORRENCIAS                             SPACE(10)                                                                                                                                                                                                                                  
1D2130COD BANCO                               341                                                                                                    
1D2470LOTE SERVICO                            1                                                                                                    
1D2880REG DET LOTE                            3                                                                                                    
1D29130SEQ REG LOTE                            PADL(INT(INCREMENTA()-1),5,"0")                                                                                                                                                                                                            
1D214140COD SEGM
DETALH                         
DETALHB                                                                                                                                                                                                                                        
1D215170COMPL REGISTRO                          SPACE(3)                                                                                                                                                                                                                                   
1D218180TP INSC FAVOREC                         IIF(SA2->A2_TIPO == "J","2","1")                                                                                                                                                                                                           
1D219320INSC FAVORECIDO                         PADL((ALLTRIM(SA2->A2_CGC)),14,"0")
                                                                                                    
                                                                                                    
1D233620END FAVORECIDO                          PADR(ALLTRIM(SA2->A2_END),30,"")
                                                                                                       
                                                                                                    
1D263670NRO END
FAVOREC                         
FAVORECREPLICATE("0",5)                                                                                                                                                                                                                           
1D268820COMPLEM END
FAV                         
FAVPADR(ALLTRIM(SA2->A2_COMPLEM),15,"")
                                                                                                   
                                                                                                    
1D283970BAIRRO FAVOR                            PADR(ALLTRIM(SA2->A2_BAIRRO),15,"")
                                                                                                    
                                                                                                    
1D2981170CIDADE FAVOR                            PADR(ALLTRIM(SA2->A2_MUN),20,"")
                                                                                                       
                                                                                                    
1D21181250CEP FAVOR                               PADL(ALLTRIM(SA2->A2_CEP),8,"0")
                                                                                                       
                                                                                                    
1D21261270EST FAVOR                               SA2->A2_EST                                                                                                                                                                                                                                
1D21282270E-MAIL FAVOR                            SPACE(100)                                                                                                                                                                                                                                 
1D22282300COMPL REGISTRO                          SPACE(03)                                                                                                                                                                                                                                  
1D22312400OCORRENCIAS                             SPACE(10)                                                                                                                                                                                                                                  
2D1130BCO COMPENSACAO                         341                                                                                                    
2D1470LOTE SERVICO                            1                                                                                                    
2D1880REG.DET. LOTE                           3                                                                                                    
2D19130SEQ REG LOTE                            PADL(INT(INCREMENTA()-1),5,"0")                                                                                                                                                                                                            
2D114140SEG.REG.DET                             J                                                                                                                                                                                                                                        
2D115170TP MOVIMENTO                            0                                                                                                    
2D118200COD BAR BCO FAV                         SUBSTR(SE2->E2_CODBAR,1,3)
                                                                                                             
                                                                                                    
2D121210COD BAR MOEDA                           SUBSTR(SE2->E2_CODBAR,4,1)
                                                                                                             
                                                                                                    
2D122220COD BAR DIG VER                         SUBSTR(SE2->E2_CODBAR,5,1)
                                                                                                             
                                                                                                    
2D123260COD BAR F VECTO                         SUBSTR(SE2->E2_CODBAR,6,4)
                                                                                                             
                                                                                                    
2D127360COD BAR VEN/VAL                         SUBSTR(SE2->E2_CODBAR,10,10)
                                                                                                           
                                                                                                    
2D137610COD BAR CPO LIV                         SUBSTR(SE2->E2_CODBAR,20,25)
                                                                                                           
                                                                                                    
2D162910NOME FAVOREC                            PADR(ALLTRIM(SA2->A2_NOME),30,"")
                                                                                                      
{"A2_NREDUZ","A2_NOME"}                                                                             
2D192990DT VENCTO                               GRAVADATA(SE2->E2_VENCTO,.F.,5)
                                                                                                        
{"E2_VENCTO","E2_EMISSAO","E2_VENCREA"}                                                             
2D11001140VALOR LCTO                              PADL(SE2->E2_SALDO*100,15,"0")                                                                                                         {"E2_VALOR","E2_SALDO"}                                                                             
2D11151290VAL DESC+ABATIM                         PADL(SE2->(E2_SDDECRESC)*100,15,"0")
                                                                                                   
                                                                                                    
2D11301440VAL MORA+
MULTA                          
MULTAPADL(SE2->(E2_SDACRESC)*100,15,"0")
                                                                                                    
                                                                                                    
2D11451520DT EFET.DO PAG.                         GRAVADATA(SE2->E2_VENCREA,.F.,5)
                                                                                                       
{"E2_VENCTO","E2_EMISSAO","E2_VENCREA"}                                                             
2D11531670VAL.EFET.DO PAG                         PADL(SE2->E2_SALDO*100,15,"0")                                                                                                         {"E2_VALOR","E2_SALDO"}                                                                             
2D11681820ZEROS                                   REPLICATE("0",15)                                                                                                                                                                                                                          
2D11832020SEU NUMERO                              PADR(ALLTRIM(SE2->E2_IDCNAB),20,"")
                                                                                                    
                                                                                                    
2D12032150BRANCOS                                 SPACE(13)                                                                                                                                                                                                                                  
2D12162300NUM.DOC.NO BCO.                         SPACE(15)                                                                                                                                                                                                                                  
2D12312400OCORRENCIA                              SPACE(10)                                                                                                                                                                                                                                  
2D2130COD BANCO                               341                                                                                                    
2D2470LOTE SERVICO                            1                                                                                                    
2D2880REG DET LOTE                            3                                                                                                    
2D29130SEQ REG LOTE                            PADL(INT(INCREMENTA()-1),5,"0")                                                                                                                                                                                                            
2D214140COD SEGM LOTE                           J                                                                                                                                                                                                                                        
2D215170TIPO MOVIMENTO                          SEA->EA_MODELO                                                                                                                                                                                                                             
2D218190ID REG OPCIONAL                         52                                                                                                    
2D220200TP INSC PAGADOR                         IIF(SM0->M0_TPINSC == 3,"1","2")                                                                                                                                                                                                           
2D221350INSCR PAGADOR                           PADL(ALLTRIM(SM0->M0_CGC),15,"0")
                                                                                                      
                                                                                                    
2D236750NOME PAGADOR                            PADR(ALLTRIM(SM0->M0_NOMECOM),40,"")
                                                                                                   
                                                                                                    
2D276760TP INSC BENEFIC                         IIF(SA2->A2_TIPO == "J", 2, 1)                                                                                                                                                                                                             
2D277910NRO INSC BENEFI                         PADL(ALLTRIM(SA2->A2_CGC),15,"0")
                                                                                                      
                                                                                                    
2D2921310NOME BENEFICIAR                         PADR(ALLTRIM(SA2->A2_NOME),40,"")
                                                                                                      
{"A2_NREDUZ","A2_NOME"}                                                                             
2D21321320TP INSC SACADOR                         IIF(SM0->M0_TPINSC=="3","1","2")                                                                                                                                                                                                           
2D21331470NRO INSC
SACADO                         
SACADOPADL(ALLTRIM(SM0->M0_CGC),15,"0")
                                                                                                      
                                                                                                    
2D21481870NOME SACADOR                            PADR(ALLTRIM(SM0->M0_NOMECOM),40,"")
                                                                                                   
                                                                                                    
2D21882400COMPL
REGISTRO                          
REGISTROSPACE(53)