Undefined function: BUFFER, no comando ADD

[juniorcamilo]

essa funcao buffer esta duplicada!! em qual lib ela c encontra?
clipper5,2e e blinker 7.0
Libs utilizadas:
CPMI.LIB,ctp52.lib,FAST52.LIB,LFN.LIB,LL.LIB,NANFOR.LIB,Prn_lpt.lib,VL2_52.LIB,oslib.lib

Error BASE/1001 Undefined function: BUFFER
Called from LOCKERRHAN(0)
Called from (b)INITHANDL$(0)
Called from BUFFER(0)
Called from INCLPED(42)
Called from MAIN(362)

a linha idicada é:

AADD(aEstrutura, {"HORA ", "C", 8, 0})

[alxsts]

Olá!

essa funcao buffer esta duplicada!! em qual lib ela c encontra

A mensagem de erro diz que a função não está definida. Por que acha que está duplicada? Além disto, parece ser uma função de usuário, chamada por INCLPED, linha 42, e não uma função do Clipper, contida em alguma lib.

Revise seus fontes e evite usar este tipo de nome para batizar funções. Buffer não é uma palavra reservada mas, sei lá, pode gerar algum conflito...

[juniorcamilo]

a linha 42 é que eu indiquei!!!
abaixo um trecho do prg!!!

Código: Selecionar todos

**************************************************************************
*PEDIDO.PRG SISTEMA DE CONTROLE ADMINISTRATIVO                              *
*****************************************************************************
#Include 'JR.CH'

//----------------- INCLUSAO DE PEDIDOS PARA FATURAMENTO -----------------//
FUNCTION InclPed()
LOCAL GetList    := {}, bSaida := .f., agetlist, bEnviar, tTelcpl
LOCAL cRealdig, cProcura   := "", cTelaa:=savenv(0,0,24,79), nPosbom := 1, nColBomba
LOCAL aEstrutura := {}, nTentativa, tTelbloq, cUnipro, cNumeracao, nVias, cGrade
LOCAL cFormato := 0, cPapel, cObs1, cObs2, cObs3, cObs4, cObs5, bCarga, nTotbru
LOCAL tTelespera, nAuxPG, nCalc, cPreco, nCol, aMatriz := { {},{},{},{} }
LOCAL oTempVenda := 0, oTempProd, oColuna, cNomven, nA, cAuxx
Private cNoment, cEndent, cCident, cRefent, cPlaent, dDtaent, cResent, ccodpro, cTipcartao
Private cCodped  := space(06), bLimite, cCidcli, cEndcli, bCheckout, bLote, bPosto, cnDigEnc
Private FD:=0, buffer, cNomcli:="", aFormpag := {{},{}},cEstCli:="PA",nDiafix,nDiapag,nDiaacr, cAltpreco := "N"
Private cNatope, noppag, nPreTot := 0.00, nPreTot2 := 0.00, cPrazo:="  ", bCupom, cCarga 
Private nValPago := 0.00, nNtrib := 0.00, cCodven := "  ", cTotnota, cSetorCli := "  ", nQtdebomba, tPedid
Private cPlavei  := space(8), cKm := space(6), cFrota := space(6), cCodcli, cCgccli, cInscli
Private nQtepro, cEntra_val, cEntra_ven, cCaixa, dDtabase, nPeracre, cCupomFiscal
Private cPess_FJ := " ", nDesc:=0.00, cMensagem, cVenPzo_sn, nValentrada, bImprimir
Private cAliq, cErro1, cErro2, cNumnot := space(6), cOppag, nValTroca, ntotdev:=0.00, cNroNFCE := space(09)
Private cNum := "01", nValBalanca, cMostven,nTroco, cPegAbastec, bGerafin := .f.
Private bLig01 := .t., bDes01 := .t.,bLig02 := .t., bDes02 := .t., bLig03 := .t., bDes03 := .t.
Private bLig04 := .t., bDes04 := .t.,bLig05 := .t., bDes05 := .t., bLig06 := .t., bDes06 := .t.
Private bLig07 := .t., bDes07 := .t.,bLig08 := .t., bDes08 := .t., bLig09 := .t., bDes09 := .t.
Private aPrazo := { {},{},{},{},{} }, bConfChq, bAtivaPf, nQte, nVlr, nMostra := 1,nComp := 0.00
Private nLarg := 0.00, nQtepc:= 0.00, nQtevend := 0.00, cTEF_SN := "N", cLibNFCe := "N", cTPedPen
Private lCod, bPrecoEspecial := .f., cObs := space(40), nIcmEmp, bEspera := .f.,tProTela, cQual := "2"
Private cCor, cAvisapro, nValori := 0.00, nValUni := 0.00, bCGCCupom := .f., cMarmoraria := "N"
Private aTempvenda[''], cSat := "N", cMPastaACBR := "N"
desk(x_corcabec)
telapadrao()
AADD(aEStrutura, {"ITEM      ", "C",  4, 0})  &&& Se Acrencentar
AADD(aEStrutura, {"CODPRO    ", "C",  7, 0})   &&& Campo
AADD(aEstrutura, {"NOMPRO    ", "C", 40, 0}) && lembrar de o Alt+R
AADD(aEstrutura, {"SAIU      ", "L",  1, 0})
AADD(aEstrutura, {"GRADE     ", "C", 20, 0})
AADD(aEstrutura, {"UNIPRO    ", "C",  2, 0})
AADD(aEstrutura, {"BOMBA     ", "C",  2, 0})
AADD(aEstrutura, {"NUMERACAO ", "C",  6, 0})
AADD(aEstrutura, {"HORA      ", "C",  8, 0})
AADD(aEstrutura, {"VIAS      ", "C",  5, 0})
AADD(aEstrutura, {"FORMATO   ", "C",  2, 0})
AADD(aEstrutura, {"PAPEL     ", "C",  5, 0})
AADD(aEstrutura, {"COR       ", "C",  6, 0})
AADD(aEstrutura, {"QTEPRO    ", "N",  9, 3})
AADD(aEstrutura, {"VALPRO    ", "N", 12, 4})
AADD(aEstrutura, {"VALORI    ", "N", 12, 4})
AADD(aEstrutura, {"VALREAL   ", "N", 12, 4})
AADD(aEstrutura, {"VALDES    ", "N", 12, 4})
AADD(aEstrutura, {"TOTAL     ", "N", 12, 4})
AADD(aEstrutura, {"ICMPRO    ", "N",  2, 0})
AADD(aEstrutura, {"QTEENT    ", "N",  9, 3})
AADD(aEstrutura, {"CODVEN    ", "C",  2, 0})
AADD(aEstrutura, {"OBS1      ", "C", 70, 0})
AADD(aEstrutura, {"OBS2      ", "C", 70, 0})
AADD(aEstrutura, {"OBS3      ", "C", 70, 0})
AADD(aEstrutura, {"OBS4      ", "C", 70, 0})
AADD(aEstrutura, {"OBS5      ", "C", 70, 0})
AADD(aEstrutura, {"CARTAO    ", "C",  5, 0})
AADD(aEstrutura, {"PESPECIAL ", "L",  1, 0})
AADD(aEstrutura, {"TABPRECO  ", "L",  1, 0})
AADD(aEstrutura, {"CODCLI    ", "C",  7, 0})
AADD(aEstrutura, {"CODPED    ", "C",  6, 0})
AADD(aEstrutura, {"LARG      ", "N", 12, 4})
AADD(aEstrutura, {"COMP      ", "N", 12, 4})
AADD(aEstrutura, {"QTEPC     ", "N", 12, 4})
AADD(aEstrutura, {"QTEVEND   ", "N", 12, 4})
nTecla := 0                                     && bSenlim,

[juniorcamilo]

Olá!
evite usar este tipo de nome para batizar funções. Buffer não é uma palavra reservada mas, sei lá, pode gerar algum conflito...

entao eu nao usei Buffer como funcao ou procedure no sistema.... é isso q estou questionando!!!

[alxsts]

Olá!

Tem uma variável private definida com o nome "buffer" neste trecho de código que foi postado. Veja se é referenciada em outros locais do fonte e se não está interferindo em alguma coisa.

Na linha 42 não tem nada de errado. Salve o fonte e recompile. Às vezes alteramos e esquecemos de salvar. Aí, compilamos e o compilador retorna erro em uma linha que não tem nada a ver...

[JoséQuintas]

E o que tem no JR.CH, não altera nada?

[juniorcamilo]

Olá!

Tem uma variável private definida com o nome "buffer" neste trecho de código que foi postado. Veja se é referenciada em outros locais do fonte e se não está interferindo em alguma coisa.

Na linha 42 não tem nada de errado. Salve o fonte e recompile. Às vezes alteramos e esquecemos de salvar. Aí, compilamos e o compilador retorna erro em uma linha que não tem nada a ver...

eu descobri este erro apos criar uma 'exit procedure' para capturar eventuais erros, esse sistema roda a mais de 16 anos... este erro parece mais um fantasma, outra coisa o erro não é toda hora por acaso apareceu no meu capturar erros!!!

obs: troquei a var buffer para sBuffer!!!

[juniorcamilo]

E o que tem no JR.CH, não altera nada?

são varias CH em uma unica, mas não tem nada de buffer...

[JoséQuintas]

gera o ppo e olha nele

Código: Selecionar todos

clipper programa -p

E como já disseram, confirma se está mesmo linqueditando esse fonte.

[Kapiaba]

Bom dia, como está o seu config.nt e autoexec.nt?

http://www.hardware.com.br/comunidade/p ... er/319308/

o Comando BUFFER, é reservado. Se tens uma função com este nome, troque-a para W_BUFFER() ou outra.

abs.

[JoséQuintas]

Desta vez você confundiu DOS com Clipper.
Além disso, o erro é justamente a falta da funcão Buffer(), que nem existe no fonte, e tem chamada pra ela.

Aliás... isso me deu uma idéia:
Não lembro exatamente a sintaxe, mas chamar a errrorsys pode ser um caminho alternativo.
Já que falta a função, dê a funcão pro fonte, e veja aonde usa:

Código: Selecionar todos

FUNCTION BUFFER( x )
    Eval( ErrorBlock(), "aqui está o erro" )
    RETURN NIL

[Kapiaba]

https://harbour.github.io/ng/c53g01c/ng1358ad.html

[juniorcamilo]

Fiz a alteração da Var Buffer para SBuffer!!!
como havia dito esse erro aparece uma unica vez!!
vamos espera para ver daqui para frente!!!

obrigado a todos!!

[JoséQuintas]

Ainda acho que a possibilidade mais provável seria fonte errado, compilado outro fonte sem ser esse.

O Kapiaba até mostrou um uso de variável Buffer, mas ele seria parte da GetSys, e não causaria interferência.

Revendo o post estou vendo algumas LIBs que nunca usei:

CPMI.LIB, ctp52.lib, FAST52.LIB, LL.LIB, NANFOR.LIB, Prn_lpt.lib, VL2_52.LIB

Precisa de todas elas?
Lembro de uma situação, onde uma lib causava problemas.
Não lembro qual era a lib, mas era pra funções matemáticas.
Talvez pra Seno(), Coseno(), mas sinceramente não lembro mais.

[juniorcamilo]

Revendo o post estou vendo algumas LIBs que nunca usei:

CPMI.LIB, ctp52.lib, FAST52.LIB, LL.LIB, NANFOR.LIB, Prn_lpt.lib, VL2_52.LIB
Precisa de todas elas?

estou enxugando e retirando elas.. mas o processo é um pouco lento!!!