unit uFormRegLancamentos1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uFormModelodeCadastro, Menus, DB, StdCtrls, Buttons, ExtCtrls,
  FMTBcd, DBClient, Provider, SqlExpr, daEdit, Mask, DBCtrls, daDBEdit;

type
  TfrmRegLancamentos1 = class(TfrmModelodeCadastro)
    SDSRegLancamentos: TSQLDataSet;
    SDSRegLancamentosID: TIntegerField;
    SDSRegLancamentosID_LOTE: TIntegerField;
    SDSRegLancamentosID_TANQUE: TIntegerField;
    SDSRegLancamentosSOBREVIVENCIA: TFMTBCDField;
    SDSRegLancamentosDENSIDADE: TFMTBCDField;
    SDSRegLancamentosBIOMASSA: TFMTBCDField;
    SDSRegLancamentosKG_M3: TFMTBCDField;
    SDSRegLancamentosPESO_MEDIO: TFMTBCDField;
    SDSRegLancamentosDATA_ESTOCAGEM: TDateField;
    SDSRegLancamentosFLAG: TSmallintField;
    DSPRegLancamentos: TDataSetProvider;
    CDSRegLancamentos: TClientDataSet;
    CDSRegLancamentosID: TIntegerField;
    CDSRegLancamentosID_LOTE: TIntegerField;
    CDSRegLancamentosID_TANQUE: TIntegerField;
    CDSRegLancamentosSOBREVIVENCIA: TFMTBCDField;
    CDSRegLancamentosDENSIDADE: TFMTBCDField;
    CDSRegLancamentosBIOMASSA: TFMTBCDField;
    CDSRegLancamentosKG_M3: TFMTBCDField;
    CDSRegLancamentosPESO_MEDIO: TFMTBCDField;
    CDSRegLancamentosDATA_ESTOCAGEM: TDateField;
    CDSRegLancamentosQuantidadeEstocada: TIntegerField;
    CDSRegLancamentosVolumeTanque: TFloatField;
    CDSRegLancamentosFLAG: TSmallintField;
    Panel1: TPanel;
    Image1: TImage;
    Image5: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label14: TLabel;
    edtCodLote: TdaDBEdit;
    edtCodTanque: TdaDBEdit;
    edtSobrevivencia: TdaDBEdit;
    edtDensidade: TdaDBEdit;
    edtBiomassa: TdaDBEdit;
    edtKg_m3: TdaDBEdit;
    edtPesoMedio: TdaDBEdit;
    edtDataEstocagem: TdaDBEdit;
    edtVolumeTanque: TdaEdit;
    edtQuantEstocada: TdaEdit;
    qryLancamentos: TSQLQuery;
    SDSCadTanque: TSQLDataSet;
    SDSCadTanqueID_LOTE: TIntegerField;
    SDSCadTanqueID_TANQUE: TIntegerField;
    SDSCadTanqueQTDE_ESTOCADA: TIntegerField;
    SDSCadTanqueVOLUME_TANQUE: TFMTBCDField;
    SDSCadTanqueFLAG: TSmallintField;
    DSPCadTanque: TDataSetProvider;
    CDSCadTanque: TClientDataSet;
    CDSCadTanqueID_LOTE: TIntegerField;
    CDSCadTanqueID_TANQUE: TIntegerField;
    CDSCadTanqueQTDE_ESTOCADA: TIntegerField;
    CDSCadTanqueVOLUME_TANQUE: TFMTBCDField;
    CDSCadTanqueFLAG: TSmallintField;
    SDSItens_Lancamentos: TSQLDataSet;
    SDSItens_LancamentosID: TIntegerField;
    SDSItens_LancamentosID_ENTRADA: TIntegerField;
    SDSItens_LancamentosDATA_MOVIMENTO: TDateField;
    SDSItens_LancamentosSEMANAS: TSmallintField;
    SDSItens_LancamentosDIAS: TSmallintField;
    SDSItens_LancamentosPESO_GR: TFMTBCDField;
    SDSItens_LancamentosQUANT_INDIV: TFMTBCDField;
    SDSItens_LancamentosMORTALIDADE_INDIV: TFMTBCDField;
    SDSItens_LancamentosGPD_GR_DIA: TFMTBCDField;
    SDSItens_LancamentosBIOMASSA_DIA: TFMTBCDField;
    SDSItens_LancamentosTAXA: TFMTBCDField;
    SDSItens_LancamentosRACAO_DIA: TFMTBCDField;
    SDSItens_LancamentosTRATOS_DIA: TFMTBCDField;
    SDSItens_LancamentosRACAO_AC: TFMTBCDField;
    SDSItens_LancamentosFCA_KG: TFMTBCDField;
    SDSItens_LancamentosFLAG: TSmallintField;
    DSPItens_Lancamentos: TDataSetProvider;
    CDSItens_Lancamentos: TClientDataSet;
    CDSItens_LancamentosID: TIntegerField;
    CDSItens_LancamentosID_ENTRADA: TIntegerField;
    CDSItens_LancamentosDATA_MOVIMENTO: TDateField;
    CDSItens_LancamentosSEMANAS: TSmallintField;
    CDSItens_LancamentosDIAS: TSmallintField;
    CDSItens_LancamentosPESO_GR: TFMTBCDField;
    CDSItens_LancamentosQUANT_INDIV: TFMTBCDField;
    CDSItens_LancamentosMORTALIDADE_INDIV: TFMTBCDField;
    CDSItens_LancamentosGPD_GR_DIA: TFMTBCDField;
    CDSItens_LancamentosBIOMASSA_DIA: TFMTBCDField;
    CDSItens_LancamentosTAXA: TFMTBCDField;
    CDSItens_LancamentosRACAO_DIA: TFMTBCDField;
    CDSItens_LancamentosTRATOS_DIA: TFMTBCDField;
    CDSItens_LancamentosRACAO_AC: TFMTBCDField;
    CDSItens_LancamentosFCA_KG: TFMTBCDField;
    CDSItens_LancamentosFLAG: TSmallintField;
    CDSItens_LancamentosTotalMortalidade: TAggregateField;
    DSItens_Lancamentos: TDataSource;
    procedure btnNovoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmRegLancamentos1: TfrmRegLancamentos1;

implementation

{$R *.dfm}

procedure TfrmRegLancamentos1.btnNovoClick(Sender: TObject);
begin
  inherited;
  qryLancamentos.Close;
  qryLancamentos.Open;
  CDSRegLancamentosID.AsInteger := qryLancamentos.FieldByName('id_entrada').AsInteger;
  CDSItens_Lancamentos.Open;
  edtCodLote.SetFocus;
end;

end.
