FiveTech Software tech support forums

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

... LOCAL oFnt LOCAL nW, nH LOCAL cPersonalca:=Space(60) LOCAL oGet LOCAL cVar, oCbx, cHelp,oCbx1 LOCAL oBar, oPop, oIcon, cTit LOCAL oBtn, aX[6], aIdx:={},oCol Local oWnd,oPanel aIdx:={"por Codigo","por Nombre"} cTit:="Datos de las Personales" oPanel := TPanel():New( ...

Amigo prueba asi: Local nIndex:={"ma_rutc","ma_nomc"} REDEFINE COMBOBOX oCbx VAR cVar ITEMS aIdx ID 1007 OF oDlg UPDATE; ON CHANGE SeOrden(oCbx,oLbx,nIndex) REDEFINE SAY oSay ID 101 OF oDlg UPDATE FONT oVentPrinc:oFont COLOR CLR_BLUE oLbx:SetAdo(cMa_Ctes) oLbx:bSeek ...

... que deseo es abrir varios DBFs en un mismo PRG sin que me cree conflictos al cerrarlos. Tengo una funcion para hacerlo FUNCTION Abrir ( cArchivo, aIdx ) LOCAL cAlias LOCAL oDbf DbUseArea( .T. ,, cArchivo, cAlias, .T. ) oDbf:=TDatabase():New() oDbf:GOTOP() RETURN oDbf El problema se presentra cuando ...

... problem because to open the citas I use a function to open dbfs on net see the source code I sent you oDCal:=Open_dbf("citas",.T.,.T.,aIdx) (oDCal)->(OrdSetFocus(1)) (oDCal)->(DbGoTop()) it make the same of your code only I add for each line of index this command "for !deleted()" ...

MR RAO, I made : // OPEN DATABASE oDHard:=Apri_dbf("Hardware",.T.,.T.,aIdx) (oDHard)->(OrdSetFocus(2)) // CREATE Dialog and XBROWSE oApp():oDlg := TMia():New(oApp():oWndMain) oApp():oDlg:cTitle := i18n('Gestione Hardware') oApp():oDlg:SetColor(0,RGB(143,172,230)) ...

... (Self) then I open the dbf and open the dialog with oDCot:=Apri_Dbf("Cotiza",.T.,.T.,aIdx)   oT:=CA_210():New()   cVar:=aIdx[1]   (oDCot)->(OrdSetFocus(1)) DEFINE ...

Silvio wrote:si funziona l'esempietto solo che io non so quanti indici ha un archivio

Non ha importanza quanti elementi abbia aIdx. Riempilo e poi assegnalo ad aPrompts come ti ho fatto vedere e vedrai che funziona.

EMG

... nella funzione Apri_dbf io mi apro il file in rete gli assegno un alias e vado a indicizzare l'archivio per tutti gli indici e setto nell'array aidx il commento relativo agli indici creati per quell'archivio in sostanza per aprire un file faccio : oDCli:=Apri_dbf("Soci",.T.,.T.,aIdx) ...

ok
se faccio ? aidx[1]
mi da "per nome"

se faccio ? aidx[2]
mi da "per cognome"

ma se faccio ? aidx
mi da

parentesigraffa aperta tre puntini parentesigraffa chiusa

secondo te si puo' fare qualcosa ?

Visualizza il contenuto di aIdx e dimmi cosa contiene esattamente.

EMG

... questi items l'utente selezionava un item e il listbox automaticamente si indicizzava sull'indice relativo REDEFINE COMBOBOX oCbx VAR cVar ITEMS aIdx ID 210 OF oDlg; ON CHANGE Sel_Index(oCbx) Ora io vorrei sostituite il combo con il tab cosi che l'utente finale potesse cliccare su ogni prompt ...

I load nto an arrary 3 strings .. local aIdx:={} aIdx:={"Fondatore","Ordinario","Simpatizzante","Servizi"} On old program I use a combox to select the option REDEFINE COMBOBOX oCbx VAR cVar ITEMS aIdx ID 210 OF oDlg; ON CHANGE Sel_Index(oCbx) ...