Ayuda con foxpro

Hola necesita una ayuda, tengo el código que copio a continuación, ¿el detalles es que si yo activo el BROWS que tienes allí con asterisco (*) funciona perfectamente pero si lo quito no me funciona pudieras guiarme porque?
Creo que tiene algo que ver con el conectarme en la base de datos para el update pero no tengo bien claro como solventar el problema, te comento también que este proceso lo tengo en varios textbox y todos son iguales el código.
IF nKeyCode=13 and !EMPTY(valor_inicial) then
    SELECT proveedor
    *BROWSE
    resp=messagebox("Desea Guardar Los Cambios?",1+32,"Importaciones")
    IF resp=1 then
        up_sql = "Update PROVEE_ART Set " +;
                  "art_des2='"+ALLTRIM(proveedor.art_des2)+"' " +;
                    "Where co_art='"+ALLTRIM(thisform.text1.Value)+"' " +;
                    "and co_prov= '"+ALLTRIM(proveedor.co_prov)+"' "                 
        xcodadm="use "+Alltrim(tcod_emp)
        tconec=SQLCONNECT("profit_a")
        tresult= SQLEXEC(tconec,xcodadm)
        tresult= SQLExec(tconec,up_sql)
        If  tresult <= 0
            MESSAGEBOX('Error al Actualizar la información...', 16, 'SQL Connect Error')
            Return .F.
        ENDIF
    MESSAGEBOX('Se Actualizo Correctamente la información...', 64, 'SQL Connect')
    ELSE
        replace art_des2 with ALLTRIM(valor_inicial)
        thisform.grid1.column4.text1.Refresh
        thisform.grid1.column4.text1.SetFocus
    ENDIF
    thisform.grid1.Refresh
    thisform.Refresh
Endif

1 Respuesta

Respuesta
1
¿Cómo es que no funciona? ¿Qué pasa si lo quitas? ¿Algún error?
Sería bueno que me indicaras más detalles del problema que tienes pues sí me parece un tanto extraño.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas