Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Go Back   Foros Club Delphi > Principal > SQL
Register FAQ Members List Calendar Guía de estilo Search Today's Posts Mark Forums Read

 
 
Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #3  
Old 19/06/2004
nefy's Avatar
nefy nefy is offline
No confirmado
 
Join Date: Nov 2003
Posts: 171
Poder: 0
nefy Va por buen camino
Unhappy

Hola Roman, tarde pues me puse a seguir tu consejo y solo tengo un ultimo problema. Genero la consulta y campos persistentes para el Query q la construye. Ademas añadi un campo calculado (MONTOCOMISION) q obtiene el total q deseo asignar a un campo fisico (COMISION) de una de las tablas involucradas en la consulta, ahora lo q me falta es pasarle una clave consecutiva para identificar a los regsitros incluidos en dicha consulta en particular y el valor del campo calculado que corresponde a cada registro.
Hago lo siguiente en AfterPost de la cabecera:
Code:
 
procedure TDM.ComisionesAfterPost(DataSet: TDataSet);
begin
UpdateComision.ModifySQL.Text:='update Ventas_Mov '+
'set  '+
'  CLAVECOMISION = :'+QuotedStr(IntToStr(ComisionesCLAVE.Value))+','+
'  COMISION = :MONTOCOMISION '+
' where'+
'  NUM_RECIBO = :OLD_NUM_RECIBO and'+
'  NCONTRATO = :OLD_NCONTRATO and'+
'  IDUsuario = :OLD_IDUsuario and'+
'  FECHA = :OLD_FECHA and'+
'  EFECTIVO = :OLD_EFECTIVO and'+
'  CHEQUE = :OLD_CHEQUE and'+
'  BANCO = :OLD_BANCO and'+
'  NUM_CHQ = :OLD_NUM_CHQ and'+
'  CVE_COBRADOR = :OLD_CVE_COBRADOR and'+
'  CLAVECOMISION = :OLD_CLAVECOMISION and'+
'  COMISION = :OLD_COMISION';
UpdateComision.ExecSQL(ukModify);
DetailComision.ApplyUpdates;
end;
Y el error es que al dar ExecSQL, me manda un mensaje de error q dice q el valor de COMISIONESClave.Value no es un campo. La razon es obvia pues no es un campo de la consulta. Pero el punto es q debo de asignar dicho valor a todos los registros. Asi q cual es la sintaxis para q acepte dicho valor?. Busque en los mensajes del Foro y en la ayuda de Delphi pero no encontre la solucion.

Espero haberme explicado.

Salu2.

Nota: Al asignar update Object al Query la Rejilla me permite agregar valores y supuestamente se guardan pero no ocurre en la realidad.
Reply With Quote
 


Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump


All times are GMT +2. The time now is 11:36.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi