Jump to content
Fivewin Brasil

Problemas com CDX no ListBox

jdmoura

By jdmoura
in Programação

 Share

Recommended Posts

jdmoura Newbie

jdmoura

Posted
Posted

Ola Pessoal!

Eu estou com uns probleminhas que não consigo resolver sozinho.

1) quando eu uso o CDX no listbox sem excluir algum registro ele funciona muito bem, mas quando eu deleto algum registro ele fica doidão.

2) Eu aproveitei uma função de consulta do forum e fiz algumas performace porém no NTX ela funciona legar mas no ndx da pau.

Exemplo:

dbSelectArea(0)

SELE 1

IF !ABREARQ('VEICULOS',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to PLA_VEI,DOC_VEI,NOME_VEI,FANT_VEI

set Inde to vei1

else

msginfo(OemToAnsi('Arquivo nÆo Dispon¡vel (Veiculos)'),OemToAnsi('Aten‡Æo'))

close all

return nil

endif

SELE 2

IF !ABREARQ('CLIENTES',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to Alf_CLI,COD_CLI,CPF_CLI,FAN_CLI

set Inde to cli1

else

msginfo('Arquivo não Disponível (Clientes)','Atenção')

close all

return nil

endif

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

function PESQCLIVE && Pesquisa de Clientes

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

LOCAL oRadioButtons

LOCAL nOrden:=2

SELE 2

SET ORDER TO TAG ALF_CLI

_Nome:=Space(40)

DEFINE DIALOG oDlg FROM 3, 3 TO 22, 80 TITLE "Pesquisa de Clientes"

@ 1, 1 SAY "Ordenar por:"

@ 3, 1 LISTBOX oLbx FIELDS Codigo,Nome,Telefone1 HEADERS "Codigo", "Nome", "Fone" FIELDSIZES 90, 300, 30 SIZE 291, 74;

ON LEFT DBLCLICK (EditCl(oLbx, .F. ),oDlg:End())

@ 1, 7 RADIO oRadioButtons VAR nOrden PROMPT OemToAnsi("&Codigo"), "&Nome " ; // Duas opcoes em Radio botoes

OF oDlg ON CHANGE OrdenVei(nOrden,oLbx) // Ao Selecionar uma upcao executar  a fun‡ao

@ 125,150 Say "Buscar por:" OF oDlg Pixel Size 040,012

@ 122,188 Get oNome VAR _Nome Picture "@!K" Of oDLG Pixel Size 100,012 ;

on Change(ConteudoVei(oNome,nKey,oDlg))

ACTIVATE DIALOG oDlg CENTERED

sele 1

SET ORDER TO TAG PLA_VEI

Return .t.

**---------------------------------------------**

Static Function ConteudoVei(oGetP,xKey,oDlgg)

**---------------------------------------------**

Local RetornoChave:=""

BuscaArqVe(oGetP,xKey,oDlgg,@RetornoChave)

CLIENTES->(dbSeek(AllTrim(RetornoChave)))

oLbx:Refresh()

Return(.t.)

**---------------------------------------------**

STATIC FUNCTION OrdenVei(nOrden,oLbx)

**---------------------------------------------**

IF nOrden=1

SET ORDER TO TAG COD_CLI

ELSE

SET ORDER TO TAG ALF_CLI

ENDIF

oLbx : Refresh()

RETURN NIL

**----------------------------------------------------**

Function BuscaArqVe(oGetP,xKey,oDlgg,RetornoChave)

**----------------------------------------------------**

Local cChave:=(oGetP:oGet:Buffer),nPosAnt:=Recno()

If (xKey!=7 .and.xKey !=8)

cChave:=Stuff(cChave,oGetP:nPos,If(Set(_SET_INSERT),0,1),Upper(Chr(xKey)))

Endif

RetornoChave:=cChave

Return(RetornoChave)

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

function EditCL(oLbx, lAppend)

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

SELE 2

*SET ORDER TO ALF_CLI

MNOMCLI := LEFT(NOME,40)

oNomcli :VARPUT(MNOMCLI)

oNomcli :REFRESH()

MFANTCLI:= NOMEFAN

oFantCli:VARPUT(MFANTCLI)

oFantcli:REFRESH()

IF CPF<> SPACE(14)

MDOCUMEN:= CPF

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ELSE

MDOCUMEN:= CGC

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ENDIF

Return .t.

Alguém pode me dar uma ajudinha por favor.

Um clipperAbraço

jdmoura

Jdemourasilva@yahoo.com.br

Link to comment
Share on other sites
  • Replies 102
  • Created
  • Last Reply

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

jdmoura Newbie

jdmoura

Posted
  • Author
Posted

Ola Pessoal!

Eu estou com uns probleminhas que não consigo resolver sozinho.

1) quando eu uso o CDX no listbox sem excluir algum registro ele funciona muito bem, mas quando eu deleto algum registro ele fica doidão.

2) Eu aproveitei uma função de consulta do forum e fiz algumas performace porém no NTX ela funciona legar mas no ndx da pau.

Exemplo:

dbSelectArea(0)

SELE 1

IF !ABREARQ('VEICULOS',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to PLA_VEI,DOC_VEI,NOME_VEI,FANT_VEI

set Inde to vei1

else

msginfo(OemToAnsi('Arquivo nÆo Dispon¡vel (Veiculos)'),OemToAnsi('Aten‡Æo'))

close all

return nil

endif

SELE 2

IF !ABREARQ('CLIENTES',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to Alf_CLI,COD_CLI,CPF_CLI,FAN_CLI

set Inde to cli1

else

msginfo('Arquivo não Disponível (Clientes)','Atenção')

close all

return nil

endif

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

function PESQCLIVE && Pesquisa de Clientes

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

LOCAL oRadioButtons

LOCAL nOrden:=2

SELE 2

SET ORDER TO TAG ALF_CLI

_Nome:=Space(40)

DEFINE DIALOG oDlg FROM 3, 3 TO 22, 80 TITLE "Pesquisa de Clientes"

@ 1, 1 SAY "Ordenar por:"

@ 3, 1 LISTBOX oLbx FIELDS Codigo,Nome,Telefone1 HEADERS "Codigo", "Nome", "Fone" FIELDSIZES 90, 300, 30 SIZE 291, 74;

ON LEFT DBLCLICK (EditCl(oLbx, .F. ),oDlg:End())

@ 1, 7 RADIO oRadioButtons VAR nOrden PROMPT OemToAnsi("&Codigo"), "&Nome " ; // Duas opcoes em Radio botoes

OF oDlg ON CHANGE OrdenVei(nOrden,oLbx) // Ao Selecionar uma upcao executar  a fun‡ao

@ 125,150 Say "Buscar por:" OF oDlg Pixel Size 040,012

@ 122,188 Get oNome VAR _Nome Picture "@!K" Of oDLG Pixel Size 100,012 ;

on Change(ConteudoVei(oNome,nKey,oDlg))

ACTIVATE DIALOG oDlg CENTERED

sele 1

SET ORDER TO TAG PLA_VEI

Return .t.

**---------------------------------------------**

Static Function ConteudoVei(oGetP,xKey,oDlgg)

**---------------------------------------------**

Local RetornoChave:=""

BuscaArqVe(oGetP,xKey,oDlgg,@RetornoChave)

CLIENTES->(dbSeek(AllTrim(RetornoChave)))

oLbx:Refresh()

Return(.t.)

**---------------------------------------------**

STATIC FUNCTION OrdenVei(nOrden,oLbx)

**---------------------------------------------**

IF nOrden=1

SET ORDER TO TAG COD_CLI

ELSE

SET ORDER TO TAG ALF_CLI

ENDIF

oLbx : Refresh()

RETURN NIL

**----------------------------------------------------**

Function BuscaArqVe(oGetP,xKey,oDlgg,RetornoChave)

**----------------------------------------------------**

Local cChave:=(oGetP:oGet:Buffer),nPosAnt:=Recno()

If (xKey!=7 .and.xKey !=8)

cChave:=Stuff(cChave,oGetP:nPos,If(Set(_SET_INSERT),0,1),Upper(Chr(xKey)))

Endif

RetornoChave:=cChave

Return(RetornoChave)

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

function EditCL(oLbx, lAppend)

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

SELE 2

*SET ORDER TO ALF_CLI

MNOMCLI := LEFT(NOME,40)

oNomcli :VARPUT(MNOMCLI)

oNomcli :REFRESH()

MFANTCLI:= NOMEFAN

oFantCli:VARPUT(MFANTCLI)

oFantcli:REFRESH()

IF CPF<> SPACE(14)

MDOCUMEN:= CPF

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ELSE

MDOCUMEN:= CGC

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ENDIF

Return .t.

Alguém pode me dar uma ajudinha por favor.

Um clipperAbraço

jdmoura

Jdemourasilva@yahoo.com.br

Link to comment
Share on other sites
jdmoura Newbie

jdmoura

Posted
  • Author
Posted

Ola Pessoal!

Eu estou com uns probleminhas que não consigo resolver sozinho.

1) quando eu uso o CDX no listbox sem excluir algum registro ele funciona muito bem, mas quando eu deleto algum registro ele fica doidão.

2) Eu aproveitei uma função de consulta do forum e fiz algumas performace porém no NTX ela funciona legar mas no ndx da pau.

Exemplo:

dbSelectArea(0)

SELE 1

IF !ABREARQ('VEICULOS',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to PLA_VEI,DOC_VEI,NOME_VEI,FANT_VEI

set Inde to vei1

else

msginfo(OemToAnsi('Arquivo nÆo Dispon¡vel (Veiculos)'),OemToAnsi('Aten‡Æo'))

close all

return nil

endif

SELE 2

IF !ABREARQ('CLIENTES',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to Alf_CLI,COD_CLI,CPF_CLI,FAN_CLI

set Inde to cli1

else

msginfo('Arquivo não Disponível (Clientes)','Atenção')

close all

return nil

endif

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

function PESQCLIVE && Pesquisa de Clientes

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

LOCAL oRadioButtons

LOCAL nOrden:=2

SELE 2

SET ORDER TO TAG ALF_CLI

_Nome:=Space(40)

DEFINE DIALOG oDlg FROM 3, 3 TO 22, 80 TITLE "Pesquisa de Clientes"

@ 1, 1 SAY "Ordenar por:"

@ 3, 1 LISTBOX oLbx FIELDS Codigo,Nome,Telefone1 HEADERS "Codigo", "Nome", "Fone" FIELDSIZES 90, 300, 30 SIZE 291, 74;

ON LEFT DBLCLICK (EditCl(oLbx, .F. ),oDlg:End())

@ 1, 7 RADIO oRadioButtons VAR nOrden PROMPT OemToAnsi("&Codigo"), "&Nome " ; // Duas opcoes em Radio botoes

OF oDlg ON CHANGE OrdenVei(nOrden,oLbx) // Ao Selecionar uma upcao executar  a fun‡ao

@ 125,150 Say "Buscar por:" OF oDlg Pixel Size 040,012

@ 122,188 Get oNome VAR _Nome Picture "@!K" Of oDLG Pixel Size 100,012 ;

on Change(ConteudoVei(oNome,nKey,oDlg))

ACTIVATE DIALOG oDlg CENTERED

sele 1

SET ORDER TO TAG PLA_VEI

Return .t.

**---------------------------------------------**

Static Function ConteudoVei(oGetP,xKey,oDlgg)

**---------------------------------------------**

Local RetornoChave:=""

BuscaArqVe(oGetP,xKey,oDlgg,@RetornoChave)

CLIENTES->(dbSeek(AllTrim(RetornoChave)))

oLbx:Refresh()

Return(.t.)

**---------------------------------------------**

STATIC FUNCTION OrdenVei(nOrden,oLbx)

**---------------------------------------------**

IF nOrden=1

SET ORDER TO TAG COD_CLI

ELSE

SET ORDER TO TAG ALF_CLI

ENDIF

oLbx : Refresh()

RETURN NIL

**----------------------------------------------------**

Function BuscaArqVe(oGetP,xKey,oDlgg,RetornoChave)

**----------------------------------------------------**

Local cChave:=(oGetP:oGet:Buffer),nPosAnt:=Recno()

If (xKey!=7 .and.xKey !=8)

cChave:=Stuff(cChave,oGetP:nPos,If(Set(_SET_INSERT),0,1),Upper(Chr(xKey)))

Endif

RetornoChave:=cChave

Return(RetornoChave)

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

function EditCL(oLbx, lAppend)

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

SELE 2

*SET ORDER TO ALF_CLI

MNOMCLI := LEFT(NOME,40)

oNomcli :VARPUT(MNOMCLI)

oNomcli :REFRESH()

MFANTCLI:= NOMEFAN

oFantCli:VARPUT(MFANTCLI)

oFantcli:REFRESH()

IF CPF<> SPACE(14)

MDOCUMEN:= CPF

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ELSE

MDOCUMEN:= CGC

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ENDIF

Return .t.

Alguém pode me dar uma ajudinha por favor.

Um clipperAbraço

jdmoura

Jdemourasilva@yahoo.com.br

Link to comment
Share on other sites
jdmoura Newbie

jdmoura

Posted
  • Author
Posted

Ola Pessoal!

Eu estou com uns probleminhas que não consigo resolver sozinho.

1) quando eu uso o CDX no listbox sem excluir algum registro ele funciona muito bem, mas quando eu deleto algum registro ele fica doidão.

2) Eu aproveitei uma função de consulta do forum e fiz algumas performace porém no NTX ela funciona legar mas no ndx da pau.

Exemplo:

dbSelectArea(0)

SELE 1

IF !ABREARQ('VEICULOS',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to PLA_VEI,DOC_VEI,NOME_VEI,FANT_VEI

set Inde to vei1

else

msginfo(OemToAnsi('Arquivo nÆo Dispon¡vel (Veiculos)'),OemToAnsi('Aten‡Æo'))

close all

return nil

endif

SELE 2

IF !ABREARQ('CLIENTES',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to Alf_CLI,COD_CLI,CPF_CLI,FAN_CLI

set Inde to cli1

else

msginfo('Arquivo não Disponível (Clientes)','Atenção')

close all

return nil

endif

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

function PESQCLIVE && Pesquisa de Clientes

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

LOCAL oRadioButtons

LOCAL nOrden:=2

SELE 2

SET ORDER TO TAG ALF_CLI

_Nome:=Space(40)

DEFINE DIALOG oDlg FROM 3, 3 TO 22, 80 TITLE "Pesquisa de Clientes"

@ 1, 1 SAY "Ordenar por:"

@ 3, 1 LISTBOX oLbx FIELDS Codigo,Nome,Telefone1 HEADERS "Codigo", "Nome", "Fone" FIELDSIZES 90, 300, 30 SIZE 291, 74;

ON LEFT DBLCLICK (EditCl(oLbx, .F. ),oDlg:End())

@ 1, 7 RADIO oRadioButtons VAR nOrden PROMPT OemToAnsi("&Codigo"), "&Nome " ; // Duas opcoes em Radio botoes

OF oDlg ON CHANGE OrdenVei(nOrden,oLbx) // Ao Selecionar uma upcao executar a fun‡ao

@ 125,150 Say "Buscar por:" OF oDlg Pixel Size 040,012

@ 122,188 Get oNome VAR _Nome Picture "@!K" Of oDLG Pixel Size 100,012 ;

on Change(ConteudoVei(oNome,nKey,oDlg))

ACTIVATE DIALOG oDlg CENTERED

sele 1

SET ORDER TO TAG PLA_VEI

Return .t.

**---------------------------------------------**

Static Function ConteudoVei(oGetP,xKey,oDlgg)

**---------------------------------------------**

Local RetornoChave:=""

BuscaArqVe(oGetP,xKey,oDlgg,@RetornoChave)

CLIENTES->(dbSeek(AllTrim(RetornoChave)))

oLbx:Refresh()

Return(.t.)

**---------------------------------------------**

STATIC FUNCTION OrdenVei(nOrden,oLbx)

**---------------------------------------------**

IF nOrden=1

SET ORDER TO TAG COD_CLI

ELSE

SET ORDER TO TAG ALF_CLI

ENDIF

oLbx : Refresh()

RETURN NIL

**----------------------------------------------------**

Function BuscaArqVe(oGetP,xKey,oDlgg,RetornoChave)

**----------------------------------------------------**

Local cChave:=(oGetP:oGet:Buffer),nPosAnt:=Recno()

If (xKey!=7 .and.xKey !=8)

cChave:=Stuff(cChave,oGetP:nPos,If(Set(_SET_INSERT),0,1),Upper(Chr(xKey)))

Endif

RetornoChave:=cChave

Return(RetornoChave)

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

function EditCL(oLbx, lAppend)

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

SELE 2

*SET ORDER TO ALF_CLI

MNOMCLI := LEFT(NOME,40)

oNomcli :VARPUT(MNOMCLI)

oNomcli :REFRESH()

MFANTCLI:= NOMEFAN

oFantCli:VARPUT(MFANTCLI)

oFantcli:REFRESH()

IF CPF<> SPACE(14)

MDOCUMEN:= CPF

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ELSE

MDOCUMEN:= CGC

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ENDIF

Return .t.

Alguém pode me dar uma ajudinha por favor.

Um clipperAbraço

jdmoura

Jdemourasilva@yahoo.com.br

Link to comment
Share on other sites
pauloaraujo Newbie

pauloaraujo

Posted
Posted

Jdmoura, tudo bem.

Você não falou nada de erro no início. Falou que o Listbox ficava "doidão". Entendí que não estava remontando após a exclusão.

Verifique em que linha do prg está dando. Mostre o erro e o que tem nessa linha.

Aliás, quando for assim, mostre logo de cara o erro.

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005

Inscreva-se: http://www.installsis.com.br/encontro

Link to comment
Share on other sites
jdmoura Newbie

jdmoura

Posted
  • Author
Posted

Ola Paulo!

A sua dica sobreo listbox doidão deu certo pois agora quando eu delete algum registro ele não fica mais doidão.

Porém quando eu clico na opção de "BUSCAR POR:", e digito qualquer nome o erro acontece, mas somento usando o CDX, com o NTX não ocorre esse erro, como eu passei meu sistema para CDX eu estou precisando solucionar esse erro.

Abaixo segue a rotina de pesquisa com o listbox, a linha entre os asterísticos é a que dá o erro.

SELE 1

IF !ABREARQ('VEICULOS',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to PLA_VEI,DOC_VEI,NOME_VEI,FANT_VEI

set Inde to vei1

else

msginfo(OemToAnsi('Arquivo nÆo Dispon¡vel (Veiculos)'),OemToAnsi('Aten‡Æo'))

close all

return nil

endif

SELE 2

IF !ABREARQ('CLIENTES',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to Alf_CLI,COD_CLI,CPF_CLI,FAN_CLI

set Inde to cli1

else

msginfo('Arquivo não Disponível (Clientes)','Atenção')

close all

return nil

endif

//

//function PESQCLIVE && Pesquisa de Clientes

//

LOCAL oRadioButtons

LOCAL nOrden:=2

SELE 2

SET ORDER TO TAG ALF_CLI

_Nome:=Space(40)

DEFINE DIALOG oDlg FROM 3, 3 TO 22, 80 TITLE "Pesquisa de Clientes"

@ 1, 1 SAY "Ordenar por:"

@ 3, 1 LISTBOX oLbx FIELDS Codigo,Nome,Telefone1 HEADERS "Codigo", "Nome", "Fone" FIELDSIZES 90, 300, 30 SIZE 291, 74;

ON LEFT DBLCLICK (EditCl(oLbx, .F. ),oDlg:End())

@ 1, 7 RADIO oRadioButtons VAR nOrden PROMPT OemToAnsi("&Codigo"), "&Nome " ; // Duas opcoes em Radio botoes

OF oDlg ON CHANGE OrdenVei(nOrden,oLbx) // Ao Selecionar uma upcao executar a fun‡ao

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

@ 125,150 Say "Buscar por:" OF oDlg Pixel Size 040,012

@ 122,188 Get oNome VAR _Nome Picture "@!K" Of oDLG Pixel Size 100,012 ;

on Change(ConteudoVei(oNome,nKey,oDlg))

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

ACTIVATE DIALOG oDlg CENTERED

sele 1

SET ORDER TO TAG PLA_VEI

Return .t.

**---------------------------------------------**

Static Function ConteudoVei(oGetP,xKey,oDlgg)

**---------------------------------------------**

Local RetornoChave:=""

BuscaArqVe(oGetP,xKey,oDlgg,@RetornoChave)

CLIENTES->(dbSeek(AllTrim(RetornoChave)))

oLbx:Refresh()

Return(.t.)

**---------------------------------------------**

STATIC FUNCTION OrdenVei(nOrden,oLbx)

**---------------------------------------------**

IF nOrden=1

SET ORDER TO TAG COD_CLI

ELSE

SET ORDER TO TAG ALF_CLI

ENDIF

oLbx : Refresh()

RETURN NIL

**----------------------------------------------------**

Function BuscaArqVe(oGetP,xKey,oDlgg,RetornoChave)

**----------------------------------------------------**

Local cChave:=(oGetP:oGet:Buffer),nPosAnt:=Recno()

If (xKey!=7 .and.xKey !=8)

cChave:=Stuff(cChave,oGetP:nPos,If(Set(_SET_INSERT),0,1),Upper(Chr(xKey)))

Endif

RetornoChave:=cChave

Return(RetornoChave)

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

function EditCL(oLbx, lAppend)

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

SELE 2

*SET ORDER TO ALF_CLI

MNOMCLI := LEFT(NOME,40)

oNomcli :VARPUT(MNOMCLI)

oNomcli :REFRESH()

MFANTCLI:= NOMEFAN

oFantCli:VARPUT(MFANTCLI)

oFantcli:REFRESH()

IF CPF<> SPACE(14)

MDOCUMEN:= CPF

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ELSE

MDOCUMEN:= CGC

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ENDIF

Return .t.

Um clipperAbraço

jdmoura

Jdemourasilva@yahoo.com.br

Link to comment
Share on other sites
pauloaraujo Newbie

pauloaraujo

Posted
Posted

JdMoura, tudo bem???

Você "MATOU" os NTX antigos???

Rapaz, eu já perguntei, o Alessandro também, e você não mostra QUAL A MENSAGEM DE ERRO QUE ESTà DANDO

Ajudando você eu ultrapasso o Kapiaba em número de mensagens rapidinho HAHAHAHAHAHAHA

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005

Inscreva-se: http://www.installsis.com.br/encontro

Editado por - pauloaraujo on 05/11/2005 10:24:02

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

HEHEHEHE.

O BANCO DE DADOS, ESTÃ SENDO ABERTO EM MODO COMPARTILHADO??

ESSE .F. ME CHEIROU ESTRANHO.

PAULO ARAUJO... PARA ME 'BATER' TERÃS QUE COMER MUITA 'FARINHA'. INSUPERÃVEL, é o . hehehehehe.

RESPONDA A PERGUNTA.

TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Bad Boy - São Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Editado por - kapiaba on 05/11/2005 10:31:18

Link to comment
Share on other sites
pauloaraujo Newbie

pauloaraujo

Posted
Posted

citação:

HEHEHEHE.

O BANCO DE DADOS, ESTÃ SENDO ABERTO EM MODO COMPARTILHADO??

ESSE .F. ME CHEIROU ESTRANHO.

PAULO ARAUJO... PARA ME 'BATER' TERÃS QUE COMER MUITA 'FARINHA'. INSUPERÃVEL, é o . hehehehehe.

RESPONDA A PERGUNTA.

TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Bad Boy - São Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Editado por - kapiaba on 05/11/2005 10:31:18

id=quote>id=quote>

Agora é que não consigo mesmo, com você trabalhando também no sábado.

Brincadeirinha. Nunca tive essa pretensão. Agora, mexe com quem tá quieto. Aliás, te conheço???

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005

Inscreva-se: http://www.installsis.com.br/encontro

Link to comment
Share on other sites
personal Newbie

personal

Posted
Posted

1) quando eu uso o CDXid=red> no listbox sem excluir algum registro ele funciona muito bem, mas quando eu deleto algum registro ele fica doidão.

2) Eu aproveitei uma função de consulta do forum e fiz algumas performace porém no NTX ela funciona legar mas no ndxid=red> da pau.

Exemplo:

dbSelectArea(0)

SELE 1 id=red>

To maluco, ou eu li isto mesmo.

Agora, eu se fosse voce, dava uma reavaliada na forma de

abrir arquivos.

1- CDX pode se usar somente um indice

Exemplo

Use Arquivo

Index on codigo TAG "codigo" to indice

Index on descri TAG "descri" to indice

assim por diante

dbSelectAea(0)

Use arquivo Index indce Alias Seu_arq

id=size5>id=size6>id='Courier New'>

rodape_fw.jpg

Link to comment
Share on other sites
vagner Newbie

vagner

Posted
Posted

citação:

1- CDX pode se usar somente um indice

Exemplo

Use Arquivo

Index on codigo TAG "codigo" to indice

Index on descri TAG "descri" to indice

assim por diante

dbSelectAea(0)

Use arquivo Index indce Alias Seu_arq

id=quote>id=quote>

Olá,

Desculpe eu discordar, mas vc pode usar com vários índices também que funciona icon_smile_big.gif

Use arquivo New Excl Alias Arquivo

Index on codigo TAG "codigo" to indice1

Index on descri TAG "descri" to indice2

Use Arquivo New Share Alias Arquivo

Set Inde To Indice1,Indice2......

Vagner Wirts

Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 icon_smile_big.gif

Link to comment
Share on other sites
jdmoura Newbie

jdmoura

Posted
  • Author
Posted

Ola Pessoal

A mensagem de erro é essa:

Ocorreu um erro no aplicativo se escolher ignorar... se escolher fechar o aplicativo será finalizado.

fivewin foi causado um falha de proteção geral em modulo .exe em 000D B9C7

Não entendo com NTX ela funciona legar mas no ndx esse tipo de erro.

Abaixo segue a minha função aonde eu coloque entre parenteses esta o erro.

SELE 1

IF !ABREARQ('VEICULOS',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to PLA_VEI,DOC_VEI,NOME_VEI,FANT_VEI

set Inde to vei1

else

msginfo(OemToAnsi('Arquivo nÆo Dispon¡vel (Veiculos)'),OemToAnsi('Aten‡Æo'))

close all

return nil

endif

SELE 2

IF !ABREARQ('CLIENTES',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to Alf_CLI,COD_CLI,CPF_CLI,FAN_CLI

set Inde to cli1

else

msginfo('Arquivo não Disponível (Clientes)','Atenção')

close all

return nil

endif

//

function PESQCLIVE && Pesquisa de Clientes

//

LOCAL oRadioButtons

LOCAL nOrden:=2

SELE 2

SET ORDER TO TAG ALF_CLI

_Nome:=Space(40)

DEFINE DIALOG oDlg FROM 3, 3 TO 22, 80 TITLE "Pesquisa de Clientes"

@ 1, 1 SAY "Ordenar por:"

@ 3, 1 LISTBOX oLbx FIELDS Codigo,Nome,Telefone1 HEADERS "Codigo", "Nome", "Fone" FIELDSIZES 90, 300, 30 SIZE 291, 74;

ON LEFT DBLCLICK (EditCl(oLbx, .F. ),oDlg:End())

@ 1, 7 RADIO oRadioButtons VAR nOrden PROMPT OemToAnsi("&Codigo"), "&Nome " ; // Duas opcoes em Radio botoes

OF oDlg ON CHANGE OrdenVei(nOrden,oLbx) // Ao Selecionar uma upcao executar a fun‡ao

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

@ 125,150 Say "Buscar por:" OF oDlg Pixel Size 040,012

@ 122,188 Get oNome VAR _Nome Picture "@!K" Of oDLG Pixel Size 100,012 ;

on Change(ConteudoVei(oNome,nKey,oDlg))

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

ACTIVATE DIALOG oDlg CENTERED

sele 1

SET ORDER TO TAG PLA_VEI

Return .t.

**---------------------------------------------**

Static Function ConteudoVei(oGetP,xKey,oDlgg)

**---------------------------------------------**

Local RetornoChave:=""

BuscaArqVe(oGetP,xKey,oDlgg,@RetornoChave)

CLIENTES->(dbSeek(AllTrim(RetornoChave)))

oLbx:Refresh()

Return(.t.)

**---------------------------------------------**

STATIC FUNCTION OrdenVei(nOrden,oLbx)

**---------------------------------------------**

IF nOrden=1

SET ORDER TO TAG COD_CLI

ELSE

SET ORDER TO TAG ALF_CLI

ENDIF

oLbx : Refresh()

RETURN NIL

**----------------------------------------------------**

Function BuscaArqVe(oGetP,xKey,oDlgg,RetornoChave)

**----------------------------------------------------**

Local cChave:=(oGetP:oGet:Buffer),nPosAnt:=Recno()

If (xKey!=7 .and.xKey !=8)

cChave:=Stuff(cChave,oGetP:nPos,If(Set(_SET_INSERT),0,1),Upper(Chr(xKey)))

Endif

RetornoChave:=cChave

Return(RetornoChave)

*-----------

function EditCL(oLbx, lAppend)

*------------

SELE 2

*SET ORDER TO ALF_CLI

MNOMCLI := LEFT(NOME,40)

oNomcli :VARPUT(MNOMCLI)

oNomcli :REFRESH()

MFANTCLI:= NOMEFAN

oFantCli:VARPUT(MFANTCLI)

oFantcli:REFRESH()

IF CPF<> SPACE(14)

MDOCUMEN:= CPF

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ELSE

MDOCUMEN:= CGC

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ENDIF

Return .t.

Por favor alguém me ajude

Um clipperAbraço

jdmoura

Jdemourasilva@yahoo.com.br

Link to comment
Share on other sites
pauloaraujo Newbie

pauloaraujo

Posted
Posted

citação:

Ola Pessoal

A mensagem de erro é essa:

Ocorreu um erro no aplicativo se escolher ignorar... se escolher fechar o aplicativo será finalizado.

fivewin foi causado um falha de proteção geral em modulo .exe em 000D B9C7

Não entendo com NTX ela funciona legar mas no ndx esse tipo de erro.

Abaixo segue a minha função aonde eu coloque entre parenteses esta o erro.

SELE 1

IF !ABREARQ('VEICULOS',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to PLA_VEI,DOC_VEI,NOME_VEI,FANT_VEI

set Inde to vei1

else

msginfo(OemToAnsi('Arquivo nÆo Dispon¡vel (Veiculos)'),OemToAnsi('Aten‡Æo'))

close all

return nil

endif

SELE 2

IF !ABREARQ('CLIENTES',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to Alf_CLI,COD_CLI,CPF_CLI,FAN_CLI

set Inde to cli1

else

msginfo('Arquivo não Disponível (Clientes)','Atenção')

close all

return nil

endif

//

function PESQCLIVE && Pesquisa de Clientes

//

LOCAL oRadioButtons

LOCAL nOrden:=2

SELE 2

SET ORDER TO TAG ALF_CLI

_Nome:=Space(40)

DEFINE DIALOG oDlg FROM 3, 3 TO 22, 80 TITLE "Pesquisa de Clientes"

@ 1, 1 SAY "Ordenar por:"

@ 3, 1 LISTBOX oLbx FIELDS Codigo,Nome,Telefone1 HEADERS "Codigo", "Nome", "Fone" FIELDSIZES 90, 300, 30 SIZE 291, 74;

ON LEFT DBLCLICK (EditCl(oLbx, .F. ),oDlg:End())

@ 1, 7 RADIO oRadioButtons VAR nOrden PROMPT OemToAnsi("&Codigo"), "&Nome " ; // Duas opcoes em Radio botoes

OF oDlg ON CHANGE OrdenVei(nOrden,oLbx) // Ao Selecionar uma upcao executar a fun‡ao

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

@ 125,150 Say "Buscar por:" OF oDlg Pixel Size 040,012

@ 122,188 Get oNome VAR _Nome Picture "@!K" Of oDLG Pixel Size 100,012 ;

on Change(ConteudoVei(oNome,nKey,oDlg))

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

ACTIVATE DIALOG oDlg CENTERED

sele 1

SET ORDER TO TAG PLA_VEI

Return .t.

**---------------------------------------------**

Static Function ConteudoVei(oGetP,xKey,oDlgg)

**---------------------------------------------**

Local RetornoChave:=""

BuscaArqVe(oGetP,xKey,oDlgg,@RetornoChave)

CLIENTES->(dbSeek(AllTrim(RetornoChave)))

oLbx:Refresh()

Return(.t.)

**---------------------------------------------**

STATIC FUNCTION OrdenVei(nOrden,oLbx)

**---------------------------------------------**

IF nOrden=1

SET ORDER TO TAG COD_CLI

ELSE

SET ORDER TO TAG ALF_CLI

ENDIF

oLbx : Refresh()

RETURN NIL

**----------------------------------------------------**

Function BuscaArqVe(oGetP,xKey,oDlgg,RetornoChave)

**----------------------------------------------------**

Local cChave:=(oGetP:oGet:Buffer),nPosAnt:=Recno()

If (xKey!=7 .and.xKey !=8)

cChave:=Stuff(cChave,oGetP:nPos,If(Set(_SET_INSERT),0,1),Upper(Chr(xKey)))

Endif

RetornoChave:=cChave

Return(RetornoChave)

*-----------

function EditCL(oLbx, lAppend)

*------------

SELE 2

*SET ORDER TO ALF_CLI

MNOMCLI := LEFT(NOME,40)

oNomcli :VARPUT(MNOMCLI)

oNomcli :REFRESH()

MFANTCLI:= NOMEFAN

oFantCli:VARPUT(MFANTCLI)

oFantcli:REFRESH()

IF CPF<> SPACE(14)

MDOCUMEN:= CPF

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ELSE

MDOCUMEN:= CGC

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ENDIF

Return .t.

Por favor alguém me ajude

Um clipperAbraço

jdmoura

Jdemourasilva@yahoo.com.br

id=quote>id=quote>

Jdmoura, tudo bem??

Tá difícil meu amigo.

Você fala que o erro está "minha função aonde eu coloque entre parenteses esta o erro".

Meu. Fala sério. Têm mais de 50 coisas entre parênteses no que você mostrou. Custa colocar um "<<<<------- o erro está nesta linha" ??????????????

Já ví este erro dar em várias situações.

Agora só me lembro de 2:

. Algum caminho que não exista: TEMPPATH, SWAPPATH, SET TEMP, etc.

. DBFs danificados

Verifique se os caminhos existem no SET CLIPPER (se você ainda usa isso) e SET TEMP (autoexec ou no .BAT da chamada do EXE)

Agora, neste tópico, É A SEGUNDA VEZ QUE VOCÊ FALA EM "NDX". Isso é índice do Dbase. O que que está rolando??? É NDX MESMO QUE VOCÊ ESTà QUERENDO DIZER???

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005

Inscreva-se: http://www.installsis.com.br/encontro

Editado por - pauloaraujo on 08/11/2005 22:47:27

Link to comment
Share on other sites
jdmoura Newbie

jdmoura

Posted
  • Author
Posted

Ola Paulo Araujo!

Tudo bem vamos lá, o indice correto é CDX e o erro etá logo

abaixo:

Exemplo:

dbSelectArea(0)

SELE 1

IF !ABREARQ('VEICULOS',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to PLA_VEI,DOC_VEI,NOME_VEI,FANT_VEI

set Inde to vei1

else

msginfo(OemToAnsi('Arquivo nÆo Dispon¡vel (Veiculos)'),OemToAnsi('Aten‡Æo'))

close all

return nil

endif

SELE 2

IF !ABREARQ('CLIENTES',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to Alf_CLI,COD_CLI,CPF_CLI,FAN_CLI

set Inde to cli1

else

msginfo('Arquivo não Disponível (Clientes)','Atenção')

close all

return nil

endif

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

function PESQCLIVE && Pesquisa de Clientes

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

LOCAL oRadioButtons

LOCAL nOrden:=2

SELE 2

SET ORDER TO TAG ALF_CLI

_Nome:=Space(40)

DEFINE DIALOG oDlg FROM 3, 3 TO 22, 80 TITLE "Pesquisa de Clientes"

@ 1, 1 SAY "Ordenar por:"

@ 3, 1 LISTBOX oLbx FIELDS Codigo,Nome,Telefone1 HEADERS "Codigo", "Nome", "Fone" FIELDSIZES 90, 300, 30 SIZE 291, 74;

ON LEFT DBLCLICK (EditCl(oLbx, .F. ),oDlg:End())

@ 1, 7 RADIO oRadioButtons VAR nOrden PROMPT OemToAnsi("&Codigo"), "&Nome " ; // Duas opcoes em Radio botoes

OF oDlg ON CHANGE OrdenVei(nOrden,oLbx) // Ao Selecionar uma upcao executar a fun‡ao

************** O ERRO ESTà AQUI NESTE PEDAÇO **************

* POIS QUANDO EU DIGITO UM NOME PARA BUSCA-LO NO LISTBOX AI

* OCORRE O ERRO.

*

@ 125,150 Say "Buscar por:" OF oDlg Pixel Size 040,012

@ 122,188 Get oNome VAR _Nome Picture "@!K" Of oDLG Pixel Size 100,012 ;

on Change(ConteudoVei(oNome,nKey,oDlg))

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

ACTIVATE DIALOG oDlg CENTERED

sele 1

SET ORDER TO TAG PLA_VEI

Return .t.

**---------------------------------------------**

Static Function ConteudoVei(oGetP,xKey,oDlgg)

**---------------------------------------------**

Local RetornoChave:=""

BuscaArqVe(oGetP,xKey,oDlgg,@RetornoChave)

CLIENTES->(dbSeek(AllTrim(RetornoChave)))

oLbx:Refresh()

Return(.t.)

**---------------------------------------------**

STATIC FUNCTION OrdenVei(nOrden,oLbx)

**---------------------------------------------**

IF nOrden=1

SET ORDER TO TAG COD_CLI

ELSE

SET ORDER TO TAG ALF_CLI

ENDIF

oLbx : Refresh()

RETURN NIL

**----------------------------------------------------**

Function BuscaArqVe(oGetP,xKey,oDlgg,RetornoChave)

**----------------------------------------------------**

Local cChave:=(oGetP:oGet:Buffer),nPosAnt:=Recno()

If (xKey!=7 .and.xKey !=8)

cChave:=Stuff(cChave,oGetP:nPos,If(Set(_SET_INSERT),0,1),Upper(Chr(xKey)))

Endif

RetornoChave:=cChave

Return(RetornoChave)

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

function EditCL(oLbx, lAppend)

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

SELE 2

*SET ORDER TO ALF_CLI

MNOMCLI := LEFT(NOME,40)

oNomcli :VARPUT(MNOMCLI)

oNomcli :REFRESH()

MFANTCLI:= NOMEFAN

oFantCli:VARPUT(MFANTCLI)

oFantcli:REFRESH()

IF CPF<> SPACE(14)

MDOCUMEN:= CPF

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ELSE

MDOCUMEN:= CGC

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ENDIF

Return .t.

Um clipperAbraço

jdmoura

Jdemourasilva@yahoo.com.br

Link to comment
Share on other sites
pauloaraujo Newbie

pauloaraujo

Posted
Posted

JdMoura, tudo bem

Você usa SET CLIPPER em algum BAT da vida??

Se usa, verificou se as pastas indicadas no TEMPPATH e SWAPPATH existem??

Verificou no Autoexec se existem algum SET TEMP e se a pasta indicada existe??

Verificou se algum DBF desses está danificado??

Tente modificar aqui:

**---------------------------------------------**

Static Function ConteudoVei(oGetP,xKey,oDlgg)

**---------------------------------------------**

Local RetornoChave:=""

BuscaArqVe(oGetP,xKey,oDlgg,@RetornoChave)

SELE CLIENTES

SEEK RetornoChave SOFTSEEK

SELE VEICULOS

oLbx:UpStable()

oLbx:Setfocus()

oLbx:Refresh()

Return(.t.)

Coloque msgalert para ver onde está dando o erro:

**----------------------------------------------------**

Function BuscaArqVe(oGetP,xKey,oDlgg,RetornoChave)

**----------------------------------------------------**

MSGALERT("1", ......

Local cChave:=(oGetP:oGet:Buffer),nPosAnt:=Recno()

MSGALERT("2", ......

If (xKey!=7 .and.xKey !=8)

MSGALERT("3", ......

cChave:=Stuff(cChave,oGetP:nPos,If(Set(_SET_INSERT),0,1),Upper(Chr(xKey)))

MSGALERT("4", ......

Endif

RetornoChave:=cChave

MSGALERT("5", ......

Return(RetornoChave)

RETORNE O NUMERO DA MENSAGEM ANTES DO ERRO OU QUE NÃO DEU MENSAGEM NENHUMA.

Um abraço

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005

Inscreva-se: http://www.installsis.com.br/encontro

Link to comment
Share on other sites
jdmoura Newbie

jdmoura

Posted
  • Author
Posted

Ola Paulo Araujo

Eu descobri a onde está o erro mais não consegui faze-lo funcionar.

Obs. Fiz as modificaçoes não funcionou ai coloquei os msgAlert ai eu descobri por onde ele passa até dar o erro.

Eu especifique os devido locais de erros com >>>>>> e <<<<<<

da uma olha e ve se vc consegue descobrir.

dbSelectArea(0)

SELE 1

IF !ABREARQ('VEICULOS',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to PLA_VEI,DOC_VEI,NOME_VEI,FANT_VEI

set Inde to vei1

else

msginfo(OemToAnsi('Arquivo nÆo Dispon¡vel (Veiculos)'),OemToAnsi('Aten‡Æo'))

close all

return nil

endif

SELE 2

IF !ABREARQ('CLIENTES',.F.)

CLOSE ALL

RETURN

ENDIF

if ! neterr()

//set inde to Alf_CLI,COD_CLI,CPF_CLI,FAN_CLI

set Inde to cli1

else

msginfo('Arquivo não Disponível (Clientes)','Atenção')

close all

return nil

endif

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

function PESQCLIVE && Pesquisa de Clientes

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

LOCAL oRadioButtons

LOCAL nOrden:=2

SELE 2

SET ORDER TO TAG ALF_CLI

_Nome:=Space(40)

DEFINE DIALOG oDlg FROM 3, 3 TO 22, 80 TITLE "Pesquisa de Clientes"

@ 1, 1 SAY "Ordenar por:"

@ 3, 1 LISTBOX oLbx FIELDS Codigo,Nome,Telefone1 HEADERS "Codigo", "Nome", "Fone" FIELDSIZES 90, 300, 30 SIZE 291, 74;

ON LEFT DBLCLICK (EditCl(oLbx, .F. ),oDlg:End())

@ 1, 7 RADIO oRadioButtons VAR nOrden PROMPT OemToAnsi("&Codigo"), "&Nome " ; // Duas opcoes em Radio botoes

OF oDlg ON CHANGE OrdenVei(nOrden,oLbx) // Ao Selecionar uma upcao executar a fun‡ao

@ 125,150 Say "Buscar por:" OF oDlg Pixel Size 040,012

@ 122,188 Get oNome VAR _Nome Picture "@!K" Of oDLG Pixel Size 100,012 ;

on Change(ConteudoVei(oNome,nKey,oDlg))

ACTIVATE DIALOG oDlg CENTERED

sele 1

SET ORDER TO TAG PLA_VEI

Return .t.

**---------------------------------------------**

Static Function ConteudoVei(oGetP,xKey,oDlgg)

**---------------------------------------------**

Local RetornoChave:=""

---->>>>>>>>>>>>>> passa por aqui <<<<<<<<<<< ----------

BuscaArqVe(oGetP,xKey,oDlgg,@RetornoChave)

CLIENTES->(dbSeek(AllTrim(RetornoChave)))

oLbx:Refresh()

Return(.t.)

**---------------------------------------------**

STATIC FUNCTION OrdenVei(nOrden,oLbx)

**---------------------------------------------**

IF nOrden=1

SET ORDER TO TAG COD_CLI

ELSE

SET ORDER TO TAG ALF_CLI

ENDIF

oLbx : Refresh()

RETURN NIL

**----------------------------------------------------**

Function BuscaArqVe(oGetP,xKey,oDlgg,RetornoChave)

**----------------------------------------------------**

Local cChave:=(oGetP:oGet:Buffer),nPosAnt:=Recno()

>>>>>>>>>>>>>>>> e o erro ocorre aqui <<<<<<<<<<<<<<<<

If (xKey!=7 .and.xKey !=8)

cChave:=Stuff(cChave,oGetP:nPos,If(Set(_SET_INSERT),0,1),Upper(Chr(xKey)))

Endif

RetornoChave:=cChave

Return(RetornoChave)

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

function EditCL(oLbx, lAppend)

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

SELE 2

*SET ORDER TO ALF_CLI

MNOMCLI := LEFT(NOME,40)

oNomcli :VARPUT(MNOMCLI)

oNomcli :REFRESH()

MFANTCLI:= NOMEFAN

oFantCli:VARPUT(MFANTCLI)

oFantcli:REFRESH()

IF CPF<> SPACE(14)

MDOCUMEN:= CPF

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ELSE

MDOCUMEN:= CGC

oDocumen:VARPUT(MDOCUMEN)

oDocumen:REFRESH()

ENDIF

Return .t.

Um clipperAbraço

jdmoura

Jdemourasilva@yahoo.com.br

Link to comment
Share on other sites
pauloaraujo Newbie

pauloaraujo

Posted
Posted

Jdmoura, tudo bem??

Não sei de onde você pegou esse código, mas está difícil decifrar.

Pela hora que estou postando, dá para imaginar o meu estado. Que essa declaração (Local cChave:=.......) está estranha, está.

Vou estar fora neste feriado. Se ninguém solucionar, levante esse tópico na próxima quarta-feira.

Um abraço

**----------------------------------------------------**

Function BuscaArqVe(oGetP,xKey,oDlgg,RetornoChave)

**----------------------------------------------------**

Local cChave:=(oGetP:oGet:Buffer),nPosAnt:=Recno()

>>>>>>>>>>>>>>>> e o erro ocorre aqui <<<<<<<<<<<<<<<<

If (xKey!=7 .and.xKey !=8)

cChave:=Stuff(cChave,oGetP:nPos,If(Set(_SET_INSERT),0,1),Upper(Chr(xKey)))

Endif

RetornoChave:=cChave

Return(RetornoChave)

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005

Inscreva-se: http://www.installsis.com.br/encontro

Link to comment
Share on other sites
jdmoura Newbie

jdmoura

Posted
  • Author
Posted

Ola Paulo Araujo!

Como foi de viagem.

Olha vc disse eu ninguém resolve-se era para eu postar na quarta-feira, aqui estou eu novamente cara estou pirando com essa função sendo que no NTX funciona e no CDX dá pau.

Paulo preciso dos seus conhecimento para resolver isso, pois eu não conseguirei sozinho.

Um clipperAbraço

jdmoura

Jdemourasilva@yahoo.com.br

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...