FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour bEditValid "xbrowse"
empresoft
Posts: 37
Joined: Mon Nov 12, 2007 12:46 PM

bEditValid "xbrowse"

Posted: Wed Oct 21, 2009 05:13 PM
Colegas después de que el entrar en el sistema valida dos vezez

Code (fw): Select all Collapse
oCol:= oBrw:AddCol()                       
oCol:bStrData      := { || compratemp->(trans(prcons,"@E 99,999.99")) }        
oCol:bEditValue    := { || compratemp->prcons }
oCol:nEditType   = EDIT_GET 
oCol:cEditPicture  := "@E 99,999.99"                  
oCol:cHeader       := "Pr.Venda"                       
oCol:bEditValid    := { | oGet,oCol |   valida_entr(oGet,oCol,oBrw,"PRCONS",@nValor,oDlg) } 
oCol:nWidth        := 70 
oCol:nHeadStrAlign := AL_RIGHT   
oCol:nDataStrAlign := AL_RIGHT


Code (fw): Select all Collapse
Function Valida_entr(oGet,oBrwCol,oBrw,aCCampos)
msgalert("aquí")                    //<strong>por aquí dos veces </strong>
if acCampos="PRCONS"
   *** fazer tarefas    
endif


Gracias

Luiz Fernando

FWH 9.09 - XHARBOUR 1.2
FWH 804,XHARBOUR 1.1,XDEV,PELLES
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM

Re: bEditValid &quot;xbrowse&quot;

Posted: Wed Oct 21, 2009 10:58 PM

Hola Empresoft

Mira este tema: viewtopic.php?f=6&t=15953&p=82635&hilit=beditvalid#p82635

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
empresoft
Posts: 37
Joined: Mon Nov 12, 2007 12:46 PM

Re: bEditValid &quot;xbrowse&quot;

Posted: Fri Oct 23, 2009 06:17 PM
Daniel Garcia-Gil wrote:Hola Empresoft

Mira este tema: viewtopic.php?f=6&t=15953&p=82635&hilit=beditvalid#p82635



Perfecto amigo le dio certinho, gracias



Luiz Fernando

FWH 9.09 - XHARBOUR 1.2
FWH 804,XHARBOUR 1.1,XDEV,PELLES

Continue the discussion

Static archive · New replies & topics via GitHub Discussions