| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  ADVPL
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
MA650BUT |
|
Versão: |
12.1.33 |
|
Plataforma: |
Linux |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
|
|
Mensagem do
MARIALOURD
em 13/03/2023, 12:43 h
Local: GO Registro: 07/05/2021 Postagens: 13 |
Estou precisando incluir algumas rotinas em outras ações, separada por pasta.
Gostaria de saber que como fazer pra criar pasta.
#INCLUDE "rwmake.ch"
User Function MA650BUT()
//Armazém
aAdd(aRotina,{‘Armazem‘,‘MATA105( )‘,0,6 })
aAdd(aRotina,{‘Gerar Requi‘,‘MATA106( )‘,0,6 })
aAdd(aRotina,{‘Baixar Requi‘,‘MATA185( )‘,0,6 })
//Produção
aAdd(aRotina,{‘Apontar Prod‘,‘MATA250()‘,0,6,0})
aAdd(aRotina,{‘Apontar Perda‘,‘MATA685()‘,0,6,0})
aAdd(aRotina,{‘Encerrar OP‘,‘MATA250()‘,0,6,0})
Return aRotina
|
|
|
|
Mensagem do
EMERSON.EN
em 13/03/2023, 13:34 h
Local: SP Registro: 20/08/2010 Postagens: 670 |
tente assim:
// cria os arrays dos subitens
//Armazém
aRotArm := {}
aAdd(aRotArm,{'Armazem','MATA105( )',0,6 })
aAdd(aRotArm,{'Gerar Requi','MATA106( )',0,6 })
aAdd(aRotArm,{'Baixar Requi','MATA185( )',0,6 })
//Produção
aRotProd := {}
aAdd(aRotProd,{'Apontar Prod','MATA250()',0,6,0})
aAdd(aRotProd,{'Apontar Perda','MATA685()',0,6,0})
aAdd(aRotProd,{'Encerrar OP','MATA250()',0,6,0})
// inclui as opções no menu
aAdd(aRotina,{'Requisicao',aRotArm,0,6,0})
aAdd(aRotina,{'Apontamento',aRotProd,0,6,0})
|
|
|
|
Mensagem do
MARIALOURD
em 13/03/2023, 16:50 h
Local: GO Registro: 07/05/2021 Postagens: 13 |
| Ficou perfeito , muito obrigada! |
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
