ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
#INCLUDE "EXTERIOR.CPY".
77 I PIC 999.
77 N PIC S9(10)V99.
77 FI8 PIC 9(8).
77 FF8 PIC 99/99/9999.
01 ARTI-PE. *> copia de CARGAP con 1 solo renglon
03 LIB-PE PIC 9. *> 1=Articulo libre
03 LRA-PE. *> Codigo articulo
04 LIN-PE PIC X(6). *> Linea
04 RUB-PE PIC X(6). *> Rubro
04 ART-PE PIC X(18). *> Articulo
03 CAN-PE PIC S9(8)V9(4). *> Cantidad pedida
03 CEN-PE PIC S9(8)V9(4). *> Cantidad entregada
03 DES-PE PIC X(40). *> Descripcion
03 DEA-PE PIC X(40). *> Descripcion Adicional
03 CUN-PE PIC 9(6)V99. *> Cantidad de Unidades
03 MUN-PE PIC X(10). *> Medida de la Unidad
03 RIB-PE PIC 99. *> Rubro Ing.Brutos
03 CTA-PE PIC 9(4). *> Imp.Contable
03 UNI-PE PIC S9(8)V9(4). *> Valor Unitario
03 IMI-PE PIC S9(7)V9(4). *> Imp.Internos
03 ALI-PE PIC 99V99. *> Alicuota de Iva
03 DE1-PE PIC S999V99. *> % Rc/Dto 1
03 DE2-PE PIC S99V99. *> % Rc/Dto 1
03 IMP-PE PIC S9(8)V99. *> Importe
03 FEE-PE PIC 9(8). *> Fecha de Entrega
03 OBS-PE PIC X(40). *> Observaciones
03 SUB-PE PIC X(60). *> Subdivision
01 CARGA.
02 ARTI00.
03 LIB00 PIC 9. *> 1=Articulo libre
03 LRA00.
04 LIN00 PIC X(6).
04 RUB00 PIC X(6).
04 ART00 PIC X(18).
03 CAN00 PIC S9(8)V9(4).
03 DES00 PIC X(40).
03 DEA00 PIC X(40).
03 CUN00 PIC 9(6)V99.
03 MUN00 PIC X(10).
03 RIB00 PIC 99.
03 CTA00 PIC 9(4).
03 UNI00 PIC S9(8)V9(4).
03 IMI00 PIC S9(7)V9(4).
03 ALI00 PIC 99V99.
03 DE100 PIC S999V99.
03 DE200 PIC S99V99.
03 IMP00 PIC S9(8)V99.
03 SUB00 PIC X(60).
PROCEDURE DIVISION.
DECLARATIVES.
#INCLUDE "AR19.DEC".
#INCLUDE "AR38.DEC".
END DECLARATIVES.
MOVE 11 to "MousePointer" OF POW-SELF.
1.
MOVE "CLIENTES.TXT" TO ARXXX OPEN OUTPUT RATIOS
MOVE "Cuenta " TO XXX99(1)
MOVE "Nombre " TO XXX99(2)
MOVE "Domicilio " TO XXX99(3)
MOVE "Localidad " TO XXX99(4)
MOVE "Provincia " TO XXX99(5)
MOVE "Cuit " TO XXX99(6)
MOVE "Iva " TO XXX99(7)
MOVE "Vendedor " TO XXX99(8)
MOVE "Cobrador " TO XXX99(9)
MOVE "Zona " TO XXX99(10)
MOVE "Mercado " TO XXX99(11)
WRITE RXX
OPEN INPUT CLIE
INITIALIZE R19 SFA
START CLIE KEY NOT < CO19 INVALID MOVE 1 TO SFA
NOT INVALID READ CLIE NEXT NO LOCK.
PERFORM UNTIL SFA = 1
PERFORM PASO1 THRU FPASO1
READ CLIE NEXT NO LOCK AT END MOVE 1 TO SFA END-READ
END-PERFORM.
CLOSE CLIE RATIOS.
MOVE 0 TO I IF I = 0 GO FIN.
FIN.
MOVE " " TO "StatusText" OF POW-SELF
MOVE 1 TO "MousePointer" OF POW-SELF
INVOKE POW-SELF "Deactivate"
EXIT PROGRAM.
* Paso un comprobante
PASO1.
MOVE CO19 TO XXX99(1)
MOVE NOM19 TO XXX99(2)
MOVE DOM19 TO XXX99(3)
MOVE COP19 TO XXX99(4)
MOVE PRO19 TO XXX99(5)
MOVE CUI19 TO XXX99(6)
EVALUATE TIV19
WHEN 1 MOVE "RI" TO TEX
WHEN 2 MOVE "RN" TO TEX
WHEN 3 MOVE "NR" TO TEX
WHEN 4 MOVE "EX" TO TEX
WHEN 5 MOVE "CF" TO TEX
WHEN 6 MOVE "RM" TO TEX
WHEN 7 MOVE "NC" TO TEX
WHEN OTHER MOVE " " TO TEX
END-EVALUATE.
MOVE TEX TO XXX99(7)
MOVE VEN19 TO XXX99(8)
MOVE COB19 TO XXX99(9)
MOVE ZON19 TO XXX99(10)
MOVE MER19 TO XXX99(11)
WRITE RXX.
FPASO1.