Abrangências: | Microsiga Protheus 8.11 , Protheus 10 |
Versões: | Microsiga Protheus 8.11 , Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Nível de Acesso: | Nível 1 (Acesso Clientes) |
Idiomas: | Espanhol , Inglês |
Função para impressão de código de barras na deskjet HP e laser.
MSBARHP.PRW
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
-
Nil(nulo)
- A função tem retorno nulo.
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".
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.
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
cTypeBar | Caracter | String com o tipo do código de barras ("EAN13", "EAN8", "UPCA", "SUP5", "CODE128", "INT25", "MAT25", "IND25", "CODABAR", "CODE3_9", "EAN128") | |||||||||||||||
nRow | Array of Record | Número da Linha em centímetros | |||||||||||||||
nCol | Array of Record | Número da coluna em centímetros | |||||||||||||||
cCode | Array of Record | String com o conteúdo do código | |||||||||||||||
oPr | Array of Record | Objeto Printer | |||||||||||||||
lCheck | Array of Record | Se calcula o dígito de controle | |||||||||||||||
Color | Array of Record | Número da Cor | |||||||||||||||
lHort | Array of Record | Se imprime na Horizontal | |||||||||||||||
nWidth | Array of Record | Número do tamanho da barra em centímetros | |||||||||||||||
nHeigth | Array of Record | Número da altura da barra em milímetros | |||||||||||||||
lBanner | Array of Record | Se imprime a linha embaixo do código | |||||||||||||||
cFont | Array of Record | String com o tipo de fonte | |||||||||||||||
cMode | Array of Record | String com o modo do código de barras CODE128 | |||||||||||||||
lPrint | Array of Record | Lógico que indica se imprime ou não | |||||||||||||||
nPFWidth | Array of Record | Número do índice de ajuste da largura da fonte | |||||||||||||||
nPFHeigth | Array of Record | Número do índice de ajuste da altura da fonte |