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
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
Respuesta de ikz0f7
1