Search found 11 matches: ubi

Return to advanced search

xbrowse ajustar columnas

... (alias_articu)->(vPrecioArt()*val("1."+alltrim(str((alias_parame)->Iva)))),; (alias_articu)->ar_m_des,; vertabla( "UBI" + ((alias_bodega)->( dbSeek( (alias_articu)->ar_codig + _bodega ) ), (alias_bodega)->ar_ubica ), alias_tablas),; Vertabla( "FAM" ...
by Patricio Avalos Aguirre
Mon Feb 08, 2016 2:32 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: xbrowse ajustar columnas
Replies: 1
Views: 679

Datasource con bitmap para seleccionar

Estimados quisiera poder seleccionar 2 registros. REDEFINE XBROWSE MBrw ID 110 OF xDlg8 ; DATASOURCE DBLISTA AUTOSORT CELL LINES NOBORDER ; COLUMNS " ", "P_NR" , "P_NOM", "P_UBI" mBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW for nFor := 1 to len(aCols) mBrw:aCols[ ...
by D.Fernandez
Fri Mar 20, 2015 12:55 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Datasource con bitmap para seleccionar
Replies: 2
Views: 533

Re: Browse no muestra registros

... WINDOW oWndPrinc ; ON INIT BANCOS() oWndPrinc:End() RETURN NIL //-------------------------- FUNCTION BANCOS() LOCAL oWndBCO, cAlias, oBrw LOCAL UBI:= "C:\DATA\" LOCAL cVia:="DBFNTX" IF SELECT("BANCO")>0 BANCO->(DBCLOSEAREA()) ENDIF IF SELECT("BANCO")=0 ...
by FranciscoA
Sat Feb 19, 2011 11:16 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Browse no muestra registros (SOLUCIONADO)
Replies: 17
Views: 2819

Re: Browse no muestra registros

Parece que te falta establecer los indices, porque cerraste y re-abriste la dbf BANCO:

IF SELECT("BANCO")=0
DBUSEAREA(.T.,cVia,UBI+"BANCO","BANCO",.T.)
DBSETINDEX(cIndice1........) ; DBSETINDEX(cIndice2........)
ENDIF

cAlias:=Alias()


BANCO->(ORDSETFOCUS(1))
by FranciscoA
Sat Feb 19, 2011 10:20 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Browse no muestra registros (SOLUCIONADO)
Replies: 17
Views: 2819

Re: Browse no muestra registros

Hola, la variable cAlias trae valor NIL.

Intenta asi:

IF SELECT("BANCO")=0
DBUSEAREA(.T.,cVia,UBI+"BANCO","BANCO",.T.)
cAlias:=Alias()
ENDIF
by FranciscoA
Sat Feb 19, 2011 7:45 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Browse no muestra registros (SOLUCIONADO)
Replies: 17
Views: 2819

Browse no muestra registros (SOLUCIONADO)

... cCODANT, oRpt STATIC TNUEVO := .T. STATIC LVAN := .F. FUNCTION BANCOS() LOCAL oWndBCO, cTitle, oFont, oBar, oMeter, oText, cAlias, oBrw LOCAL UBI:= "DATA\" LOCAL cVIA := "DBFCDX" IF SELECT("BANCO")>0 BANCO->(DBCLOSEAREA()) ENDIF IF SELECT("BANCO")=0 ...
by Compuin
Sat Feb 19, 2011 6:55 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Browse no muestra registros (SOLUCIONADO)
Replies: 17
Views: 2819

publica el codigo de creacion del browse Aqui esta el codigo... las funciones LeeCampo(oXX,cXXX) retorna un valor de la tabla..activa.. ) DEFINE CURSOR oDedo RESOURCE "Dedo" DEFINE FONT S_oTit1Font NAME "Roman" SIZE 10, 20 DEFINE DIALOG oDlg RESOURCE "MTCA10_S1" TITLE "{ "+ PROCNAME()+" } " + s_cCa...
by lubin
Sat Nov 15, 2008 2:55 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: xbrowse , tratando de usarlo
Replies: 8
Views: 2103

Problem with Editor of Source

... Local nLines := len(oMemo:aLines),resucond:=.T.,lacond Local aLinWhile := {},variable,valor,j,nextLine,kmasWhile:=0 Local aLinBloq:={},ubi,knFor,kif,BLOQUEAYA //arreglo de lineas bloqueadas para las estructuras IF ELSE ENDIF Local kuserFunc:=0,aLinUserFunc:={},velin,nwcLine,nAt,resucase,EVALUACASE ...
by Vladimir Zorrilla
Wed Jun 18, 2008 10:37 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Problem with Editor of Source
Replies: 1
Views: 1525

Editor de Codigo con syntaxis coloreada interperte y texto i

... Local nLines := len(oMemo:aLines),resucond:=.T.,lacond Local aLinWhile := {},variable,valor,j,nextLine,kmasWhile:=0 Local aLinBloq:={},ubi,knFor,kif,BLOQUEAYA //arreglo de lineas bloqueadas para las estructuras IF ELSE ENDIF Local kuserFunc:=0,aLinUserFunc:={},velin,nwcLine,nAt,resucase,EVALUACASE ...
by Vladimir Zorrilla
Wed Jun 18, 2008 10:29 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Editor de Codigo con syntaxis coloreada interperte y texto i
Replies: 1
Views: 2157

Patricio: Los datos los tengo en una base de datos donde todos los campos son Character y los cargo asi al arroglo. Saludos, Antonio **** Tip_men1="BA" Sele Men_c OrdSetFocus(1) Men_c->(DbSeek(Tip_men1)) I=1 While (Men_c->tip_men=Tip_men1).and.!Men_c->(eof()) cCod_men[i]=alltrim(Men_c->C...
by mantonio_08
Mon Oct 08, 2007 10:19 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Ayuda URGENTE Menu con Opcion de Macros
Replies: 11
Views: 3096

Error al Compilar Urgente

Hola Amigos: Tengo un Sistema Funcionando en Fw 16 Bits, lo estoy pasando a xHarbour y me da error al compilar con Verce. Que me falta cambiar aqui? Saludos, Antonio Fwh 7.01, xHarbour 00.99.71, Verce ** La Rutina es: Function IniArchi() Local aStru if !file('Men_club.dbf') aStru :={{"Tip_men", "C",...
by mantonio_08
Sun Sep 30, 2007 5:02 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Error al Compilar Urgente
Replies: 2
Views: 666

Return to advanced search

cron