bEditValid "xbrowse"

[empresoft]

Colegas después de que el entrar en el sistema valida dos vezez

Code: Select all

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: Select all

Function Valida_entr(oGet,oBrwCol,oBrw,aCCampos)
msgalert("aquí")                    //[b]por aquí dos veces [/b]
if acCampos="PRCONS"
   *** fazer tarefas    
endif
 

Gracias

Luiz Fernando

FWH 9.09 - XHARBOUR 1.2

[Daniel Garcia-Gil]

Hola Empresoft

Mira este tema: http://forums.fivetechsupport.com/viewt ... lid#p82635

[empresoft]

Hola Empresoft

Mira este tema: http://forums.fivetechsupport.com/viewt ... lid#p82635

Perfecto amigo le dio certinho, gracias



Luiz Fernando

FWH 9.09 - XHARBOUR 1.2