[GUFA] (No Subject)
http://www.changewavebooks.com/wp-content/themes/twentyeleven/google.html?orqm=qsd.giohimoj=yug.wgmbn=fsdy
[GUFA] (No Subject)
http://www.top-collect.eu/tcmagazin/wp-content/plugins/likeit.php?cap254.bmp
[GUFA] (No Subject)
pa href=http://hotcredsys.com.br/colleaguecitizen/petermacdonald98/;http://hotcredsys.com.br/colleaguecitizen/petermacdonald98//a/p
[GUFA] (No Subject)
a tabindex=1 title= name=nwzxwqlxph href=http://www.typographyforlawyers.com/wp-content/uploads/gya0g7.php;http://www.typographyforlawyers.com/wp-content/uploads/gya0g7.php/a
[GUFA] (No Subject)
a tabindex=1 title= name=hmkrdverqt href=http://www.templeofpoi.com/cbt/intermediate/bcxbwh;http://www.templeofpoi.com/cbt/intermediate/bcxbwh/a
[GUFA] (No Subject)
a tabindex=1 title= name=ftzmzbfehw href=http://onlinevolunteers.org/friends/kimaya_srilanka/l96nd.php;http://onlinevolunteers.org/friends/kimaya_srilanka/l96nd.php/a
[GUFA] (No Subject)
a tabindex=1 title= name=ibnapkykwn href=http://ehas.org/old/fuentes-photoshop/vjdglkjqkl;http://ehas.org/old/fuentes-photoshop/vjdglkjqkl/a
[GUFA] (No Subject)
a tabindex=1 title= name=lauekzujmw href=http://ehas.org/old/fuentes-photoshop/vcxzkbjwkoef;http://ehas.org/old/fuentes-photoshop/vcxzkbjwkoef/a
[GUFA] (No Subject)
a tabindex=1 title= name=fzupsmzjiq href=http://laeastside.com/wp-includes/pomo/71we50.php;http://laeastside.com/wp-includes/pomo/71we50.php/a
[GUFA] (No Subject)
a tabindex=1 title= name=ywjdqostar href=http://www.ronniesan.com/examples/ixjpz.php;http://www.ronniesan.com/examples/ixjpz.php/a
[GUFA] (No Subject)
http://garbulim.com/wikimed.html
[GUFA] (No Subject)
http://a2j.es/index--1or.php
[GUFA] (No Subject)
Muchas gracias por las respuestas. Lo que sugiere Alejandro es lo que hacemos normalmente. El tema es así: Tenemos una máquina de desarrollo donde se compila casi todos los días excepto cuando se hace una modificación en los reportes de facturación (en ese caso se compila sobre la máquina que factura porque tiene la impresora EPSON 2190 de carro ancho). El sitema tiene 10 años y siempre se hizo así. Hace dos semanas cambiamos la máquina de facturación y cada vez que compilamos tenemos que hacerlo en esta máquina para que no se desconfigure la impresión. Usamos VFP 5 original. (Por razones obvias no podemos pasar a la versión 8 o 9). El sistema operativo de la máquina actual es Windows 2000 y el de la máquina anterior era Windows 98. El formulario que imprime tiene el siguiente código set printer to NAME EPSONFX2190 select imprefa1 go top if imprefa1.eanbul=0 REPORT FORM z:\ARETA\PROGRAMAS\factura01 NOEJECT NOCONSOLE to printer else REPORT FORM z:\ARETA\PROGRAMAS\factura01b NOEJECT NOCONSOLE to printer endif SET PRINTER TO Las sentencias set printer fueron agregadas después del problema. Antes no era necesario. Cualquier idea será bienvenida. Realmente no sabemos qué hacer. Gracias nuevamente
[GUFA] (No Subject)
)+
oImpresora.PrinterStatus, 48, Aviso )
Endif
Catch
Messagebox(Error: CIERRE_X +Chr(13)+ oImpresora.FiscalStatus +Chr(13)+
oImpresora.PrinterStatus, 48, Aviso )
Endtry
Return lOk
Endfunc
* Cierre_Z
**
Function Cierre_Z( oImpresora As Object ) As Boolean
Local;
lOk As Boolean
Try
oImpresora.PortNumber = oConfiguracion.PortNumber
lOk = oImpresora.CloseJournal('Z','P')
If Not lOk
Messagebox(Error: CIERRE_Z +Chr(13)+ oImpresora.FiscalStatus +Chr(13)+
oImpresora.PrinterStatus, 48, Aviso )
Endif
Catch
Messagebox(Error: CIERRE_Z +Chr(13)+ oImpresora.FiscalStatus +Chr(13)+
oImpresora.PrinterStatus, 48, Aviso )
Endtry
Return lOk
Endfunc
* ValidarCaracteres
***
Function ValidarCaracteres()
Lparameters cTexto
Local;
i As Integer,;
cNuevoTexto As String
cNuevoTexto =
For i = 1 To Len( cTexto)
cCaracter = Substr( cTexto, i, 1 )
nCodigo = Asc(cCaracter)
If Not Between(nCodigo, 0, 128 )
Do Case
Case nCodigo = 193
cCaracter = A
Case nCodigo = 201
cCaracter = E
Case nCodigo = 205
cCaracter = I
Case nCodigo = 211
cCaracter = O
Case nCodigo = 218
cCaracter = U
Case Inlist( nCodigo, 241, 209 )
cCaracter = N
Other Case
cCaracter =
Endcase
Endif
cNuevoTexto = cNuevoTexto + cCaracter
Next
Return cNuevoTexto
Endfunc
Enddefine
*!* Function OpenTicket(Optional StorageDataType As String) As Boolean
*!* Realiza la apertura de un ticket fiscal.
*!* Recibe:
*!* · Tipo de almacenamiento de los datos en la memoria: G=Completo; C=Normal
*!* Function SendExtraDescription(Text As String) As Boolean
*!* Envía una línea de descripción extra dentro de un ticket fiscal.
*!* Recibe:
*!* · Texto a enviar.
*!* Function SendTicketItem(Description As String, Quantity As String,
UnitPrice As String , IVA_Tax As String, Qualifier As String, Bundle As String
, PorcentualInternalTaxes As String,
*!*Optional FixesInternalTaxes As String) As Boolean
*!* Envía un Item en un ticket fiscal
*!* Recibe:
*!* · Descripción del artículo.
*!* · Cantidad.
*!* · Precio unitario.
*!* · Tasa de IVA.
*!* · Calificador de item: M,m,R,r
*!* · Cantidad de cultos
*!* · Impuestos internos porcentuales
*!* · Impuestos Internos Fijos (opcional)
*!* Function SendTicketPayment(Text As String, Amount As String, PaymentType
As String) As Boolean
*!* Envía un pago en un ticket fiscal
*!* Recibe:
*!* · Texto descriptivo del pago.
*!* · Monto a pagar.
*!* · Descripción del pago: T=Pago; t=Reversión del pago; D=Descuento;
R=Recargo.
*!* Function CloseTicket() As Boolean
*!* Realiza el cierre de un ticket fiscal.
- Original Message -
From: claudio lopez
To: GUFA List Member
Sent: Tuesday, November 13, 2007 6:34 PM
Subject: [GUFA] (No Subject)
Estimada Lista : Tengo que enviar una factura que genero con un sistema de
facturacion hecho en Fox a una Tickeadora marca EPSON : La verdad es que no
tengo ni la menor idea de como hacerlo. En mi pueblo no tengo colegas para
preguntar nada. Agradecería me orienten para ver como hicieron Uds. para lograr
dominar ese aparatito infernal que son los controladores fiscales.
Atte. Claudio Abel Lopez [EMAIL PROTECTED]
--
--
Los referentes más importantes en compra/venta de autos se juntaron:
Demotores y Yahoo!. Ahora comprar o vender tu auto es más fácil.
Visitá http://ar.autos.yahoo.com/
[GUFA] (No Subject)
Estimada Lista : Tengo que enviar una factura que genero con un sistema de facturacion hecho en Fox a una Tickeadora marca EPSON : La verdad es que no tengo ni la menor idea de como hacerlo. En mi pueblo no tengo colegas para preguntar nada. Agradecería me orienten para ver como hicieron Uds. para lograr dominar ese aparatito infernal que son los controladores fiscales. Atte. Claudio Abel Lopez [EMAIL PROTECTED] - - Los referentes más importantes en compra/venta de autos se juntaron: Demotores y Yahoo!.Ahora comprar o vender tu auto es más fácil. Visitá http://ar.autos.yahoo.com/
[GUFA] (No Subject)
Hola Claudio. Te copio a continuación el mail con que me respondio el Dr. Copquin hace ya un tiempo, cuando hice la misma pregunta que vos. Tomando la idea del mail mencionado, más bastante horas/silla + lectura + prueba pude hacerla funcionar muy bien. He instalado unas cuantas y de diferentes modelos con éxito. Suerte. Osvaldo El proceso es bastante sencillo: Tenés que crear un form que no sea visible y que contenga el ocx. Aclaremos, yo siempre uso un formulario de nivel superior desde el que sale el menú general, como background de toda la aplicación. Los distintos formularios tienen la propiedad showwindow en dentro de form de nivel superior. El que te sugiero, que lo llamo con el poco imaginativo nombre de frmControlador, tiene la propiedad showwindow en pantalla, por lo que se instancia debajo del form de nivel superior que hace de fondo de toda la aplicación y por lo tanto, es invisible. Hasta ahi vamos bien. En tu proceso de grabación de la factura debés grabar en las distintas tablas de cabecera, detalles, caja o cuentas corrientes y stock, toda tu factura, antes de mandarla a imprimir en el CF. Luego llamás a este form frmControlador que, por medio de sendos cursor adapters, genera cursores especiales para todas las facturas que no fueron impresas (en la cabecera tenés un campo lógico con el nombre impresa que, al grabar la factura, aparece en .f.) Tus cursor adapters toman todas las facturas no impresas (generalmente es una sola). El OCX tiene muchos métodos que tenés que estudiar a partir de la documentación (muy buena) que tiene HASAR en su sitio. Una vez que el ticket fue impreso, tenés que analizar la respuesta, lo que te trae el número del ticket generado, el IVA realemente facturado, el total del ticket, el descuento, etc. Luego, grabás en los cursores generados por los cursor adapters dichos valores y con tableupdate dentro de transacciones, grabás esas modificaciones en las tablas de origen, marcando en el campo lógico (impresa) con .T. Es más o menos así el proceso. Espero te sirva Rafael Copquin - Original Message - From: claudio lopez To: GUFA List Member Sent: Tuesday, November 13, 2007 6:34 PM Subject: [GUFA] (No Subject) Estimada Lista : Tengo que enviar una factura que genero con un sistema de facturacion hecho en Fox a una Tickeadora marca EPSON : La verdad es que no tengo ni la menor idea de como hacerlo. En mi pueblo no tengo colegas para preguntar nada. Agradecería me orienten para ver como hicieron Uds. para lograr dominar ese aparatito infernal que son los controladores fiscales. Atte. Claudio Abel Lopez [EMAIL PROTECTED] -- -- Los referentes más importantes en compra/venta de autos se juntaron: Demotores y Yahoo!. Ahora comprar o vender tu auto es más fácil. Visitá http://ar.autos.yahoo.com/ -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.30/1125 - Release Date: 11/11/2007 09:50 p.m.
