Trecho do ponto de entrada que faz a chamada para o Ponto de Entrada que o cliente renomeia para XMT116OK

O fonte MT116OK.prx (pasta 0-Pontos Entrada Protheus) apenas chama a função U_MLA116OK() (fonte MLA116OK.prw, pasta Pontos Entrada do projeto Central XML). Ao final da regra da Central XML é feita a chamada do ponto de entrada do cliente:

	// Se o retorno previsto é verdadeiro, avalia ainda outra função do cliente
	If lRet
		// Ponto de entrada para permitir ou nao a exclusao
		If ExistBlock("XMT116OK")
			lRet := Execblock("XMT116OK",.F.,.F.,ParamIXB)
			If ValType(lRet) <> "L"
				lRet := .T.
			EndIf
		EndIf
	Endif

Return lRet

Uso na Central XML

Na inclusão de CT-e pela Central XML:

• Grava o valor do pedágio do XML (F1_VALPEDG / aNFEDanfe[15]).
• Com XM_MT116RT = .T., dispara os gatilhos de tipo de operação (D1_OPER) e define a TES pela TES inteligente.
• Preenche a natureza por item (XM_CPOD1NT, padrão D1_NATUREZ).
• Executa o MT103DNF com {aNFEDanfe} para as validações da Central XML (chave, duplicatas, impostos); o retorno define se o lançamento é aceito.
• Com XM_EXBM116 = .T., restaura l116Auto.

Na exclusão de CT-e, com XM_EXBM116 = .T., restaura l116Auto.

Parâmetros gerais e compatibilização:

• Parâmetro XM_USACXML indica se a Central XML está em uso (padrão .T.).
• O ponto de entrada ZEXPEXML, se compilado, recebe {"MT116OK", PARAMIXB}; retornando .F., a rotina retorna .T. (confirma a operação) sem executar a regra nem o XMT116OK.
• Compatibilização: o cliente que já tem o MT116OK renomeia sua User Function para XMT116OK. Ela só é executada quando a validação da Central XML foi aprovada, e seu retorno lógico prevalece.

Documentação oficial no TDN

MT116OK - Confirma a exclusão da Nota de Conhecimento de Frete - Linha Microsiga Protheus - TDN

Ponto de entrada MT116OK

Ponto de Entrada