Olá amigo Rochinha,
Novamente obrigado por enorme atenção. Fiquei MUITO impressionado com sua citação:
Nos dois casos era necessário criar um arquivo extra e seta-lo junto aos indices abertos para que as modificações fossem inclusas em todos os indices.
Uso índices temporários há muito tempo e nunca, jamais havia analisado o correto uso como vocês descreveu. Acredito porque a maioria dos clientes eram 2 a 3 terminais, agora implantei em um comércio com 8 terminais de venda e 6 administrativos, onde começaram os problemas de rede, o que me obrigou a melhorar o código.
Mas ontem mesmo, devido a grande necessidade de resolver o problema, porque o sistema estava em plena utilização com geração de erros, meu tempo estava curto, me interessei demais por sua explicação do OrdScope(), resolvi buscar o Clipper 5.3b usando a própria Blinker 6.0.
Não precisei alterar nada no código além dos novos índices de acordo com minha necessidade de filtragem e o .LNK, que ainda não analisei se está corretamente configurado, peguei de uma tutorial aqui do site.
Funcionou perfeito! Impressionante a velocidade, a integridade dos dados, parabéns parceiro, sua ajuda foi eficaz.
Mas agora lendo suas citações sobre o Clipper 5.2e e as bibliotecas SUBNTX e SIX2, vi quanta coisa poderia ter ganhado em meu sistema lido mais, pesquisado mais sobre isso.
Eu não usava o Set Filter nunca, por lentidão, mas agora ficou perfeito:
-Programa o OrdScope() no indice correto:
*Indice:
Index on DTOC(VENCIMENTO)+STR(COD_CLIE,5,0) TAG CLI_VCTO to RECEBER
*
*Código Baixa Ct.Receber:
*
Select RECEBER
If Empty(dDtaIni) .and. Empty(dDtaFim)
ORDSETFOCUS("COD_CLIE")
OrdScope(0, nCodClie )
OrdScope(1, nCodClie )
Else
ORDSETFOCUS("CLI_VCTO")
OrdScope(0, DTOC(dDtaIni)+str(nCodClie,5,0) )
If Empty(dDtaFim)
OrdScope(1, DTOC(dDtaIni)+str(nCodClie,5,0) )
Else
OrdScope(1, DTOC(dDtaFim)+str(nCodClie,5,0) )
EndIf
EndIf
*
*Agora uso o Set Filter para separar os Quitados.
*
Go Top
Set Filter to PAGO <> "Q"
Sum All VALOR to nAberto
Go Top
*
*..
*Rotinas
*..
Obrigado mesmo pelas dicas e conselhos Rochinha, mas agora vou tentar usufruir mais do Clipper 5.3.
Segue o minha configuração do .LNK, talvez você tenha sugestões.
Abraço.
BLINKER INCREMENTAL OFF
BLINKER CACHE EMS 75%,50%
BLINKER CACHE XMS 75%,50%
BLINKER LINK EMS ON
BLINKER LINK XMS ON
BLINKER EXECUTABLE NODELETE
BLINKER EXEC CLIPPER //DYNF:8 //F:254
BLINKER EXEC COMP 1
BLINKER EXEC EXTE
BLINKER MEMO PACK 20
BLINKER INCR PAD 256
BLINKER OVER PAGE ON
BLINKER OVER OPSI 60
BEGINAREA
FILE SCA
FILE SCA001
..
..
FILE SCA99RED
ENDAREA
Libr BLXCLP53,Dbfcdx,_dbfcdx