FiveTech Software tech support forums

... DEFINE DIALOG oDlg RESOURCE "MCHOICE" TITLE cTitulo oDlg:lHelpIcon:=.f. REDEFINE LISTBOX aBrw FIELDS ANCAMPOS[NITEM] id 999 of odlg; FIELDSIZES 281 ON DBLCLICK (Ret:=nItem,oDlg:End()) //COLORS CLR_BLUE aBrw:cAlias = "Array" // Just put something aBrw:bLogicLen = { || Len( aNcampos ...

... ) // Open... USE air NEW SHARED // Listbox... @45, 205 LISTBOX oLbx FIELDS air->file , ; TRIM(air->hbill) ; HEADERS "File No.", "HAWB" ; FIELDSIZES 200 , 100 ; FONT oFont2 ; OF oWnd SIZE oWnd:nWidth()-45, oWnd:nHeight()-50 PIXEL ; COLOR "R/W" ; ACTIVATE WINDOW oWnd ; ON RESIZE oSpl:AdjRight() ...

... oLbx ; FIELDS oTb:FieldGet(1) ,;// Campos que contendr  oTb:FieldGet( 2 ) ,; // el TBrowse. oTb:FieldGet( 3 ) , ; otb:FieldGet( 8 ) ; ID 101; FIELDSIZES 50, 310, 250, 150, 100; // Dimensiones de c/campo (en pixeles) HEADERS "Empresa", "Nombre de la Empresas", "Direccion de la Empresa", "R.F.C."; ...

... la base de datos function browseclientes() declaro variables DEFINE DIALOG oDlg @ 3, 1 LISTBOX oLbx; FIELDS Clientes->Nombre; HEADERS Nombre; FIELDSIZES 50; etc ... ACTIVATE DIALOG oDlg; return (nil) EL BROWSE LO HACE SIN NINGUN PROBLEMA TODAS LAS VECES QUE LLAMO A LA FUNCION AL SALIR DEL ...

... FIELDS STOCKLOC->ID,; str(STOCKLOC->Rolls,4),str(STOCKLOC->CURR_VOL,10,2) ; HEADERS "Pot","Rolls","Current Vol" SIZE 200,250 OF oWnd ; FIELDSIZES 30,40,40 UPDATE oLbx:blClicked := ; {|nRow,nCol,nKeyFlags| if(oLbx:nAtCol(nCol)=2,ShowRolls(),nil)} oLbx:lCellStyle := .T. oLBx:bSkip := ...