FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)Last update on Sat Oct 17, 2026 02:08 PM UTC
Board index FiveWin para Harbour/xHarbour es una broma , no?
jvtecheto
Posts: 610
Joined: Mon Mar 04, 2013 04:32 PM

es una broma , no?

Posted: Sat May 15, 2021 12:23 PM
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 (fw): Select all Collapse
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.

Fwh 26.03 64 bits + Harbour 64 bits 3.2dev( r2602281433) + MSVC64

hmpaquito
Posts: 1530
Joined: Thu Oct 30, 2008 02:37 PM

Re: es una broma , no?

Posted: Sat May 15, 2021 01:49 PM

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

jvtecheto
Posts: 610
Joined: Mon Mar 04, 2013 04:32 PM

Re: es una broma , no?

Posted: Sat May 15, 2021 03:14 PM

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

Fwh 26.03 64 bits + Harbour 64 bits 3.2dev( r2602281433) + MSVC64

Antonio Linares
Posts: 44508
Joined: Thu Oct 06, 2005 05:47 PM

Re: es una broma , no?

Posted: Sat May 15, 2021 03:36 PM

Debe haber sido alguna prueba y se ha olvidado quitarlo

gracias por el aviso :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
AIDA
Posts: 887
Joined: Fri Jan 12, 2007 08:35 PM

Re: es una broma , no?

Posted: Sat May 15, 2021 08:28 PM
Con razon :-)



Code (fw): Select all Collapse
#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
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
jvtecheto
Posts: 610
Joined: Mon Mar 04, 2013 04:32 PM

Re: es una broma , no?

Posted: Sun May 16, 2021 07:54 PM

Jaja. [emoji1]

Enviado desde mi Lenovo TB-J606F mediante Tapatalk

Fwh 26.03 64 bits + Harbour 64 bits 3.2dev( r2602281433) + MSVC64

xmanuel
Posts: 817
Joined: Sun Jun 15, 2008 07:47 PM

Re: es una broma , no?

Posted: Wed May 19, 2021 09:54 AM
Recuerdo una función de una lib que comprobaba si el ordenador estaba encendido o no....
Code (fw): Select all Collapse
function IsComputerOn()
return .t.


El código se entiende no? :-)
______________________________________________________________________________

Sevilla - Andalucía
hmpaquito
Posts: 1530
Joined: Thu Oct 30, 2008 02:37 PM

Re: es una broma , no?

Posted: Wed May 19, 2021 10:01 AM

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
Posts: 610
Joined: Mon Mar 04, 2013 04:32 PM

Re: es una broma , no?

Posted: Wed May 19, 2021 12:44 PM

Hola Paco.

Lo de la funcion lo entiendo hasta yo . :D

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. :lol:

Un abrazo a todos.

Jose.

Fwh 26.03 64 bits + Harbour 64 bits 3.2dev( r2602281433) + MSVC64

Continue the discussion

Static archive · New replies & topics via GitHub Discussions