Perguntas ETIQUETAS SB1

BOM DIA GALERA, ESTOU NECESSITANDO URGENTE DE IMPRIMIR ETIQUETAS PELO PROTHEUS DO CADASTRO DE PRODUTOS PODE SER COM IMPRESSORA ZEBRA OU NÃO, SÓ PRECISO QUE CONTENHA AS SEGUINTES INFORMAÇÕES:

CODIGO
DESCRIÇÃO
COD. FABRICANTE
FABRICANTE
UNIDADE DE MEDIDA

ESTAVA TENTANDO EDITAR O SEGUINTE CODIGO


#Include "PROTHEUS.CH"
#Include "RWMAKE.CH"
UserFunctionREST002()
Local oReport
PrivatecPerg:='REST002'
CriaSx1(cPerg)
Pergunte(cPerg,.T.)
Processa({||xPrintRel(),OemToAnsi('Gerandoo relatório.')},OemToAnsi('Aguarde...'))
Return
StaticFunctionxPrintRel()
Local nX :=0
Local nQtdPag := 0
PrivateoPrint
PrivatecAlias :=getNextAlias()//criaumalias temporário
PrivateoFont06 := TFont():New('Arial',,06,,.F.,,,,.F.,.F.)
PrivateoFont06n :=TFont():New('Arial',,06,,.T.,,,,.F.,.F.)
PrivateoFont08 := TFont():New('Arial',,08,,.F.,,,,.F.,.F.)
PrivateoFont08n :=TFont():New('Arial',,08,,.T.,,,,.F.,.F.)
PrivateoFont10 := TFont():New('Arial',,10,,.F.,,,,.F.,.F.)
PrivateoFont10n :=TFont():New('Arial',,10,,.T.,,,,.F.,.F.)
PrivateoFont12 := TFont():New('Arial',,12,,.F.,,,,.F.,.F.)
PrivateoFont12n :=TFont():New('Arial',,12,,.T.,,,,.F.,.F.)
PrivateoFont14 := TFont():New('Arial',,14,,.F.,,,,.F.,.F.)
PrivateoFont14n :=TFont():New('Arial',,14,,.T.,,,,.F.,.F.)
PrivateoFont26 := TFont():New('Arial',,26,,.F.,,,,.F.,.F.)
PrivateoFont26n :=TFont():New('Arial',,26,,.T.,,,,.F.,.F.)
PrivatenLin :=0
BeginSqlAlias cAlias
SELECT
B1_COD,
B1_DESC
FROM
%table:SB1%
WHERE
B1_FILIAL=%xFilial:SB1%
ANDB1_COD >= %exp:mv_par01%
ANDB1_COD '*'
ORDERBY
B1_COD
EndSql
(cAlias)->(dbGoTop())
oPrint:=TMSPrinter():New(OemToAnsi('Etiqueta de produto'))
oPrint:SetPortrait()
//1cm +/-117,5px
nQtdPag:=(mv_par03%2)
iif(nQtdPag =0,nQtdPag:= Int(mv_par03/2),nQtdPag:=Int(mv_par03/2)+ 1)
While!(cAlias)->(Eof())
FornX:=1 tonQtdPag
oPrint:StartPage()
nLin := 0010
oPrint:Say(nLin,0010,OemToAnsi('CI:'+alltrim((cAlias)->B1_COD)),oFont10n,,,,0)
oPrint:Say(nLin,0570,DtoC(dDataBase),oFont10,,,,1)
oPrint:Say(nLin,0610,OemToAnsi('CI:'+alltrim((cAlias)->B1_COD)),oFont10n,,,,0)
oPrint:Say(nLin,1170,DtoC(dDataBase),oFont10,,,,1)
nLin+=0030
oPrint:Say(nLin,0299,OemToAnsi(SubStr(alltrim((cAlias)->B1_DESC),1,30)),oFont10,,,,2)
oPrint:Say(nLin,0887,OemToAnsi(SubStr(alltrim((cAlias)->B1_DESC),1,30)),oFont10,,,,2)
MSBAR('CODE128',0.7,0.8,alltrim((cAlias)->B1_COD),oPrint,.F.,,.T.,0.013,0.7,,,,.F.)
MSBAR('CODE128',0.7,5.8,alltrim((cAlias)->B1_COD),oPrint,.F.,,.T.,0.013,0.7,,,,.F.)
oPrint:EndPage()
NextnX
(cAlias)->(dbSkip())
enddo
(cAlias)->(dbCloseArea())
oPrint:Preview()
oPrint:end()
Return

StaticFunctionCriaSx1(cPerg)
PutSx1(cPerg,"01","DoCódigoInterno?" ,"DoCódigoInterno?","DoCódigoInterno?" ,"mv_ch1","C",15,0,0,"G","","SB1","","","mv_par01")
PutSx1(cPerg,"02","AtéCódigoInterno?" ,"AtéCódigoInterno?","AtéCódigo Interno?","mv_ch2","C",15,0,0,"G","","SB1","","","mv_par02")
PutSx1(cPerg,"03","Qtde Etiquetas" ,"Qtde Etiquetas" ,"QtdeEtiquetas" ,"mv_ch3","N",05,0,0,"G","","" ,"","","mv_par03")
return

MAIS NÃO MANJO ADVPL (AINDA)

OBRIGADO.