Com ---------------------------------------------------------
Com ---          	A S P E L                         ---
Com ---                                                   ---
Com --- Formato para la Impresión de Estado de Resultados ---
Com ---                                                   ---
Com --- EDOREW.FTO                          Marzo, 1999.  ---
Com ---------------------------------------------------------

Com <.. Solicita fecha del 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
		Tipo 1
		Mascara "#####"
		Salta 2
		Fon "Arial", 11
		Escribe  1, "Dirección:",10, <21>
		Escribe 53, "Reg. fed.:", 61, <23>
		Escribe  1, "Población:", 10, <22>
		Escribe 53, "Cédula:", 61, <24>
		Salta 2
		Asigna <91>, <91> + 1
		Escribe 67, "Página ", 74, <91>
		Salta 2
		Fon "Arial", 12
		Escribe  22, "E S T A D O   D E   R E S U L T A D O S   AL", 59, <1>
		Tipo  2
		Salta 2
		Fon "Arial", 8
		Raya 1, 130, "_"
                Salta 1 
		Escribe  60, "ESTE MES",  85, "%"
		Escribe  94, "ACUM.ESTE MES  ", 126, "%"
		Raya 1, 130, "_"
		Salta 3
		Fon "Arial", 8
		Mascara "###,###,###,###.##"
	Fencabezados


Com <.. Variables para Ingresos ..>

	Asigna <91>,  0   \ Contador de hojas.
	Asigna <92>,  0   \ Controla los títulos.
	Asigna <93>,  0   \ Acumula Saldo inicial
	Asigna <94>,  0   \ Acumula debe - haber
	Asigna <95>,  0   \ Calcula el Debe - Haber.
	Asigna <96>,  0   \ Calcula el % de Este mes vs. Ingresos
	Asigna <97>,  0   \ Calcula el % de Este mes vs. Ingresos
	Asigna <98>,  0   \ Calcula Saldo final
	Asigna <99>,  0   \ Acumulado de Utilidades Debe - Haber.
	Asigna <100>, 0   \ Acumulado de Utilidades Saldo final.
	Asigna <101>, 0   \ Acumulado total de este mes (ventas).
	Asigna <102>, 0   \ Acumulado total de sdo final (ventas)
	Asinga <210>, 0   \ Linea - hojas considerando encabezados

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

Com <.. Obtiene el total de ventas ..>
	\ Primera cta. ingresos <60>, ult. cta. ingresos <61>
	\\Inicia [<60>, <61>]
        Inicia SRAN[6] 
		\ Si nivel  <29>  de la cta
		Si <29> = 1
			Asigna <101>, <101> + <38> - <39>  \ Calcula Debe - Haber.
			Asigna <102>, <102> + <36>         \ Contador del Saldo final
		Sifin
	Termina

Com <.. Impresión de Ingresos ..>
	\\Inicia [<60>, <61>]
        Inicia SRAN[6] 
		Si <29> = 1
			Si <210> > 40
				Brinca
				Asigna <210>, 0
			Sifin
			Si <92> = 0
				Asigna <92>, 1
				Escribe 1, "INGRESOS :"
				Salta 2
			Sifin

			Asigna <95>, <38> - <39>           \Calcula Debe - Haber.
			Asigna <97>, <95> / <101> * 100    \Calcula %.
			Asigna <98>, <36> / <102> * 100    \Calcula %.
	 		Escribe 1, <27>, 50, <95>
			Si <97> > 99999
				Asigna <97>, 0
			Sifin
	 		Escribe 70, <97>, 90, <36>
			Si <98> > 99999
		 		Asigna <98>, 0
			Sifin
	 		Escribe 110, <98>

			Asigna <93>, <93> + <33>        \Contador Saldo inicial.
			Asigna <94>, <94> + <95>        \Contador del Debe - Haber.
			Asigna <210>, <210> + 1         \Contador de lineas
		Sifin
	Termina

	Si <92> <> 0
		\ Contador de líneas
		Asigna <210>, <210> + 3
		Si <210> > 40
			Brinca
			Asigna <210>, 0
		Sifin
		Asigna <92>, 0
		Asigna <98>, <93> + <94>         \Calcula el total del Sdo. Final.
		Asigna <96>, <94> / <101> * 100  \Calcula el total del %.
		Asigna <97>, <98> / <102> * 100  \Calcula el total del %.

		Escribe 1, "TOTAL DE INGRESOS :"
		Escribe 50, <94>
		Si <96> > 90000
			Asigna <96>, 0
		Sifin
		Escribe 70, <96>, 90, <98>
		Si <97> > 90000
			Asigna <97>, 0
		Sifin
		Escribe 110, <97>

		Asigna <99>, <99> + <94>     \Acumula las Utilidades Debe - Haber
		Asigna <100>, <100> + <98>   \Acumula las Utilidades Saldo final
		Asigna <93>, 0
		Asigna <94>, 0
		Asigna <96>, 0
		Salta 2
	Sifin

Com <.. Impresi¢n de Costos ..>
	\\Inicia [<62>, <63>]
         Inicia SRAN[7]
		Si <29> = 1
			Si <210> > 40
				Brinca
				Asigna <210>, 0
			Sifin
			Si <92> = 0
			Asigna <92>, 1
				Escribe 1, "EGRESOS :"
				Salta 2
			Sifin

			Asigna <95>, <34> - <35>         \Calcula Debe - Haber.
                        Si <46> = 1\\checo la naturaleza                  
                        Asigna <95>, <35> - <34>         \Calcula Debe - Haber.         
                        sifin         
			Asigna <97>, <95> / <101> * 100  \Calcula %.
			Asigna <98>, <36> / <102> * 100  \Calcula %.
	 		Escribe 1, <27>, 50, <95>
			Si <97> > 99999
				Asigna <97>, 0
			Sifin
			Escribe 70, <97>, 90, <36>
			Si <98> > 99999
				Asigna <98>, 0
			Sifin
Com Modificación para poder ver el porcentaje de costo de ventas y mano de obra //
			Escribe 110, <98>

			Asigna <93>, <93> + <33>    \Contador del Saldo Inicial.
			Asigna <94>, <94> + <95>    \Contador del Debe - Haber.
			Asigna <210>, <210> + 1     \Contador de lineas
		Sifin
	Termina

	Si <92> <> 0
		\ Contador de líneas
		Asigna <210>, <210> + 3
		Si <210> > 40
			Brinca
			Asigna <210>, 0
		Sifin
		Asigna <92>, 0

		\Asigna <98>, <93> + <94>          \Calcula el total del Sdo. Final.
		Asigna <98>, @RAN[R7, F]          \Calcula el total del Sdo. Final.
                Asigna <94>, @RAN[R7, E] 
		Asigna <96>, <94> / <101> * 100   \Calcula el total del %.
		Asigna <97>, <98> / <102> * 100   \Calcula el total del %.
		Escribe 1, "TOTAL DE EGRESOS :"                
		Escribe 50, <94>
		Si <96> > 90000
			Asigna <96>, 0
		Sifin
		Escribe 70, <96>, 90, <98>
		Si <97> > 90000
			Asigna <97>, 0
		Sifin
		Escribe 110, <97>
		Asigna <99>, <99> - <94>       \Acumula las Utilidades Debe - Haber
		Asigna <100>, <100> - <98>     \Acumula las Utilidades Saldo final
		Asigna <93>, 0
		Asigna <94>, 0
		Asigna <96>, 0
		Salta 2
	Sifin

	Asigna <96>, <99> / <101> * 100     \Calcula el total del %.
	Asigna <97>, <100> / <102> * 100    \Calcula el total del %
	Asigna <210>, <210> + 3             \Contador de lineas
	Si <210> > 40
		Brinca
		Asigna <210>, 0
	Sifin
	Escribe 1, "UTILIDAD NETA"
	Escribe 50, <99>
	Si <96> > 90000
		Asigna <96>, 0
	Sifin
	Escribe 70, <96>, 90, <100>
	Si <97> > 90000
		Asigna <97>, 0
	Sifin
	Escribe 110, <97>
	Salta 2

Com <.. Impresión de Gastos de Operación ..>
	\\Inicia [<64>, <65>]
         Inicia SRAN[8]
		Si <29> = 1
			Si <210> > 40
				Brinca
				Asigna <210>, 0
			Sifin
			Si <92> = 0
				Asigna <92>, 1
				Escribe 1, "GASTOS DE OPERACION :"
				Salta 2
			Sifin

			Asigna <95>, <34> - <35>          \Calcula Debe - Haber.
			Asigna <97>, <95> / <101> * 100   \Calcula %.
			Asigna <98>, <36> / <102> * 100   \Calcula %.
			Escribe 1, <27>, 50, <95>
			Si <97> > 99999
				Asigna <97>, 0
			Sifin
			Escribe 70, <97>, 90, <36>
			Si <98> > 99999
				Asigna <98>, 0
			Sifin
			Escribe 110, <98>

			Asigna <93>, <93> + <33>      \Contador del Saldo Inicial.
			Asigna <94>, <94> + <95>      \Contador del Debe - Haber.
			Asigna <210>, <210> + 1       \Contador de lineas
		Sifin
	Termina

	Si <92> <> 0
		Asigna <210>, <210> + 3          \Contador de l¡neas
		Si <210> > 40
			Brinca
			Asigna <210>, 0
		Sifin
		Asigna <92>, 0

      Asigna <98>, <93> + <94>         \Calcula el total del Sdo. Final.
      Asigna <96>, <94> / <101> * 100  \Calcula el total del %.
      Asigna <97>, <98> / <102> * 100  \Calcula el total del %.
      Escribe 1, "TOTAL DE GASTOS DE OPERACION :"
      Escribe 50, <94>
      Si <96> > 90000
         Asigna <96>, 0
      Sifin
      Escribe 70, <96>, 90, <98>
      Si <97> > 90000
         Asigna <97>, 0
      Sifin
      Escribe 110, <97>

      Asigna <99>, <99> - <94>        \Acumula las Utilidades Debe - Haber
      Asigna <100>, <100> - <98>      \Acumula las Utilidades Saldo final
      Asigna <93>, 0
      Asigna <94>, 0
      Asigna <96>, 0
      Salta 2
   Sifin

   Asigna <98>, <99> + <100>          \Calcula el total del Sdo. Final.
   Asigna <96>, <99> / <101> * 100    \Calcula el total del %.
   Asigna <97>, <100> / <102> * 100   \Calcula el total del %.
   Asigna <210>, <210> + 3            \Contador de lineas
   Si <210> > 40
      Brinca
      Asigna <210>, 0
   Sifin

Salta 1
	Escribe 56, ""
	SALTA 1
	Escribe 54, "LIC. GABRIEL GUEVARA GARCÍA"
	SALTA 1
	escribe 58, "PRESIDENTE MUNICIPAL"

	Salta 3
	Escribe 53, "COMISION DE HACIENDA MUNICIPAL"

	Salta 3
	
	Salta 1
	Escribe 28,"",88,""
	SALTA 1
	ESCRIBE 29,"ING. LEOPOLDO MORENO LAGUNES",88,"C. JUAN MORENO FERNÁNDEZ"
	SALTA 1
	ESCRIBE 38,"SINDICO",94,"REGIDOR"

	Salta 2
	Escribe 56, ""
	SALTA 1
	ESCRIBE 54,"C. MARÍA ALFONSA AGUAYO LÓPEZ"
	salta 1
	ESCRIBE 59, "TESORERA MUNICIPAL"
   BRINCA		
   Fin