FiveTech Software tech support forums

... comentario. //............................................ FUNCTION Consultar() local cServer:= '//190.108.228.106:2812' local aInfo :={},aDir:={} dbcloseall() RDDSETDEFAULT("LETO") if LETO_CONNECT(cServer,'Invitado','invitado') == -1 MsgInfo("No se puede conectar con la Sucursal ...

... , "m", 10, 0 }, ; { "Interna " , "c", 1, 0 }, ; { "Finalizada " , "D", 8, 0 } ; } ) clos data dbcloseall() */ oCn := FW_OpenAdoConnection( "c:\fwh2212\samples\" ) oCnM := FW_OpenAdoConnection( { "FOXPRO", "c:\fwh2212\samples\"}, ...

... ImprimirInfo() ) redefine BTNBMP oCan 2007 prompt HB_UTF8CHR( 57615 ) + " Volver " font oSegoe ID 992 OF princfac ACTION ( lsave := .f., dbCloseall() , princfac:End(), oWndChild:End() ) // cancel oCan:lCancel := .t. redefine BTNBMP oCanc 2007 prompt HB_UTF8CHR( 57615 ) + " Dar por ...

... BTNBMP oBtnCanc ID Med_Cancelar OF oDlgMed FILENAME "CANCELA.BMP" CANCEL ACTION oDlgMed:End() ACTIVATE DIALOG oDlgMed CENTERED endif dbcloseall() return NIL *-----------------------------------------------------------------------------------* *----------------------------------------------------------------------------------------------* ...

... , {|| oDlg:end() },VK_ESCAPE,"<Escape>",.t.} ; } SET DATE ITALIAN SET CENTURY ON XBrNumFormat( 'E', .t. ) SetBalloon( .t. ) dbcloseall() use colorfw new use tecnico new use acciones index accione1 new use corregir index corregi1 new dbgoTOP() DEFINE FONT oFont NAME "TAHOMA" ...

... ImprimirInfo() ) redefine BTNBMP oCan 2007 prompt HB_UTF8CHR( 57615 ) + " Volver " font oSegoe ID 992 OF princfac ACTION ( lsave := .f., dbCloseall() , princfac:End(), oWndChild:End() ) // cancel ACTIVATE DIALOG princfac CENTERED nowait ON INIT princfac:Move( 0, 0 ) //, oRich:LoadRtf( ...

... , {|| oDlg:end() },VK_ESCAPE,"<Escape>",.t.} ; } SET DATE ITALIAN SET CENTURY ON XBrNumFormat( 'E', .t. ) SetBalloon( .t. ) dbcloseall() use colorfw new use tecnico new use corregir index corregi1 new use acciones index accione1 new use RamFor index RamFor1, RamFor2 new use ...

... ones, and it had brought them all closer together. As the night came to a close, Mary used the CLOSE keyword to shut down her computer and the DBCLOSEALL keyword to close the database table. She then used the AINS keyword to insert the memories of the wonderful evening into her heart and headed ...

... , {|| oDlg:end() },VK_ESCAPE,"<Escape>",.t.} ; } SET DATE ITALIAN SET CENTURY ON XBrNumFormat( 'E', .t. ) SetBalloon( .t. ) dbcloseall() use colorfw new use tecnico new use corregir index corregi1 new use acciones index accione1 new use rubFor index rubFor1 , rubFor2 new ...

... , {|| oDlg:end() },VK_ESCAPE,"<Escape>"} ; } SET DATE ITALIAN SET CENTURY ON XBrNumFormat( 'E', .t. ) SetBalloon( .t. ) dbcloseall() use acciones index accione1 new use consorc index consorc1, consorc2 new GO TOP DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15 DEFINE ...

... "DBFCDX", .T. ) SET DELETED ON oMisura:setorder(0) oMisura:gotop() oMisura:fw_ArrayToDBF( aData,,bProgress) DbCloseAll() cText    := RemRight( MemoRead( csvFile ), CHR(26) )cText    := StrTran( cText, CRLF, CHR(10) )cText ...

... "DBFCDX", .T. ) SET DELETED ON oMisura:setorder(0) oMisura:gotop() oMisura:fw_ArrayToDBF( aData,,bProgress) DbCloseAll() cText    := RemRight( MemoRead( csvFile ), CHR(26) )cText    := StrTran( cText, CRLF, CHR(10) ...

... "DBFCDX", .T. ) SET DELETED ON oMisura:setorder(0) oMisura:gotop() oMisura:fw_ArrayToDBF( aData,,bProgress) DbCloseAll()

... tenho: ABERTURA.PRG -> Abre todos os BANCOS ao entrar no programa. Se em algum lugar, eu precisar fazer algo e fechar os bancos, faço, e: DBCLOSEALL() - E: ABRE_BANCOS() Simples assim. Não entendi, porque você está fechando banco durante o PROCESSAMENTO, lógica de Português? jajajajajajajajaja ...

Has de poner al principio en tu function Main .../... SetResDebug( .T. ) .../... y al salir de la function Main .../... //DbCloseAll() FreeResources() Hb_GCall(.t.) CLEAR MEMORY if File( "checkres.txt" ) FErase( "checkres.txt" ) endif CheckRes() Return nil