FiveTech Support Forums

....
   oCol = oLamcla:oBrwCapt:AddCol()
   oCol:bStrData     = { || d_captu->Cuent }
   oCol:cHeader      = "Cuenta"
   oCol:nEditType    = EDIT_GET_BUTTON //EDIT_GET
   oCol:bEditValid   = { | oGet1, oCol | pValCapCue(oGet1,oCol) }
   oCol:bEditBlock   = { | oGet, oCol | pBusCapCue(oGet,oCol) }
   oCol:bOnPostEdit  = { | oCol, xVal, nKey | If( RecCount() == 0, ( DbAppend(), oLamcla:oBrwCapt:Refresh() ),), If( nKey == VK_RETURN, d_captu->Cuent := xVal,) }
   oCol:nWidth       = 75

...

*****************************************
*VALIDA LA CAPTURA DE LAS CUENTAS XBROWSE
*****************************************
FUNCTION pValCapCue( oGet1, oCol )

local vsalida,vcosto,vauxil,vtipcta
local vnombr:=space(0)
valor:=oGet1:Value()

oVar:="SELECT bb_cuenta,bb_nombre,bb_tipcta,bb_centro,bb_auxili from " + oLamcla:tCtas + " WHERE bb_cuenta='"+alltrim(valor)+"' AND (bb_tipcta='S' OR bb_tipcta='A' )"
TRY
  oConsBU := CreateObject("ADODB.Recordset")
CATCH oError
  MsgStop(oLamcla:mErnt,oLamcla:mErco)
  RETURN(.F.)
END
oConsBU:CursorLocation  := adUseClient //adUseServer
oConsBU:LockType        := adLockOptimistic
oConsBU:CursorType      := adOpenKeyset
oConsBU:Source          := oVar
oConsBU:ActiveConnection( oLamcla:oServer )
TRY
  oConsBU:Open()
CATCH oError
  MsgStop(oLamcla:mComa,mDato)
END
nRegistros := oConsBU:RecordCount()
IF nRegistros#0
  oConsBU:MoveFirst()
  vnombr := alltrim(oConsBU:Fields("bb_nombre"):Value)
  vauxil := oLamcla:cvartolog(oConsBU:Fields("bb_auxili"):Value)
  vcosto := oLamcla:cvartolog(oConsBU:Fields("bb_centro"):Value)
  oConsBU:close()
  IF vauxil = .t.
    Msginfo("La cuenta :"+alltrim(valor)+" - "+vnombr+CRLF+;
            "tiene cuentas auxiliares Asignadas",oLamcla:mDato)
    vsalida:=.f.
  ELSE
    vsalida:=.t.
  ENDIF
ELSE
  oConsBU:close()
  vauxil := .f.
  vcosto := .f.
  vsalida:= .f.
ENDIF
SELE d_captu
d_captu->VlCta:=vsalida
d_captu->VlCos:=vcosto
d_captu->VlAux:=vauxil
d_captu->CtNom:=vnombr
return vsalida