FiveTech Software tech support forums

... HB_P_FUNCTIONSHORT, 1, HB_P_PLUS, HB_P_ARRAYGEN, 1, 0, /* 1 */ HB_P_DOSHORT, 1, /* 00103 */ HB_P_LINEOFFSET, 7, /* 145 */ HB_P_PUSHSYMNEAR, 10, /* DBCLOSEAREA */ HB_P_PUSHNIL, HB_P_DOSHORT, 0, /* 00110 */ HB_P_LINEOFFSET, 9, /* 147 */ HB_P_PUSHSYMNEAR, 11, /* DBSELECTAREA */ HB_P_PUSHNIL, HB_P_PUSHVARIABLE, ...

... oBrw:cSeek SIZE 200,10 PIXEL ; OF oDlg COLOR CLR_BLACK,CLR_YELLOW PICTURE '@!' oBrw:CreateFromCode() oDlg:oClient := oBrw oDlg:bPostEnd := { || DbCloseArea() } ACTIVATE DIALOG oDlg AS MDICHILD SETUP oWndChild := oWnd // SIN ESTA INSTRUCCIÓN LO HACE CORRECTAMENTE return nil Saludos.

... cCod , 10, ' ' ) use ( cPath + 'clientes' ) index ( cPath + 'clientes' ) new shared alias clientes dbseek( cCod ) cName = clientes->nombre dbclosearea() return cName

... ListO->Codigo <= cFinal, ListO->Nombre <= cFinal ) WHILE ListO->( ! Eof() )    ListO->(dbcloseArea())  No se ejecutara el ListO->(DbCloseArea()) , hasta que se cerrara el preview cosa que no ocurre actualmente. imaginaros ...

... ! ListO->(  Eof() )       oFont:END()      ENDIF   ListO->(DbcloseArea())  Return NIL  Deduzco que cuando se muestra el preview ya se ha ejecutado todo el codigo incluso el ListO->(DbCloseArea()) ...

... 1 ] + "}" OrdCondSet(,,,,,, RECNO(),,,, ) OrdCreate( ::aIdx[ i, 2, k, 3 ], ::aIdx[ i, 2, k, 2 ], ::aIdx[ i, 2, k, 1 ], &bCode ) NEXT DbCloseArea() ::oMeter:nPosition := ( ( i * 100 ) / Len( ::aIdx ) ) NEXT the "!deleted()" where I can insert ? I tried with bCode := "{ ...

pois eh ... quando um SELECT (consultas) preciso fechar a tabela.... um simples Dbclosearea gera um erro... essa eh a questao

... a parte do xBrowse, em que você dispara para a função... comente as linhas e vá religando, até descobrir onde quebra. o erro eh: ( ReceNew )->( Dbclosearea() ) <<<<==== ERRO HERE eh assim: posiciono o cursor no linha que quero, chamo a funcao que abre uma tabela e depois fecho a ...

... a parte do xBrowse, em que você dispara para a função... comente as linhas e vá religando, até descobrir onde quebra. o erro eh: ( ReceNew )->( Dbclosearea() ) <<<<==== ERRO HERE eh assim: posiciono o cursor no linha que quero, chamo a funcao que abre uma tabela e depois fecho a ...

... antes, pensei que fosse por conta da nova versão. o problema eh que na tela que faço backup dos xml (segunda tela) fecha a tabela Exml->(dbCloseArea()) e o xbrawse(Exml) estando aberto corretamente apresenta o erro. em resumo, ERRO MEU obrigado a todos

... oVar_AA[t,03] OF oBar_AA TEXT aVar_AA[t,03] @ tX+n,tY+350 TITLETEXT oVar_AA[t,04] OF oBar_AA TEXT aVar_AA[t,04] Endif n += 20 Next t P6_AAAA->(DbCloseArea()) Return ( Nil ) ******************************************** Now after ten minutes the figures need to be refreshed..... https://i.imgur.com/NIKiINT.jpg

... TEXT aVar_AA[t,03] @ tX+n,tY+350 TITLETEXT oVar_AA[t,04] OF oBar_AA TEXT aVar_AA[t,04] COLOR 0 FONT oMainFont Endif n += 20 Next t P6_AAAA->(DbCloseArea()) Return ( Nil ) ******************************************** Now after ten minutes the figures need to be refreshed..... https://i.imgur.com/kPRTyz6.jpg

...     inde on Tip_Ate+Tip_Pag+Cod_Ara tag Ara1 to Aranpago             inde on Tip_Ate+Tip_Pag+Nom_Ara tag Ara2 to Aranpago                         DbCloseArea() Antonio. Asi, al vuelo, tienes tres opciones para poder buscar por codigo o nombre: 1) Crear, ademas de los indices que detallas, un indice ...

... oBrwPen:M:SetCheck( , .t. ) oBrwPen:CreateFromCode() oVenChPen:oClient:=oBrwPen oVenChPen:bPostEnd := { || ( aNomBas[PEND] )->( DBCLOSEAREA() ) } ACTIVATE WINDOW oVenChPen; ON INIT ( oVenChPen:SetFocus() ); VALID( alBases[PEND]:=.F.,.T. ) Desde ya muchas gracias

... with d->Nro_for Dbcommit() Dbunlock() Exit Else // Do ocupado Endif Enddo Sele d DbSkip() Enddo Sele a // GeneFac DbSkip() Enddo Sele Genefac Dbclosearea() Agradeciendo su ayuda, se despide. Atte. Antonio