es una broma , no?

[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.

Code: Select all  Expand view  RUN

USE Customer
ZAP
/*..........*/
 

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.

[hmpaquito]

Había algo, una utilidad, para deshacer el zap, porque el zap simplemente es una marca en la cabecera de la .dbf

[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

[Antonio Linares]

Debe haber sido alguna prueba y se ha olvidado quitarlo

gracias por el aviso

[AIDA]

Con razon

Code: Select all  Expand view  RUN

#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

[jvtecheto]

Jaja. [emoji1]

Enviado desde mi Lenovo TB-J606F mediante Tapatalk

[xmanuel]

Recuerdo una función de una lib que comprobaba si el ordenador estaba encendido o no....

Code: Select all  Expand view  RUN

function IsComputerOn()
return .t.
 

El código se entiende no?

[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

[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.