Me genera un error con Xbrowse , cuando consulta la tabla directamente funciona bien cuando genero un asentencia sql para generar un consulta me sale este error.
http://img715.imageshack.us/i/errorvk.jpg/
http://img824.imageshack.us/i/error2e.jpg/" alt="" loading="lazy">
http://img715.imageshack.us/i/errorvk.jpg/
cQue4 := "SELECT referen,descrip,um,stock,sto_con,catval FROM referenc WHERE status = 1 "+;
"AND SUBSTRING(referen,1,2) = '"+alltrim(m_prmt)+"'"
if xnr=1
EjeQueri(0,@oDat12,cQue4)
if oDat12:RecordCount() =0 //ADORecCount()
MsgInfo("No Hay Datos ","Informacion") // MsgAlert( "No Hay Datos ","Informacion" )
oDat12:Close()
Return (.t.)
endif
oDat12:RecordCount()
oDat12:MoveFirst()
oBrw12 := TXBrowse():New( oDlgbrow )
par_browse("3",oBrw12,aContl[20],1,oDat12," ")
oCol := oBrw12:AddCol()
oCol:bStrData := { || oDat12:Fields("planta"):Value }
oCol:cHeader := "Planta"
oCol:cFooter := " "
oCol:nWidth := 50
oCol:nHeadStrAlign := AL_LEFT //AL_RIGHT AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol := oBrw12:AddCol()
oCol:bStrData := { || oDat12:Fields("tipanu"):Value }
oCol:cHeader := "Tipo"
oCol:cFooter := " "
oCol:nWidth := 40
oCol:nHeadStrAlign := AL_LEFT //AL_RIGHT AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol := oBrw12:AddCol()
oCol:bStrData := { || oDat12:Fields("nombre"):Value }
oCol:cHeader := "Nombre"
oCol:cFooter := " "
oCol:nWidth := 180
oBrw12:oFont := xBrwFont //oLbx:SetFont( oBrwFont )
oBrw12:nHeaderHeight := X_BALTHED //20
oBrw12:nFooterHeight := X_BALTFOT //25
oBrw12:nRowHeight := X_BALTROW //25
oBrw12:bLDblClick := { || m_va1 := oDat12:Fields("tipanu"):Value,;
oSaX[2]:= oDat12:Fields("nombre"):Value,;
get_va1:Refresh(),oSaX[1]:Refresh(),oDlgbrow:End() }
if memvar->x_brom2007;oBrw12:l2007 := .T.;else;oBrw12:l2007 := .F.;endif
oBrw12:nFreeze:=1 // para congelar la 1ª
oBrw12:lAllowColSwapping := .F. //------> Trocar Colunas ,Para no permitir swap entre columnas
oBrw12:lAllowRowSizing := .F. //-----> Nao move as Linhas
AEval( oBrw12:aCols, { |o| o:lAllowSizing := .f. } )
oBrw12:cToolTip := OemToAnsi( "Doble Click Selecciona Item " )
oBrw12:SetAdo(oBrw12) //,.t.,.t.) //oLbx:SetRDD() REDEFINE XBROWSE oBrw12 ;
COLUMNS "codpag","nombre" ;
HEADERS "Codigo","Nombre" ;
PICTURES nil, nil;
COLSIZES 80,300 ;
JUSTIFY .F., .F.;
OF oDlgbrow ID 4001 ;
RECORDSET oDat12
// Si uso este codigo me muesta unos gosas diferentes como la structura
