
Mejor respuesta santiago14 , 28 marzo 2019 - 04:47
<?xml version="1.0" encoding="ISO-8859-1"?> <Config> <SerialPort>COM5</SerialPort> <BaudRate>9600</BaudRate> <HttpPort>5000</HttpPort> <DebugLevel>3</DebugLevel> <ServiceName>HASAR PROXY FISCAL</ServiceName> <ServiceDescription>Dialogando con IFH 2G</ServiceDescription> <AutomaticStart>si</AutomaticStart> </Config>
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, HasarArgentina_TLB, StdCtrls, ExtCtrls; type TForm1 = class(TForm) btnConexion: TButton; mmoFiscal: TMemo; edtPuerto: TEdit; txtDestino: TLabeledEdit; procedure btnConexionClick(Sender: TObject); private { Private declarations } //Hasar2G:ImpresoraFiscalRG3561; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses ComObj; procedure TForm1.btnConexionClick(Sender: TObject); var hsr2gPrueba:ImpresoraFiscalRG3561; //hsr2gPrueba:Variant; Puerto:Integer; Destino:WideString; respabrir: RespuestaAbrirDocumento; estilo:AtributosDeTexto; respcierre:RespuestaCerrarDocumento; begin hsr2gPrueba := CreateComObject(CLASS_ImpresoraFiscalRG3561) as _ImpresoraFiscalRG3561; Puerto:=StrToInt(edtPuerto.Text); Destino:=Trim(txtDestino.Text); try hsr2gPrueba.Conectar(Destino, Puerto, 15000, 15000); mmoFiscal.Lines.Add('Conexión exitosa'); hsr2gPrueba.CargarCodigoBarras(CodigoTipoEAN13, '779123456789', ImprimeNumerosCodigo, ProgramaCodigo); mmoFiscal.Lines.Add('Código de Barras'); hsr2gPrueba.CargarDatosCliente('Razón Social Cliente...', '99999999995', ResponsableInscripto, TipoCUIT, 'Domicilio Cliente...', 'Domicilio extensión 1...', 'Domicilio extensión 2...', 'Domicilio extensión 3....'); mmoFiscal.Lines.Add('Datos cliente'); respabrir:= hsr2gPrueba.AbrirDocumento(PresupuestoX); //hsr2gPrueba.AbrirDocumento(PresupuestoX); mmoFiscal.Lines.Add('Abre documento'); hsr2gPrueba.ImprimirTextoFiscal(estilo, 'Hasta agotar stock...', DisplayNo); mmoFiscal.Lines.Add('Imprime texto fiscal'); hsr2gPrueba.ImprimirItem('Item a la venta...', 1, 100, Gravado, 21, ModoSumaMonto, IIVariablePorcentual, 0, DisplayNo, ModoPrecioTotal, 1, '779123456789', '10',Unidad); mmoFiscal.Lines.Add('Imprime ítem'); hsr2gPrueba.ImprimirDescuentoItem('Oferta 10%...', 10, DisplayNo, ModoPrecioTotal); mmoFiscal.Lines.Add('Imprime descuento'); respcierre:=hsr2gPrueba.CerrarDocumento(0, ''); //hsr2gPrueba.CerrarDocumento(0, ''); mmoFiscal.Lines.Add('Cerrar documento'); except on e:Exception do begin mmoFiscal.Lines.Add('Sin conexión'); mmoFiscal.Lines.Add('Error de Fiscal: ' + e.Message); mmoFiscal.Lines.Add('Error de Fiscal (ClassName): ' + e.ClassName); end; end; mmoFiscal.Lines.Add('Prueba terminada'); end; end.
Como no tenemos componente para arrastrar hacia el Form, ponemos en el uses HasarArgentina_TLB.
