Page 1 of 1
es una broma , no?
Posted: Sat May 15, 2021 12:23 pm
by jvtecheto
Hola :
Yo creo que sera una broma para novatos como yo que probamos ejemplos del FWH\Samples sin mirar el codigo.
en el ejemplo XbrwEdit.prg esta este codigo.
Me he cargado todos los datos de la base de datos customer.
Supongo que lo modificaran ustedes, no?, pero lo podrian dejar para que no ejecutaramos codigo sin antes mirarlo
Un abrazo a todos.
Jose.
Re: es una broma , no?
Posted: Sat May 15, 2021 1:49 pm
by hmpaquito
Había algo, una utilidad, para deshacer el zap, porque el zap simplemente es una marca en la cabecera de la .dbf
Re: es una broma , no?
Posted: Sat May 15, 2021 3:14 pm
by jvtecheto
No Paco no pasa nada tengo FWH en el portátil. Lo cogeré de allí. El código de este ejemplo no no entiendo de ninguna manera, gracias por el interés.
Jose.
Enviado desde mi POCOPHONE F1 mediante Tapatalk
Re: es una broma , no?
Posted: Sat May 15, 2021 3:36 pm
by Antonio Linares
Debe haber sido alguna prueba y se ha olvidado quitarlo
gracias por el aviso
Re: es una broma , no?
Posted: Sat May 15, 2021 8:28 pm
by AIDA
Con razon
Code: Select all | Expand
#include "FiveWin.ch"
#include "XBrowse.ch"
function Main()
local oWnd, oBrw, oCol
USE Customer
ZAP
DEFINE WINDOW oWnd
@ 0, 0 XBROWSE oBrw OF oWnd ALIAS "Customer"
oBrw:lFastEdit = .T.
oCol = oBrw:AddCol()
oCol:bStrData = { || Customer->First }
oCol:cHeader = "First"
oCol:nEditType = EDIT_GET
oCol:bOnPostEdit = { | oCol, xVal, nKey | If( RecCount() == 0, ( DbAppend(), oBrw:Refresh() ),), If( nKey == VK_RETURN, Customer->First := xVal,) }
oCol = oBrw:AddCol()
oCol:bStrData = { || Customer->Last }
oCol:cHeader = "Last"
oCol:nEditType = EDIT_GET
oCol:bOnPostEdit = { | oCol, xVal, nKey | If( RecCount() == 0, DbAppend(),), If( nKey == VK_RETURN, ( Customer->Last := xVal, DbAppend(), oBrw:Refresh() ),) }
oBrw:CreateFromCode()
oWnd:oClient = oBrw
ACTIVATE WINDOW oWnd
return nil
Re: es una broma , no?
Posted: Sun May 16, 2021 7:54 pm
by jvtecheto
Jaja. [emoji1]
Enviado desde mi Lenovo TB-J606F mediante Tapatalk
Re: es una broma , no?
Posted: Wed May 19, 2021 9:54 am
by xmanuel
Recuerdo una función de una lib que comprobaba si el ordenador estaba encendido o no....
El código se entiende no?
Re: es una broma , no?
Posted: Wed May 19, 2021 10:01 am
by hmpaquito
Recuerdo aquel técnico que a una chica rubia le preguntó por teléfono si su teclado era inhalámbrico. Respondió que no lo sabía. "Pues entonces, coge el teclado, levántate y anda 5 metros hacia atrás. ¿ Sigues teniendo el teclado en las manos ?"
¿ Que por qué era chica y rubia ? No lo sé. No soy técnico en la química de perfiles genéticos. Sólo me estoy estudiando la química del napalm
Re: es una broma , no?
Posted: Wed May 19, 2021 12:44 pm
by jvtecheto
Hola Paco.
Lo de la funcion lo entiendo hasta yo .
Yo empece a trabajar hace muchos años en un banco, imaginate que las operatorias eran una aplicacion y la base de datos otra o sea tu cargabas o abonabas en una cuenta
y en realidad no sabias de quien era. Bueno confiabas en haberla tecleado bien. Tambien conoci oficinas muy pequeñas que trabajaban offline, si, los reintegros eran sin saber el saldo.
luego con un modem, por supuesto de 14400 bps, pasaban las operaciones y se actualizaban saldos en procesos batch que duraban toda la noche y a veces hasta entrado el dia.
Resumiendo el jefe de la seccion de informatica, (que por supuesto era el que sabia menos) , siempre cuando llamabas para comentar algun problema y te cogia el el telefono te comentaba
¿Tienes el ordenador en marcha?, encima se vanagloriaba que muchas veces arreglaba el problema.
Un abrazo a todos.
Jose.