| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  ADVPL
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
Incluir botão MATA015 - Endereços |
|
Versão: |
12.1.27 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
|
|
Mensagem do
LEOSSANTOS
em 18/01/2021, 17:17 h
Local: SP Registro: 28/08/2020 Postagens: 21 |
Gostaria de saber como faço pra colocar um botão na primeira tela do MATA015 (cadastro de endereços) no browse principal.
Preciso imprimir uma etiqueta com código de barras do endereço, a etiqueta ja consegui fazer, preciso só colocar o botão pra chamar a rotina.
Desde ja agradeço. |
|
|
|
Mensagem do
INFOBRENO
em 18/01/2021, 17:57 h
Local: MT Registro: 02/03/2011 Postagens: 117 |
Utiliza o ponto de entrada MTA015MNU.
Breno Nogueira |
|
|
|
Mensagem do
LEOSSANTOS
em 19/01/2021, 09:15 h
Local: SP Registro: 28/08/2020 Postagens: 21 |
Breno, grato pela dica.
Não encontrei documentação deste ponto de entrada, sabe me dizer porque meu codigo não funcionou?
User Function MTA015MNU()
Local aRotUser := {}
AAdd( aRotUser, { ‘Etiq. Endereço‘, "Processa( {|| U_LABELEND() }, ‘Aguarde...‘, ‘Imprimindo Etiqueta...‘,.F.)", 0, 2,0 } )
Return aRotUser
Debuguei e esta passando pelo PE, mas não cria o botão.
|
|
|
|
Mensagem do
EMERSON.EN
em 19/01/2021, 09:39 h
Local: SP Registro: 20/08/2010 Postagens: 670 |
manipule diretamente o aRotina:
User Function MTA015MNU()
aAdd( aRotina, { ‘Etiq. Endereço‘, "Processa( {|| U_LABELEND() }, ‘Aguarde...‘, ‘Imprimindo Etiqueta...‘,.F.)", 0, 2,0 } )
Return |
|
|
|
Mensagem do
LEOSSANTOS
em 19/01/2021, 11:58 h
Local: SP Registro: 28/08/2020 Postagens: 21 |
Funcionou!
Muito obrigado! |
|
|
|
Mensagem do
DEUSDETE87
em 19/01/2021, 14:07 h
Local: GO Registro: 27/02/2020 Postagens: 10 |
Boa tarde Leonardo,
Também estou precisando fazer a impressão das etiquetas. Por acaso você também utiliza a impressora zebra gc420t?
Se utilizar e puder compartilhar, agradeço.
Consultor Protheus
Deusdete Lopes
deusdetelopes@bol.com.br
(62) 99273-9500 |
|
|
|
Mensagem do
LEOSSANTOS
em 19/01/2021, 15:50 h
Local: SP Registro: 28/08/2020 Postagens: 21 |
Olá Deusdete,
da forma que fiz serve pra qualquer impressora com linguagem ZPL.
Segue codigo:
User Function LABELEND()
cCodigo := SBE->BE_LOCALIZ
cDesc := SBE->BE_DESCRIC
// CONFIGURA A IMPRESSORA
MSCBPRINTER("DATAMAX","LPT1",,40,.F.,,,,,,.T.)
//Codigo gerado no ZebraDesigner
MSCBWrite("CT~~CD,~CC^~CT~")
MSCBWrite("^XA")
MSCBWrite("^MMT")
MSCBWrite("^PW559")
MSCBWrite("^LL0240")
MSCBWrite("^LS0")
MSCBWrite("^BY3,3,86^FT13,188^BCN,,N,N")
MSCBWrite("^FD>:A>50101>61^FS")
MSCBWrite("^FT5,59^A0N,44,28^FH\^FD" + cDesc + "^FS")
MSCBWrite("^FT112,223^A0N,36,36^FB105,1,0,C^FH\^FD" + cCodigo + "^FS")
MSCBWrite("^PQ1,0,1,Y^XZ")
// FINALIZA IMPRESSAO
MSCBEND()
//Encerra conexão impressora
MSCBClosePrinter()
Return
|
|
|
|
Mensagem do
DEUSDETE87
em 19/01/2021, 16:29 h
Local: GO Registro: 27/02/2020 Postagens: 10 |
Ok, vou testar aqui.
Muito obrigado por compartilhar!
Consultor Protheus
Deusdete Lopes
deusdetelopes@bol.com.br
(62) 99273-9500 |
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
