Datos de una tabla a otra

[Spynosa]

Que tal un procedimiento almacenado, mas o menos

Código SQL [-]
create procedure elquesea (
  fecha date,
  grupo varchar(6),
  desc_cu varchar (10),
  debe double precision,
  haber double precision,
)
as
begin
  if (not exists(select * from tabla where fecha = :fecha and grupo = :grupo 
        and desc_cu = :desc_cu and debe = :debe and haber = :haber )) then
           insert into tabla (fecha,grupo,desc_cu,debe,haber) 
               values (:fecha,:grupo,:desc_cu,:debe,:haber);

espero que te sirva

[lKinGl]

he desarrollado este nuevo codigo ahora con campo único, funciona bien hasta aqui, pero necesito meterle un locate para que verifique antes si el registro esta no se agrega de lo contrario se registra, peroooo al momento de colocar el locate lanza un error no se porque :S

aqui envio mi codigo para ver que se puede hacer

Código Delphi [-]
procedure TForm44.BitBtn1Click(Sender: TObject);
var
Fecha:TDate;
unico,Grupo,Des,mes,ano:String;
debeouble;
begin

With Form1.Table11 do
  begin
    First;
    while not Eof do
      begin
        unico:=FieldValues['unico'];
        if  unico='0' then
          begin
          end
          else
          begin
            With form1.Table14 do
              Begin
                Insert;
                FieldValues['Fecha']:=form1.Table11.FieldValues['Fecha'];
                FieldValues['Grupo']:=Form1.Table11.FieldValues['Grupo'];
                FieldValues['Des_cu']:=Form1.Table11.FieldValues['des_cu'];
                FieldValues['debe']:=Form1.Table11.FieldValues['debe'];
                Post;
              end;
          end;
        Next;
      end;
  end;

if ComboBox1.Text='Seleccione Mes' then
  begin
    Application.MessageBox('Disculpe, debe seleccionar un Mes','');
    exit;
  end;

if ComboBox2.Text='Seleccione Año' then
  begin
    Application.MessageBox('Disculpe, debe seleccionar un Año','');
    exit;
  end;

mes:=IntToStr(ComboBox1.ItemIndex+1);
ano:=ComboBox2.Text;
edit1.Text:='01'+'/'+mes+'/'+ano;

with Form45.Query1 do begin
   Close;
   SQL.Text := 'Select Fecha,grupo,des_cu,debe,haber '+
             'from costosygastos.db '+
             'where Extract(month from fecha) = '+IntToStr(MonthOf(StrToDate(Edit1.Text)))+
             ' and Extract(year from fecha) = '+IntToStr(YearOf(StrToDate(Edit1.Text)));
   Open;
end;
form45.QRLabel1.Caption:='Costos y Gastos de '+ComboBox1.Text+' de '+ComboBox2.Text;
form45.QuickRep1.Preview;
exit;
end;

Gracias Adelantadas

[lKinGl]

help me! please

[lKinGl]

Salu2 ya resolvi mi problema, gracias a los que ayudaron en algo...

publico el código para que a alguien mas le sirva, uno nunca sabe ....

Código Delphi [-]
procedure TForm44.BitBtn1Click(Sender: TObject);
var
mes,ano:String;
begin

if ComboBox1.Text='Seleccione Mes' then
  begin
    Application.MessageBox('Disculpe, debe seleccionar un Mes','');
    exit;
  end;

if ComboBox2.Text='Seleccione Año' then
  begin
    Application.MessageBox('Disculpe, debe seleccionar un Año','');
    exit;
  end;

Form1.Table11.First;
  With Form1.Table11 do
    Begin
      While not Eof do
        begin
            // si el grupo es 6 ó 6
          if (FieldValues['nogrupo']=5) or (FieldValues['nogrupo']=6) then
            begin
              //si consigue unico en la tabla14
              if form1.Table14.Locate('unico',FieldValues['unico'],[]) then
                begin
                  //no pasa nada
                end
                else
                begin
                //de lo contrario graba el registro
                  With form1.Table14 do
                    Begin
                      Insert;
                      FieldValues['unico']:=form1.Table11.FieldValues['unico'];
                      FieldValues['Fecha']:=form1.Table11.FieldValues['Fecha'];
                      FieldValues['Grupo']:=Form1.Table11.FieldValues['Grupo'];
                      FieldValues['Des_cu']:=Form1.Table11.FieldValues['des_cu'];
                      FieldValues['debe']:=Form1.Table11.FieldValues['debe'];
                      Post;
                    end;
                end;
            end;
          Next;
        end;
    End;

mes:=IntToStr(ComboBox1.ItemIndex+1);
ano:=ComboBox2.Text;
edit1.Text:='01'+'/'+mes+'/'+ano;

with Form45.Query1 do begin
   Close;
   SQL.Text := 'Select Fecha,grupo,des_cu,debe,haber '+
             'from costosygastos.db '+
             'where Extract(month from fecha) = '+IntToStr(MonthOf(StrToDate(Edit1.Text)))+
             ' and Extract(year from fecha) = '+IntToStr(YearOf(StrToDate(Edit1.Text)));
   Open;
end;
form45.QRLabel1.Caption:='Costos y Gastos de '+ComboBox1.Text+' de '+ComboBox2.Text;
form45.QuickRep1.Preview;
exit;
end;

Saludos amigos

[lKinGl]

uffff en mis códigos anteriores acabo de ver a simple vista un error super grave, que a lo mejor era eso lo que no lo hacia funcionar....

en mi primer código estoy declarando la variable

deber,haberouble;


y es deber, haber: Double;

de igual manera en los demás códigos :S jeje

[lKinGl]

bueno supongo que son cosas que simplemente pasan ......