*    Parametros para ubicar el codigo de barras
      *    dentro de una factura o comprobante.
      *    Leer el manual para informacion detallada.

       1 LK--RT-CBAR1.

      * Nombre de la rutina
        3 LK--RT-CBAR1-PROG                PIC X(08).
          88 LK--RT-CBAR1-PROG-V1          VALUE 'RT-CBAR1'.

      * Como debe operar esta rutina
        3 LK--RT-CBAR1-MODO                PIC X(01).
          88 LK--RT-CBAR1-MODO-DEMO        VALUE  'd'.
          88 LK--RT-CBAR1-MODO-TEST        VALUE  't'.
          88 LK--RT-CBAR1-MODO-REAL        VALUE  'r'.

      * Donde Imprimir
        3 LK--RT-CBAR1-DONDE-IMPRE         PIC X(256).
          88 LK--RT-CBAR1-DONDE-IMPREv     value 'lpt1' 'prn'.
          88 LK--RT-CBAR1-DONDE-IMPRE-LPT1 value 'lpt1'.
          88 LK--RT-CBAR1-DONDE-IMPRE-PRN  value 'prn'.

      *---------------------------------------
      * Grabar Archivo con el codigo de barras
        3 LK--RT-CBAR1-GRABA-TXT           PIC x(001).
          88 LK--RT-CBAR1-GRABA-TXT-SI     value 's'.
          88 LK--RT-CBAR1-GRABA-TXT-NO     value 'n' space.

      * DONDE Grabar Archivo con el codigo de barras
        3 LK--RT-CBAR1-GRABA-DONDE         PIC x(256).

      * Que la rutina imprima el codigo de barras
        3 LK--RT-CBAR1-IMPRIMIR            PIC x(001).
          88 LK--RT-CBAR1-IMPRIMIR-SI      value 's'.
          88 LK--RT-CBAR1-IMPRIMIR-NO      value 'n' space.

      * Validar el digito verificador
        3 LK--RT-CBAR1-CHKSUM              PIC X(001).
          88 LK--RT-CBAR1-CHSUM-SI         VALUE 's'.
          88 LK--RT-CBAR1-CHSUM-NO         VALUE 'n' space.

      * Realiza validaciones para ver si cumple con la resol 1702/04
        3 LK--RT-CBAR1-VAL-1702            PIC x(001).
          88 LK--RT-CBAR1-VAL-1702-SI      VALUE 's'.
          88 LK--RT-CBAR1-VAL-1702-NO      VALUE 'n' space.

      * Posicion inicial horizontal
        3 LK--RT-CBAR1-POSX                PIC Z(005)9.

      * Posicion inicial vertical
        3 LK--RT-CBAR1-POSY                PIC Z(005)9.

      * Ancho de cada barra
        3 LK--RT-CBAR1-ANCHO               PIC Z(005)9.

      * Alto de cada barra
        3 LK--RT-CBAR1-ALTO                PIC Z(005)9.

      *--------- NROS ASCII (Origen del codigo de barras)---------------
      * Imprimir Nros ASCII del codigo de barras
        3 LK--RT-CBAR1-IMPR-NROS           PIC X(001).
          88 LK--RT-CBAR1-IMPR-NROS-SI     VALUE 's' 'S'.

      * FONT Nros ASCII
        3 LK--RT-CBAR1-FONT                PIC 9(01).
          88 LK--RT-CBAR1-FONT-DEMO        VALUE 1 thru 3.
          88 LK--RT-CBAR1-FONT-REAL        VALUE 1 thru 9.

      * FONT Nros ASCII TAMANO  8-20
        3 LK--RT-CBAR1-TAMANO              PIC Z9.

      * NROS ASCII POSICION X
        3 LK--RT-CBAR1-NROS-X              PIC Z(05)9.

      * NROS ASCII POSICION Y + PLUS
        3 LK--RT-CBAR1-NROS-YM             PIC Z(05)9.

      *-----------------------------------------------------------------
      * Resolucion en dpi
        3 LK--RT-CBAR1-RESOLUCION          PIC Z(005)9.

      * Escala de multiplicacion
        3 LK--RT-CBAR1-ESCALA              PIC 9(6)V99.

      * ORIENTACION: 0 (ninguna) ; 90-180-270 (rotando en grados)
        3 LK--RT-CBAR1-ORIENTACION         PIC Z(02)9.

      * Tipo de codificacion del codigo de barras
      * 3 LK--RT-CBAR1-COD-BAR             PIC X(010).

      * Numeros a codificar.
        3 LK--RT-CBAR1-ACBAR               PIC x(040).
        3 REDEFINES LK--RT-CBAR1-ACBAR.
          5 LK--RT-CBAR1-A-CBAR-CUIT       PIC 9(011).
          5 LK--RT-CBAR1-A-CBAR-TIP-COMPRO PIC 9(002).
          5 LK--RT-CBAR1-A-CBAR-PUNTO-VENT PIC 9(004).
          5 LK--RT-CBAR1-A-CBAR-AUTOR-IMPR PIC 9(014).
          5 LK--RT-CBAR1-A-CBAR-FECHA-VENC PIC 9(008).
            88 LK-RT-CBAR1-A-CBAR-FECHA-DEMO value 23122004.
          5 LK--RT-CBAR1-A-CBAR-DV         PIC 9(001).

      * codigo del formato de las sentencias de escape devueltas
        3 LK--RT-CBAR1-FORMATO             PIC X(003).
          88 LK--RT-CBAR1-FORMATO-PCL      value 'PCL'.

      * Posicionamiento a retomar luego de imprimir
        3 lk--rt-cbar1-retomar.
          5 lk--rt-cbar1-retomar-r01       pic z(006).
          5 lk--rt-cbar1-retomar-r02       pic z(006).
          5 lk--rt-cbar1-retomar-r03       pic z(006).
          5 lk--rt-cbar1-retomar-r04       pic z(006).
          5 lk--rt-cbar1-retomar-r05       pic z(006).
          5 lk--rt-cbar1-retomar-r06       pic z(006).


      *////////////////////////////////////////////////////////////
      *    RETORNA DE LA RUTINA RT-CBAR1
      *    1) Codigo de Error
      *    2) Texto del Error
      *    3) Tamaņo del string PCL del codigo de barras
      *////////////////////////////////////////////////////////////
      * Codigo de error y el texto del Error
        3 LK--RT-CBAR1-ERROR-NRO           PIC 9(003).
          88 lk--rt-cbar1-error-no         value zero.

        3 LK--RT-CBAR1-ERROR-TXT           PIC X(256).

      *////////////////////////////////////////////////////////////
      * Tamaņo del String en modo CodeBar
        3 LK--RT-CBAR1-A-IMPRIMIR-SIZE     PIC 9(005).