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 .....................................ESTADO ANALITICO DE EGRESOS .......................................................
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, "ESTADO ANALITICO DE EGRESOS 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, <109>
ESCRIBE 66, <111>
ASIGNA <206>, <109> - <111>
ESCRIBE 87, <206>
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 EGRESOS: (-) MONTO NO EJERCIDO (+) SE HA EJERCIDO UN MONTO MAYOR AL PRESUPUESTADO"


COM--- IMPRESION DE LAS FIRMAS DE LOS EDILES ------ NO MODIFICAR
SALTA 3

FONT "ARIAL",7
CENTRA 135, "FIRMAS"
SALTA 2
CENTRA 130, "________________________________________"
SALTA 1
CENTRA 130, <002>
SALTA 1
CENTRA 130, "PRESIDENTE MUNICIPAL"
SALTA 2
CENTRA 130, "SINDICO Y REGIDOR DE LA COMISON DE HACIENDA MUNICIPAL"
SALTA 2
ESCRIBE 19,"________________________________________", 70,"________________________________________"
ESCRIBE 19, <003>,70,<004>
ESCRRIBE 35,"SINDICO",85,"REGIDOR"
SALTA 1
CENTRA 130,"TESORERIA MUNICIPAL "
SALTA 1
CENTRA 130, "_______________________________________"
SALTA 1
CENTRA 130, <005>



FIN