FiveTech Software tech support forums

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