Histórico da Página

#Include 'Protheus.ch'

User Function TesteBAR()
LOCAL wnrel
LOCAL cDesc1     := "Teste de codigo de barras"
LOCAL cDesc2     := ""
LOCAL cDesc3     := ""
LOCAL cString    := "SA1"
LOCAL aRegistros := {}
PRIVATE ctitulo  := "Cod.Barras"
PRIVATE ctamanho := "P"
PRIVATE aReturn  := { "Zebrado", 1,"Administracao", 2, 2, 1, "",1 }
PRIVATE cnomprog := "teste020"
PRIVATE nLastKey := 0

wnrel := "Teste020"
wnrel := SetPrint(cString,wnrel,nil,@ctitulo,cDesc1,cDesc2,cDesc3,.F.,"",.F.,cTamanho)

If nLastKey == 27	
	Set Filter To	
	Return
Endif

SetDefault(aReturn,cString)

If nLastKey == 27	
	Set Filter To
Endif

RptStatus({|lEnd| TesteImp(@lEnd,wnrel,cString)},cTitulo)

Return .T.

Static Function TesteImp(lEnd,wnrel,cString)
Local oPr 			 := ReturnPrtObj()
Local nHeigth 	 := 0.9
Local lBold 		 := .F.
Local lUnderLine 	:= .F.

@ 1 ,001 PSAY 'Codigo 128 subset A'
MSBAR4("CODE128", 3 , 1 ,"12345678901" ,oPr,NIL,NIL,NIL,,NIL,NIL,NIL,"A")
oPr := ReturnPrtObj()

@ 10 ,001 PSAY 'Codigo 128 subset B'
MSBAR4("CODE128", 10 , 1 ,"123456789011010" ,oPr,NIL,NIL,NIL,,NIL,NIL,NIL,NIL)
oPr := ReturnPrtObjPrtObj()

@ 20 ,001 PSAY 'Codigo EAN 13'
oFont:= TFont():New( "Arial",,nHeigth,,lBold,,,,,lUnderLine )
oPr := ReturnPrtObj()

MSBAR4("EAN13" , 12 , 1 ,"123456789012",oPr,NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL)

Set Filter To
dbSetOrder(1)
Set device to Screen

If aReturn[5] == 1	
	Set Printer To	
	dbCommitAll()
	OurSpool(wnrel)
Endif

MS_FLUSH()

Return .T.