PC Toledo

Em homenagem a Paulo Cesar Toledo
https://pctoledo.org/

Blx286:1313:exception error 0D:general protection fault.

https://pctoledo.org/viewtopic.php?t=3488

Página 1 de 1

Blx286:1313:exception error 0D:general protection fault.

Enviado: 23 Jan 2006 11:00
por Carlos.info
Ola amigos, alguem sabe o porque deste erro ?

Called line 0 in (b)ORDENA

BLX286 : 1313 : exception error 0D : general protection fault, code = 11F4h

Active host is DPMI (ß7.00 iP? 65535 Kb)

Reg Value Limit Base Flags Segment Module File
CS 012F FBB3 83F2B2D0 FB00 04 INDE C:\...RA\TESTE\INDE.EXE
DS 016F FFFF 83EF9464 F300 0C INDE C:\...RA\TESTE\INDE.EXE
ES 1117 3FFF 83F92EF8 F300 ****
SS 016F FFFF 83EF9464 F300 0C INDE C:\...RA\TESTE\INDE.EXE

Código: Selecionar todos

 00 00 83 7E F6 00 74 1C [IP] C4 5E FC 8B 76 F4 26 8A 00 F6

[Registers]  AX=0006  BX=0004  CX=1117  DX=1117   CS:IP=012F:F857
             SI=3BE4  DI=5FB2  BP=5BA2  SP=5B92
             FL=0202  NV UP EI NT PL NZ NA PO NC

[Stack value SS] 5B8A 1FD9 0004 003F 003F 5B98 20EE 003F 5BA2 F846 012F 5DBA
            [SP] 3BE4 0001 0000 0008 0006 1117 3FF4 11F7 5BB4 0969 011F 026F

[Stack frame SS] 5BA2 F846 012F 5DBA 3BE4 0001 0000 0008 0006 1117 3FF4 11F7
            [BP] 5BB4 0969 011F 026F 01CF 0000 0157 5F7A 5F6C 5BDE 366E 011F

C:\FATURA\TESTE>

uso clipper 53 + blinker 7

dá esse erro quando vou indexar, estou indexando com clippper 87, p/ o sistema rodar.

o arquivo tem 45000 registros ..

meu lnk..

blinker message noblink
blinker executable clipper f255
blinker incremental off
blinker executable compress 1
blinker executable extend

FILE INDEX
                            
SEARCH C:\CLIP53\LIB\BLXCLP53

Quando vcs indexam seus programas, nao acontece esse erro ?


Obrigado...

Enviado: 24 Jan 2006 10:40
por Carlos.info
Ninguem viu este erro ????

Enviado: 24 Jan 2006 15:19
por C Leonam
Você poderia postar os fontes (use o botão "Code" - página "Responder" no início e fim do código, se ele for extenso) para que possamos analisar melhor. O erro apresentado pode estar associado a diversas razões.

:xau

Enviado: 26 Jan 2006 10:35
por Carlos.info
tai.....

Código: Selecionar todos

  
SET COLOR TO

CLEA

Q=0
T=250

ERASE *.NTX

ORDENAP('COTAO','COTAO','COTACAO',Q,T)

ORDENAP('COTAOC','COTAOC','COTACAO',Q,T)

ORDENAP('INTDB','LAIND1','CODDOC+CODCOVE',Q,T)
ORDENA ('INTDB','LAIND2','DTEM',Q,T)
ORDENA ('INTDB','LAIND3','CODCF',Q,T)
ORDENA ('INTDB','LAIND4','SPEDIDO',Q,T)

ORDENAP('INTDBDEV','DLAIND1','CODDOC+CODCOVE',Q,T)
ORDENA ('INTDBDEV','DLAIND2','DTEM',Q,T)
ORDENA ('INTDBDEV','DLAIND3','CODCF',Q,T)

ORDENAP('INTDB2','LA2IND1','CODDOC+CODCOVE',Q,T)
ORDENA ('INTDB2','LA2IND2','DTEM',Q,T)
ORDENA ('INTDB2','LA2IND3','CODCF',Q,T)

ORDENAP('TRADB','TRAIND','CODIGO',Q,T)
ORDENA ('TRADB','TRAINN','TRANS',Q,T)

USE MOVDEL EXCLUSIVE
APPEND FROM MOVDB2 FOR DELE()

ORDENAP('MOVDB2','MOIND1','CODEP+CODCOVE+CODP',Q,T)
ORDENA ('MOVDB2','MOIND2','CLIENTE+NOMEP',Q,T)
ORDENA ('MOVDB2','MOIND3','CODP',Q,T)
ORDENA ('MOVDB2','MOIND4','CODEP+CODCOVE+NOMEP',Q,T)
ORDENA ('MOVDB2','MOIND5','GRUPO',Q,T)

******* ORDENA ('MOVDB2','MOIND3','NOMEP+CLIENTE',Q,T)

ORDENAP('MOVDBDEV','DMOIND1','CODEP+CODCOVE+CODP',Q,T)
ORDENA ('MOVDBDEV','DMOIND2','CLIENTE+NOMEP',Q,T)
ORDENA ('MOVDBDEV','DMOIND3','NOMEP+CLIENTE',Q,T)

ORDENAP('MOVDB3','MO3IND1','CODEP+CODCOVE+CODP',Q,T)
ORDENA ('MOVDB3','MO3IND2','CLIENTE+NOMEP',Q,T)
ORDENA ('MOVDB3','MO3IND3','NOMEP+CLIENTE',Q,T)

ORDENAP('CCDB2','CCINDNCL','CODCLI',Q,T)
ORDENA ('CCDB2','CCINDEMP','CLIENTE',Q,T)
ORDENA ('CCDB2','CGC','CGC',Q,T) 
ORDENA ('CCDB2','CEP','CEP',Q,T)
ORDENA ('CCDB2','CVEND','CODV+CLIENTE',Q,T)
ORDENA ('CCDB2','FANTASIA','FANTASIA',Q,T)
ORDENA ('CCDB2','CCTEL','TEL',Q,T)
ORDENA ('CCDB2','CCTEL2','TEL2',Q,T)
ORDENA ('CCDB2','CCTEL3','TEL3',Q,T)
ORDENA ('CCDB2','CCFAX','FAX',Q,T)
ORDENA ('CCDB2','CCTELC','TELCOB',Q,T)
ORDENA ('CCDB2','ILINK','LINK',Q,T)

ORDENAP('NOVOS','NOVOS','CLIENTE',Q,T)
ORDENA ('NOVOS','NOVOC','CODCLI',Q,T)

ORDENAP('ENDDB','ENDIND1','CODCLI',Q,T)

ORDENAP('FODB2','FOINDCOD','CODFOR',Q,T)
ORDENA ('FODB2','FOINDNFO','FORNECE',Q,T)
ORDENA ('FODB2','FOINDCGC','CGC',Q,T)

ORDENAP('VEDB','VEIND1','CODV',Q,T)
ORDENA ('VEDB','VEIND2','NOMEV',Q,T)

ORDENAP('VEDB2','VE21','CODCLI',Q,T)
ORDENA ('VEDB2','VE22','CLIENTE',Q,T)

CLOSE ALL

USE PEDTOD EXCLUSIVE
APPEND FROM PEDDB FOR SITUACAO = 'E' 

CLOSE ALL

USE PEDDB EXCLUSIVE
DELE ALL FOR SITUACAO = 'E' 

CLOSE ALL

ORDENAP('PEDDB','PEIND1','CODEP+CODCOVE+CODP',Q,T)
ORDENA ('PEDDB','PEIND2','VAL(CODEP)',Q,T)
ORDENA ('PEDDB','PEIND3','CODCF+CODEP',Q,T)
ORDENA ('PEDDB','PEIND4','CLIENTE+STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2)+CODEP+NOMEP',Q,T)
ORDENA ('PEDDB','PEIND5','CODDOC',Q,T)
ORDENA ('PEDDB','PEIND6','CODP',Q,T)
ORDENA ('PEDDB','PEIND7','CODEP+NOMEP',Q,T)
ORDENA ('PEDDB','PEIND8','CLIENTE + CODEP',Q,T)
ORDENA ('PEDDB','PEIND9','DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2)+CODEP)',Q,T)
ORDENA ('PEDDB','PEIND0','SPEDIDO',Q,T)

USE PECTOD EXCLUSIVE
APPEND FROM PECDB FOR SITUACAO = 'E'

USE PECDB EXCLUSIVE
DELE ALL FOR SITUACAO = 'E'

ORDENAP('PECDB','PCIND1','CODEP+CODCOVE+CODP',Q,T)
ORDENA ('PECDB','PCIND2','VAL(CODEP)',Q,T)
ORDENA ('PECDB','PCIND3','CODCF',Q,T)
ORDENA ('PECDB','PCIND4','CLIENTE + CODEP',Q,T)
ORDENA ('PECDB','PCIND5','CODP',Q,T)
ORDENA ('PECDB','PCIND6','CODP',Q,T)
ORDENA ('PECDB','PCIND7','CODEP + NOMEP',Q,T)
ORDENA ('PECDB','PCIND8','NOMEP',Q,T)

ORDENAP('DUPDB','DUPIND','NUM',Q,T)

* O SCIND3 ESTAVA INDEXADO PELA DTVC EU TROQUEI PARA DTEM EM 08.08.2002, PARA
* O F12 DA COTACAO ( MOVIMENTACAO ) SAIR EM ORDEM DE DATA

ORDENAP('SCDB','SCIND1','NCONTA + PAGREC',Q,T)
ORDENA ('SCDB','SCIND2','DTVC',Q,T)
ORDENA ('SCDB','SCIND3','CODCLI+PAGREC+STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2)',Q,T)
ORDENA ('SCDB','SCIND4','DTEM',Q,T)
ORDENA ('SCDB','SCIND5','CODCLI + DESCEND ( STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2) )',Q,T)
ORDENA ('SCDB','SCIND6','STRZERO(NVAL,5)+STRZERO(YEAR(DTVC),4)+STRZERO(MONT(DTVC),2)+STRZERO(DAY(DTVC),2) + PAGREC',Q,T)
ORDENA ('SCDB','SCIND7','PAGREC + STRZERO(VAL,10,2)',Q,T)
ORDENA ('SCDB','SCIND8','BANCARIO',Q,T)
ORDENA ('SCDB','SCIND9','PAGREC + STRZERO(YEAR(DTVC),4)+STRZERO(MONT(DTVC),2)+STRZERO(DAY(DTVC),2)',Q,T)
ORDENA ('SCDB','SCIND0','CODCLI + STRZERO(NVAL,5) + STRZERO(YEAR(DTVC),4)+STRZERO(MONT(DTVC),2)+STRZERO(DAY(DTVC),2)',Q,T)
ORDENA ('SCDB','SCINDA','PAGREC + STRZERO(NVAL,5) + STRZERO(YEAR(DTVC),4)+STRZERO(MONT(DTVC),2)+STRZERO(DAY(DTVC),2)',Q,T)
ORDENA ('SCDB','SCINDB','CODCLI + DESCEND ( NCONTA )',Q,T)
ORDENA ('SCDB','SCINDC','CODCLI + DESCEND ( STRZERO(YEAR(DTVC),4)+STRZERO(MONT(DTVC),2)+STRZERO(DAY(DTVC),2) )',Q,T)
ORDENA ('SCDB','SCINDD','CODCLI + TIPOQUI + DESCEND ( STRZERO(YEAR(DTVC),4)+STRZERO(MONT(DTVC),2)+STRZERO(DAY(DTVC),2) )',Q,T)
ORDENA ('SCDB','SCINDE','PAGREC + STRZERO((VAL-VALDEV-(VAL*PDESC/100)),10,2)',Q,T)
ORDENA ('SCDB','SCINDF','SACFAV',Q,T)

ORDENAP('CEDBP','CEINDP1','CODP',Q,T)
ORDENA ('CEDBP','CEINDP2','NOMEP+CODP',Q,T)
ORDENA ('CEDBP','CEINDP3','GRUPO+NOMEP',Q,T)
ORDENA ('CEDBP','CEINDP4','GRUPO+CODP',Q,T)
ORDENA ('CEDBP','CEINDP5','ATIN+NOMEP',Q,T)
ORDENA ('CEDBP','CEINDP6','REGISTRO',Q,T)
ORDENA ('CEDBP','CEINDP7','DATAREG',Q,T)

ORDENAP('CEDBPOUT','OCEINDP1','CODP',Q,T)
ORDENA ('CEDBPOUT','OCEINDP2','NOMEP+CODP',Q,T)
ORDENA ('CEDBPOUT','OCEINDP3','GRUPO+NOMEP',Q,T)
ORDENA ('CEDBPOUT','OCEINDP4','GRUPO+CODP',Q,T)

ORDENAP('CEDBA','CEINDA','CODP',Q,T)
ORDENA ('CEDBA','CEINDA1','CODP+CODEP',Q,T)

ORDENAP('CEDBA2','CE2INDA','CODP',Q,T)
ORDENA ('CEDBA2','CE2INDA1','CODP+CODEP',Q,T)

ORDENAP('BORDB','BORIND','NCONTA',Q,T)

ORDENAP('INFODB','INFIND1','CODCLI',Q,T)

ORDENAP('ICMSDB','I1','COVE',Q,T)
ORDENA ('ICMSDB','I2','CODP+CODDOC',Q,T)

ORDENAP('LQDB','LQIND1','CODP',Q,T)
ORDENA ('LQDB','LQIND2','CODP+CODEP',Q,T)

ORDENAP('FICHA','FICHA1','DTEM',Q,T)
ORDENA ('FICHA','FICHA2','CODP',Q,T)

ORDENAP('BALANCA','BALANCA','SEQUENCIA',Q,T)
ORDENA ('BALANCA','CODIGOS','CODIGO',Q,T)
ORDENA ('BALANCA','TITCOD','STR(SEQUENCIA)+TIT',Q,T)

ORDENAP('FALTA','FALTA1','CODCF',Q,T)
ORDENA ('FALTA','FALTA2','CODP',Q,T)
ORDENA ('FALTA','FALTA3','CODEP + CODP',Q,T)

ORDENAP('PRECOS','PRECOS','CODCLI+CODP',Q,T)

ORDENAP('COTACAO','COTA1','CODEP+STRZERO(ITEM,3)+CODP',Q,T)
ORDENA ('COTACAO','COTA2','CODP+CODEP',Q,T)
ORDENA ('COTACAO','COTA3','CODCF + CODP + DTOC(DTEM)',Q,T)
ORDENA ('COTACAO','COTA4','DTEM',Q,T)
ORDENA ('COTACAO','COTA5','DESCEND(LINK + CODP + STRZERO(YEAR(DTEM),4) + STRZERO(MONT(DTEM),2) + STRZERO(DAY(DTEM),2))',Q,T)

ORDENAP('COTAMAX','COTAMAX1','CODEP+DESCEND(VENDIDO)+NOMEP',Q,T)
ORDENA ('COTAMAX','COTAMAX2','CODP+CODEP',Q,T)
ORDENA ('COTAMAX','COTAMAX3','CODCF + CODP + DTOC(DTEM)',Q,T)
ORDENA ('COTAMAX','COTAMAX4','DTEM',Q,T)
ORDENA ('COTAMAX','COTAMAX5','DESCEND(LINK + CODP + STRZERO(YEAR(DTEM),4) + STRZERO(MONT(DTEM),2) + STRZERO(DAY(DTEM),2))',Q,T)

ORDENAP('COTACOM','COTACO1','CODEP+STRZERO(ITEM,3)+CODP',Q,T)
ORDENA ('COTACOM','COTACO2','CODP+CODEP',Q,T)
ORDENA ('COTACOM','COTACO3','CODEP+NOMEP',Q,T)
ORDENA ('COTACOM','COTACO4','DTEM',Q,T)
ORDENA ('COTACOM','COTACO5','DESCEND(LINK + CODP + STRZERO(YEAR(DTEM),4) + STRZERO(MONT(DTEM),2) + STRZERO(DAY(DTEM),2))',Q,T)

ORDENAP('MAX','MAX1','CODCF+DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2)+COTACAO)',Q,T)
ORDENA ('MAX','MAX2','DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2)+COTACAO)',Q,T)
ORDENA ('MAX','MAX3','COTACAO',Q,T)
ORDENA ('MAX','MAX4','DTOC(DTEM)   + CODV + HORA',Q,T)
ORDENA ('MAX','MAX5','DTOC(DATABX) + CODV + HORA',Q,T)
ORDENA ('MAX','MAX6','CODCF+DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

ORDENAP('COTA','C1','CODCF+DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2)+COTACAO)',Q,T)
ORDENA ('COTA','C2','DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2)+COTACAO)',Q,T)
ORDENA ('COTA','C3','COTACAO',Q,T)
ORDENA ('COTA','C4','DTOC(DTEM)   + CODV + HORA',Q,T)
ORDENA ('COTA','C5','DTOC(DATABX) + CODV + HORA',Q,T)
ORDENA ('COTA','C6','CODCF+DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

ORDENAP('COTAC','CO1','CODCF',Q,T)
ORDENA ('COTAC','CO2','DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2)+COTACAO)',Q,T)
ORDENA ('COTAC','CO3','COTACAO + CODCF',Q,T)
ORDENA ('COTAC','CO4','DTOC(DTEM) + CODV + HORA',Q,T)

ORDENAP('COMISSAO','CM1','DTEM',Q,T)
ORDENA ('COMISSAO','CM2','CLIENTE+CODDOC',Q,T)
ORDENA ('COMISSAO','CM3','CODP',Q,T)
ORDENA ('COMISSAO','CM4','CODDOC+CODP',Q,T)
ORDENA ('COMISSAO','CM5','GRUPO',Q,T)
ORDENA ('COMISSAO','CM6','CODCLI+CODDOC',Q,T)

ORDENAP('AVISO','AVISO1','CODCLI',Q,T)
ORDENA ('AVISO','AVISO2','CODP',Q,T)
ORDENA ('AVISO','AVISO3','USUARIO',Q,T)
ORDENA ('AVISO','AVISO4','DTEM',Q,T)

ORDENAP('PADRO','PADRO1','CODCLI+GRUPO+NOMEP',Q,T)
ORDENA ('PADRO','PADRO2','CODP',Q,T)
ORDENA ('PADRO','PADRO3','USUARIO',Q,T)

ORDENAP('BRAD','BRAD','DTVC',Q,T)

ORDENAP('APC','APC1','CODP',Q,T)
ORDENA ('APC','APC2','DATA',Q,T)
ORDENA ('APC','APC3','DATA',Q,T)

ORDENAP('GRUPOS','GRUPOS','GRUPO',Q,T)

ORDENAP('GRUCOT','GRUCOT','GRUPO',Q,T)

ORDENAP('CLILINK','CLILINK','CODCLI',Q,T)

ORDENAP('CLASSES','CLASSES','CLASSE',Q,T)

ORDENAP('ESPECIAL','ESPECIAL','ESPECIAL',Q,T)

ORDENAP('VEND','VEND','CLIENTE',Q,T)

ORDENAP('TEMPOCT1','CT1','ITEM',Q,T)

ORDENAP('TEMPOCT2','CT2','ITEM',Q,T)

ORDENAP('TEMPOCT3','CT3','ITEM',Q,T)

ORDENAP('TEMPOCT4','CT4','ITEM',Q,T)

ORDENAP('TEMPOCT5','CT5','ITEM',Q,T)

ORDENAP('TEMPOCT6','CT6','ITEM',Q,T)

ORDENAP('TEMPOCT7','CT7','ITEM',Q,T)

ORDENAP('TEMPOCT8','CT8','ITEM',Q,T)

ORDENAP('TEMPOCT9','CT9','ITEM',Q,T)

ORDENAP('TEMPCTC1','CTC1','ITEM',Q,T)

ORDENAP('TEMPCTC2','CTC2','ITEM',Q,T)

ORDENAP('TEMPCTC3','CTC3','ITEM',Q,T)

ORDENAP('TEMPCTC4','CTC4','ITEM',Q,T)

ORDENAP('TEMPCTC5','CTC5','ITEM',Q,T)

ORDENAP('TEMPCTC6','CTC6','ITEM',Q,T)

ORDENAP('TEMPCTC7','CTC7','ITEM',Q,T)

ORDENAP('TEMPCTC8','CTC8','ITEM',Q,T)

ORDENAP('TEMPCTC9','CTC9','ITEM',Q,T)

ORDENAP('MAX1','MAXX1','DESCEND(VENDIDO)+NOMEP',Q,T)

ORDENA ('MAX2','MAXX2','DESCEND(VENDIDO)+NOMEP',Q,T)

ORDENA ('MAX3','MAXX3','DESCEND(VENDIDO)+NOMEP',Q,T)

ORDENAP('PDC','PDC1','CODEP',Q,T)
ORDENA ('PDC','PDC2','CODCF',Q,T)
ORDENA ('PDC','PDC3','DTEM',Q,T)
ORDENA ('PDC','PDC4','CODEP',Q,T)
ORDENA ('PDC','PDC5','FORNECEDOR',Q,T)

ORDENAP('PDV','PDV1','CODEP',Q,T)
ORDENA ('PDV','PDV2','CODCF',Q,T)
ORDENA ('PDV','PDV3','DTEM',Q,T)
ORDENA ('PDV','PDV4','CODEP',Q,T)

ORDENAP('CCOBS','CCOBS','CODCLI',Q,T)
ORDENA ('CCOBS','CFOBS','CODFOR',Q,T)

ORDENAP('NFCONS','NFCONS1','COTACAO',Q,T)
ORDENA ('NFCONS','NFCONS2','CODDOC',Q,T)
ORDENA ('NFCONS','NFCONS3','CLIENTE',Q,T)
ORDENA ('NFCONS','NFCONS4','TEL',Q,T)

ORDENAP('FORNPROD','FP1','GRUPO',Q,T)
ORDENA ('FORNPROD','FP2','GRUPO',Q,T)

ORDENAP('PROTESTOS','PROTESTOS','CODCLI',Q,T)

ORDENAP('NOTAS','NOTAS','NUM',Q,T)
ORDENA ('NOTAS','TT9','TT9',Q,T)

ORDENAP('NOTASPRO','NOTASPRO','NUM',Q,T)

ORDENAP('USUARIOS','USUARIOS','USUARIO + DESCEND(STRZERO(YEAR(DATA),4)+STRZERO(MONT(DATA),2)+STRZERO(DAY(DATA),2)+HORA)',Q,T)
ORDENA ('USUARIOS','USUARIO2','CODIGO  + DESCEND(STRZERO(YEAR(DATA),4)+STRZERO(MONT(DATA),2)+STRZERO(DAY(DATA),2)+HORA)',Q,T)

ORDENAP('TELEMARK','TELE1','CODCLI',Q,T)
ORDENA ('TELEMARK','TELE2','CLIENTE',Q,T)
ORDENA ('TELEMARK','TELE3','ULTIMALIG',Q,T)
ORDENA ('TELEMARK','TELE4','CODCLI',Q,T)
ORDENA ('TELEMARK','TELE5','CODCLI',Q,T)
ORDENA ('TELEMARK','TELE6','CODCLI',Q,T)
ORDENA ('TELEMARK','TELE7','CODCLI',Q,T)

ORDENAP('DIGITA','DIGITA1','CODP',Q,T)
ORDENA ('DIGITA','DIGITA2','NOMEP',Q,T)
ORDENA ('DIGITA','DIGITA3','GRUPO+NOMEP',Q,T)
ORDENA ('DIGITA','DIGITA4','GRUPO+CODP',Q,T)

ORDENAP('PACIENTE','PAC1','COTACAO',Q,T)
ORDENA ('PACIENTE','PAC2','CODDOC',Q,T)
ORDENA ('PACIENTE','PAC3','PACIENTE',Q,T)
ORDENA ('PACIENTE','PAC4','CONVENIO',Q,T)
ORDENA ('PACIENTE','PAC5','CIRURGIA',Q,T)
ORDENA ('PACIENTE','PAC6','CIRURGIAO',Q,T)

ORDENAP('LINKDB','LINK1','CODCLI',Q,T)
ORDENA ('LINKDB','LINK2','LINK',Q,T)
ORDENA ('LINKDB','LINK3','LINK',Q,T)

ORDENAP('MOTOR','MOTOR','MOTORISTA',Q,T)

ORDENAP('PENDVIS','PENDVIS','CODCLI',Q,T)

ORDENAP('AMOSTRAS','AMOSTRAS','CODCLI',Q,T)

ORDENAP('BAMOSTRA','BAMOSTRA','CLIENTE',Q,T)

ORDENAP('VISIDATA','VISIDATA','CODCLI+DTOC(DATA)',Q,T)

ORDENAP('VEICULOS','VEIC1','PLACA',Q,T)
ORDENA ('VEICULOS','VEIC2','VEICULO',Q,T)
ORDENA ('VEICULOS','VEIC3','CELULAR',Q,T)

ORDENAP('VISITAS','VISITAS','STRZERO(MONT(DATA),2)+STRZERO(YEAR(DATA),4)+CODV+DTOC(DATA)+PERIODO+HORA',Q,T)
ORDENAP('VISITAS','VISITAS1','CODV+STRZERO(YEAR(DATA),4)+STRZERO(MONT(DATA),2)+STRZERO(DAY(DATA),2)+PERIODO+HORA',Q,T)
ORDENAP('VISITAS','VISITAS2','CODCLI',Q,T)

ORDENAP('ALTCLI','ALTCLI','CODCLI',Q,T)

ORDENAP('BORDB','BORDB','NUMERO',Q,T)

ORDENAP('CTO','CTO1','DTEM',Q,T)
ORDENA ('CTO','CTO2','DTEM',Q,T)

ORDENAP('EXPED','EXPED1','DATA',Q,T)
ORDENA ('EXPED','EXPED2','CODDOC',Q,T)
ORDENA ('EXPED','EXPED3','CARRO',Q,T)
ORDENA ('EXPED','EXPED4','PLACA',Q,T)
ORDENA ('EXPED','EXPED5','DESCEND(DATA)',Q,T)

ORDENAP('CIRURG','CIRURG','CIRURGIAO',Q,T)

ORDENAP('CONVENIO','CONVENIO','CONVENIO',Q,T)

ORDENAP('CORRECAO','CORRECAO','CODDOC',Q,T)

ORDENAP('DATAVIS','DATAVIS','CODCLI+DTOC(DATA)',Q,T)
ORDENAP('DATAVIS','DATAVIS2','CODCLI+DESCEND(STRZERO(YEAR(DATA),4)+STRZERO(MONT(DATA),2)+STRZERO(DAY(DATA),2))',Q,T)

ORDENAP('ESPPROD','ESPPROD','CODP',Q,T)
ORDENAP('ESPPROD','ESPPROD2','NOMEP',Q,T)

ORDENAP('DESPCLIE','DESPCLIE','CODCLI+STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2)',Q,T)

ORDENAP('CCF','CCF','CCF',Q,T)

USE MELHOR1
ZAP
USE

ORDENAP('MELHOR1','MELHOR1','STR(PRCCV,12,2) + CLIENTE + DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE MELHOR2
ZAP
USE

ORDENAP('MELHOR2','MELHOR2','STR(PRCCV,12,2) + CLIENTE + DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE MELHOR3
ZAP
USE

ORDENAP('MELHOR3','MELHOR3','STR(PRCCV,12,2) + CLIENTE + DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE MELHOR4
ZAP
USE

ORDENAP('MELHOR4','MELHOR4','STR(PRCCV,12,2) + CLIENTE + DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE MELHOR5
ZAP
USE

ORDENAP('MELHOR5','MELHOR5','STR(PRCCV,12,2) + CLIENTE + DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE MELHOR6
ZAP
USE

ORDENAP('MELHOR6','MELHOR6','STR(PRCCV,12,2) + CLIENTE + DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE MELHOR7
ZAP
USE

ORDENAP('MELHOR7','MELHOR7','STR(PRCCV,12,2) + CLIENTE + DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE MELHOR8
ZAP
USE

ORDENAP('MELHOR8','MELHOR8','STR(PRCCV,12,2) + CLIENTE + DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE MELHOR9
ZAP
USE

ORDENAP('MELHOR9','MELHOR9','STR(PRCCV,12,2) + CLIENTE + DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE MELHOR0
ZAP
USE

ORDENAP('MELHOR0','MELHOR0','STR(PRCCV,12,2) + CLIENTE + DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

*

USE ULTCOT1
ZAP
USE

ORDENAP('ULTCOT1','ULTCOT1','DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE ULTCOT2
ZAP
USE

ORDENAP('ULTCOT2','ULTCOT2','DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE ULTCOT3
ZAP
USE

ORDENAP('ULTCOT3','ULTCOT3','DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE ULTCOT4
ZAP
USE

ORDENAP('ULTCOT4','ULTCOT4','DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE ULTCOT5
ZAP
USE

ORDENAP('ULTCOT5','ULTCOT5','DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE ULTCOT6
ZAP
USE

ORDENAP('ULTCOT6','ULTCOT6','DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE ULTCOT7
ZAP
USE

ORDENAP('ULTCOT7','ULTCOT7','DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE ULTCOT8
ZAP
USE

ORDENAP('ULTCOT8','ULTCOT8','DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE ULTCOT9
ZAP
USE

ORDENAP('ULTCOT9','ULTCOT9','DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

USE ULTCOT0
ZAP
USE

ORDENAP('ULTCOT0','ULTCOT0','DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2))',Q,T)

*

USE HCOTA1
ZAP
USE

ORDENAP('HCOTA1','HCOTA1','HISTORI',Q,T)

USE HCOTA2
ZAP
USE

ORDENAP('HCOTA2','HCOTA2','HISTORI',Q,T)

USE HCOTA3
ZAP
USE

ORDENAP('HCOTA3','HCOTA3','HISTORI',Q,T)

USE HCOTA4
ZAP
USE

ORDENAP('HCOTA4','HCOTA4','HISTORI',Q,T)

USE HCOTA5
ZAP
USE

ORDENAP('HCOTA5','HCOTA5','HISTORI',Q,T)

USE HCOTA6
ZAP
USE

ORDENAP('HCOTA6','HCOTA6','HISTORI',Q,T)

USE HCOTA7
ZAP
USE

ORDENAP('HCOTA7','HCOTA7','HISTORI',Q,T)

USE HCOTA8
ZAP
USE

ORDENAP('HCOTA8','HCOTA8','HISTORI',Q,T)

USE HCOTA9
ZAP
USE

ORDENAP('HCOTA9','HCOTA9','HISTORI',Q,T)

USE HCOTA0
ZAP
USE

ORDENAP('HCOTA0','HCOTA0','HISTORI',Q,T)

USE ULTNOTA1
ZAP
USE

ORDENAP('ULTNOTA1','ULTNOTA1','DESCEND(DTEM)',Q,T)

USE ULTNOTA2
ZAP
USE

ORDENAP('ULTNOTA2','ULTNOTA2','DESCEND(DTEM)',Q,T)

USE ULTNOTA3
ZAP
USE

ORDENAP('ULTNOTA3','ULTNOTA3','DESCEND(DTEM)',Q,T)

USE ULTNOTA4 
ZAP
USE

ORDENAP('ULTNOTA4','ULTNOTA4','DESCEND(DTEM)',Q,T)

USE ULTNOTA5
ZAP
USE

ORDENAP('ULTNOTA5','ULTNOTA5','DESCEND(DTEM)',Q,T)

USE ULTNOTA6
ZAP
USE

ORDENAP('ULTNOTA6','ULTNOTA6','DESCEND(DTEM)',Q,T)

USE ULTNOTA7
ZAP
USE

ORDENAP('ULTNOTA7','ULTNOTA7','DESCEND(DTEM)',Q,T)

USE ULTNOTA8
ZAP
USE

ORDENAP('ULTNOTA8','ULTNOTA8','DESCEND(DTEM)',Q,T)

USE ULTNOTA9
ZAP
USE

ORDENAP('ULTNOTA9','ULTNOTA9','DESCEND(DTEM)',Q,T)

USE ULTNOTA0
ZAP
USE

ORDENAP('ULTNOTA0','ULTNOTA0','DESCEND(DTEM)',Q,T)

*

USE COTA EXCLUSIVE
INDEX ON CODCF + DESCEND(STRZERO(YEAR(DTEM),4)+STRZERO(MONT(DTEM),2)+STRZERO(DAY(DTEM),2)) TO TCOTA
CLOSE ALL


FUNCTION ORDENAP
PARA ARQUIVO, INDICE, CHAVE, QUAL, QUANTOS

Q = Q + 1

CLOSE ALL
USE &ARQUIVO
METERBOX(10,'&INDICE')
PACK

CLOSE ALL
USE &ARQUIVO
INDEX ON NTXMETER (&CHAVE,10) TO &INDICE

FUNCTION ORDENA
PARA ARQUIVO, INDICE, CHAVE, QUAL, QUANTOS

Q = Q + 1

CLOSE ALL
USE &ARQUIVO
METERBOX(10,'&INDICE')

CLOSE ALL
USE &ARQUIVO
INDEX ON NTXMETER (&CHAVE,10) TO &INDICE


**************************************************************


FUNCTION ORDENAD
PARA ARQUIVO, INDICE, CHAVE

CLOSE ALL
USE &ARQUIVO
METERBOX(10,'&INDICE')
PACK
INDEX ON DESCEND ( NTXMETER (&CHAVE,10) ) TO &INDICE


FUNCTION ntxmeter
PARAMETERS keyer,_meterline
PRIVATE keyer,_meterline,_percent

SET Cursor OFF

* increment in tens or 100s

inc = IIF(RECCOUNT() < 100,10,100)

IF .NOT. EOF()
   IF (EMPTY(INDEXKEY(Indexord()))) .AND. (EMPTY(INDEXKEY(1)))
      IF RECNO()%inc = 0 .OR. (LASTREC() - RECNO()) < inc
        * numeric counter number

        set color to w+/b
        @ 10,32 SAY STR(RECNO(),LEN(LTRIM(STR(Lastrec()))))

        * moving meter bar routine
        _percent = RECNO()/Lastrec()*78
        @ 10,47 SAY trans((_percent+22),'###.##')+' %        ' + STRZERO(Q,3)+' / '+STRZERO(QUANTOS,3)

        set color to g,g
        @ 16,01 SAY REPLICATE('Û',_percent)
        set color to

      ENDIF
   ENDIF
ENDIF

RETURN keyer

FUNCTION meterbox
PARAMETERS boxline,indexnum
PRIVATE boxline,length

set color to gr+,gr+

@ 16,01 SAY REPLICATE(chr(178),78)
length = LEN(LTRIM(STR(Lastrec())))

SET COLOR TO W+/B

@ 08,01 clea to 14,78 
@ 08,01 to 14,78 doub

LINE = 'Registros Indexados : '+SPACE(length)+'/'+LTRIM(STR(Lastrec()))
@ 10,10 SAY LINE

LINE = 'Indexando Indice    : '+indexnum
@ 11,10 SAY LINE

line = 'Arquivo             : '+DBF()+space(2)
@ 12,10 SAY line

SET COLOR TO

RETURN ''
*
O erro acontece quando vai indexar o SCDB.DBF

Obrigado...

Enviado: 26 Jan 2006 13:59
por C Leonam
Tente o seguinte:

Após a linha

"CLOSE ALL"

que fica logo após o

"USE COTA EXCLUSIVE"

acresente um

"RETURN"

e no final das funções ORDENA, ORDENAP e ORDENAD coloque:
"RETURN NIL"

E veja se resolve.

:xau
Todos os horários são UTC-03:00
Página 1 de 1

Powered by phpBB® Forum Software © phpBB Limited

Traduzido por: Suporte phpBB