Estou postando a etiqueta de produtos com codigo de barras que acabei de fazer para quem precisar.
Nilson Vilela

Moderador: Moderadores
*----------------------------------------------------------------------------------------------------------------------*
function PrintEAN13
*----------------------------------------------------------------------------------------------------------------------*
param cKodEan13, nCodeHeight, nModuleWidth
local i, cPreparedEAN13
local nOffset, nBeginRow, nEndRow
local lWhiteStrip, vcod, vdesc, vquant, vpreco
altd()
Caminho:= "\"+curdir()+"\DBF\gerauxme.DBF"
Select 1
USE (Caminho) alias AUX NEW SHARED
index on itens to gerteste
select AUX
go top
vcod:= AUX->codpro
vdesc:= AUX->nomepro
vquant:=AUX->quantid
vpreco:=AUX->precuni/3
if valtype (cKodEAN13) <> "C"
* cKodEAN13 := "7896026200001"
cKodEAN13 := "78960262"+TRANSFORM(STRZERO(AUX->codpro),"@!")
cKodEAN := "78960262"+"-"+TRANSFORM(STRZERO(AUX->codpro),"@!")
* cKodEan13 := space(13)
cKodEan13 := InputBox("Enter EAN13 BarCode","Enter EAN13 BarCode", cKodEan13)
endif
END PRINTDOC
billy1943 escreveu:Teria como melhorá-los para que ficassem com o formato (altura, largura) o mais aproximado possÃvel das que constam nos produtos ?
Usuários vendo este fórum: Nenhum usuário registrado online e 11 visitantes