... como se hace eso.. FUNCTION MENU_PRODUCTO(cEmpresa,cUsuario) Local oDlg, oBrw, oFont2, oCol, oSay, oBtn2[ 9 ] LOCAL oGet,nIndex,aIdx:={} LOCAL cBusca:= Space(60) Local cSeek:="" Local oCampo, cCampo :=space(50) cTab_Art:=xServer:Query("SELECT a.*, b.*, c.* FROM tab_art AS a LEFT ...
... como se hace eso.. FUNCTION MENU_PRODUCTO(cEmpresa,cUsuario) Local oDlg, oBrw, oFont2, oCol, oSay, oBtn2[ 9 ] LOCAL oGet,nIndex,aIdx:={} LOCAL cBusca:= Space(60) Local cSeek:="" Local oCampo, cCampo :=space(50) cTab_Art:=xServer:Query("SELECT a.*, b.*, c.* FROM tab_art AS a LEFT ...
... se hicieran sobre la cabecera (Say, Line, etc.) Es decir si quieres hacer el Replace sobre la cabecera: oWord:SetHeader() oWord:Replace(cbusca,cnueva) Para volver a dejar todo sobre el cuerpo del documento: oWord:SetMainDoc() Prueba a ver Saludos
Hola amigos : No comprendo como no me funciona esto. Busca un registro primero por numero de factura , seria cBusca y una vez encontrado busca por proveedor. LOCATE FOR Apup->Prove == cCodigo WHILE Apup->Factura == cBusca IF(Apup->(Found()),lEncontrado ...
... del codigo FUNCTION Menu_Marca_Extintores(cEmpresa,cUsuario) Local oDlg, oBrw, oFont2, oCol, oSay, oBtn2[ 9 ] LOCAL oGet,nIndex,aIdx:={} LOCAL cBusca := Space(60) Local cSeek:="" cExt_Mar:=XServer:Query("SELECT cod_mar, nom_mar FROM ext_mar ORDER BY cod_mar") Define Font ...
... FUNCTION MENU_INSUMOS(cEmpresa) Local oDlg, oBrw, oFont2, oCol, oSay, oBtn2[ 9 ] LOCAL oGet,nIndex,aIdx:={} LOCAL cBusca := Space(60) Local cSeek:="" Local oCampo, cCampo :=space(50) LOCAL acIndices := { "por Codigo", "por Descripcion" ...
... se salta en algunos casos registros con ese campo buscado, te mando un ejemplo del tipo.. busco la expresion que el usuario coloco con la variable cBusca.. para llevarla a una base paralela y mostrar ese dato en un xbrowse. Function Zoom_Proveedor(oBrw, cBusca, cUser) Local xNro, oDlgx, oBrwx, ...
Amigos aca les dejo una busqueda secuencial en tablas dbf para buscar en cualquier posicion de un campo: oLbx:bKeyDown := {|nKey| (Search(nKey,@cBusca,oLbx),oLbx:Refresh(),oSay:Refresh()) } STATIC FUNCTION Search(nKey,cBusca,oLbx) *-------------- If Nkey=8 cbusca:= SubStr(cbusca,1,Len(cbusca)-1) ...
ahi va un ejemplo: Local cbusca :="" @ 0.30,50 SAY "Buscar :" OF oBar FONT oVentPrinc:oFont SIZE 40, 15 COLORS CLR_BLUE, nRGB( 207, 221, 239 ) @0.35,46 GET oGet VAR cbusca OF oBar PICTURE "@S60!" SIZE 200,22 ...
Amigo prueba asi Local cbusca:="" LOCAL cSelect:="ma_arti,ma_des1,ma_fami,ma_pcom,ma_flet,ma_comp,ma_desc1,ma_desc2,ma_desc3,sto_ok,bod_ini1,bod_ent1,bod_sal1,ma_con_com,ma_bloqueo" REDEFINE GET oGet VAR cBusca ID ...
Amigo si lo quieres hacer con SQL se aplica asi SELECT * FROM CLIENTE WHERE nombre LIKE "%RIVERA%" y con funcion es asi: Local cbusca:="" REDEFINE GET oGet VAR cBusca ID 101 OF oDlg UPDATE FONT oVentPrinc:oFont COLOR CLR_BLUE when .f. y dentro del browse xbrowse oLbx:bKeyDown ...
Amigo con esto es para la busqueda FUNCTION PlisBuscar(nKey,oDatos,oTabla,oOrden,oLbx,cbusca,cSelect) *----------------------------------------------------- Local cQuery,campo DEFAULT cSelect := "*" If nKey=8 cbusca:= SubStr(cbusca,1,Len(cbusca)-1) cQuery:="SELECT ...