Respuestas de foro creadas
-
Entradas
-
Ok, explico s, tengo un WArrayBrowse que quiero modificar algún registro que tengo en la tabla.
Para modificar un registro del WArrayBrowse uso un ":Onclick := "TusMov", pero no logro desplegar los datos que tengo en el browse, ¿ como hago esto ?
pd. para dar de alta un nuevo registro, valido los datos con AJAX y lo hace bien.
Un comentario adicional,
Tuve muchos problemas para usar AJAX para recuperar los valores de una clave que necesitaba, después de estar batallando, me di cuenta que el problema es que la propiedad :nLength, no permite ir a buscar en AJAX, simplemente no lo hace, quitándola hace el trabajo muy bien, esto pienso servirá a muchos colegas a no tener el mismo problema y sigan con su trabajo.
Creo el último punto que me falta,
Esta rutina viene de un WArrayBrowse, donde tengo los datos de la tabla, cuando doy click en alguno de estos registros , recupero de manera correcta la clave del usuarios con
cRegistro := oCGI:GetCGIValue( "tUsuarios" ) //El :cID del ArrayBrowse
cRegistro := hb_ATokens( cRegistro , "|" )
cRegistro := cRegistro[1]//Obtengo la clave del usuario,
ahora ese campo lo quiero agregar en el wedit que está abajo, pero no logro que este aparezca, lo he intentado con
:aParams := {{"cRegistro","#cRegistro:value"}}
y de diferentes formas, ¿como sería lo correcto para traer un valor a un campo wedit?.
Muchas gracias por su apoyo.
123456789101112131415161718192021with object WEdit():New(:WO):nTimeOut := 1:cAjaxTimeOut := "dKtes"//"DatosClte":cId := "ccveusuario"//"cCliente":cTitle := "Clave del usuario":cHint := "":cIcon := "local_library":cHelp := "Clave del usuario"//"Hasta <b>10 caracteres</b>":aWidth[xc_M] := 4 // En pantallas Tablet o superior queremos los dos wcombobox en la misma linea*:nLength := 10//ESTA FUE EL DOLOR DE CABEZA:lEnabled := IIF(aParams[3,2]="1",.t.,.f.)//si es nuevo permite captura:oStyle:cColor := "blue" //Color del icono:oMask:lUpperCase := .T. //mayúsculas envío*:aParams := {{"cRegistro","#cRegistro:value"}}:aParams := {{"tUsuarios","cRegistro:name"}}:SetRequired():Create()end withClaro, te mando los fuentes que te comenté y unas pantallas del problema en cuestión, ya me di cuenta que si hace las operaciones del combobox, pero no los pinta en la pantalla.
Agrego pantalla donde puse un botón para alta y para cambios uso
Este es botón de alta
1234567891011With Object WButton():New( :Wo ):aWidth[xc_S] := 12 // este va a ocupar 6/12 en movil y tablet:cText := "Nuevo"+CRLF*:lBack := .t. //Al pulsar el botón, retrocede a la página que ha llamado a la actual:cIcon := "add" // Icono a mostrar ver lista en https://materializecss.com/icons.html:lLarge := .t. // Grande:lbold := .t. //negritas:lcenter := .f. //centrado:cClrPane := "indigo darken-1"//"light-green":aParams := {"1"}:cOnClick := "tUsMov" // En caso de picar en un elemento del ArrayBrowseen el browse uso el cambio
1234567891011121314WITH OBJECT WArrayBrowse():New(:WO):cId := "tUsuarios" // Id que le damos al ArrayBrowse*:nStyle := xc_Striped // Estilo visual, con pautado pijama:nStyle := xc_Highlight //Se ilumina la linea al ponerse sobre ella*:cClrHeadPane := "red lighten-4" // Le damos color a las cabeceras:cClrHeadPane := "light-green" // "lime lighten-5"// Le damos color a las cabeceras y pies:cOnClick := "tUsMov" // En caso de picar en un elemento del ArrayBrowse*:aFooter := {"Final Nombre","Final Puesto","Final Nivel"}:cCursor := "pointer"//cursor al colocar el ratón, sólo si hay onclick:cTextNoData := "No hay datos"//Texto que aparece cuando el aItems esta vació*:lResponsive := .t. //Habilita la tabla como resposive para los móviles:nFontSizeHead := 6 //Tamaño de la Fuente de la Cabecera y el Pie según Materialize:aParams := {"2"}en la funcion tUsMov() tengo este edit
123456789101112131415161718with object WForm():New(:WO):cId := "fUsuarios":cFunction := "VisParam"with object WEdit():New(:WO):cId := "cliente":nTimeOut := 1 //no lo conozco:cAjaxTimeOut := "DatosClte"//:cAjaxTimeOut := "DatosUsuario" //donde traemos los datos en caso de clave repetida:cTitle := "Clave del usuario":cHint := "":cIcon := "verified_user":oMask:lUpperCase := .T. //mayúsculas envío:cHelp := "Hasta 15 caracteres;":nLength := 15:SetRequired():Create()end withMuchas gracias, con el apoyo de ustedes quedó, ahora seguimos con lo de la conexión a la base de datos, tengo dbfs y ads, me comentaron ustedes con tAdsDataSources, lo estoy buscando para hacer unas pruebas, muchas gracias por el apoyo nuevamente.
Hola, hice la prueba, abrí el puerto 2003 tcp/udp en mi modem, apuntando a mi ip, si lo hago local con cualquier equipo conectado al módem, si funciona, http://192.168.0.107/negocio, pero cuando la quiero hacer vía ip publica, no funciona, estoy usando el siguiente comando http://sacsasistemas.synology.me:2003/cgi-bin/negocio.exe, tengo un servidor synology con ip fija, igual si le pongo el valor de la ip xxx-xxx-xx-xxx:2003/cgi-bin/negocio.exe
