Ver Mensaje Individual
  #6
Antiguo 13 de enero de 2021, 13:36
Gusaiello
Forero Activo
Concurso: Segundo puesto: Ganador/a del Segundo puesto en un concurso - Issue reason: Generador de código QR encriptado Activista del Foro: Activista del Foro - Issue reason: Por aportar ejecrcicios para los novatos 
Última Actividad 17.09.2026 14:29
Posts Posts: 236
Likes enviados Enviados: 150
Likes recibidos Recibidos: 139

@fastpho, Olvide poner las definiciones de los .txt de compras, son parecidos, pero no exactamente iguales.
Aqui van .

Código COBOL:
  1.        FD  TXTCOMPRAS.
  2.        01  REGTXTCOMPRAS.
  3.            03 FECHA-TXTCOMPRAS.
  4.               05 ANI-TXTCOMPRAS                  PIC 9(4).
  5.               05 MES-TXTCOMPRAS                  PIC 9(2).
  6.               05 DIA-TXTCOMPRAS                  PIC 9(2).
  7.            03 TIPOCOMPROBANTE-TXTCOMPRAS         PIC X(3).
  8.            03 PUNTODEVENTAS-TXTCOMPRAS           PIC 9(5).
  9.            03 NUMERODECOMPROBANTE-TXTCOMPRAS     PIC X(20).
  10.            03 DESPIMP-TXTCOMPRAS     ----------- PIC X(16).
  11.            03 CODIGODOCUMENTO-TXTCOMPRAS         PIC 9(2).
  12.            03 NUMERODOCUMENTO-TXTCOMPRAS         PIC X(20).
  13.            03 NOMBREPROVEEDOR-TXTCOMPRAS         PIC X(30).
  14.            03 IMPORTETOTAL-TXTCOMPRAS            PIC 9(13)V99.
  15.            03 NOGRAVADO-TXTCOMPRAS               PIC 9(13)V99.
  16.            03 EXENTOS-TXTCOMPRAS                 PIC 9(13)V99.
  17.            03 PERCEPCIONIVA-TXTCOMPRAS           PIC 9(13)V99.
  18.            03 PERCEPCIONOTROS-TXTCOMPRAS         PIC 9(13)V99.
  19.            03 PERCEPCIONINGBRUTOS-TXTCOMPRAS     PIC 9(13)V99.
  20.            03 PERCEPCIONMUNICIPAL-TXTCOMPRAS     PIC 9(13)V99.
  21.            03 IMPUESTOSINTERNOS-TXTCOMPRAS       PIC 9(13)V99.
  22.            03 CODIGOMONEDA-TXTCOMPRAS            PIC X(3).
  23.            03 TIPODECAMBIO-TXTCOMPRAS            PIC 9(4)V9(6).
  24.            03 CANTIDADALICUOTAS-TXTCOMPRAS       PIC 9(1).
  25.            03 CODIGOOPERACION-TXTCOMPRAS         PIC X(1).
  26.            03 CREDITOFISCAL-TXTCOMPRAS           PIC 9(13)V99.
  27.            03 OTROSTRIBUTOS-TXTCOMPRAS           PIC 9(15).
  28.            03 CUITEMISOR-TXTCOMPRAS              PIC 9(11).
  29.            03 DENOEMI-TXTCOMPRAS     ----------- PIC X(30).
  30.            03 IVACOMI-TXTCOMPRAS     ----------- PIC 9(13)V99.
  31.                                                  

Código COBOL:
  1.        FD  TXTALICCOMPRAS.
  2.        01  REGTXTALICCOMPRAS.
  3.            03 TIPOCOMPROBANTE-TXTALICCOMPRAS     PIC X(3).
  4.            03 PUNTODEVENTAS-TXTALICCOMPRAS       PIC 9(5).
  5.            03 NUMERODECOMPROBANTE-TXTALICCOMPRAS PIC X(20).
  6.            03 CODIGODOCUMENTO-TXTALICCOMPRAS     PIC 9(2).
  7.            03 NUMERODOCUMENTO-TXTALICCOMPRAS     PIC X(20).
  8.            03 NETOGRAVADO-TXTALICCOMPRAS         PIC 9(13)V9(2).
  9.            03 ALICUOTADEIVA-TXTALICCOMPRAS       PIC 9(4).
  10.            03 IMPORTELIQIDADO-TXTALICCOMPRAS     PIC 9(13)V9(2).

En la definición del archivo TXTCOMPRAS hay algunos campos que marque con ---------- por que no recuerdo en que caso hay que llenarlos y el nombre del campo no ayuda mucho que digamos para identificarlo. La cosa es que en el sistema de donde lo saqué no se necesitan, pero si te metes en la página de Arba seguro que esta aclarado por que de ahi saque estas definiciones originalmente.
Gusaiello is offline   Responder Con Cita