\****************************************************************************
\*** A S P E L ** agrupando items ** 2000 ***
\*** Sistema Administrativo Empresarial ASPEL SAEWIN 2.0 ***
\*** Formato para la impresión de FACTURAS sugerido FACTURAL.FTO ***
\*** para los formatos de la línea ASPEL ***
\*** Formato para ser emitido en Impresora LASER. . ***
\****************************************************************************

\ *** Definición de: Destino, Máscara, Tipo de Letra, Ancho de hoja y
\ *** Caracteres por Línea.

\Impresor
pantalla


Mascara "###,###,###,###.##"
Caracteres 250
Ancho_caracteres 132

Define_Encabezado
Tipo 1
Ajusta 1.6
\\ Imprime la fecha del documento
Escribe 70, @MFC[ <054>,"dd/mm/aaaa"]
Ajusta 2.6
Escribe 56, "Entrega :", 68, @MFC[ <055>,"dd/mm/aaaa"]

Ajusta 3.5
\\ Imprime Nombre del cliente y clave
Escribe 2, <029>, 70, "(", 71, <028>, 76, ")"
\\ Imprime la dirección del cliente y vendedor
Escribe 2, <031>, 49, "Vendedor :", 60, <045>
\\ Imprime teléfono del cliente
Escribe 2, <034>, 49, "Enviar a :"
\\ Imprime Código postal, población y enviar a ...(1)
Escribe 2, <033>, 9, <032>, 49, <069>
\\ Imprime el R.F.C
Escribe 2, <030>, 49, <070>

Ajusta 6.9
Tipo 2
Escribe 78, "% Desc"
Ajusta 7.5
Fencabezados

\Inicia el ciclo que recorre todas las facturas registradas
Inicia FACTURA

Encabezado

\Número de líneas para el área de partidas
Asigna <108>, 31
\Contador de líneas para el área de partidas
Asigna <107>, 0
Asigna <140>, 0
Asigna <141>, 0
Asigna <160>, 0
Asigna <161>, 0

\ Inicia la impresión de las partidas
Inicia PARTIDA
Si <072> <> 0
\Controla el número de líneas de las partidas
Si <107> < <108>
Asigna <107>, <107>+1
Sino
Asigna <107>,