Com ---------------------------------------------------------
Com ---   A S P E L  -  Gobierno del Estado de Veracruz   ---
Com ---                                                   ---
Com --- Formato para la Impresión de la Balanza General   ---
Com ---                                                   ---
Com --- BGRALW.FTO                        Septiembre 2002 ---
Com ---------------------------------------------------------

Com <<<... Solicita fecha para reporte ...>>>
	Dato <1>, 9, "Fecha del reporte: (DD Mmm AA)"

Com Para enviar directamente el reporte a la Impresora
PANTALLA 

Com <<<... Definición de Encabezados ...>>>
	DefineEncabezados
		Mascara "###"
		Salta 2
		Asigna <91>, <91> + 1  \\ Contador del numero de pagina
  		Fon "Arial", 15
		Escribe  19, "B A L A N C E   G E N E R A L   A L", 56, <1>
                SALTA 1
		Fon "Arial", 11
		Escribe 69, "Página", 76, <91>  \\ Escribe el numero de pagina
		Salta 2
		Mascara "###,###,###,###.##"
		Salta 2
		Fon "Arial", 10
	Fencabezados


Com <<<... Asigna los valores iniciales para los Activos ...>>>
	Asigna <91>, 0 	\\ Contador de hojas.
	Asigna <92>, 0 	\\ Contador de Activo Circulante.
	Asigna <93>, 0 	\\ Contador de Activo Fijo.
	Asigna <94>, 0 	\\ Contador de Activo Diferido.
	Asigna <95>, 0 	\\ Contador de los Activos.
	Asigna <96>, 0		\\ Controla encabezado.

Com <<<... Activa el impresor e imprime los encabezados ...>>>
	Tipo 1
	Encabezados

	Salta 1
	Escribe 12, "A  C  T  I  V  O"
	Raya 1, 132, "-"

	Salta 3

Com <<<... Impresión del Activo Circulante ...>>>
        \\Inicia [<46>, <47>]  \\ Inicia ciclo de cuentas
        Inicia SRAN[1]
  		Si <29> = 1 \\ Si la cuenta es de primer nivel
			Si <96> = 0 
				Asigna <96>, 1
				Escribe 20, "ACTIVO CIRCULANTE :"
				Salta 2
			Tipo  2			
			Raya 13, 55, "-"
			Sifin
			
                        Escribe 13, <27>, 45, <36> \\ Escribe la descripcion de la cuenta y su saldo final
   			Asigna <92>, <92> + <36>  \\ Acumula los totales para el activo circulante
		Sifin
	Termina

	Si <96> <> 0
                Raya 45, 18,"-"
                salta 2
		Escibe 13, "TOTAL DE ACTIVO CIRCULANTE :", 65, <92> \\ Imprime el total del activo circulante
		Salta 3
		Asigna <96>, 0
  		Asigna <95>, <95> + <92>    \\ Acumulamos el total de los activos fijos.
	Sifin

Com <<<... Impresión del Activo fijo ...>>>
	\\Inicia [<48>, <49>]
         Inicia SRAN[2]
  		Si <29> = 1           \\ si la cuenta es de primer nivel
			Si <96> = 0
				Asigna <96>, 1
				Escribe 20, "ACTIVO FIJO :"
				Salta 2
			Raya 13, 55, "-"
			Sifin
                 	Escribe 13, <27>, 45, <36>  \\ escribo la descripcion de la cuenta y su saldo final
   			Asigna <93>, <93> + <36>   \\ acumulo para tener el total de activo fijo
		Sifin
	Termina

	Si <96> <> 0
   	        Raya 45, 18,"-"
                salta 3
		Escibe 13, "TOTAL DE ACTIVO FIJO :", 65, <93>
		Salta 3
		Asigna <96>, 0
  		Asigna <95>, <95> + <93>  \\ acumulo para tener el total de los activos
	Sifin
	Tipo  1
	Salta 2

	Escribe 1, "T O T A L   D E   A C T I V O ", 60, <95>
 	Raya 1, 25, "-"
               Raya 63, 15, "-"
 	Tipo 1
	Brinca

Com <<<... Asigna los valores iniciales para los Pasivos ...>>>
	Asigna <97>, 0		\\ Contador de Pasivo Corto Plazo.
	Asigna <98>, 0		\\ Contador de Pasivo Largo Plazo.
	Asigna <99>, 0		\\ Contador de Pasivo Deeferido.
	Asigna <100>, 0	\\ Contador de Capital.
	Asigna <101>, 0	\\ Contador de los Activos.
	Asigna <102>, 0	\\ Contador de Resultados del Ejercicio.
	Asigna <96>, 0		\\ Controla encabezado.

Com <<<... Imprime los Encabezados ...>>>
        Encabezados

	Salta 1
	Escribe 12, "P A S I V O   Y   P A T R I M O N I O"
	Raya 1, 132, "-"
	Tipo  2
	Salta 3

Com <<<... Impresión del Pasivo Corto Plazo ...>>>
	\\Inicia [<52>, <53>]
         Inicia SRAN[3]
		Si <29> = 1
			Si <96> = 0
				Asigna <96>, 1
				Escribe 20, "PASIVO CORTO PLAZO"
				Salta 2
				Raya 13, 55, "-"
			Sifin
                 	Escribe 13, <27>, 45, <36> \\ Escribe el -Saldo final.
   			Asigna <97>, <97> + <36>  \\ Acumula el -Saldo final.
		Sifin
	Termina

	Si <96> <> 0
		Salta 1
                Raya 45, 18, "-"
		Escibe 13, "TOTAL DE PASIVO CORTO PLAZO :", 65, <97>
		
		Salta 3
		Asigna <96>, 0
  		Asigna <101>, <101> + <97>  \\ Acumula el total de los pasivos a corto plazo para tener el total de los pasivos
	Sifin

Com <<<... Impresión del Pasivo Largo Plazo ...>>>
	\\Inicia [<54>, <55>]
        Inicia SRAN[4]
		Si <29> = 1
			Si <96> = 0
				Asigna <96>, 1
				Escribe 13, "PASIVO LARGO PLAZO"
				Salta 2
				Raya 13, 55, "-"
			Sifin
			Escribe 13, <27>, 45, <36> \\ Escribe el menos saldo final.
   			Asigna <98>, <98> + <36>  \\ Acumulo este saldo final para tener el total del pasivo a largo plazo
		Sifin
	Termina

	Si <96> <> 0
		Salta 1
                Raya 45, 18, "-"
		Escibe 13, "TOTAL DE PASIVO LARGO PLAZO :", 65, <98>
		Asigna <96>, 0
  		Asigna <101>, <101> + <98>  \\ acumulo para tener el total de los pasivos
	Sifin
	Salta 3
Com <<<... Impresión del Pasivo Diferido ...>>>
	\\Inicia [<56>, <57>]

Com <<<... Impresión del Capital ...>>>
	\\Inicia [<58>, <59>]
         Inicia SRAN[5]
		Si <29> = 1
			Si <96> = 0
				Asigna <96>, 1
				Escribe 13, "PATRIMONIO"
				Salta 2
				Raya 13, 55, "-"
				
			Sifin
                 	Escribe 13, <27>, 45, <36>  \\ Escribo descripcion y el -Saldo final de la cuenta
   			Asigna <100>, <100> + <36> \\ Acumulo para tener el total del capital
		Sifin
	Termina

	Asigna <101>, <101> + <100>
        Asigna <102>, @CTA[4000-00-00000...5999-99-99999, F]*-1
	Asigna <102>, -1 * <102>
	Asigna <101>, <101> + <102>

	Asigna <100>, <100> + <102>

	Escribe 13, "RESULTADO DEL EJERCICIO", 45, <102>
	Salta 1
        Raya 45, 18, "-"
	Escribe 13, "TOTAL DE PATRIMONIO :", 65, <100>
	salta 1
        Raya 73, 15, "="
	Salta 5
	Tipo 1

	Asigna <103>, <97> + <98> + <100>

 	Escribe 1, "T O T A L   D E   P A S I V O   Y   P A T R I M O N I O ", 60, <103>
	Raya 1, 36, "-"
        Raya 63, 16, "="

	Salta 2


	
	Salta 1
	Escribe 30, "LIC. GABRIEL GUEVARA GARCÍA"
	Salta 1
	Escribe 33, "PRESIDENTE MUNICIPAL"
	Salta 2, 
	Escribe 28, "COMISION DE HACIENDA MUNICIPAL"
	Salta 3
	Escribe 9,"INF. LEOPOLDO MORENO LAGUNES",52,"C. JUAN MORENO FERNANDEZ" 
	Salta 1
	Escribe 19, "SINDICO",59,"REGIDOR"
	Salta 3
	Escribe 30, "MARÍA ALFONSA AGUAYO LÓPEZ"
	sALTA 1
	Escribe 33, "TESORERA MUNICIPAL"	


	Si <95> <> <103>
		Salta 5
  		Escribe 10, "EL TOTAL DEL ACTIVO Y LA SUMA DEL PASIVO Y CAPITAL NO CUADRAN !!"
	Sifin
Fin