000100 FD  CFACTURA
000500     LABEL RECORDS ARE STANDARD.
000600 01  CFACTURA-RECORD.
           05 KEY-CF.
000800         07  ESTADE-CF          	PIC 9(0001).        
003400         07  FACTUE-CF.
003500             09  SIGFACE-CF     	PIC 9.
	           09  SIGFACE-CF1	PIC 9.
003600             09  NUMFACE-CF     	PIC 9(0006).        
001400     05  PEDIDE-CF.
001500         07  SIGPEE-CF          	PIC X(0002).        
001600         07  NUMPEE-CF          	PIC 9(0006).        
002200     05  OBSERE-CF              	PIC X(0070)
002300         OCCURS 07 TIMES.
	   05  LINEA-CF	      		PIC X(014).
	   05  CENTROE-CF     		PIC X(001).
	   05  CODGAST-CF      		PIC X(001).
	   05  ROFICI-CF              	PIC X(0008).
	   05  CHEQPOS-CF             	PIC X(0001).
	   05  VCONTA-CF              	PIC S9(011)V99 COMP.
	   05  CHEQUE-CF  	      	PIC X(0012).
	   05  BANCO-CF              	PIC X(0014).
	   05  VALCH-CF              	PIC S9(011)V99 COMP.
	   05  VALEF-CF              	PIC S9(011)V99 COMP.
004100     05  IVASN-CF               	PIC X(0001).        
005930     05  ACTIV-CF               	PIC X(0001).          
      *    FECHA CHEQUE POST FECHADO
003700     05  FECCPO-CF.
003100         07  AAFE-CF.
003800             09  SSFE-CF        	PIC 9(0002).        
003800             09  ANOFE-CF       	PIC 9(0002).        
003900         07  MMFE-CF           	PIC 9(0002).        
004000         07  DDFE-CF            	PIC 9(0002).        
      *    FECHA DE FACTURA
004600     05  FECHCF-CF.
003100         07  AARF-CF.
004700             09  SSRF-CF        	PIC 9(0002).        
004700             09  ANORF-CF       	PIC 9(0002).        
004800         07  MMRF-CF            	PIC 9(0002).        
004900         07  DDRF-CF            	PIC 9(0002).        
005000     05  CLIEN-CF               	PIC X(0010).        
005100     05  NPAGOS-CF              	PIC 9(0002).         
005200     05  DIASPL-CF              	PIC 9(0003).         
005300     05  DSCTO-CF               	PIC S9(003)V99 COMP.         
005400     05  SUCUR-CF               	PIC 9(0001).
005500     05  LISPRE-CF              	PIC 9(0003).
005600     05  FINTAR-CF              	PIC S9(011)V99 COMP. 
005700     05  DIASPLC-CF             	PIC 9(0003).
005700     05  CTACV-CF               	PIC X(0014).
005800     05  AGENT-CF               	PIC 9(0003).        
005800     05  COBRA-CF               	PIC 9(0003).        
005900     05  SUBTO-CF               	PIC S9(011)V99 COMP. 
005900     05  IVAVT-CF               	PIC S9(011)V99 COMP. 
005910     05  TOTMO-CF               	PIC S9(011)V99 COMP. 
005900     05  FLETE-CF               	PIC S9(011)V99 COMP. 
005920     05  DSCTS-CF               	PIC S9(011)V99 COMP. 
005910     05  FINAN-CF               	PIC S9(011)V99 COMP. 
005910     05  RETEN-CF               	PIC S9(011)V99 COMP. 
005900     05  TOTAL-CF               	PIC S9(011)V99 COMP. 
      *    05  TARJETA-CF             	PIC X(10).
           05  VOUCHER-CF             	PIC X(12).
           05  AGENMAN-CF             	PIC X(02).
           05  MAQPAG-CF             	PIC S9(011)v99 comp.
           05  TIPOCA-CF              	PIC S9(011)V99 COMP.
006100
006200******************************************************************
006300*  Este Archivo es la cabecera de la Factura, son los    	       *
006400*  datos que aparecen en la primera pantalla del registro de     *
006500*  las mismas.                                                   *
006600*                                                                *
006700*  Llaves : 2   en 8 principal  (Nentre06) Nro de la Nota Entrega*
006800*         : 10  en 8 alterna    (Pedide06) Nro del Pedido        *
006900*         : 18  en 8 alterna    (Factue06) Nro de la Factura     *
007000*         : 1   en 9 alterna    (Estado06 + Nentre06)            *
007100******************************************************************
007200
000600*01  CFACTURA-RECORD.
000700*    05  KEY06.
000800*    07  ESTADE06               PIC 9(0001).        % FLAG
000900*                                                   % 0 POR INPRIM
001000*                                                   % 1 IMPRESA
001100*                                                   % 2 CONTABILIZ
001200*                                                   % 3 ELIMINADO
001300*    07  NENTRE06               PIC X(0008).        % NRO N.ENTREG
001400*    05  PEDIDE06.
001500*        10  SIGPEE06           PIC X(0003).        % NUMERO DEL
001600*        10  NUMPEE06           PIC 9(0005).        % PEDIDO
001700*    05  DESPAE06               PIC X(0001).        % TIPO DESPACH
001800*                                                   % T = TOTAL
001900*                                                   % P = PARCIAL
002100*    05  TRANSE06               PIC X(0020).        % TRANSPORTIST
002200*    05  OBSERE06               PIC X(0028)
002300*        OCCURS 05 TIMES.                           % OBSERVACIONE
002700*    05  FLETE06                PIC S9(09)V99 COMP. % FLETE
002800*                                                   % COBRADO AL
002900*                                                   % CLIENTE
003000*    05  FECHAE06.
003100*        07  AAE06              PIC 9(0002).        % FECHA CONTA
003200*        07  MME06              PIC 9(0002).        % BILIZACION
003300*        07  DDE06              PIC 9(0002).        % NOTA ENTREGA
003400*    05  FACTUE06.
003500*        07  SIGFACE6           PIC X(0003).        % NRO
003600*        07  NUMFACE6           PIC X(0005).        % FACTURA
003700*    05  FECFAE06.
003800*        07  AAFE06             PIC 9(0002).        % FECHA CONTA
003900*        07  MMFE06             PIC 9(0002).        % BILIZACION
004000*        07  DDFE06             PIC 9(0002).        % FACTURA
004100*    05  IVASN06                PIC X(0001).        % IVA S O N
004200*    05  FECHRE06.
004300*        07  AARE06             PIC 9(0002).        % FECHA
004400*        07  MMRE06             PIC 9(0002).        % REAL
004500*        07  DDRE06             PIC 9(0002).        % NOTA ENTREGA
004600*    05  FECHCF06.
004700*        07  AARF06             PIC 9(0002).        % FECHA
004800*        07  MMRF06             PIC 9(0002).        % REAL
004900*        07  DDRF06             PIC 9(0002).        % FACTURA
005000*    05  CLIEN06                PIC X(0010).        % CLIENTE
005100*    05  NPAGOS06               PIC 9(002).         % NRO PAGOS
005200*    05  DIASPL06               PIC 9(003).         % MESES PLAZO
005300*    05  DSCTO06                PIC 9(003).         % DSCTO
005400*    05  NCRED06                PIC X(0001).        % N/C S o N
005500*    05  LISPRE06               PIC 9(0003).        % LISTA-PREC
005600*    05  TIPOCA06               PIC S9(11)V99 COMP. % FINANCIA.TARJETA
005700*    05  DIASPLC06              PIC X(0003).        % DIAS PLAZO CONTADO
005700*    05  CTACV06                PIC X(0011).        %             
005800*    05  AGENT06                PIC 9(0003).        % AGEN.VENTAS
005900*    05  TOTAL06                PIC S9(11)V99 COMP. % VAL.TOT.FAC
005910*    05  TOTMO06                PIC S9(11)V99 COMP. % MANO OBRA
005920*    05  DSCTS06                PIC S9(11)V99 COMP. % TOTAL DSCTOS
005930*    05  IVAMO06                PIC X(01).          % IVA M. OBRA
