Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#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. |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas