Ver Mensaje Individual
  #1  
Antiguo 19-04-2013
jpgonzalez jpgonzalez is offline
Miembro
 
Registrado: feb 2010
Posts: 121
Reputación: 15
jpgonzalez Va por buen camino
Problema con Impresora Fiscal EPSON

Buenas para todos...
Estoy desarrollando un sistema de facturacion, y ahora estoy con el tema de la facturacion fiscal.
Dentro de algunos codigos viejos, encontre codigo para la fiscal EPSON, pero me tira el siguiente error al compilar el programa.

[DCC Error] UDmUtilidadesImpresoras.pas(12): E2003 Undeclared identifier: '_PrinterFiscalDisp'

El codigo es el siguiente:
Código Delphi [-]
unit UDmUtilidadesImpresoras;

interface

uses
  Windows, SysUtils, Classes, COmObj, EPSON_Impresora_Fiscal_TLB,
  FiscalPrinterLib_TLB;

type
  TDmUtilidadesImpresoras = class(TDataModule)
  private
     impEpson:_PrinterFiscalDisp;
    { Private declarations }
  public
    procedure inicializarImpFiscalEpson(impEpson:_PrinterFiscalDisp);
    procedure ImprimirItemFiscalEpson(impEpson:_PrinterFiscalDisp; DetalleItem:WideString; cant:WideString; prec:WideString; Iva:WideString);
    procedure imprimirFinFiscalFiscalEpson(impEpson:_PrinterFiscalDisp);
    { Public declarations }
  end;

var
  DmUtilidadesImpresoras: TDmUtilidadesImpresoras;

implementation

{$R *.dfm}

procedure TDmUtilidadesImpresoras.inicializarImpFiscalEpson(impEpson: _PrinterFiscalDisp);
var comenzar:boolean;
    dom,loc,letraDoc,tipoDoc,nroDoc,respIVAComp,nombre,tipo,desc,cant,precioU,
    tasa,impIntP,impIntF,bultos,calificador,texto,importePago,numero,nroCajon:WideString;
    num,suc,tasaAcr,ivaVta,blanco,tipoF,tipoPapel,copias,tform,tLetra,bienUso,tipoTAbla:WideString;
begin
  impEpson:=nil;
  impEpson:=CreateComObject(CLASS_PrinterFiscal) as _PrinterFiscalDisp;

.......
(sigue)

Estoy programando con Delphi XE en windows 7 de 32 bits.
No se si los OCX que tengo son viejos, y por ese motivo es que el DXE no reconoce _PrinterFiscalDisp.

Desde ya muchas gracias... abrazo!
Responder Con Cita