FiveTech Software tech support forums

... (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" ...

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[ ...

... 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 ...

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))

Hola, la variable cAlias trae valor NIL.

Intenta asi:

IF SELECT("BANCO")=0
DBUSEAREA(.T.,cVia,UBI+"BANCO","BANCO",.T.)
cAlias:=Alias()
ENDIF

... 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 ...

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...

... 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 ...

... 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 ...

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...

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",...