01. DADOS GERAIS
Produto: | Totvs Agro Beneficiamento |
---|---|
Linha de Produto: | Microsiga Protheus |
Segmento: | Agroindústria |
Módulo: | SIGAAGR |
Função: | AGRA615-Tela de Beneficiamento |
Ticket: | 9525697 |
Requisito/Story/Issue (informe o requisito relacionado) : | DAGROINDUSTRIA-7961 |
02. SITUAÇÃO/REQUISITO
Ao realizar a impressão de etiquetas pela rotina de Beneficiamento as mesmas estão sendo impressas em branco quando é solicitado imprimir direto na impressora.
03. SOLUÇÃO
Criado ponto de entrada AG615PRT() que permite customizar a função a ser utilizada na impressão das etiquetas.
04. DEMAIS INFORMAÇÕES
Localização: | A615Print() | ||||||||
Programa Fonte: | AGRA615 | ||||||||
Função: | Permite manipular a função de impressão da etiqueta dos fardinhos. | ||||||||
Retorno: |
|
Exemplo
User Function AG615PRT()
Local cCodPro := PARAMIXB[1]
Local cCodFaz := PARAMIXB[2]
Local cPeso := PARAMIXB[3]
Local cPorta := "LPT1" // Mapeamento feito através de NET USE
Local cModelo := "ZEBRA"
MSCBPrinter(cModelo, cPorta,,9,.F.,,,,,,.F.,)
MSCBForm(.F.)
MSCBChkstatus(.F.)
MSCBBegin(1,6, 9)
MSCBSay(10,10,@cCodPro,"N","A","040,030")
MSCBSay(10,14,@cCodFaz,"N","A","040,030")
MSCBSay(10,18,@cPeso,"N","A","040,030")
MSCBEnd()
MSCBClosePrinter()
Return
05. ASSUNTOS RELACIONADOS
- Impressão de etiquetas em impressora térmica via porta USB
- MSCBPRINTER - Configura impressora
- MSCBSAY - Imprime uma string
- MSCBBEGIN - Inicializa a montagem da imagem para cada etiqueta