FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
uh gracias lalo te lo agradeceria un montonazo.
Abrazo Ariel |
#2
|
|||
|
|||
No te olvides de mi lalo.. abrazo..
|
#3
|
|||
|
|||
Hola gente
con respecto al error lo solucioné cambiando HASAR1.CerrarComprobanteFiscal; //ESTE ES EL PROBLEMA por HASAR1.Enviar(CHR(69)); espero les sirva |
#4
|
|||
|
|||
Muchisimas gracias ferra, lo pruebo y te aviso.
|
#5
|
|||
|
|||
Hola gente
también hay problemas con HASARImp.Subtotal(true); si esta linea está después no deja consultar la base de datos entra en conflicto espero que sea útil |
#6
|
|||
|
|||
Pudieron resolver esto?
Lo que note debugueando el sistema es que el error se da en los "Open" y todo lo que sea ExecSQL y ExecProc funciona bien. Y solo pasa con ADO (dbGO), no con BDE. Faltaria probar si es con ADO + ODBC o ya solo con usar ADO alcanza. Despues de mil intentos le encontré la vuelta, en parte mezclando lo que dicen algunos por aca. Revivo este post porque es el unico que aparece en google junto a otro mas que remite a este, por lo que mas de uno va a terminar aca. Los comandos de la OCX que dan el "error" (que no se que será), son los siguientes: ImprimirPago Código:
HASAR.ImprimirPago(Descripcion, Importe) Código:
HASAR.Enviar ( Chr(68) + Chr(28) + Descripcion + Chr(28) + StringReplace(FormatFloat('000000000.00', Importe), ',', '.', [rfReplaceAll]) + Chr(28) + 'T' + Chr(28) + '0' ); Tenia: Código:
Hasar.SubTotal(True) CerrarComprobanteFiscal Tenia: Código:
HASAR.CerrarComprobanteFiscal; Código:
HASAR.Enviar(Chr(69)); Código:
with HASAR1 do begin Puerto := 1; Transporte := PUERTO_SERIE; PrecioBase := False; Modelo := modelo_fiscal; DescripcionesLargas := True; Reintentos := 3; TiempoDeEspera := 2000; end; HASAR1.Comenzar; HASAR1.TratarDeCancelarTodo; HASAR1.AbrirComprobanteFiscal(TICKET_C); while not Rep_Detalle.Eof do begin HASAR1.ImprimirItem( Rep_Detalle.FieldValues['descr'], Rep_Detalle.FieldValues['CANT'], Rep_Detalle.FieldValues['PRECIO'], 21, 0); Rep_Detalle.Next; end; HASAR.Enviar ( Chr(68) + Chr(28) + QPagoTipoPago.Value + Chr(28) + StringReplace(FormatFloat('000000000.00', StrToFloat(subtotal.Caption)), ',', '.', [rfReplaceAll]) + Chr(28) + 'T' + Chr(28) + '0' ); // Esto es el imprimirpago HASAR.Enviar(Chr(69)); // Esto es el HASAR1.CerrarComprobanteFiscal; HASAR1.Finalizar; Código:
HASAR.Enviar(Chr(147) + Chr(28) + '1' + Chr(28) + NumeroFacturaOrigen); Tengo la OCX funcional andando en varios sistemas (estacion de servicio, funeraria, kiosco). Es bastante hosca, no funciona bien del todo. Era mas robusta la winfis32.dll. Si alguno necesita alguna rutina en especial, chifle por MP. Saludos |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como instalo ocx hasar en delphi 7 | Iceman | Varios | 1 | 28-06-2007 16:02:09 |
Problema Hasar 330f | valpmia | Impresión | 2 | 23-02-2007 13:17:24 |
Facturas B >$1000 en Hasar 320 | pborges36 | Impresión | 2 | 24-01-2007 15:44:39 |
Manual ocx hasar | pborges36 | Impresión | 2 | 06-11-2006 13:48:03 |
Remitos en Hasar 330 | pborges36 | Impresión | 2 | 21-07-2006 21:54:16 |
|