Theotokos

Amiguinhos,
Correção:
oExcel := TOleAuto():New( "Excel.Application" ) oWorkbook := oExcel:WorkBooks oWorkbook:Open( "c:\temp\tabela.DBF" ) oExcel:DisplayAlerts := .f. oExcel:Visible := .t. oWorksheet := oExcel:Get( "ActiveSheet" ) oWorksheet:SaveAs( "c:\temp\tabela.CSV", 6 ) // Segundo parâmetro informa o tipo de saída oWorksheet:SaveAs( "c:\temp\tabela.XLS", 56 ) // Segundo parâmetro informa o tipo de saída Informativo:
fonte: https://support.microsoft.com/pt-br/help/291308/how-to-select-cells-ranges-by-using-visual-basic-procedures-in-excel
   
// Defines para o segundo parâmetro
#define xlCSV            6 //        CSV    *.csv
#define xlCSVMSDOS        24 //        MSDOS CSV    *.csv
#define xlCSVWindows        23 //        Windows CSV    *.csv
#define xlDBF3            8 //        Dbase 3 format    *.dbf
#define xlExcel8            56 //        Excel 97-2003 Workbook    *.xls
#define xlHtml            44 //        HTML format    *.htm; *.html
#define xlTextMSDOS        21 //        MSDOS Text    *.txt
#define xlWorkbookNormal -4143 //    Workbook normal    *.xls

Olá a Todos, obrigado pelas dicas.  (gilmer principalmente pela paciencia e pelo apoio).
O negocio está tomando forma.  Está ficando quase como tinha imaginado.
Vejam a imagem, ainda falta mais coisas..
Faltam ainda mais coisas para serem feitas, mas está tomando forma

 
Apos mexer mais um pouco no aspecto Visual

 
 

Usando o Banco do Leonardo e o GASFW.EXE, agenda pronta, link para download no pctoledo daqui a pouco.
 

 
Abs

Crisvan...
Que eu saiba, as configurações do Leitor devem ser feitas pelo próprio leitor através do seu manual de instruções.
Tenho usado vários tipos de leitores de Código de Barras no meu Sistema sem nenhum problema.
Nunca ouvi falar da existência de uma configuração via Sistema para leitores.
Os Leitores são equipamentos de Entrada de dados como um Teclado.
Posso estar enganado.
Abrs.

Amiguinhos,
 
Theotokos
Olá rochinha, Bom Dia, Estas funções serve também para salvar arquivo BMP ? Pode usar para qualquer coisa, pois você irá transformá-las em um conteúdo HEXA e salvar.
marcioe
cQuery_Mtabela := cQuery_Mtabela + ANY2SQL( MemoRead( (v_Caminho) ) ) Você deu um memoread direto. Veja que no exemplo que coloquei eu transformo antes.

Pessoal encontrei um site que permite buscar o endereço pelo CEP de maneira gratuita, desde que não se faça chamadas em massa para a WebService, caso isso aconteça eles bloqueiam o seu IP e ai o serviço para de funcionar. 
Montei um exemplo simples de como obter as informações. Espero que seja util
 
Function U_BuscaCep() Local cCep := "13380-003" Local cCodCid cCep := StrTran(cCep,"-","") cRet := WebGetCep(cCEP) hCep := u_JsonToHash(cRet) Try cCodCid := StrZero(Val(SubStr(hCep["ibge"],3)),6) Catch hCep := NIL End If hCep # nil MsgStop(Upper(SemAcento(hCep["logradouro"]))+Chr(13)+Chr(10)+; Upper(SemAcento(hCep["bairro"]))+Chr(13)+Chr(10)+; Upper(SemAcento(hCep["localidade"]))+Chr(13)+Chr(10)+; Upper(SemAcento(hCep["ibge"]))+Chr(13)+Chr(10)+; Upper(SemAcento(hCep["uf"]))) Else MsgStop("CEP não encontrado ou serviço fora do ar") EndIf Return hCep Static Function Emt_GetHtml(cLink) Local oOle Local cHtml := "" Try oOle := CreateObject( "Microsoft.XMLHTTP" ) oOle:Open( "GET", cLink, .f. ) oOle:Send() cHtml := oOle:ResponseBody oOle := nil Catch End Return cHtml STATIC Function WebGetCep(cCEP) Local cUrl cUrl := 'http://viacep.com.br/ws/'+cCEP+'/json' cJsonRet := Emt_GetHtml(cUrl) cJsonRet := OemToAnsi(hb_UTF8ToStr(cJsonRet)) Return cJsonRet Static Function u_JsonToHash(cStringJson) Local hJson := {=>} cStringJson := StrTran( cStringJson,':[','=>{') cStringJson := StrTran( cStringJson,'":"','" => "') cStringJson := StrTran( cStringJson,'[','{') cStringJson := StrTran( cStringJson,']','}') cStringJson := StrTran( cStringJson,'":null','"=>nil') cStringJson := StrTran( cStringJson,'":true' ,'"=>.t.' ) cStringJson := StrTran( cStringJson,'":false','"=>.f.') cStringJson := StrTran( cStringJson,'":','"=>') cStringJson := StrTran( cStringJson,"\/","/" ) cStringJson := StrTran( cStringJson,Chr(13),"" ) cStringJson := StrTran( cStringJson,Chr(10),"" ) Try hJSon := &( cStringJson ) Catch hJSon := Hash() End Return hJson Static Function SemAcento(cStr) Local cRet := "" Local nI Local cCar Local nPos Local aCar := {} cRet := cStr cRet := StrTran(cRet,"á","a") cRet := StrTran(cRet,"à","a") cRet := StrTran(cRet,"ã","a") cRet := StrTran(cRet,"â","a") cRet := StrTran(cRet,"é","e") cRet := StrTran(cRet,"è","e") cRet := StrTran(cRet,"ê","e") cRet := StrTran(cRet,"í","i") cRet := StrTran(cRet,"ì","i") cRet := StrTran(cRet,"î","i") cRet := StrTran(cRet,"ó","o") cRet := StrTran(cRet,"ò","o") cRet := StrTran(cRet,"õ","o") cRet := StrTran(cRet,"ô","o") cRet := StrTran(cRet,"ú","u") cRet := StrTran(cRet,"ù","u") cRet := StrTran(cRet,"û","u") cRet := StrTran(cRet,"ç","c") cRet := StrTran(cRet,"Á","A") cRet := StrTran(cRet,"À","A") cRet := StrTran(cRet,"Ã","A") cRet := StrTran(cRet,"Â","A") cRet := StrTran(cRet,"É","E") cRet := StrTran(cRet,"È","E") cRet := StrTran(cRet,"Ê","E") cRet := StrTran(cRet,"Í","I") cRet := StrTran(cRet,"Ì","I") cRet := StrTran(cRet,"Î","I") cRet := StrTran(cRet,"Ó","O") cRet := StrTran(cRet,"Ò","O") cRet := StrTran(cRet,"Õ","O") cRet := StrTran(cRet,"Ô","O") cRet := StrTran(cRet,"Ú","U") cRet := StrTran(cRet,"Ù","U") cRet := StrTran(cRet,"Û","U") cRet := StrTran(cRet,"Ç","C") Return cRet  

Amiguinhos,
Eis uma função da API do Windows para a execução de comandos em linha usando CreateProcess:

/*  * Função: Executar processos sem usar .BAT, ShellExecute ou vbScripts  * por Jose Carlos da Rocha  * em 30/Julho/2018  */ #include "fivewin.ch" Function main()    //Desativa o serviço de audio do windows    ? "MY_CreateProcess( 1, 'net stop Audiosrv')",;    MY_CreateProcess( 1, "net stop Audiosrv")        //Inicia o serviço de audio do windows    ?"MY_CreateProcess( 1, 'net start Audiosrv')",;    MY_CreateProcess( 1, "net start Audiosrv") return #pragma BEGINDUMP    #include <windows.h>    #include <hbapi.h>    #include <stdio.h>    #include <tchar.h>    HB_FUNC( MY_CREATEPROCESS )    {     STARTUPINFO si;     PROCESS_INFORMATION pi;     ZeroMemory( &si, sizeof(si) );     si.cb = sizeof(si);     ZeroMemory( &pi, sizeof(pi) );     if( !CreateProcess( NULL,   // No module name (use command line)         hb_parc(2),        // Command line         NULL,              // Process handle not inheritable         NULL,              // Thread handle not inheritable         FALSE,             // Set handle inheritance to FALSE         CREATE_NO_WINDOW,  // No creation flags         NULL,              // Use parent's environment block         NULL,              // Use parent's starting directory          &si,               // Pointer to STARTUPINFO structure         &pi )              // Pointer to PROCESS_INFORMATION structure        )         {         printf( "Criaçao de Processo falhou (%d).\n", GetLastError() );         return;        }     // Wait until child process exits.     WaitForSingleObject( pi.hProcess, INFINITE );     // Close process and thread handles.      CloseHandle( pi.hProcess );     CloseHandle( pi.hThread );    } #pragma ENDDUMP

Ola, Bom dia
Eu faço da seguinte maneira.
cPrinterName := "Nome Da Impressora" <<-- ela deve estar instalada no PC da cozinha também... não precisa colocar o IP basta o nome
oFrPrn:PrintOptions:SetPrinter( cPrinterName )
 
Espero ter ajudado.

Pessoal, só quero passar uma situação que aconteceu conosco e perdemos um certo tempo até descobrir o motivo. Um cliente entrou em contato conosco informando que no dia anterior deu uma queda de energia e ai a webcam parou de funcionar em duas máquinas, mas parou apenas no nosso sistema. Skype e outros programas estava tudo normal.
Perdemos um bom tempo trabalhando com a informação que poderia ter corrompido alguma DLL ou algum outro tipo de coisa e no fim era o antivirus que estava bloqueando o acesso do nosso executavel a webcam (ficava tudo preto)
Depois de muito apanhar mandamos desativar o antivirus e tudo voltou ao normal... O antivirus era o kaspersky
Informamos ao cliente para entrar em contato com quem instalou o antivirus para habilitar nosso executavel a ter acesso a webcam.
Tudo seria mais fácil se o cliente tivesse nos informado que instalaram um antivirus novo recentemente e não só dizer que tiveram queda de energia... rs
Fica a dica pessoal, abraços
 
 

Theotokos,
segue exemplo:
 
Function MandaMail(  destino, copia, arquivo)
LOCAL host, usuario, senha, pasta
LOCAL lret, cSubject, cMsg, comCopia:={}
LOCAL s_ua:="Usuario Licenciado"
if ! pegaconf(@host, @usuario, @senha, @pasta, @mailport)  // pega dados de arquivo criptografado
    msgstop("Dados insuficientes para transmissão!","Falha fatal!")
    return .f.
end
 
         lRet := Sendemeiu(  alltrim(s_ua) +"<"+usuario+">", host, destino, cSubject, cMsg, alltrim(s_ua) +"<"+usuario+">", usuario, senha, {arquivo}, copia, .t., mailport, .t. )
      IF ! lRet
         MsgAlert("Erro ao enviar o e-mail deste pedido."+CRLF+"Verifique acesso internet e tente novamente."+CRLF+;
         "usuario:"+usuario+CRLF+;
         "senha:"+senha+CRLF+;
         "host:"+host,"Atenção:")
         return .f.
   
      ENDIF
return nil
//==========================

   FUNCTION SendeMeiu( cFrom, cServer, cTo, cSubject, cMessage, cSender, cUser, cPassword, aAttach, aCc, lHtml, cPort, lNotification )
   
   
       LOCAL cMsgFile := CTEMPFILE()
   
       LOCAL cCmd := "SndMail -f " + cFrom + " -X " + cServer + " -r " + cTo + " -s " + ["] + cSubject + ["] + " -b " + cMsgFile
   
       LOCAL nRes
   
       LOCAL i
   
       DEFAULT lHtml := "<html" $ LOWER( cMessage )
   
       MEMOWRIT( cMsgFile, cMessage + CRLF )
   
       IF !EMPTY( aAttach )
           FOR i = 1 TO LEN( aAttach )
               cCmd += " -a " + ["] + aAttach[ i ] + ["]
           NEXT
       ENDIF
   
       IF !EMPTY( cSender )
           cCmd += " -F " + ["] + cSender + ["]
       ENDIF
   
       IF !EMPTY( cUser )
           cCmd += " -h LOGIN -u " + cUser
       ENDIF
   
       IF !EMPTY( cPassword )
           cCmd += " -p " + cPassword
       ENDIF
   
       IF !EMPTY( aCc )
           FOR i = 1 TO LEN( aCc )
               cCmd += " -c " + ["] + aCc[ i ] + ["]
           NEXT
       ENDIF
   
       IF lHtml
           cCmd += " -H"
       ENDIF
   
       IF !EMPTY( cPort )
           cCmd += " -P " + cPort
       ENDIF
   
       IF !EMPTY( lNotification )
          cCmd += " -t " + ["] + "Disposition-Notification-To: " + cFrom + ["]
       ENDIF
   
       hDLL = LOADLIBRARY( "sndmail.dll" )
   
       IF hDll = 0
          msgInfo("Não instalada sndmail.dll",":Atenção::")
          return .f.
       ELSE
          SMTPLIBOPEN() // OPEN sndmail.dll
       ENDIF
   
       nRes = SMTPSENDMAIL( cCmd )
   
       SMTPLIBCLOSE()
   
       FREELIBRARY( hDLL )
   
      // FERASE( cMsgFile )
   
   RETURN nRes = 0
   
   DLL STATIC FUNCTION SMTPLIBOPEN() AS VOID;
       PASCAL FROM "USmtpLibOpen" LIB hDll
   
   DLL STATIC FUNCTION SMTPSENDMAIL( cCmd AS STRING ) AS LONG;
       PASCAL FROM "USmtpCmdLineSendMail" LIB hDll
   
   DLL STATIC FUNCTION SMTPLIBCLOSE() AS VOID;
       PASCAL FROM "USmtpLibClose" LIB hDll
   
   // END OF PROGRAM

Veja este!
#include "fivewin.ch" Function Main() Local nSorteio Local aNum:={} Do While .t. nSorteio := HB_RandomInt(1,99) If AScan(aNum,nSorteio) == 0 AAdd(aNum,nSorteio) Endif If Len(aNum) == 10 XBrowse(aNum) Exit Endif Enddo Return nil  

Function u_Teste() Local cFile := cGetFile32(,"Selecione o arquivo") Local cPath, cFileName, cExtension Local nBytes := FileSize(cFile) HB_FNameSplit( cFile, @cPath, @cFileName, @cExtension ) MsgStop(cPath+Chr(13)+Chr(10)+; // result: C:\xhb\source\data\ cFileName+Chr(13)+Chr(10)+; // result: test cExtension+Chr(13)+Chr(10)+; // result: .dbf Str(nBytes,10)+" bytes "+Chr(13)+Chr(10)+; Str(nBytes/1024,10)+" K bytes "+Chr(13)+Chr(10)+; Str(nBytes/1024/1024,10)+" mb "+Chr(13)+Chr(10)) Return  

Una vez que tienes el fichero con cFile := cGetFile() , puedes utilizar las funciones
FSize( cfile ), FDate( cFile ) y FTime( cFile )

Desistir do REDEFINE WINDOWS e passei para REDEFINE DIALOG
não ficou tão bom, mas no momento esta melhor...
Vlw @kapiaba muito obgdo!!!

Este oBar eu tirei - não estou usando botoes... 
alias, qdo chamo a rotina BmpOpen() abre a Windows (que fica por tras da Dialog) e o foco fica só na Dialog, não consigo clicar na Windows enquanto não fecho a Dialog
se não tiver outro jeito, vou deixar sem o MDIChild e oWndBmp:SetControl()

vishi, que tanto de pessoas velhas.... kkkkkkkk
trabalho com computadores desde os CP-500... 

ACTION DIALOG oDlg CENTERED IN PARENT 

C:\FWH1701\samples\report>

Veja como é simples:

FUNCTION RELATORIO_STATUS_NFE( cTipoImpr )     LOCAL oPen1, oPen2, oFont1, oFont2, oFont3, oReport, cAlias, cTitleImp    PUBLIC wNomeEmpresa    SELECT CADNFE    // CRIACAO DOS FITROS/INDICES    DO CASE    CASE cTipoImpr = "APROVADAS"  // "APR"       cTitleImp := OemToAnsi( "APROVADA(s) E NÇO IMPRESSA(s)." )       INDEX ON NFECOD                   TAG 05 TO INFETEMP   ;             FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "APR" MEMORY //TEMPORARY    CASE cTipoImpr = "CANCELADAS"  // "CAN"       cTitleImp := OemToAnsi( "CANCELADA(s) NA SEFAZ." )       INDEX ON NFECOD                   TAG 05 TO INFETEMP   ;             FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "CAN" MEMORY //TEMPORARY    CASE cTipoImpr = "DENEGADAS"  // "DEN"       cTitleImp := OemToAnsi( "NFE COM USO DENEGADO NA SEFAZ." )       INDEX ON NFECOD                   TAG 05 TO INFETEMP   ;             FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "DEN" MEMORY //TEMPORARY    CASE cTipoImpr = "ENVIADAS"   // "ENV"       cTitleImp := OemToAnsi( "TRANSMITIDA(s) E NÇO CONSULTADA(s)." )       INDEX ON NFECOD                   TAG 05 TO INFETEMP   ;             FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "ENV" MEMORY //TEMPORARY    CASE cTipoImpr = "GERADAS"   // "GER"       cTitleImp := OemToAnsi( "GERADA(s) E NÇO TRANSMITIDA(s)." )       INDEX ON NFECOD                   TAG 05 TO INFETEMP   ;             FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "GER" MEMORY //TEMPORARY    CASE cTipoImpr = "IMPRESSAS" // "IMP"       cTitleImp := OemToAnsi( "IMPRESSA(s) - FINALIZADA(s)-OK." )       INDEX ON NFECOD                   TAG 05 TO INFETEMP   ;             FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "IMP" MEMORY //TEMPORARY    CASE cTipoImpr = "INUTILIZADAS"  // "INU"       cTitleImp := OemToAnsi( "INUTILIZADA(s) NA SEFAZ." )       INDEX ON NFECOD                   TAG 05 TO INFETEMP   ;             FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "INU" MEMORY //TEMPORARY    CASE cTipoImpr = "PENDENTES" // "   "       cTitleImp := OemToAnsi( "PENDENTE(s) DE FINALIZAR" )       INDEX ON NFECOD                   TAG 05 TO INFETEMP   ;             FOR ( .NOT. EOF() ) .AND. ;             CADNFE->STATUS != "IMP" .AND. CADNFE->STATUS != "DEN" .AND. ;             CADNFE->STATUS != "CAN" .AND. CADNFE->STATUS != "INU" MEMORY //TEMPORARY    CASE cTipoImpr = "GERAL"       cTitleImp := OemToAnsi( "GERAL - TODAS AS NOTAS EXISTENTES." )       INDEX ON NFECOD                   TAG 05 TO INFETEMP   ;             FOR ( .NOT. EOF() ) MEMORY //TEMPORARY    ENDCASE    cAlias := ALIAS()    GO TOP    IF EOF()       MsgInfo( OemToAnsi( "ATEN€ÇO USUµRIO:                        " )+CRLF+ ;                OemToAnsi( "NENHUMA NOTA FISCAL FOI LOCALIZADA PARA " )+CRLF+ ;                OemToAnsi( "IMPRESSÇO NESTE STATUS: " + cTipoImpr )    +CRLF+ ;                OemToAnsi( "TECLE <ENTER> PARA RETORNAR...          " ),      ;                OemToAnsi( "NENHUMA NOTA FISCAL FOI LOCALIZADA...   " ) )       RETURN NIL    ENDIF    DEFINE PEN oPen1 WIDTH 2    DEFINE PEN oPen2 WIDTH 1         DEFINE FONT oFont1 NAME "Arial"       SIZE 0, -11    DEFINE FONT oFont2 NAME "Arial"       SIZE 0, -11    DEFINE FONT oFont3 NAME "Courier New" SIZE 0,  09 BOLD    REPORT oReport TITLE "Listagem de Notas Fiscais, com STATUS: "+ cTitleImp ;       CAPTION "Catálogo de Notas Fiscais, com STATUS: "          + cTitleImp ;       HEADER "Empresa: " + UPPER( wNomeEmpresa ),                            ;       "Data: "   + DTOC( DATE() ),                                           ;       "Página: " + STR( oReport:nPage, 3 )                                   ;       FOOTER OemToAnsi( "- CADASTRO DE NOTAS FISCAIS ELETRâNICAS -" ) CENTER ;       FONT oFont1, oFont2, oFont3                                            ;       PEN oPen1, oPen2 ;      //-> Tipo de linha a usar no cabecalho       PREVIEW //-> Ativa o Preview - Listagem        //-> Para o Preview Maximizar e Nao Ficar no Rodape do Windows        oReport:oDevice:lPrvModal := .T.        oReport:oDevice:SetPage(9) //-> Formato A4       oReport:lAutoLand := .F.  // Vertical  // Manuel Mercado.       // PrnPortrait()   //vertical ou       // oReport:SetPortrait() //Vertical       COLUMN TITLE "Nº. NF-e: "        DATA  IIF( CADPARAM->TPAMB=[1],       ;              xPadl( Alltrim( Str( ( cAlias )->NFECOD, 6,0 ) ),  6   ),       ;              xPadl( Alltrim( Str( ( cAlias )->FATURCOD, 6,0 ) ),  6 ) ),     ;              + "STATUS: " +       ( cAlias )->STATUS FONT 3 CENTER SHADOW GRID       lGrid := .F.       COLUMN TITLE "Nº. PEDIDO: "      DATA ( cAlias )->PEDIDCOD,            ;                  + "" +                     ( cAlias )->STATUS,              ;                  + IIF( ( cAlias )->TPFAT_OP = "P", "FAT. PEDIDOS", "FAT. OUTROS" )  ;                  FONT 3 CENTER       COLUMN TITLE "NOME DO CLIENTE/CHAVE/PROT/REC: " DATA PEGA_NOME_CLIENTE(), ;                  + "CHAVE: " + ALLTRIM( ( cAlias )->CHAVEACES ), ;                  + "PROT.: " + ALLTRIM( ( cAlias )->PROTOCOLO ) + " - " + ;                  + "REC.: "  + ALLTRIM( ( cAlias )->RECIBO ) FONT 3       COLUMN TITLE "DATA: "            DATA TRANSF( ( cAlias )->DATA, "@D 99/99/9999" ), ;                        + "" +                       ( cAlias )->STATUS,      ;                        + IIF( ( cAlias )->TPFAT_OP = "P", "PEDIDOS", "OUTROS" ) FONT 3 CENTER       COLUMN TITLE "HORA: "            DATA ( cAlias )->HORA,                ;                  + "" +                     ( cAlias )->STATUS,              ;                  + IIF( ( cAlias )->TPFAT_OP = "P", "PEDIDOS", "OUTROS" )  FONT 3 CENTER    END REPORT     IF !oReport:lCreated        RETURN NIL    ELSE       oReport:SetTxtColor(CLR_HBLUE,1)       oReport:SetTxtColor(CLR_HRED, 2)       oReport:SetTxtColor(CLR_HBLUE,3)       oReport:SetPenColor(CLR_HBLUE  )       oReport:SetShdColor(CLR_HCYAN  )    ENDIF    oReport:CellView()    ACTIVATE REPORT oReport ON INIT oReport:oTitle:aFont[1] := { || 3 }    oPen1:End()      oPen2:End()      oFont1:End()     oFont2:End()     oFont3:End() RETURN NIL

Mano, tá dificil, única coisa que achei sobre isso, foi isso:
Se não resolver, poste no inter. abs.
 
http://www.forums.fivetechsupport.com/viewtopic.php?f=6&t=14435&start=0

eu tirei para testar, mas ai não funciona a procura... o indice gerado não inclui todos 

Tem mais FONTES e IMAGENS, que você não está fechando ou danificadas. Verifique se você não tem FONTES PÚBLICAS na WINDOW PRINCIPAL. Passe a LOCAL e destrua.  abs.

Vlw!!! Obgdo!!! Vou testar hoje a noite... depois reporto aqui... obgdo!!!

Theotokos Faça assim, e verifique o arquivo checkres.txt para ver qual objeto não está sendo destruído:
      FreeResources()       SysRefresh()       DbCloseAll()       RELEASE All       Hb_GCAll( .T. )       CLEAR MEMORY       PostQuitMessage( 0 )       IF FILE( "checkres.txt" )          FErase( "checkres.txt" )       ENDIF       CheckRes()       __QUIT()

INDEX ON BANCO+STR(EMPRESA,2) TAG TBCCOR01 TO TBCCOR
INDEX ON DESCRICAO TAG TBCCOR02 TO TBCCOR
Mude para:
INDEX ON TBCCOR->BANCO+STR(TBCCOR->EMPRESA,2) TAG TBCCOR01 TO TBCCOR
INDEX ON TBCCOR->DESCRICAO TAG TBCCOR02 TO TBCCOR