Hola compañeros del foro, tengo una duda que quisiera me ayudaran y es sobre abrir el cajon de dinero, tengo una impresora Epson TM-U220D y una caja Dynapos, y este es el codigo que utilizo:
Código Delphi
[-]procedure TFSaveFactura.PngSpeedButton1Click(Sender: TObject);
var f: TextFile;
begin
if RadioButton7.Checked = True then
begin
if (Efectivo.Text = '0.00') or
(Efectivo.Text = '') then
begin
FAviso:=TFAviso.Create(self);
FAviso.Label1.Caption := 'La Casilla Efectivo está Vacío!. Por Favor LLenelo.';
FAviso.ShowModal;
Abort;
end;
FTicket:=TFTicket.Create(self);
FFacturar.ClientDataSet1.ApplyUpdates(-1);
FFacturar.ClientDataSet1.EmptyDataSet;
FTicket.AFactDetalle.SQL.Text := 'select * from FactDetalles where FactNo = :No';
FTicket.AFactDetalle.Parameters.ParamByName('No').Value := DBEdit5.Text;
FTicket.AFactDetalle.Open;
FTicket.QRLabel4.Caption := DBEdit5.Text;
FTicket.QRLabel6.Caption := FFacturar.DBLookupComboBox1.Text;
FTicket.QRLabel27.Caption := FFacturar.DBEdit6.Text;
FTicket.QRLabel23.Caption := FSaveFactura.Efectivo.Text+'.00';
FTicket.QRLabel25.Caption := FSaveFactura.Cambio.Text;
FTicket.QRLabel15.Caption := FMain.Panel4.Caption;
FTicket.QRLabel12.Caption := Label2.Text;
FTicket.QRLabel16.Caption := Label2.Text;
FTicket.QuickRep1.Print;
AssignFile(f,'lpt1');
Rewrite(f);
Writeln(f,#27+'p'+#0+#25+#250);
closeFile(f);
FFacturar.DsFactura.DataSet.Post;
FFacturar.DsFactura.DataSet.Insert;
FFacturar.ZConteo.SQL.Text := 'Select Max(FactNo) From facturas';
FFacturar.ZConteo.Open;
FFacturar.FactID.Text := IntToStr(FFacturar.ZConteo.Fields[0].AsInteger+1);
FFacturar.ZConteo.Close;
ShortDateFormat := 'dd/MM/yyyy';
DateSeparator := '/';
FFacturar.DsFactura.DataSet.FieldByName('FecFact').Value := DateToStr(Now);
FFacturar.DsFactura.DataSet.FieldByName('FecVence').Value := DateToStr(Now+30);
FFacturar.DsFactura.DataSet.FieldByName('Usuario').Value := FFacturar.Panel4.Caption;
FFacturar.DsFactura.DataSet.FieldByName('TipoFact').Value := 'Contado';
FFacturar.Edit1.Clear;
FFacturar.Total2.Text := '0.00';
FFacturar.Total.Text := '0.00';
Close;
end;
Ahora queria saber si el codigo de abrir la caja es correcto y la posición de la misma, quiero aclarar que no tengo la caja de dinero en mano, solo queria si era correcto o hay alguna manera de probarlo sin el cajon.
Saludos