Error en Codigo

[integral]

Que tal amigos :

Buenas Noches

Algun colega que me pueda corregir el error de las siguientes lineas de codigo que no logro encontrar el error que me notifica VFP. Adjunto imagen del error...

A continuacion el codigo...

        WAIT WINDOW " [ Grabando los Campos Modificados...] " NOWAIT
       
        SELECT Temp_Filtro      
        UPDATE Temp_Filtro ;
           SET cod_pres  = m.cod_pres
              num_cuota  = LTRIM(m.num_cuota)
              fech_vcto  = m.fech_vcto
              monto_pres = m.monto_pres
              cuota      = m.cuota
              interes    = m.interes
              mora       = m.mora
              tot_cuota  = m.tot_cuota
              id_pres    = m.id_pres
              dias_mora  = m.dias_mora
              mto_depo1  = m.mto_depo1
              fech_depo1 = m.fech_depo1
              mto_depo2  = m.mto_depo2
              fech_depo2 = m.fech_depo2
              new_saldo  = m.new_saldo
              new_vcto   = m.new_vcto
              moneda     = m.moneda
              moda_pago  = m.moda_pago
              fech_pago  = m.fech_pago
              codi_ban   = m.codi_ban
              bancos     = m.bancos
              observa    = m.observa                        
              image_pago = m.image_pago
              estado     = m.estado
              med_pago   = m.med_pago
              num_opera  = m.num_opera
              time_pago  = m.time_pago  
              tipo_opera = m.tipo_opera  
              WHERE cod_pres = m.cod_pres AND id_pres = m.id_pres AND num_cuota = m.num_cuota
   
        MESSAGEBOX("Actualizando la Cuota Modificada : " + '[ ' + ALLTRIM(UPPER(m.cod_pres)) + ' ]' + CHR(13) + ;
                   "Se Grabo el Registro en ",0+64,"Aviso")                    
ENDIF

Agradezco sus comentarios y sugerencias.

Saludos,

Integral

[HERNAN D. A.]

WAIT WINDOW " [ Grabando los Campos Modificados...] " NOWAIT

SELECT Temp_Filtro      
UPDATE Temp_Filtro ;

   SET cod_pres  = m.cod_pres, ;
       num_cuota  = LTRIM(m.num_cuota), ;
       fech_vcto  = m.fech_vcto, ;
       monto_pres = m.monto_pres, ;
       cuota      = m.cuota, ;
       interes    = m.interes, ;
       mora       = m.mora, ;
       tot_cuota  = m.tot_cuota, ;
       id_pres    = m.id_pres, ;
       dias_mora  = m.dias_mora, ;
       mto_depo1  = m.mto_depo1, ;
       fech_depo1 = m.fech_depo1, ;
       mto_depo2  = m.mto_depo2, ;
       fech_depo2 = m.fech_depo2, ;
       new_saldo  = m.new_saldo, ;
       new_vcto   = m.new_vcto, ;
       moneda     = m.moneda, ;
       moda_pago  = m.moda_pago, ;
       fech_pago  = m.fech_pago, ;
       codi_ban   = m.codi_ban, ;
       bancos     = m.bancos, ;
       observa    = m.observa, ;
       image_pago = m.image_pago, ;
       estado     = m.estado, ;
       med_pago   = m.med_pago, ;
       num_opera  = m.num_opera, ;
       time_pago  = m.time_pago, ;

       tipo_opera = m.tipo_opera ;
   WHERE cod_pres = m.cod_pres AND id_pres = m.id_pres AND num_cuota = m.num_cuota

MESSAGEBOX("Actualizando la Cuota Modificada : " + ;
           '[ ' + ALLTRIM(UPPER(m.cod_pres)) + ' ]' + CHR(13) + ;

           "Se Grabo el Registro en ", 64, "Aviso")

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/7207c1ca-b37d-423d-8f17-55cba6bc7aabn%40googlegroups.com.

[Gerardo Cagnola]

no has leído nada de la ayuda ni has estudiado un poquitito del lenguaje...

[Juan Carlos Garcia]

Hola.

Sobra el ;  despues del UPDATE Temp_Filtro  y los campos que van a ser actualizados con SET deben ir separados por ,

Saludos desde Medellin-Colombia

[Gerardo Cagnola]

estamos en semanas de exámenes??? suena a ejercicios de alguna escuela

MESSAGEBOX("Actualizando la Cuota Modificada : " + '[ ' + ALLTRIM(UPPER(m.cod_pres)) + ' ]' + CHR(13) + ;
                   "Se Grabo el Registro en ",0+64,"Aviso")    

esto es un copy and paste...

El lun, 27 oct 2025 a las 2:12, integral (<integral...@hotmail.com>) escribió:

[integral]

Que tal amigos del Foro

Gracias colegas HDA54 y Juan.

Sin querer elimine el comando Text To ... EndText y por ello me estaba dando el error.

Ya lo corregí.

Gracias Totales...

Saludos,

Integral