Pasted

unit pdv.Controller.Caixas.Metodos;
 
interface
 
uses
  pdv.Controller.Caixas.Interfaces,
  pdv.Model.Caixas.Interfaces;
 
type
  TControllerCaixasMetodos = class(TInterfacedObject, iControllerCaixasMetodos)
  private
   [weak]
   FParent : IControllerCaixas;
   FModel : iModelCaixas;
  public
    constructor Create(aValue : IControllerCaixas);
    destructor Destroy; override;
    class function New(aValue : IControllerCaixas): iControllerCaixasMetodos;
    function Abrir : iControllerCaixasMetodos;
    function Fechar : iControllerCaixasMetodos;
    function Suprimento : iControllerCaixasMetodos;
    function Sangria : iControllerCaixasMetodos;
    function TrocarOperador : iControllerCaixasMetodos;
    function BloquearCaixa : iControllerCaixasMetodos;
    function DesbloquearCaixa : iControllerCaixasMetodos;
    function &EndMetodos : iControllerCaixas;
 
  end;
 
implementation
 
uses
  System.SysUtils, pdv.Model, pdv.Controller.Usuarios.Factory, pdv.View.Base,
  pdv.View.CapturaValores;
 
{ TControllerCaixasMetodos }
 
function TControllerCaixasMetodos.Abrir: iControllerCaixasMetodos;
begin
  result := self;
  FModel.Metodos.Abrir
                .SetValorAbertura(
                  TF_ViewBase.new(TF_ViewCapturaValores.Create(nil)
                                    .ExibirForm('Insira o valor de abertura.',
                                                'OK',
                                                'Cancelar'
                                                )
                                 )
                             .TemResult(true)
                             .ShowmodalF
                             .resultado
                )
                .SetOperador(TControllerUsuariosFactory.New.Usuarios.Caixa.AbrirCaixa.&End)
                .EndAbrir;
end;
 
function TControllerCaixasMetodos.BloquearCaixa: iControllerCaixasMetodos;
begin
 
end;
 
constructor TControllerCaixasMetodos.Create(aValue : IControllerCaixas);
begin
  FParent := aValue;
  FModel := TPDVModel.New.Caixas.Caixa;
end;
 
function TControllerCaixasMetodos.DesbloquearCaixa: iControllerCaixasMetodos;
begin
 
end;
 
destructor TControllerCaixasMetodos.Destroy;
begin
  inherited;
end;
 
function TControllerCaixasMetodos.EndMetodos: iControllerCaixas;
begin
 
end;
 
function TControllerCaixasMetodos.Fechar: iControllerCaixasMetodos;
begin
 
end;
 
class function TControllerCaixasMetodos.New(aValue : IControllerCaixas): iControllerCaixasMetodos;
begin
  Result := Self.Create(aValue);
end;
 
function TControllerCaixasMetodos.Sangria: iControllerCaixasMetodos;
begin
 
end;
 
function TControllerCaixasMetodos.Suprimento: iControllerCaixasMetodos;
begin
 
end;
 
function TControllerCaixasMetodos.TrocarOperador: iControllerCaixasMetodos;
begin
 
end;
 
end.