Linha Microsiga Protheus

Árvore de páginas


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:

Nome

Tipo

Descrição

Obrigatório

AG615PRT

Não há retorno

PARAMIXB[1]  Código do Produto 

PARAMIXB[2] Código da Fazenda

PARAMIXB[3] Peso

NÃO

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