Trecho do ponto de entrada que faz a chamada para o Ponto de Entrada que o cliente renomeia para XMTA103MNU
O fonte MTA103MNU.prx (pasta 0-Pontos Entrada Protheus) apenas chama a função U_MLA103MN() (fonte MLA103MN.prw, pasta Pontos Entrada do projeto Central XML), que contém a regra:
If lUsaCXml
Aadd(aRotina,{ "Danfe/Dacte" , "U_MLVIENFE(1,SF1->F1_CHVNFE,SF1->F1_FILIAL+SF1->F1_DOC+SF1->F1_SERIE+SF1->F1_FORNECE+SF1->F1_LOJA+SF1->F1_TIPO+'|'+SF1->F1_STATUS)", 0 , 2, 0, .F.})
Aadd(aRotina,{ "Existe XML?" , "U_MT103XCH()", 0 , 1, 0, .F.})
Aadd(aRotina,{ "Consulta Sefaz" , "U_MLCNFSEF(SF1->F1_CHVNFE,.T.,,)", 0 , 2, 0, .F.})
Aadd(aRotina,{ "Lacto Contábil" , "U_MLCONCT2()", 0 , 2 , 0, .F.})
Aadd(aRotina,{ "Conf.Cega" , "U_GMCOMR04(SF1->F1_CHVNFE)", 0 , 2, 0, .F.})
Aadd(aRotina,{ "Anexos Central XML®" , "U_MLA103AX()", 0 , 2, 0, .F.})
Endif
// Chamada para Ponto de entrada nativo do Cliente - Padrão adição da letra "X" ao nome do Ponto de entrada
If ExistBlock("XMTA103MNU")
ExecBlock("XMTA103MNU",.F.,.F.,aInParamIxb)
EndIf
Return
Adiciona no menu Outras Ações do Documento de Entrada:
Parâmetros gerais e compatibilização:
XM_USACXML indica se a Central XML está em uso (padrão .T.).ZEXPEXML, se compilado, recebe {"MTA103MNU", PARAMIXB}; retornando .F., a rotina sai sem incluir as opções nem executar o XMTA103MNU.aRotina normalmente.Documentação oficial no TDN
MTA103MNU - Inserir novas opções no array aRotina - Linha Microsiga Protheus - TDN
| Linha de Produto: | Microsiga Protheus |
|---|---|
| Módulo: | Compras (SIGACOM) |
| Rotina: | Documento de Entrada - MATA103 |
| Ponto de Entrada: | MTA103MNU |
| Versões: | Microsiga Protheus 10, Microsiga Protheus 11, Protheus 12 |
| País(es): | Todos |
| Banco(s) de Dados: | Todos |
| Sistema(s) operacional(is): | Todos |