Linker Error _HB_FUN_TEXTOUTAT

[rduraes]

Companheiros esta dando o seguinte erro quando trabalho com a WIN32PRN.
[Linker Error] Unresolved external "_HB_FUN_TEXTOUTAT" referenced form c:\dms\xhb\fatura\fap02.obj
O que estou achando interessante é que fiz um teste não mudei nada, só acrescentei uma linha e começou a gerar o erro.
Abaixo segue a sintaxe:
function P02Recibo(nValTot)
local oprinter:=win32prn()
local ncol:=0, nlin:=0,nNumRecibo:=0
local alinha:={}
local nTam:=78
local cHistorico,cLinha

oprinter:new(getdefaultprinter())
oprinter:formtype:=9 // folha A4
oPrinter:Copies := 1
oprinter:create()
oprinter:startdoc()
oprinter:setfont("Courier New",14,,700,,,,1,) // definindo a fonte
ncol:=oprinter:GetCharWidth() // largura da fonte em pixels
nlin:=oprinter:GetCharHeight() // altura da fonte em pixels

aadd(aLinha,alltrim(t21->T21_RAZAO))
aadd(aLinha,alltrim(t21->T21_ENDERE)+" - "+alltrim(t21->T21_BAIRRO))
aadd(aLinha,alltrim(t21->T21_CIDADE)+" - "+t21->T21_ESTADO+" - CEP: "+t21->T21_CEP)

for x=1 to len(aLinha)
TextOutAt(ColCenter(aLinha[x],nTam)*ncol,x*nlin,aLinha[x])
next

cLinha:="R E C I B O ---- Valor : R$ "+alltrim(transform(nValTot,"@E 99,999,999.99"))

TextOutAt(ColCenter(cLinha,nTam)*nCol,x*nlin,"R E C I B O ---- Valor : R$ "+alltrim(transform(nValTot,"@E 99,999,999.99")))

oprinter:enddoc()
oprinter:destroy()

/////////////////////////// Atualiza arquivo

a04->(dBAppend())
replace a04->A04_DATA with date_proc, a04->A04_CLIENT with nClient,;
a04->A04_VALOR with nValTot, a04->A04_ULTATU with date_proc,;
a04->A04_POACLI with cPoaCli

/////////////////////////////

return nil

A versão que utilizo 1.0.0 Intl. (Simplex)

[sygecom]

Companheiros esta dando o seguinte erro quando trabalho com a WIN32PRN.
[Linker Error] Unresolved external "_HB_FUN_TEXTOUTAT" referenced form c:\dms\xhb\fatura\fap02.obj

Tente assim:

Código: Selecionar todos

function P02Recibo(nValTot)
local oprinter:=win32prn()
local ncol:=0, nlin:=0,nNumRecibo:=0
local alinha:={}
local nTam:=78
local cHistorico,cLinha

oprinter:new(getdefaultprinter())
oprinter:formtype:=9 // folha A4
oPrinter:Copies   := 1
oprinter:create()
oprinter:startdoc()
oprinter:setfont("Courier New",14,,700,,,,1,) // definindo a fonte
ncol:=oprinter:GetCharWidth() // largura da fonte em pixels
nlin:=oprinter:GetCharHeight() // altura da fonte em pixels

aadd(aLinha,alltrim(t21->T21_RAZAO))
aadd(aLinha,alltrim(t21->T21_ENDERE)+" - "+alltrim(t21->T21_BAIRRO))
aadd(aLinha,alltrim(t21->T21_CIDADE)+" - "+t21->T21_ESTADO+" - CEP: "+t21->T21_CEP)

for x=1 to len(aLinha)
   oprinter:TextOutAt(ColCenter(aLinha[x],nTam)*ncol,x*nlin,aLinha[x])
next

cLinha:="R E C I B O ---- Valor : R$ "+alltrim(transform(nValTot,"@E 99,999,999.99"))

oprinter:TextOutAt(ColCenter(cLinha,nTam)*nCol,x*nlin,"R E C I B O ---- Valor : R$ "+alltrim(transform(nValTot,"@E 99,999,999.99")))

oprinter:enddoc()
oprinter:destroy()

/////////////////////////// Atualiza arquivo

a04->(dBAppend())
replace a04->A04_DATA with date_proc, a04->A04_CLIENT with nClient,;
        a04->A04_VALOR with nValTot, a04->A04_ULTATU with date_proc,;
        a04->A04_POACLI with cPoaCli

/////////////////////////////

return nil

[rduraes]

Valeu mestre! :)Pos
Falta de atenção minha.