Buenas Tardes (desde México) a To2:
Soy totalmente nuevo en desarrollo de Delphi, pero creo que ya le tome el suficiente cariño. Estoy haciendo un aplicacion para actualizaciones en un BD de Access (97) y Delphi 7. Quisiera saber si:¿Mi codigo es Correcto?, (al compilarlo no marca ningun error), o si las operaciones que intento hacer a nivel de registros ¿Son Correctas?, Todo mi codigo avanza aparentemente bien, pero no observo ningun cambio en la BD
, Anexo parte de mi codigo, ojala y alguien puede auxiliarme. Gracias
QKardex,QActualiza, QInsertados: son objetos TADOQuery en mi Form.
Código Delphi
[-]
.
.
with QKardex do
begin Close; SQL.Clear;
SQL.Text:='SELECT IdCrédito,Pagada,PagadaE..'
Open;
if Not(Eof) then begin
Edit;
FieldValues['ImporteE']:=FieldValues['ImporteE']+ QActualiza.FieldValues['Aplicar'];
if FieldValues['ImporteE']>=FieldValues['Totales'] then
begin if FieldValues['ImporteE']>FieldValues['Totales'] then
begin
AbonoP:=FieldValues['ImporteE'] - FieldValues['Totales'];
QInsertados.Close;
QInsertados.SQL.Clear;
QInsertados.SQL.Text:='INSERT INTO [Abonos Pendientes] (Cliente,Importe,IdAbono) VALUES('+ Quotedstr(Cliente) + ',' + IntToStr(prNoFactura) +')';
QInsertados.ExecSQL;
FieldValues['ImporteE']:= FieldValues['Totales'];
QInsertados.Close;
end; FieldValues['Pagada']:=-1; FieldValues['PagadaE']:=-1;
FieldValues['Parcial']:=0; FieldValues['ParcialE']:=0;
FieldValues['Importe']:=FieldValues['ImporteE'];
Update;
QInsertados.SQL.Clear;
QInsertados.SQL.Text:='UPDATE Pedidos SET Pagada=-1,PagadaE=-1,ParcialE=0,ImporteE='+ FieldValues['Importe'] + ' WHERE IdPedido=' + FieldValues['IdCrédito'];
QInsertados.ExecSQL;
QInsertados.Close;
end
else begin ....
.....
SALUDOS. Oswaldo Jr