Foros Club Delphi - Ver Mensaje Individual

alcides · #17 13-01-2006

gracias mil,
esta es la rutina que finalmente me funciono perfectamente,

Código PHP:


			
          Tbl_Encabezado.Insert;

          qry_Encabezado_cheques.Close;

          qry_Encabezado_cheques.Parameters.ParamByName('pfecha_inicial').Value := strtodate(fecha_inicial.Text);

          qry_Encabezado_cheques.Parameters.ParamByName('pfecha_final').Value   := strtodate(fecha_final.Text);

          qry_Encabezado_cheques.Open;

    While not qry_Encabezado_cheques.eof do begin

          Tbl_Encabezado.FieldByName('numero_transacion').Value := qry_encabezado_chequesnumero_cheques.Value;

          Tbl_Encabezado.FieldByName('fecha_transacion').Value  := qry_encabezado_chequesfecha_cheques.Value;

          Tbl_Encabezado.FieldByName('tipo_documento').Value    := 1;

          Tbl_Encabezado.FieldByName('concepto').Value          := qry_encabezado_chequesconcepto_cheques1.Value;

          Tbl_Encabezado.FieldByName('valor_transacion').Value  := qry_encabezado_chequesvalor_cheques.Value;

          Tbl_Encabezado.FieldByName('codigo_banco').Value      := 0;

          Tbl_Encabezado.FieldByName('debito').Value            := qry_encabezado_chequesdebito.Value;

          Tbl_Encabezado.FieldByName('credito').Value           := qry_encabezado_chequescredito.Value;

          Tbl_Encabezado.FieldByName('beneficiario').Value      := qry_encabezado_chequesbeneficiario_cheques.Value;

          Tbl_Encabezado.FieldByName('nulo').Value              := qry_encabezado_chequesnulo_cheques.Value;

          Tbl_Encabezado.FieldByName('posteada').Value          := ' ';

          Tbl_Encabezado.Post;

          Tbl_Encabezado.Close;

          Tbl_Encabezado.Open;

          Tbl_Encabezado.Insert;

          qry_Encabezado_cheques.next

end

Gracias mil,

Alcides
Rep.Dom.