bddevolucion.pas.svn-base

来自「example delphi with database」· SVN-BASE 代码 · 共 144 行

unit BDDevolucion;

interface
uses TDataConexion,ADODB,DB,SysUtils,Variants;

type
   TDevolucion = class
      private
      articulodev: string[100];
      articuloentr: string[100];
      preciodev: real;
      precioentr: real;
      idusuario:integer;
      Query : TADOQuery;
      StoredProc: TADOStoredProc;
      fecha: string;
      public
      constructor Create;
      destructor Destroy;override;
      function Devolucion():integer;
      function BajaDevolucion():boolean;
      procedure setArticuloDev(codbarra:string);
      procedure setArticuloEntr(codbarra:string);
      procedure setPrecioDev(precio:string);
      procedure setPrecioEntr(precio:string);
      procedure setIdUsuario(usuario:integer);
      function getArticuloDev():string;
      function getarticuloEntr():string;
      function getPrecioDev():string;
      function getPrecioentr():string;
      function getIdUsuario():integer;
      end;

implementation

constructor TDevolucion.Create();
begin
   inherited Create;
   Query:=TADOQuery.Create(nil);
   Query.Connection:=Database.Conexion;
   StoredProc:=TADOStoredProc.Create(nil) ;
   StoredProc.Connection:=Database.Conexion;
   articulodev:='';
   articuloentr:='';
   preciodev:=0;
   precioentr:=0;
end;
destructor TDevolucion.Destroy();
begin
       StoredProc.Connection:=Nil;
       StoredProc.Free;
       inherited Destroy;
end;

function TDevolucion.Devolucion():integer;
var resultado:integer;
begin
      StoredProc.ProcedureName:='alta_devolucion';
      StoredProc.Parameters.CreateParameter('@ccod_barra_dev',ftString,pdInput,100,articulodev);
      StoredProc.Parameters.CreateParameter('@ccod_barra_entr',ftString,pdInput,100,articuloentr);
      StoredProc.Parameters.CreateParameter('@cfecha',ftString,pdInput,100,fecha);
      StoredProc.Parameters.CreateParameter('@iusuario',ftInteger,pdInput,1,idusuario);
      StoredProc.Parameters.CreateParameter('@fprecio_dev',ftFloat,pdInput,1,preciodev);
      StoredProc.Parameters.CreateParameter('@fprecio_entr',ftFloat,pdInput,1,precioentr);
      StoredProc.Parameters.CreateParameter('@retorno',ftInteger,pdInputOutput,0,0);
      StoredProc.Prepared:=True;
      StoredProc.ExecProc;
      resultado:=StoredProc.Parameters.ParamValues['@retorno'];
      StoredProc.Parameters.Clear;
      Devolucion:=resultado;

end;

function TDevolucion.BajaDevolucion():boolean;
var resultado:boolean;
begin
      {StoredProc.ProcedureName:='baja_devolucion';
      StoredProc.Parameters.CreateParameter('@ccod_barra_dev',ftString,pdInput,100,articulodev);
      StoredProc.Parameters.CreateParameter('@ccod_barra_entr',ftString,pdInput,100,articuloentr);
      StoredProc.Parameters.CreateParameter('@cfecha',ftString,pdInput,100,fecha);
      StoredProc.Parameters.CreateParameter('@iusuario',ftInteger,pdInput,1,idusuario);
      StoredProc.Parameters.CreateParameter('@fprecio_dev',ftFloat,pdInput,1,preciodev);
      StoredProc.Parameters.CreateParameter('@fprecio_entr',ftFloat,pdInput,1,precioentr);
      StoredProc.Parameters.CreateParameter('@retorno',ftInteger,pdInputOutput,0,0);
      StoredProc.Prepared:=True;
      StoredProc.ExecProc;
      resultado:=StoredProc.Parameters.ParamValues['@retorno'];
      StoredProc.Parameters.Clear;
      }
      BajaDevolucion:=resultado;

end;

procedure TDevolucion.setArticuloDev(codbarra:string);
begin
      self.articulodev:=codbarra;
end;

procedure TDevolucion.setArticuloEntr(codbarra:string);
begin
      self.articuloentr:=codbarra;
end;

procedure TDevolucion.setPrecioDev(precio:string);
var punto:TFormatSettings;
begin
      punto.DecimalSeparator:='.';
      self.preciodev:=StrToFloat(precio,punto);
end;

procedure TDevolucion.setPrecioEntr(precio:string);
begin
      self.precioentr:=StrToFloat(precio);
end;
procedure TDevolucion.setIdUsuario(usuario:integer);
begin
    self.idusuario:=usuario;
end;

function TDevolucion.getArticuloDev():string;
begin
     getArticuloDev:=self.articulodev;
end;

function TDevolucion.getArticuloEntr():string;
begin
     getArticuloEntr:=self.articuloentr;
end;

function TDevolucion.getPrecioDev():string;
begin
    getPrecioDev:=FloatToStr(self.preciodev);
end;

function TDevolucion.getPrecioEntr():string;
begin
    getPrecioEntr:=FloatToStr(self.precioentr);
end;
function TDevolucion.getIdUsuario():integer;
begin
    getIdUsuario:=self.idusuario;
end;
end.