Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: MSBAR3 -Impressão de código de barras na deskjet HP e laser
Descrição: Função para impressão de código de barras na deskjet HP e laser. Programa Fonte: MSBARHP.PRW Sintaxe: MSBAR3 -Impressão de código de barras na deskjet HP e laser ( [ cTypeBar ] [ nRow ] [ nCol ] [ cCode ] [ oPr ] [ lCheck ] [ Color ] [ lHort ] [ nWidth ] [ nHeigth ] [ lBanner ] [ cFont ] [ cMode ] [ lPrint ] [ nPFWidth ] [ nPFHeigth ] ) --> Nil Retorno:
Observações Esta função é de utilização interna do produto Microsiga Protheus, não recomendamos sua utilização em customizações, pois a função está sujeita a alterações conforme melhoria contínua ou revisão do produto. Sua utilização pode ser prejudicada caso sofra qualquer modificação para atender possível específicação e resultado interno esperado. Esta função não deve ser utilizada para impressoras termicas, neste caso consultar a função "MSCBIMP". Exemplos Function TesteBAR()LOCAL wnrelLOCAL 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 := 0wnrel := "Teste020"wnrel:=SetPrint(cString,wnrel,nil,@ctitulo,cDesc1,cDesc2,cDesc3,.F.,"",.F.,cTamanho)If nLastKey == 27 Set Filter To ReturnEndifSetDefault(aReturn,cString)If nLastKey == 27 Set Filter ToEndifRptStatus({|lEnd| TesteImp(@lEnd,wnrel,cString)},cTitulo)Return .T.Static Function TesteImp(lEnd,wnrel,cString)Local oProPr := ReturnPrtObj()@ 1 ,001 PSAY 'Codigo 128 subset A'MSBAR3("CODE128", 3 , 1 ,"12345678901" ,oPr,NIL,NIL,NIL,NIL,NIL,NIL,NIL,"A")oPr := ReturnPrtObj()@ 10 ,001 PSAY 'Codigo 128 subset B'MSBAR3("CODE128", 10 , 1 ,"123456789011010" ,oPr,NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL)oPr := ReturnPrtObj()@ 20 ,001 PSAY 'Codigo EAN 13'oFont:= TFont():New( "Arial",,nHeight,,lBold,,,,,lUnderLine )oPr := ReturnPrtObj()MSBAR3("EAN13" , 12 , 1 ,"123456789012",oPr,NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL)Set Filter TodbSetOrder(1)Set device to ScreenIf aReturn[5] == 1 Set Printer To dbCommitAll() OurSpool(wnrel)EndifMS_FLUSH()Return .T. Parâmetros:
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas