bdingreso.~pas.svn-base

example delphi with database

unit BDIngreso;

interface
uses TDataConexion,ADODB,DB,SysUtils,Variants;
type
    TIngreso = class
     private
     idingreso : integer;
     codbarra : string;
     fecha_ingreso : string;
     cantidad : string;
     tipo : string;
     idusuario : integer;
     Query : TADOQuery;
     StoredProc: TADOStoredProc;
     public
     constructor Create;
     destructor Destroy;override;
     function Insertar():integer;
     procedure setIdIngreso(id:integer);
     procedure setIdArticulo(id:string);
     procedure setFecha(fecha:string);
     procedure setCantidad(cant:string);
     procedure setTipo(tipo:string);
     procedure setIdUsuario(id:integer);
     function getIdIngreso():integer;
     function getIdArticulo():string;
     function getFecha():string;
     function getCantidad():string;
     function getTipo():string;
     function getIdUsuario():integer;
    end;

implementation

constructor TIngreso.Create();
begin
   inherited Create;
   Query:=TADOQuery.Create(nil);
   Query.Connection:=Database.Conexion;
   StoredProc:=TADOStoredProc.Create(nil) ;
   StoredProc.Connection:=Database.Conexion;
   idingreso := -1;
   codbarra :='';
   fecha_ingreso :='';
   cantidad :='';
   tipo :='' ;
   idusuario :=0;
end;

destructor TIngreso.Destroy();
begin
       StoredProc.Connection:=Nil;
       StoredProc.Free;
       inherited Destroy;
end;

function TIngreso.Insertar():integer;
var resultado:integer;
begin
      StoredProc.ProcedureName:='alta_ingreso';
      StoredProc.Parameters.CreateParameter('@icantidad',ftInteger,pdInput,1,cantidad);
      StoredProc.Parameters.CreateParameter('@ccod_barra',ftString,pdInput,100,codBarra);
      StoredProc.Parameters.CreateParameter('@cfecha',ftString,pdInput,100,fecha_ingreso);
      StoredProc.Parameters.CreateParameter('@iusuario',ftInteger,pdInput,1,idusuario);
      StoredProc.Parameters.CreateParameter('@ctipo',ftInteger,pdInput,1,tipo);
      StoredProc.Parameters.CreateParameter('@retorno',ftInteger,pdInputOutput,0,0);
      StoredProc.Prepared:=True;
      StoredProc.ExecProc;
      resultado:=StoredProc.Parameters.ParamValues['@retorno'];
      StoredProc.Parameters.Clear;
      Insertar:=resultado;
end;

procedure TIngreso.setIdIngreso(id:integer);
begin
         self.idingreso := id;
end;

procedure TIngreso.setIdArticulo(id:string);
begin
      self.codbarra := id;
end;

procedure TIngreso.setFecha(fecha:string);
begin
    self.fecha_ingreso := fecha;
end;

procedure TIngreso.setCantidad(cant:string);
begin
    self.cantidad := cant;
end;

procedure TIngreso.setTipo(tipo:string);
begin
  self.tipo := tipo;
end;

procedure TIngreso.setIdUsuario(id:integer);
begin
     self.idusuario := id;
end;

function TIngreso.getIdIngreso():integer;
begin
     getIdIngreso := self.idingreso;
end;

function TIngreso.getIdArticulo():string;
begin
      getIdArticulo := self.codbarra;
end;

function TIngreso.getFecha():string;
begin
    getFecha := self.fecha_ingreso;
end;

function TIngreso.getCantidad():string;
begin
    getCantidad := self.cantidad;
end;

function TIngreso.getTipo():string;
begin
  getTipo := self.tipo;
end;

function TIngreso.getIdUsuario():integer;
begin
  getIdUsuario := self.idusuario;
end;

end.