Fórum Inserir chave primaria como chave secundaria em outra tabela. #584574

 
 if (edtDetalheEntrada.Text <> '') and (edtNomeCliente.Text <> '') and (edtNumFicha.Text <> '') then
   Begin
    With DM.cdsEntradas do
    Begin
      Append;
      FieldbyName('TIPO_ENTRADA').AsString := cmbEntradas.Text;
      FieldbyName('DETALHE_ENTRADA').AsString := edtDetalheEntrada.Text;
      FieldbyName('DATA').AsString := DatetoStr(cmbData.Date);
      FieldbyName('NUM_FICHA').AsString := edtNumFicha.Text;
      FieldbyName('NOME_CLIENTE').AsString := edtNomeCliente.Text;
      FieldbyName('VALOR').AsCurrency := edtValor.Value;
      FieldbyName('OBSERVACAO').AsString := edtObs.Text;
      FieldbyName('FORMA_PGTO').AsString := RadioGroup1.Items[RadioGroup1.ItemIndex];
      Post;
      ApplyUPdates(0);
      Close;
      OPen;

      if RadioGroup1.ItemIndex = 1 then
      Begin
        With DM.cdsCheques do
        Begin
          Append;
          FieldbyName('BANCO').AsString := edtBanco.Text;
          FieldbyName('DATA').AsString := DatetoStr(cmbData.Date);
          FieldbyName('DATA_CHEQUE').AsString := DateToStr(cmbDataVencimento.Date);
          FieldbyName('ENTRADAID').AsInteger := DM.cdsEntradas.FieldByName('ENTRADA_ID').AsInteger;;
          FieldbyName('NUM_CHEQUE').AsString := edtNumCheque.Text;
          FieldbyName('PARCELAS').AsString := edtNumParcelas.Text;
          FieldbyName('VALOR').AsCurrency := edtValorCheque.Value;
          Post;
          ApplyUpdates(0);
          Close;
          Open;
        End;
      End;

      if RadioGroup1.ItemIndex = 3 then
      Begin
        With DM.cdsNotas do
        Begin
          Append;
          FieldbyName('ENTRADAID').AsInteger := DM.cdsEntradas.FieldByName('ENTRADA_ID').AsInteger;
          FieldbyName('VENCIMENTO').AsString := DateToStr(cmbVencNota.Date);
          FieldbyName('NUM_NOTA').AsString := edtNumeroNota.Text;
          FieldbyName('CPF').AsString := edtCPF.Text;
          FieldByName('EMITENTE').AsString := edtEmitente.Text;
          FieldByName('VALOR').AsCurrency := edtValor.Value;
          FieldByName('ENDERECO').AsString := edtEnderecoNota.Text;
          Post;
          ApplyUpdates(0);
          Close;
          Open;
        End;
      End;

    End;


    frmEntradas.btAbreEntrada.Enabled := not DM.cdsEntradas.IsEmpty;
    frmEntradas.btRemoverEntrada.Enabled := not DM.cdsEntradas.IsEmpty;
    frmEntradas.btEditaEntrada.Enabled := not DM.cdsEntradas.IsEmpty;
   End;