Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como actualizar registros!!! (https://www.clubdelphi.com/foros/showthread.php?t=75528)

oscarac 08-09-2011 22:15:05

vamos... vamos...
tu puedes......
una pista debemos modificar la consulta inicial

negrokau 08-09-2011 22:20:21

mmmmmm jajajajaja:mad:

oscarac 08-09-2011 22:23:25

quitale el parametro de Codigo
has que la consulta solo jale la factura buscada con todos sus registros :mad:

negrokau 08-09-2011 22:29:02

ya la cache, le deje que solo condicione COD_FACT, pero al actualizar ya no podra encontrar que actualizar si no ponemos CODIGO, ahora como lo hago?

oscarac 08-09-2011 22:31:34

Cita:

Empezado por negrokau (Mensaje 411405)
ya la cache, le deje que solo condicione COD_FACT, pero al actualizar ya no podra encontrar que actualizar si no ponemos CODIGO, ahora como lo hago?

claro que si lo hara....
porque cuando jalas los 4 registros de la factura... uno de los campos es el codigo... entonces tu segunda consulta no sufre cambio alguno y el parametro toma como valor el codigo de la primera consulta

oscarac 08-09-2011 22:33:33

Código Delphi [-]
procedure TF_FACTURACION.GUARDARClick(Sender: TObject);
begin
  DM.Q_FACTURACION.Post;
  DM.Transaction.CommitRetaining;
  DM.CONSULTA.CLOSE;
  DM.CONSULTA.ParamByName('ParCOD_FACT').AsString := COD_FACT.Text;
  DM.CONSULTA.Open;
  while not(DM.CONSULTA.Eof)do
  begin
    DM.CONSULTA2.CLOSE; 
    DM.CONSULTA2.ParamByName('ParCODIGO').AsString := DM.CONSULTA.FieldByName('CODIGO').AsFloat;
    DM.CONSULTA2.ParamByName('ParCANTIDAD').AsFloat := DM.CONSULTA.FieldByName('CANTIDAD').AsFloat;
    DM.CONSULTA2.ExecSQL;
    DM.CONSULTA.Next;
  end;
end;
quedaria mas o menos asi

oscarac 08-09-2011 22:54:44

y te funciono o no?
nos comentas

negrokau 09-09-2011 00:49:26

[Error] FORM_REMISION.pas(213): Incompatible types: 'String' and 'Double'
Este error me tira al ejecutar y me marca en rojo este:
Código Delphi [-]
Q_GUARDAR_RESTO.ParamByName('ParCODIGO').AsString := Q_GUARDAR1.FieldByName('CODIGO').AsFloat;

despues si le cambio .AsFloat por AsString, ejecuta pero me salta este otro error:

Q_GUARDAR1:Field 'CODIGO' not found

oscarac 09-09-2011 00:59:33

Cita:

Empezado por negrokau (Mensaje 411416)
[Error] FORM_REMISION.pas(213): Incompatible types: 'String' and 'Double'
Este error me tira al ejecutar y me marca en rojo este:

Código Delphi [-]
Q_GUARDAR_RESTO.ParamByName('ParCODIGO').AsString := Q_GUARDAR1.FieldByName('CODIGO').AsFloat;





despues si le cambio .AsFloat por AsString, ejecuta pero me salta este otro error:

Q_GUARDAR1:Field 'CODIGO' not found

tu campo se llama codigo?

negrokau 09-09-2011 01:04:14

se llama CODIGO en la tabla donde guardar los 4 registros a actualizar
pero dentro de Q_GUARDAR1 no esta el parametro de CODIGO

oscarac 09-09-2011 01:06:06

Cita:

Empezado por negrokau (Mensaje 411420)
se llama CODIGO en la tabla donde guardar los 4 registros a actualizar
pero dentro de Q_GUARDAR1 no esta el parametro de CODIGO

hagamos una pequeña recapitulacion de los hechos... por favor coloca
la estructura de tus tablas... el codigo contenido en los querys y el codigo fuente de tu actualizacion.. con tantos mensajes ya me perdi

Casimiro Noteví 09-09-2011 01:18:39

Cita:

Empezado por oscarac (Mensaje 411421)
hagamos una pequeña recapitulacion de los hechos... por favor coloca
la estructura de tus tablas... el codigo contenido en los querys y el codigo fuente de tu actualizacion.. con tantos mensajes ya me perdi

No me extraña que te pierdas, ya me voy a leer un rato y a dormir, a ver cómo va esto cuando me levante mañana :)
Suerte para todos, hará alta :)

Delphius 09-09-2011 03:47:08

No es por ofender, pero se me hace que ni Mr. Magoo da tanto palos a lo ciego como negrokau :D

Va con humor ¿he? :p

Negrokau, ¿puedo darte un consejo? Respira profundo y exhala 30 veces.
Luego mira al costado, que no se vea parte alguna de la pantalla. Mira un punto ciego de allí... cierra los ojos. No pienses en ningún código, ni en el IDE... ¡no pienses en nada! Repite lo mismo para el otro costado girando lentamente y con los ojos cerrados.
Sube y baja la cabeza, muévelas en círculos... como si te estuvieras descontracturando.

Luego procede a apagar la PC. Ve a descansar, que tu cabeza se desbloquee. No pienses en el problema por un buen tiempo. Haz algo de ocio, que te divierta ¡pero no que tenga que ver con la PC!

Luego cuando te sientas más aliviado toma una bebida que te permita ir entrando en calor pero de forma suave. Sugiero un té, pero el café también puede resultar.
Busca PAPEL y LAPIZ y empieza a expresar tus ideas como van llegando. No interesa como te surjan... es borrador. Ahora vuélvelas a repasar y darles orden y forma.

¿Listo?
Ahora si piensa en las palabras adecuadas para expresar el problema y vuelve a prender la PC. Ya estarás listo para explicarte.

Saludos,

oscarac 09-09-2011 05:20:09

si...
creo que yo también necesito descansar

ya nos estamos viendo manana

negrokau 09-09-2011 15:15:50

Cita:

Empezado por Delphius (Mensaje 411426)
No es por ofender, pero se me hace que ni Mr. Magoo da tanto palos a lo ciego como negrokau :D

Va con humor ¿he? :p

Negrokau, ¿puedo darte un consejo? Respira profundo y exhala 30 veces.
Luego mira al costado, que no se vea parte alguna de la pantalla. Mira un punto ciego de allí... cierra los ojos. No pienses en ningún código, ni en el IDE... ¡no pienses en nada! Repite lo mismo para el otro costado girando lentamente y con los ojos cerrados.
Sube y baja la cabeza, muévelas en círculos... como si te estuvieras descontracturando.

Luego procede a apagar la PC. Ve a descansar, que tu cabeza se desbloquee. No pienses en el problema por un buen tiempo. Haz algo de ocio, que te divierta ¡pero no que tenga que ver con la PC!

Luego cuando te sientas más aliviado toma una bebida que te permita ir entrando en calor pero de forma suave. Sugiero un té, pero el café también puede resultar.
Busca PAPEL y LAPIZ y empieza a expresar tus ideas como van llegando. No interesa como te surjan... es borrador. Ahora vuélvelas a repasar y darles orden y forma.

¿Listo?
Ahora si piensa en las palabras adecuadas para expresar el problema y vuelve a prender la PC. Ya estarás listo para explicarte.

Saludos,

Gracias por el consejo.... y les cuento que ya me salio, y funciona FUNCIONA, gracias por su tiempo a todos... nunca dejan de lado al que necesita, gracias por el aguante.....

oscarac 09-09-2011 15:16:09

Listo !!!!!
un nuevo dia...
ALELUYA !!!!!!!!
Negrokau... consiguio hacerlo funcionar

negrokau 09-09-2011 15:18:38

Cita:

Empezado por oscarac (Mensaje 411489)
Listo !!!!!
un nuevo dia...
ALELUYA !!!!!!!!
Negrokau... consiguio hacerlo funcionar

buena esa!!!!!!! y voy a ver que les tengo preparado para hoy jajajaja
en serio gracias... casi me di por vencido, gracias a ustedes no fue asi...:)

Casimiro Noteví 09-09-2011 15:20:31

Cita:

Empezado por oscarac (Mensaje 411489)
Listo !!!!!
un nuevo dia...
ALELUYA !!!!!!!!
Negrokau... consiguio hacerlo funcionar


Si ponía empeño era seguro que lo conseguía :)

Lo mejor es hacer lo que ha comentado Delphius, apagar el ordenador y coger papel y lapiz, se ven las cosas más claras.

ecfisa 09-09-2011 15:32:34

Cita:

Empezado por negrokau (Mensaje 411488)
Gracias por el consejo.... y les cuento que ya me salio, y funciona FUNCIONA, gracias por su tiempo a todos... nunca dejan de lado al que necesita, gracias por el aguante.....

Me alegro mucho.

Costó, pero anduvo, eso es lo importante.;)

Un saludo.

Delphius 10-09-2011 04:32:21

Ya lo dije yo hace unos años... el lápiz y el papel son las mejores herramientas (bueno, exceptuando el cerebro) con las que cuenta un desarrollador.

Lo que debe cultivar con los años es paciencia ;)

Saludos,


La franja horaria es GMT +2. Ahora son las 06:45:33.

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