Regras Multicamadas

Question

Boa tarde,Algu�m poderia ajudar com a minha d�vida, pois j� procurei em tudo quanto eh lugar, mas n�o achei nada !!!Eh o seguinte: Estou tentando criar regras para baixar o estoque no programa de vend...

Kotho · Answer

Voce pode usar assim:

1) no ClientDataSet, no evento OnBeforeApplyUpdates:

procedure TFrmCadProduto.CdsCadProdutoBeforeApplyUpdates(Sender: TObject;
  var OwnerData: OleVariant);
begin
  OwnerData := CdsCadProduto.Data;
end;

2) no DataSetProvider, no evento OnAfterApplyUpdates:

procedure TRDMManutencao.DspCadProdutoAfterApplyUpdates(Sender: TObject;
  var OwnerData: OleVariant);
var
  DataSet: TCustomClientDataSet;
begin
  DataSet := TCustomClientDataSet.Create(Self);
  DataSet.Data := OwnerData;

Jrinfo2005 · Answer

Boa tarde, KothoMuito obrigado pela dica, realmente n�o havia pensado nisso !!Soh pra esclarecer, no pr�prio evento OnAfterApplyUpdates, eu fa�o a baixa do estoque ? Esse exemplo q vc me deu tb serve para tabela detalhes ?Mas uma vez agradecido...

Kotho · Answer

Sim... para tabelas detalhe tamb�m funciona... na verdade, com o data j� vem tudo (master e detail)... vc precisa somente criar outro(s) ClientDataSet(s), e atribuir na propriedade DataSetField o campo, assim:

DataSet2.DataSetField := TDataSetField(DataSet1.FieldByName(�nome_do_campo�));

Onde nome_do_campo ser� o nome da query... (acho que isso vc sabe)...

F�rum Regras Multicamadas #290658