Fórum Firebird 1.5 Super Server via Internet, qual Comp. usar? #280922

 
unit UMap;

interface

type
  // produtos
  TRecProduto = Record
    ID_PRODUTO_PK           : Integer;  // código do produto
    ID_GRUPO_PRODUTO_FK     : Integer;  // código do grupo
    DESCRICAO               : String;   // descrição do produto
    DESCRICAO_SIMPLIFICADA  : String;   // descrição simplificada do produto
    ID_UNIDADE_VENDA_FK     : Integer;  // código de unidade de venda
    QTDE_UNIDADE_VENDA      : Integer;  // qtde. referente à unidade
    PESO_BRUTO              : Double;   //
    PESO_LIQUIDO            : Double;   // ...
    CUSTO_ENTRADA           : Double;
    COMISSAO                : Double;
    ISENTO                  : String;
    ICMS                    : Double;
    ICMS_ESTADO             : Double;
    ICMS_FORA_ESTADO        : Double;
    DATA_ULTIMA_COMPRA      : TDateTime;
    DATA_ULTIMA_VENDA       : TDateTime;
    ID_UNIDADE_COMPRA_FK    : Integer;
    CUSTO_CONTABIL          : Double;
    CODIGO_TRIBUTACAO       : Integer;
    PERCENTUAL_VENDA        : Double;
    ID_FORNECEDOR           : Integer;
    QTDE_UNIDADE_COMPRA     : Integer;
    LOTE                    : String;
  end;

implementation

end.

unit UHelper;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes,  Graphics, Controls,
  Dialogs, SqlExpr, UMap, DB, Printers, SqlTimSt, ComCtrls;

  type
  //¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
  TViewHelper = Class(TObject) { Package declarations }
    Qry_Aux     : TSQLQuery;
  //¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
  private { Private declarations }
    //
  protected
    //
  //¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
  public { Public declarations }
    // variáveis de reconhecimento
  function  f_Produto_Atributos     (v_CodProduto    : Integer) : TRecProduto;

  end;

var
  Helper : THelper;

//******************************************************************************

implementation

{ THelper }

function THelper.f_Produto_Atributos(v_CodProduto: Integer): TRecProduto;
const c_SQL_Produtos : String = ´SELECT * FROM PRODUTOS WHERE CODPRODUTO = :PCODPRODUTO´;
var 
  Qry_Aux : TSQLQuery;
  Rec_Produto : TRecProduto;
begin
  Qry_Aux               := TSQLQuery.Create(Nil);
  Qry_Aux.SQLConnection := DMServidor.SQLConnection1;
  try
    Qry_Aux.SQL.Add(c_SQL_Produtos);
    Qry_Aux.Open;
    if not Qry_Aux.IsEmpty then begin
      Rec_Produto.DESCRICAO := Qry_Aux.FieldByName(´DESCRICAO´).AsString;
      Rec_Produto.QTDE_UNIDADE_VENDA := Qry_Aux.FieldByName(´DESCRICAO´).AsInteger;
      // ....
      // ´todos os campos declarados como acima, não coloquei os outros por preguiça  :^)
      // ....
    Result := Rec_Produto;
  finally
    FillChar(Rec_Produto, SizeOf(Rec_Produto), 0);     
    Qry_Aux.Free;
  end;
end;

var
  Rec_Produto : TRecProduto;
begin
  Rec_Produto := Helper.f_Produto_Atributos;
  ShowMessage(Rec_Produto.DESCRICAO);
  FillChar(Rec_Produto, SizeOf(Rec_Produto), 0); // limpando objeto record
end;