Rede x Append

Luiz Arruda (ICO) · September 8, 2005

Bom Dia.

Bem Ã© o seguinte. Meu prog. estÃ¡ em rede, tÃ¡ funcionando que Ã© uma beleza (quase) sÃ³ que ao dar um append no SERVIDOR retorna o erro abaixo, lembrando que isso nao ocorre se eu dar o APPEND FRom em um terminal. Porque ??

Tai o erro Ã© esse;

Error description: Error DBFNTX/1020 Data type error

Called from LOCKERRHAN(0)

Called from (b)INITHANDL$(0)

Called from __DBTRANS(0)

Called from __DBAPP(0)

Called from ATSALDOS(16) esta Ã© a linha do APPENDid=blue>

Called from (b)MAINN(93)

Called from TBTNBMP:CLICK(0)

Called from TBTNBMP:LBUTTONUP(0)

Called from TBTNBMP:HANDLEEVEN(0)

Called from WINRUN(0)

Called from TWINDOW:ACTIVATE(0)

Called from MAINN(142)

Obrigado

VOCÃŠ NAO PODE PERDER: 3Âº ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005

iko67@ibest.com.br

Luiz Arruda (ICO) · September 8, 2005

Bom Dia.

Bem Ã© o seguinte. Meu prog. estÃ¡ em rede, tÃ¡ funcionando que Ã© uma beleza (quase) sÃ³ que ao dar um append no SERVIDOR retorna o erro abaixo, lembrando que isso nao ocorre se eu dar o APPEND FRom em um terminal. Porque ??

Tai o erro Ã© esse;

Error description: Error DBFNTX/1020 Data type error

Called from LOCKERRHAN(0)

Called from (b)INITHANDL$(0)

Called from __DBTRANS(0)

Called from __DBAPP(0)

Called from ATSALDOS(16) esta Ã© a linha do APPENDid=blue>

Called from (b)MAINN(93)

Called from TBTNBMP:CLICK(0)

Called from TBTNBMP:LBUTTONUP(0)

Called from TBTNBMP:HANDLEEVEN(0)

Called from WINRUN(0)

Called from TWINDOW:ACTIVATE(0)

Called from MAINN(142)

Obrigado

VOCÃŠ NAO PODE PERDER: 3Âº ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005

iko67@ibest.com.br

Luiz Arruda (ICO) · September 8, 2005

Bom Dia.

Bem Ã© o seguinte. Meu prog. estÃ¡ em rede, tÃ¡ funcionando que Ã© uma beleza (quase) sÃ³ que ao dar um append no SERVIDOR retorna o erro abaixo, lembrando que isso nao ocorre se eu dar o APPEND FRom em um terminal. Porque ??

Tai o erro Ã© esse;

Error description: Error DBFNTX/1020 Data type error

Called from LOCKERRHAN(0)

Called from (b)INITHANDL$(0)

Called from __DBTRANS(0)

Called from __DBAPP(0)

Called from ATSALDOS(16) esta Ã© a linha do APPENDid=blue>

Called from (b)MAINN(93)

Called from TBTNBMP:CLICK(0)

Called from TBTNBMP:LBUTTONUP(0)

Called from TBTNBMP:HANDLEEVEN(0)

Called from WINRUN(0)

Called from TWINDOW:ACTIVATE(0)

Called from MAINN(142)

Obrigado

VOCÃŠ NAO PODE PERDER: 3Âº ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005

iko67@ibest.com.br

kapiaba · September 8, 2005

Error DBFNTX/1020 Data type error

TIPO DE DADO ESTA ERRADO. VERIFIQUE.

O MODO DE ABERTURA, DEVE SER EXCLUSIVE.

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

Luiz Arruda (ICO) · September 8, 2005

Ola Kapiaba. veja como estou fazendo.

SELECT 2

USE C:\DADOS\EMITE ALIAS EMITE EXCLUSIVE NEW

ZAP

APPEND FROM DIARIO FOR CONTA:=CTA

e isto estÃ¡ ocorrendo somente no servidor, nos terminais nao

AbraÃ§os

VOCÃŠ NAO PODE PERDER: 3Âº ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005

iko67@ibest.com.br

kapiaba · September 8, 2005

NAO. DEPOIS DO ZAP, FECHE, E ABRA EM MODO COMPARTILHADO AI VOCE DA O APPEND TIO.

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

Luiz Arruda (ICO) · September 8, 2005

Nao deu.

VOCÃŠ NAO PODE PERDER: 3Âº ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005

iko67@ibest.com.br

conpete · September 8, 2005

citaÃ§Ã£o:SELECT 2
USE C:\DADOS\EMITE ALIAS EMITE EXCLUSIVE NEW

ZAP

APPEND FROM DIARIO FOR CONTA:=CTA

****

Nao deu.

id=quote>id=quote>

select 2

use c:\dados\emite exclusive

if .not. NETERR()

zap

append frm Diario for conta=CTA

ELSE

.......

ENDIF

******

Mangueira

Clipper53b/Blinker7/FW2.6(Ufa!!!)/MED 3.01/WorkShop 4.5

forumfw@conpete.com.br

mangueira@ig.com.br

Manaus - Amazonas

Visite Manaus-Am e Tambem Campina Grande-PB

III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005... To Nessa!!!!!

Anderson.OL · September 8, 2005

Kra, desculpem-me meter o bedelho, mas naum existe dois campos de mesmo nome, mas de tipos diferentes??

Tipo

"NOME","C",40,0

&

"NOME","N",40,0

Pois o que eu entendo por DBFNTX/1020 Data type error Ã© que este erro sÃ³ ocorre qdo se atribui um valor para uma variavel de tipo incompativel..

Desculpem-me se eu estiver errado

AbraÃ§os

Nesse mundo nada se cria, tudo se compila<<

//--Clipper 5.3b / FiveWin 2.6 / Blinker 7.0 --//

//--

_Dom Quixote_

RO Iris Server / Agility Kina / 7*/3*

pauloaraujo · September 8, 2005

Ico,

Ou Ã© o que o Anderson falou (verifique estrutura dos 2 dbfs) ou o campo CONTA estÃ¡ com um tipo e a variÃ¡vel CTA com outro.

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar Ã© um prazer, agradecer Ã© uma obrigaÃ§Ã£o

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

Luiz Arruda (ICO) · September 8, 2005

Boa Tarde. e obrigado a todos..

Entrei na pasta dados apaguei emite.DBF copiei diario.dbf como EMITE.DBF e pronto. + 1 caso resolvido..

VOCÃŠ NAO PODE PERDER: 3Âº ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005

iko67@ibest.com.br

pauloaraujo · September 8, 2005

Ico,

ConclusÃ£o: o Anderson estava certo.

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

macs · September 9, 2005

Isto nÃ£o Ã© soluÃ§Ã£o!!!

Se ocorreu uma vez, pode ocorreo outras vezes. SerÃ¡ que

o cliente vai querer ficar apagando e renomeando tabelas???

Eu nÃ£o utilizo o Append From por conta disso. Ja tive vÃ¡rios problemas. Criei uma funÃ§Ã£o semelhante, mas bem mais

rÃ¡pida.

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

* Funcao......: MyDbApp() *

* Objetivo....: Appenda uma tabela na outra *

* Autor.......: Marcio Augusto Cezar *

* Data........: 30/8/2005 10:51:11 *

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

* Parametros..: cAlias --> Alias do arquivo a ser pesquisado *

* bSeek --> CondiÃ§Ã£o de Seek para pesquisa *

* bCondicao --> CondiÃ§Ã£o de avaliaÃ§Ã£o *

* cField --> Campo a ser pesquisado e atualizado com xValor *

* xValor --> Valor para atualizar o campo definido com cField*

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

* Retorno.....: NIL *

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

* ObservaÃ§Ã£o..: *

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

STATIC PROCEDURE MyDbApp( cAlias, bSeek, bCondicao, cField, xValor )

LOCAL nCont, nPos, nTotalFields

LOCAL cAliasRead := cAlias

LOCAL aArrayFieldAux := {}

DEFAULT bSeek := { || .T. }

DEFAULT bCondicao := { || .T. }

aArrayFieldAux := {}

FOR nCont := 1 TO FCount()

AAdd( aArrayFieldAux, Field( nCont ) )

IF EVal( bSeek )

WHILE EVal( bCondicao ) .AND. &cAliasRead.->( ! Eof() )

AddRec(5)

FOR nCont := 1 TO nTotalFields

IF Field( nCont ) <> &cAliasRead.->( Field( nCont ) )

IF ( nPos := AScan( aArrayFieldAux, &cAliasRead.->( Field( nCont ) ) ) ) <> 0

FieldPut( nPos, &cAliasRead.->( FieldGet( nCont ) ) )

IF cField <> NIL .AND. UPPER( ALLTRIM( cField ) ) == Field( nPos )

FieldPut( nPos, xValor )

ENDIF

ELSE

IF ValType( FieldGet( nCont ) ) == ValType( &cAliasRead.->( FieldGet( nCont ) ) )

FieldPut( nCont, &cAliasRead.->( FieldGet( nCont ) ) )

ENDIF

IF cField <> NIL .AND. UPPER( ALLTRIM( cField ) ) == Field( nCont )

FieldPut( nCont, xValor )

ENDIF

&cAliasRead.->( DbSkip() )

ENDDO

ENDIF

RETURN

MÃ¡rcio Augusto Cezar

FWH 2.6 PELLES 3.00.4

marcio.cezar@gmail.com

Luiz Arruda (ICO) · September 9, 2005

Marcio.

Muito obrigado, mais veja o que deve ter acontecido comigo.

tenho uma pasta chamada "dados" em cada micro (4), onde deixo arquivos temp. etc... e os principais no Servidor, por forÃ§a do habito devo ter criado um arquivo emite.dbf p/ outro programa com parametros diferentes. Mais valeu vou tentar aproveitar sua dica.

AbraÃ§os.

VOCÃŠ NAO PODE PERDER: 3Âº ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005

iko67@ibest.com.br

conpete · September 9, 2005

Meus nobres companheiros.....

Um dos fatores para o bom funcionamento de um sistema Ã© a organizaÃ§Ã£o dos dados. Por mais que vc planeje seu sistema, sempre terÃ¡ algo mais a acrescenta ou modificar, por isso se faz necessÃ¡rio uma rotina que cheque o banco de dados e que possibilite efetuar modificaÃ§Ãµes na estrutura sempre que ocorrer uma mudanÃ§a no projeto e isto de modo transparente ao usuÃ¡rio e sob seu domÃnio.

No meu caso, nÃ£o abro mÃ£o de quatro funÃ§Ãµes que sÃ£o:

Primeira FunÃ§Ã£o

FUNCTION USO

Para _nrArquvo

Do case

Case _nrAquivo = 1

Arq=c:\arquivos\cadcli.dbf

Gera(_nrArquivo)

Verifica(_nrArquivo)

Ordena(_nrArquivo)_

Use &Arq

Set index to &tal1, &tal2... etc

.......

Endcase

Return .t.

Segunda funÃ§Ã£o

FUNCTION Gera

Para _nrArquvo

Do case

Case _nrArquivo = 1

Se nÃ£o existe &arq

Cria o arquivo tal

.......

......

endcase

Terceira funÃ§Ã£o

FUNCTION Verifica

Para _nrArquvo

Do case

Case _nrArquivo = 1

Verificar se campo tal existe ou se o tipo de dado do campo e valido.

SenÃ£o

1 â€“ fecha o arquivo

2 - Modifica o nome do o arquivo

3 â€“ Chama a funÃ§Ã£o GERA

4 â€“ usa o novo arquivo

5 â€“ Append do arquivo que teve o nome modificado

.......

endcase

return .t.

Quarta funÃ§Ã£o

FUNCTION Ordena

Para _nrArquvo

Do case

Case _nrArquivo = 1

Index ...... to ....

.....

....

endcase

return .t.

Bom Fim de semana

Mangueira

Clipper53b/Blinker7/FW2.6(Ufa!!!)/MED 3.01/WorkShop 4.5

forumfw@conpete.com.br

mangueira@ig.com.br

Manaus - Amazonas

Visite Manaus-Am e Tambem Campina Grande-PB

III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005... To Nessa!!!!!

Rede x Append

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation