{
--------------------------------------------------------------------------------
PROGRAMA       : CGPRRP011
OBJETIVO       : VALIDAR LAS CUENTAS QUE TIENEN ESTADO Q
PROGRAMADOR    : JUAN F. SOTO
FECHA          : OCTUBRE 30, 1996
-------------------------------------------------------------------------------
}
GLOBALS
 "cgprgb000.4gl"

FUNCTION cgprrp011()
  DEFINE valida RECORD
         departamento   LIKE adtb00037.departamento,
         estado_q       LIKE adtb00037.estado_q,
         estado_m       LIKE adtb00037.estado_m,
         cuenta_no      LIKE adtb00037.cuenta_no,
         descripcion    CHAR(30)
  END RECORD

  OPTIONS
       ERROR LINE 24,
       FORM LINE 8

  CALL pantalla()
  OPEN FORM cgfmrp011 FROM "cgfmrp011"
  DISPLAY FORM cgfmrp011

  DISPLAY "cgprrp011" AT 4,3
  DISPLAY "Validacion Cuentas Estado Q" AT 6,15
  LET tipo_papel = 1
  CALL msgrp000(tipo_papel)
  
  CONSTRUCT BY NAME criterio ON a.cuenta_no,a.estado_m,a.estado_q
  IF int_flag THEN
     LET numero_msg = 2
     CALL msg(numero_msg)
     LET int_flag = false
     RETURN
  END IF
  LET selec1 =
  "SELECT ",
	"a.departamento, ",
	"a.estado_q, ",
	"a.estado_m, ",
	"a.cuenta_no, ",
        "b.descripcion[1,30] ",
"FROM adtb00037 a,cgtb00001 b ",
"WHERE a.cuenta_no = b.cuenta_no AND   ",criterio clipped,
" ORDER BY 1,2  " 
PREPARE comando1 FROM selec1
DECLARE busca CURSOR FOR comando1

START REPORT estadoq TO "C:\\archivo"

FOREACH busca INTO valida.*
  OUTPUT TO REPORT estadoq(valida.*)
END FOREACH
FINISH REPORT estadoq
RUN "type C:\\archivo > %USPRINT%" END FUNCTION

REPORT estadoq(x)
  DEFINE x RECORD
         departamento   LIKE adtb00037.departamento,
         estado_q       LIKE adtb00037.estado_q,
         estado_m       LIKE adtb00037.estado_m,
         cuenta_no      LIKE adtb00037.cuenta_no,
         descripcion    CHAR(30)
  END RECORD
OUTPUT
  LEFT MARGIN 0
FORMAT 
PAGE HEADER
  PRINT COLUMN 1, "cgprrp011",
        COLUMN 14, "R A .O. V A C   D O M I N I C A N A, S. A.",
        COLUMN 60, "PAG.  ",PAGENO USING "###"
  PRINT COLUMN 14, "     SISTEMA DE CONTABILIDAD GENERAL",
        COLUMN 60, TODAY USING "DD/MM/YY"
  PRINT COLUMN 14, "  VALIDACION RELACION CUENTAS - ESTADO Q",
        COLUMN 60, TIME
  SKIP 1 LINE
PRINT COLUMN 1,
"====================================================================="
PRINT COLUMN 1, "DEPARTAMENTO",
      COLUMN 20, "CUENTA NO.",
      COLUMN 53, "ESTADO M",
      COLUMN 65, "ESTADO "
PRINT COLUMN 1,
"====================================================================="
SKIP 1 LINE

ON EVERY ROW
PRINT COLUMN 1, x.departamento using "&",
      COLUMN 20, x.cuenta_no," ",x.descripcion,
      COLUMN 53, x.estado_m,
      COLUMN 65, x.estado_q

AFTER GROUP OF x.departamento
PRINT COLUMN 1,
"------------------------------------------------------------------------"
END REPORT