Factory Nfe

unit FactoryModel;

interface

uses Forms,ClientesModelDao, DtmFrameworkConexao, System.SysUtils, System.Classes, PedidosModel, PedidosModelDao, VendaModel,
  TiposModel, FrmPesquisaClientes, NfeEngine, ConfigNfeParams, DaoProxy, ParametrosSistema;

  type iFact = interface
   ['{5633453C-9FA9-4B4C-9AC9-568F535C86A3}']
    {interface métodos de acessos aos Objetos}
    function getFPedidosClass: TPedidos;
    procedure setFPedidosClass(const Value: TPedidos);
    function getFTTDtmFrameworkConexao: TTDtmFrameworkConexao;
    function getiTipos: iTipos;
    procedure setTPedidosDao(const Value: TPedidosDao);
    function getFTPedidosDao: TPedidosDao;
    function getFiVendaModel: iVendaModel;
    function getFrmClientes: TFrmPesqClientes;
    procedure setFrmClientes(const Value: TFrmPesqClientes);
    procedure setFiVendaModel(const Value: iVendaModel);
    procedure setiTipos(const Value: iTipos);
    procedure setFTTDtmFrameworkConexao(const Value: TTDtmFrameworkConexao);
    function getNfeEngine: TNfeEngine;
    procedure setNfeEngine(const Value: TNfeEngine);
    function getCertConfig: TCertificadoRepos;
    procedure setFTDaoProxy(const Value: TDaoProxy);
    function getFTDaoProxy: TDaoProxy;
    procedure setCertConfig(const Value: TCertificadoRepos);
    function getFiParamsistema: iParamsistema;
    procedure setFiParamsistema(const Value: iParamsistema);

    property Conexao: TTDtmFrameworkConexao read getFTTDtmFrameworkConexao write setFTTDtmFrameworkConexao;
    property PedidosClass: TPedidos read getFPedidosClass write setFPedidosClass;
    property Tipos: iTipos read getiTipos write setiTipos;
    property Modelpedidos: TPedidosDao read getFTPedidosDao write setTPedidosDao;
    property VendaModel: iVendaModel read getFiVendaModel write setFiVendaModel;
    property FrmClientes: TFrmPesqClientes  read getFrmClientes write setFrmClientes;
    property NfeEng: TNfeEngine read getNfeEngine write setNfeEngine;
    property ConfigCert: TCertificadoRepos read getCertConfig  write setCertConfig;
    property DaoProxy: TDaoProxy           read getFTDaoProxy  write setFTDaoProxy;
    property Paramsistema: iParamsistema   read getFiParamsistema          write setFiParamsistema;
    procedure CreateDaoProxy;
    procedure CreateFrmPesquisa;

 end;

 type TFact = class( TInterfacedObject,iFact )

  private
    {Private declaration}
    FPedidosClass: TPedidos;
    FTipos: iTipos;
    FTTDtmFrameworkConexao: TTDtmFrameworkConexao;
    FTPedidosDao : TPedidosDao;
    FTVendaModel : iVendaModel;
    FTFrmPesqClientes : TFrmPesqClientes;
    FNfeEng: TNfeEngine;
    FCertConfig:TCertificadoRepos;
    FTDaoProxy: TDaoProxy;
    FiParamsistema: iParamsistema;
    function getFPedidosClass: TPedidos;
    procedure setFPedidosClass(const Value: TPedidos);
    function getFTTDtmFrameworkConexao: TTDtmFrameworkConexao;
    procedure setFTTDtmFrameworkConexao(const Value: TTDtmFrameworkConexao);
    function getiTipos: iTipos;
    procedure setiTipos(const Value: iTipos);
    procedure setTPedidosDao(const Value: TPedidosDao);
    function getFTPedidosDao: TPedidosDao;
    function getFiVendaModel: iVendaModel;
    procedure setFiVendaModel(const Value: iVendaModel);
    function getFrmClientes: TFrmPesqClientes;
    procedure setFrmClientes(const Value: TFrmPesqClientes);
    function getNfeEngine: TNfeEngine;
    procedure setNfeEngine(const Value: TNfeEngine);
    function getCertConfig: TCertificadoRepos;
    procedure setCertConfig(const Value: TCertificadoRepos);
    procedure setFTDaoProxy(const Value: TDaoProxy);
    function getFTDaoProxy: TDaoProxy;
    function getFiParamsistema: iParamsistema;
    procedure setFiParamsistema(const Value: iParamsistema);


   public
   {Prublic declaration}
   property Conexao: TTDtmFrameworkConexao read getFTTDtmFrameworkConexao write setFTTDtmFrameworkConexao;
   property Modelpedidos: TPedidosDao      read getFTPedidosDao           write setTPedidosDao;
   property PedidosClass: TPedidos         read getFPedidosClass          write setFPedidosClass;
   property Tipos: iTipos                  read getiTipos                 write setiTipos;
   property VendaModel: iVendaModel        read getFiVendaModel           write setFiVendaModel;
   property FrmClientes: TFrmPesqClientes  read getFrmClientes            write setFrmClientes;
   property NfeEng: TNfeEngine            read getNfeEngine               write setNfeEngine;
   property ConfigCert: TCertificadoRepos read getCertConfig              write setCertConfig;
   property DaoProxy: TDaoProxy           read getFTDaoProxy              write setFTDaoProxy;
   property Paramsistema: iParamsistema   read getFiParamsistema          write setFiParamsistema;
   procedure CreateDaoProxy;
   procedure CreateFrmPesquisa;

 end;

   var Fact: iFact;

   type TreturnSitlancamento = class function RetornaSitLancamento( asitLanc: TSituacaoLancamento ): string;  end;
   type TreturnTipoLanc = class function RetornaTipoLanc( aTpLanc: TTipoLancamento ): string;  end;
   type TreturnTSitNfe = class function RetornaSitNfe( aSitNfe: TSitNfe ): string;  end;
   type TReturnSitPagamento = class function RetornaSitPagamento( aSitPagamento: TSitPagamento): string; end;

 implementation

{ TFact }

procedure TFact.CreateDaoProxy;
begin
  if not assigned( FTDaoProxy ) then
 begin
   FTDaoProxy:= TDaoProxy.Create;
 end;
end;

procedure TFact.CreateFrmPesquisa;
begin
 if not assigned( FTFrmPesqClientes ) then
 begin

  FTFrmPesqClientes := TFrmPesqClientes.Create( Application );
 end;
 FTFrmPesqClientes.ShowModal;
end;

function TFact.getCertConfig: TCertificadoRepos;
begin
 if not Assigned( FCertConfig ) then
 begin
   FCertConfig:= TCertificadoRepos.Create(Nil);
 end;
   Result:= FCertConfig;
end;

function TFact.getFiParamsistema: iParamsistema;
begin
 if not assigned( FiParamsistema ) then
 begin
   FiParamsistema := TParamsistema.Create;
 end;
   Result:= FiParamsistema;
end;

function TFact.getFiVendaModel: iVendaModel;
begin
  if not assigned( FTVendaModel ) then
  begin
    FTVendaModel := TVendaModel.Create;
  end;
    Result:= FTVendaModel;
end;

function TFact.getNfeEngine: TNfeEngine;
begin
 if not Assigned( FNfeEng ) then
 begin
   FNfeEng := TNfeEngine.Create(nil);
 end;
   Result:= FNfeEng;
end;

function TFact.getFPedidosClass: TPedidos;
begin
 if not Assigned( FPedidosClass ) then
 begin
  FPedidosClass:= TPedidos.Create;
 end;
 Result:= FPedidosClass;
end;

function TFact.getFrmClientes: TFrmPesqClientes;
begin

 Result:= FTFrmPesqClientes;
end;

function TFact.getFTDaoProxy: TDaoProxy;
begin
 Result:= FTDaoProxy;
end;

function TFact.getFTPedidosDao: TPedidosDao;
begin
 if not assigned( FTPedidosDao )  then
 begin
   FTPedidosDao:= TpedidosDao.Create;
 end;
 Result:= FTPedidosDao;
end;

function TFact.getFTTDtmFrameworkConexao: TTDtmFrameworkConexao;
begin
 Result:= FTTDtmFrameworkConexao;
end;

function TFact.getiTipos: iTipos;
begin
 if not assigned( FTipos ) then
 begin
   FTipos:= TTipos.Create;
 end;
 Result:= FTipos;
end;

procedure TFact.setCertConfig(const Value: TCertificadoRepos);
begin
  if not Assigned( FCertConfig ) then
 begin
   FCertConfig:= TCertificadoRepos.Create(Nil);
 end;
   FCertConfig := Value;
end;

procedure TFact.setFiParamsistema(const Value: iParamsistema);
begin
  if not assigned( FiParamsistema ) then
 begin
   FiParamsistema := TParamsistema.Create;
 end;
   FiParamsistema:= Value;
end;

procedure TFact.setFiVendaModel(const Value: iVendaModel);
begin
   if not assigned( FTVendaModel ) then
  begin
    FTVendaModel := TVendaModel.Create;
  end;
    FTVendaModel:= Value;
end;

procedure TFact.setFPedidosClass(const Value: TPedidos);
begin
  if not Assigned( FPedidosClass ) then
 begin
   FPedidosClass:= TPedidos.Create;
 end;
 FPedidosClass := Value;
end;

procedure TFact.setFrmClientes(const Value: TFrmPesqClientes);
begin

  FTFrmPesqClientes := Value;
end;

procedure TFact.setFTDaoProxy(const Value: TDaoProxy);
begin
 FTDaoProxy := Value;
end;

procedure TFact.setFTTDtmFrameworkConexao(const Value: TTDtmFrameworkConexao);
begin
  FTTDtmFrameworkConexao:= Value;
end;

procedure TFact.setiTipos(const Value: iTipos);
begin
  if not assigned( FTipos ) then
 begin
  FTipos:= TTipos.Create;
 end;
  FTipos:= Value;
end;

procedure TFact.setNfeEngine(const Value: TNfeEngine);
begin
 if not Assigned( FNfeEng ) then
 begin
   FNfeEng:= TNfeEngine.Create( nil );
 end;
 FNfeEng := Value;
end;

procedure TFact.setTPedidosDao(const Value: TPedidosDao);
begin
 if not assigned( FTPedidosDao )  then
 begin
   FTPedidosDao:= TpedidosDao.Create;
 end;
  FTPedidosDao := Value;
end;

{ TreturnSitlancamento }

function TreturnSitlancamento.RetornaSitLancamento(asitLanc: TSituacaoLancamento): string;
begin
 case asitLanc of
   Aberto: Result:= 'ABERTO';
   Fechado: Result:= 'FECHADO' ;
   Cancelado: Result:= 'FECHADO' ;
   Estornado: result:= 'ESTORNADO';
 end;
end;

{ TreturnTipoLanc }

function TreturnTipoLanc.RetornaTipoLanc(aTpLanc: TTipoLancamento): string;
begin
 case aTpLanc of
   Orcamento: Result:= 'ORCAMENTO' ;
   Pedido: Result:= 'PEDIDO' ;
 end;
end;

{ TreturnTSitNfe }

function TreturnTSitNfe.RetornaSitNfe( aSitNfe: TSitNfe ): string;
begin
 case asitnfe of
   NfePendente:  Result:= 'NFE PENDENTE' ;
   NfeEmitida:   Result:= 'NFE EMITIDA';
   NfeCancelada: Result:= 'NFE CANCELADA' ;
 end;
end;

{ TReturnSitPagamento }

function TReturnSitPagamento.RetornaSitPagamento(aSitPagamento: TSitPagamento): string;
begin
 case aSitPagamento of
   PagPendente: Result:= 'PENDENTE' ;
   Pago:        Result:= 'PAGO';
   PagEstornado:Result:= 'ESTORNADO' ;
 end;
end;

end.