begin
with DM.AQaCxP do
begin
SQL.Clear;
SQL.Add(' Insert Into CXP (Codigo, Nombre, Contacto, Fecha, Monto, Vencimiento, Balance, Abono) ');
SQL.Add(' select Codigo, Suplidor_Nombre, Suplidor_Contacto, Fecha, Monto_Pagar, Vencimiento, :balance, :abono');
SQL.Add(' from Entradademercancia');
SQL.Add('WHERE Codigo = :Codigo');
Parameters.ParamByName('Codigo').Value := DBEdit1.text;
Parameters.ParamByName('balance').Value := EdtBalance.text;
Parameters.ParamByName('abono').Value := EdtAbono.text;
ExecSQL;