Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • MSBAR3 -Impressão de código de barras na deskjet HP e laser -- 24819

Função: MSBAR3 -Impressão de código de barras na deskjet HP e laser
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
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:
    Nil(nulo)
  • A função tem retorno nulo.
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:
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