ActiveDelphi

[frcosilva]

Gostaria que alguém me ajudasse:
Na Tab Mestre tenho 5 campos (1,2,3,N e E). Neste informo a Carga horas/dia.
Na Tab Detalhes tenho "1" Campo chamado Turno e outro Campo chamado "Carga horas/dia" que receberá da Tab Mestre a informação de acordo com o que eu informar no Campo "Turno".
Se informar 1, recebera a Carga horas informada no Campo "1" da Tab Mestre, "N" receberá a Carga horas do Campo "N" da Tab Mestre.
Grato.
Francisco

[sadraquecipriano]

Oi...nao entendi mto bem...qual componente de conexao vc usa? eu uso zeos e se for como pensei... vc "amarrando" corretamente o mastersource entre a tabela mestre e tabela detalhe...isso ja é quase automatico.Basta vc colocar no botao inserir da tabela detalhe por exemplo:
dm.tabeladetalhe['campodetalhe']:=dm.tabelamestre['campomestre'];

[frcosilva]

Me desculpe.
Uso Delphi c/ BD IBExpert + FireBird - componente IBTable c/ dbEdit.
TabMestre
5 Fields - 1ºturno-8horas/dia / 2ºturno-8horas/dia / 3ºturno-6horas/dia / TurnoNormal-8horas/dias - TurnoEspecial-12 horas/dia e mais 2 fields que informo 22 dias úteis e 12 dias úteis no mês.
TabDetalhes (DBGrid)
Cabeçalho (Títulos)
qtde. de Colaboradores / Turno / Total horas mês
Gostaria que qdo. informasse o Turno (1-2-3-N-E) na TabDetalhes puxasse da TabMestre a carga horária de ref. e nultiplicasse pela Qtde. Colab da TabDetalhes (Ex.: no Turno informo N de Normal=8horas x 22 dias úteis x a qtde. de Colab da TabDetalhes.

É para obter Total horas disponíveis mês e definir CustoMinutoOperacional e Despesas Salarias p/ provisionamento - p/ Formação de Preços.

Não sei se precisa definir variáveis.
Só fiz curso através de vídeos que encontro na Internet, principalmente no ActiveDelpi.
Geralmente encontro a solução para todas as dúvidas. É a primeira vez que me deu este "vazio".
Grato.[/b][/u]

[frcosilva]

Tentei resolver assim:
"procedure TDM.Custo_Min_Prod_TabBeforePost(DataSet: TDataSet);
begin
If DM.Custo_Min_Producao.State in [dsinsert, dsedit] then
begin
{Bloco de comandos executados se a condição for verdadeira}
DM.Custo_Min_Prod_TabTURNO.Value := '1';
DM.Custo_Min_Prod_TabHORAS_MES.Value := ((DM.Custo_Min_Prod_TabQTDE_OPERADORES.Value
* DM.Custo_Min_ProducaoTURNO1.Value * DM.Custo_Min_ProducaoDIAS_DISP_MES.Value)
* (1-(DM.Custo_Min_ProducaoPERDA_MOD.Value/100))) * (1-(DM.Custo_Min_ProducaoPERDA_PROCESSO.Value / 100));
DM.Custo_Min_Prod_TabTOTAL_SAL_FAIXA.Value := DM.Custo_Min_Prod_TabQTDE_OPERADORES.Value * DM.Custo_Min_Prod_TabSALARIO_FAIXA.Value ;

{Bloco de comandos executados se a condição for verdadeira}
DM.Custo_Min_Prod_TabTURNO.Value := '2';
DM.Custo_Min_Prod_TabHORAS_MES.Value := ((DM.Custo_Min_Prod_TabQTDE_OPERADORES.Value
* DM.Custo_Min_ProducaoTURNO2.Value * DM.Custo_Min_ProducaoDIAS_DISP_MES.Value)
* (1 - (DM.Custo_Min_ProducaoPERDA_MOD.Value / 100))) * (1 - (DM.Custo_Min_ProducaoPERDA_PROCESSO.Value / 100));
DM.Custo_Min_Prod_TabTOTAL_SAL_FAIXA.Value := DM.Custo_Min_Prod_TabQTDE_OPERADORES.Value * DM.Custo_Min_Prod_TabSALARIO_FAIXA.Value;

{Bloco de comandos executados se a condição for verdadeira}
DM.Custo_Min_Prod_TabTURNO.Value := '3';
DM.Custo_Min_Prod_TabHORAS_MES.Value := ((DM.Custo_Min_Prod_TabQTDE_OPERADORES.Value
* DM.Custo_Min_ProducaoTURNO3.Value * DM.Custo_Min_ProducaoDIAS_DISP_MES.Value)
* (1 - (DM.Custo_Min_ProducaoPERDA_MOD.Value / 100))) * (1 - (DM.Custo_Min_ProducaoPERDA_PROCESSO.Value / 100));
DM.Custo_Min_Prod_TabTOTAL_SAL_FAIXA.Value := DM.Custo_Min_Prod_TabQTDE_OPERADORES.Value * DM.Custo_Min_Prod_TabSALARIO_FAIXA.Value;

{Bloco de comandos executados se a condição for verdadeira}
DM.Custo_Min_Prod_TabTURNO.Value := 'N';
DM.Custo_Min_Prod_TabHORAS_MES.Value := ((DM.Custo_Min_Prod_TabQTDE_OPERADORES.Value
* DM.Custo_Min_ProducaoTURNO_NORMAL.Value * DM.Custo_Min_ProducaoDIAS_DISP_MES.Value)
* (1 - (DM.Custo_Min_ProducaoPERDA_MOD.Value / 100))) * (1 - (DM.Custo_Min_ProducaoPERDA_PROCESSO.Value / 100));
DM.Custo_Min_Prod_TabTOTAL_SAL_FAIXA.Value := DM.Custo_Min_Prod_TabQTDE_OPERADORES.Value * DM.Custo_Min_Prod_TabSALARIO_FAIXA.Value;
end
else
begin
{Bloco de comandos executados se a condição for falsa}
DM.Custo_Min_Prod_TabTURNO.Value := 'E';
DM.Custo_Min_Prod_TabHORAS_MES.Value := ((DM.Custo_Min_Prod_TabQTDE_OPERADORES.Value
* DM.Custo_Min_ProducaoTURNO_ESPECIAL.Value * DM.Custo_Min_ProducaoDIAS_DISP_MES.Value)
* (1 - (DM.Custo_Min_ProducaoPERDA_MOD.Value / 100))) * (1 - (DM.Custo_Min_ProducaoPERDA_PROCESSO.Value / 100));
DM.Custo_Min_Prod_TabTOTAL_SAL_FAIXA.Value := DM.Custo_Min_Prod_TabQTDE_OPERADORES.Value * DM.Custo_Min_Prod_TabSALARIO_FAIXA.Value
end;
end; "

Mas não está muito confiável p/ digitação.
Agradeço se alguém puder me ajudar a corrigir e definir exceções.
Não sei colocar imagem[img][/img][img][/img]