Trecho de compatibilização com o ponto de entrada ajustado do cliente

User Function MT140CPO()

	Local	aInParamIxb	:= aClone(ParamIxb)
	Local	aRetCpo		:= {}
	Local	aCamposPE	:= {}
	Local aCpoVldXml	:= {}
	// Validações da Central XML®
	If ExistBlock("XMT140CPO")
			aCamposPE := If(ValType(aCamposPE:=ExecBlock('XMT140CPO',.F.,.F.))=='A',aCamposPE,{})
			If Len(aCamposPE) > 0
				For nForA := 1 to Len(aCamposPE)
					If (aScan(aRetCpo, aCamposPE[nForA])) == 0
						aadd(aRetCpo, aCamposPE[nForA])
					EndIf
				Next nForA
			EndIf
		EndIf
	
		// Verifica os campos da validação da Central XML caso já tenham sido adicionados pelo ponto de entrada o cliente 
		If Len(aCpoVldXml) > 0
			For nForA := 1 to Len(aCpoVldXml)
				If (aScan(aRetCpo, aCpoVldXml[nForA])) == 0
					aadd(aRetCpo, aCpoVldXml[nForA])
				EndIf
			Next nForA
		EndIf
	
Return aRetCpo

Link TDN

https://tdn.totvs.com/pages/releaseview.action?pageId=6085508

MT140CPO - Permite a inclusão de campos na GetDados

Tempo aproximado para leitura:

2 minutos

Ponto-de-Entrada: MT140CPO - Permite a inclusão de campos na GetDados

Descrição:

`LOCALIZAÇÃO : Function A140NFiscal() - Responsável por controlar a interface de um pre-documento de entrada.

EM QUE PONTO : O ponto de entrada é chamado logo no inicio do programa, e pode ser utilizado para incluir campos na GetDados quando seu retorno for um Array Multidimencional contendo campos do D1. Se, por exemplo, o retorno do RDMake for {'D1_SERVIC','D1_ENDER','D1_TPESTR'} estes campos irão aparecer na GetDados da Pré-Nota.`

Eventos

Programa Fonte

MATA140.PRW

Sintaxe

MT140CPO - Permite a inclusão de campos na GetDados ( < UPAR> ) --> URET

Parâmetros:

Retorno

URET

• Pode ser um Array. Caso contrario, não altera o funcionamento do programa.

Observações