COM ------------------------------------------------------------------------------------------------------------------------
COM ---------------------------------CONGRESO DEL ESTADO DE VERACRUZ DE IGNACIO DE LA LLAVE---------------------------------
COM ---------------------------------------------SECRETARIA DE FISCALIZACION------------------------------------------------
COM --------------------------------DIRECCION DE AUDITORIA Y ANALISIS DE LA CUENTA PUBLICA ---------------------------------
COM --------------------------DEPARTAMENTO DE CAPACITACION, ASESORIA Y SUPERVISION A MUNICIPIOS-----------------------------
COM ------------------------------------------------------------------------------------------------------------------------
COM .....................................FORMATO DE PRESUPUESTO ANUAL ANALITICO.............................................
COM ............................CATALOGO A 3 NIVELES XXXX-XX-XXXXX......2006...NIVEL ACUMULATIVO..........JDBF..............
COM ------------------------------------------------------------------------------------------------------------------------


COM --- PARA ENVIAR EL REPORTE DIRECTAMENTE A LA PANTALLA O AL IMPRESOR -----

PANTALLA


ANCHO_CARACTERES 190
COM .... SOLICITA LA FECHA DEL REPORTE ..... Y DATOS PARA EL LLENADO DEL FORMATO ....

	DATO <001>,  9, "FECHA DEL REPORTE: (DD Mmm AA)"
        DATO <002>, 40, "NOMBRE DEL PRESIDENTE MUNICIPAL"
        DATO <003>, 40, "NOMBRE DEL SINDICO MUNICIPAL"
        DATO <004>, 40, "NOMBRE DEL REGIDOR DE COMISION DE HACIENDA"
        DATO <005>, 40, "NOMBRE DEL TESORERO MUNICIPAL"

COM ..... ASIGNACIONES INICIALES DE VALORES PARA EL FORMATO 
    ASIGNA <91>, 0  \ CONTADOR DE HOJAS 
    ASIGNA <92>, 0  \ SIN UTILIZACION PARCIAL
    ASIGNA <93>, 0  \ SIN UTILIZACION PARCIAL 
    ASIGNA <94>, 0  \ SIN UTILIZACION PARCIAL
    ASIGNA <96>, 0  \ CONTROLADOR DEL ENCABEZADO
    ASIGNA <97>, 0  \ DIFERENCIAS 
    ASIGNA <98>, 0  \ TOTAL DE CUENTAS 

COM ... ASIGNACION DE LA SUMA DE LOS DIGITOS DE CADA UNO DE LOS NIVELES 
    Asigna <200>, 0
  
COM ... DEFINICION DE LOS ENCABEZADOS .... 
    DEFINE_ENCABEZADOS
        SI <91> > 1     \ SI NO ES LA PRIMERA HOJA ES LA SEGUNDA
          BRINCA
        SIFIN
        TIPO 2
        Mascara "###"
        Asigna <91>, <91> + 1
        Salto 2
        Escribe 6,"DIRECCIÓN:", 20, <21>, 83,"RFC :", 97, <23>
        Escribe 113, "HOJA :", 122, <91>
        Escribe 6,"POBLACIÓN :", 20, <22>, 83, "REG ESTATAL:", 97, <24>
        Salta 2
        FONT "ARIAL", 10
        Escribe  36, "PRESUPUESTO ANUAL ANALITICO AL :", 87, <001>
        Mascara "###,###,###,###.##"
        Salta 1
        raya 1, 132, "-"
        FONT "ARIAL", 8
        Escribe   1, "NO.DE CUENTA", 14, "DESCRIPCIÓN"
        Escribe  45, "PRESUPUESTO ANUAL", 73, "REAL"
        Escribe 90, "DIFERENCIA",112,"DIFERENCIA %"
        raya 1, 132, "-"
        SALTA 1
        Asigna <96>, 10
    Fencabezados

Com 51 <<<... Activa el impresor e imprime los encabezados ...>>>


ENCABEZADOS
          

INICIA [4000-00-00000, 4999-99-99999]
Si <96> > 57
             SALTA 1
             RAYA 1,132,"-"
             
             ASIGNA <200>, <91> + 1
             MASCARA "###"
             SALTA 1
            ESCRIBE 55,"HOJA:",61,<91>
             
             brinca
             Encabezados
          Sifin 
SI <028> = 0
ASIGNA <100>, (<040> - <031>)*-1
ASIGNA <101>, <100> / <031>
ASIGNA <102>, (<101> * 100)*-1
ASIGNA <103>, <103> \ ACUMULACION DEL PRESUPUESTO 
ASIGNA <104>, <104> \ACUMULACION DEL SALDO FINAL 
 

 SI <031> = 0
  
   ESCRIBE 1, <026>
   ESCRIBE 14, <027>
MASCARA "###,###,###.##"
   ESCRIBE 45, <031>
   CARACTERES 61
   ESCRIBE 66, <040>
   CARACTERES 81
   ESCRIBE 87, <100>
   CARACTERES 103
   MASCARA "####.##"
    SI <040> <> 0
      ESCRIBE 111, "100.00"
    SINO
      ESCRIBE 114, "0.00"
    SIFIN
   CARACTERES 113
   MASCARA "#"
   ESCRIBE 120, "%"
   CARACTERES 115
   
   SINO

   ESCRIBE 1, <026>
   ESCRIBE 14, <027>
MASCARA "###,###,###.##"
   ESCRIBE 45, <031>
   CARACTERES 65
   ESCRIBE 66, <040>
   CARACTERES 86
   ESCRIBE 87, <100>
   CARACTERES 107
   MASCARA "####.##"
      SI <040> = 0
      ESCRIBE 111,"-100.00"
      SINO
      ESCRIBE 110, <102> 
      CARACTERES 112
      SIFIN
   MASCARA "#"
  ESCRIBE 120, "%"
 SIFIN
  ASIGNA <103>, <103> + <031>
  ASIGNA <104>, <104> + <040>
  ASIGNA <105>, <105> + (<100> * -1)
  ASIGNA <096>, <096> + 1
  ASIGNA <098>,0+ 1
SIFIN
TERMINA
SALTA 2

INICIA [5000-00-00000, 5999-99-99999]
	  Si <96> > 57
             SALTA 1
             RAYA 1,132,"-"
             
             ASIGNA <200>, <91> + 1
             MASCARA "###"
             SALTA 1
            ESCRIBE 55,"HOJA:",61,<91>
             
             brinca
             Encabezados
          Sifin 
SI <028> = 0
ASIGNA <100>, <036> - <031>
ASIGNA <101>, <100> / <031>
ASIGNA <102>, <101> * 100
ASIGNA <103>, <103> \ ACUMULACION DEL PRESUPUESTO 
ASIGNA <104>, <104> \ACUMULACION DEL SALDO FINAL 
 

 SI <031> = 0
   ESCRIBE 1, <026>
   ESCRIBE 14, <027>
MASCARA "###,###,###.##"
   ESCRIBE 45, <031>
   CARACTERES 61
   ESCRIBE 66, <036>
   CARACTERES 81
   ESCRIBE 87, <100>
   CARACTERES 103
   MASCARA "####.##"
    SI <036> <> 0
      ESCRIBE 111, "100.00"
    SINO
      ESCRIBE 114, "0.00"
    SIFIN
   CARACTERES 114
   MASCARA "#"
   ESCRIBE 120, "%"
   CARACTERES 115

   SINO

   ESCRIBE 1, <026>
   ESCRIBE 14, <027>
MASCARA "###,###,###.##"
   ESCRIBE 45, <031>
   CARACTERES 65
   ESCRIBE 66, <036>
   CARACTERES 86
   ESCRIBE 87, <100>
   CARACTERES 107
   MASCARA "####.##"
      SI <036> = 0
      ESCRIBE 111,"-100.00"
      SINO
      ESCRIBE 110, <102> 
      CARACTERES 112

      SIFIN
   MASCARA "#"
  ESCRIBE 120, "%"
 SIFIN
  ASIGNA <103>, <103> + <031>

   ASIGNA <104>, <104> + <036>
   ASIGNA <105>, <105> + <100>
   ASIGNA <096>, <096> + 1
   ASIGNA <098>, <098> + 1
   
SIFIN
TERMINA

RAYA 1,190,"_"
SALTA 1
COM --- IMPRESION DE LOS TOTALES -----


COM --- VALIDACION ----

ASIGNA <108>, @RAN[4101-00-00000..4999-99-99999,A]*-1
ASIGNA <109>, @RAN[5000-00-00000..5999-99-99999,A]
ASIGNA <110>, @RAN[4101-00-00000..4999-99-99999,F]
ASIGNA <111>, @RAN[5000-00-00000..5999-99-99999,F]
ASIGNA <209>, <110> - <111>
SALTA 1
MASCARA "###,###,###.##"
FONT "ARIAL", 10
ESCRIBE 1, "T O T A L E S"
ESCRIBE 45, <103>
ESCRIBE 66, <209>
ESCRIBE 87, <105>
SALTA 1
RAYA 1,190,"="
SALTA 1
SALTA 2
CENTRA 130,"----DATOS ESTADISTICOS ACUMULADOS----"
SALTA 1
FONT "ARIAL",6
ASIGNA <112>, <108> - <109>  \ PARA LA DETERMINACION DE LA DIFERENCIA DEL PRESUPUESTO.
ASIGNA <113>, <110> - <111>  \ PARA LA DETERMINACION DE LA DIFERENCIA DE LOS SALDOS FINANCIEROS
ASIGNA <118>, <110> - <108>  \ PARA EL ENFRENTAMIENTO DEL RANGO DE LAS CUENTAS 4000 CONTRA LA LEY DE INGRESOS 
ASIGNA <119>, <111> - <109>  \ PARA EL ENFRENTAMIENTO DEL RANGO DE LAS CUENTAS 5000 CONTRA EL PRESUPUESTO DE EGRESOS
ASIGNA <114>, <118> / <108>
ASIGNA <115>, <119> / <109>
ASIGNA <116>, <114> * 100
ASIGNA <117>, <115> * 100
ESCRIBE 110, "DIFERENCIA", 130, " % "
RAYA 1,190, "="
ESCRIBE 1,"INGRESOS DEL PERIODO:",34, <110>,57, "LEY DE INGRESOS:", 84, <108>, 105, <118>, 120, <116>
ESCRIBE 1,"EGRESOS DEL PERIODO:", 34, <111>,57, "PRESUPUESTO DE EGRESOS:", 84, <109>, 105, <119>, 120, <117>
ESCRIBE 1,"RESULTADO DEL EJERCICIO:",34, <113>, 57,"DIFERENCIA:", 84, <112> 
RAYA 1,190,"="

SALTA 1
ESCRIBE 1, "CONSIDERACIONES:"
ESCRIBE 1, "1.-DATOS PRESUPUESTALES TOMADOS DE CUENTAS A NIVEL MAYOR"
ESCRIBE 1, "2.-DIFERENCIA PARA INGRESOS:(-) NO SE HA ALCANZADO LA META DE RECAUDACION (+)SE HA SUPERADO LA META DE RECAUDACION"
ESCRIBE 1, "3.-DIFERENCIA PARA EGRESOS: (-) MONTO NO EJERCIDO (+) SE HA EJERCIDO UN MONTO MAYOR AL PRESUPUESTADO"
ESCRIBE 1, "4.-EN EL TOTAL DE LA SUMA DE LA DIFERENCIA EL SIGNO DE LOS INGRESOS ES CONSIDERADO INVERSO PARA FINES DE VALIDACION"

COM--- IMPRESION DE LAS FIRMAS DE LOS EDILES ------ NO MODIFICAR
SALTA 3
FONT "ARIAL",7
CENTRA 128, "FIRMAS"
SALTA 1
CENTRA 133, "LIC. GABRIEL GUEVARA GARCÍA"
SALTA 2
CENTRA 130, <002>
SALTA 1
CENTRA 130, "PRESIDENTE MUNICIPAL"
SALTA 4
CENTRA 133, "SINDICO Y REGIDOR DE LA COMISON DE HACIENDA MUNICIPAL"
SALTA 4
ESCRIBE 24,"ING. LEOPOLDO MORENO LAGUNES", 78,"C. JUAN MORENO FERNÁNDEZ"
ESCRIBE 19, <003>,70,<004>
ESCRRIBE 35,"SINDICO",85,"REGIDOR"
SALTA 4
CENTRA 130,"C. MARÍA ALFONSA AGUAYO LÓPEZ"
SALTA 1
CENTRA 130, "TESORERA MUNICIPAL"
SALTA 1
CENTRA 130, <005>




FIN