MT103BDP - Bloqueio de Acols de Duplicatas

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

User Function MLA103DP()
  Local   l103BDP     
	Local 	lUsaCXml 	:= GetNewPar("XM_USACXML",.T.)

	If lUsaCXml .And. INCLUI .And. SF1->(FieldPos("F1_VALPEDG")) > 0  .And. sfValAtrib("nValPedagio") == "N".And. Len(aNfeDanfe) >= 15  .And. Alltrim(cEspecie) $ "CTE"
		If nValPedagio > 0
			aNFEDanfe[15]	:= nValPedagio
			M->F1_VALPEDG	:= nValPedagio
			MaFisAlt("NF_VALPEDG",nValPedagio)
		Endif
	Endif

    // Permite a execução do ponto de entrada caso o cliente tenha o mesmo ponto customizado
	If ExistBlock("XMT103BDP")
		l103BDP:=ExecBlock("XMT103BDP",.F.,.F.,{})
		If ValType(l103BDP)<>'L'
			l103BDP := .F.
		EndIf
        Return l103BDP
	Endif

Return

Link TDN

MT103BDP - Bloqueio do Acols de Duplicatas - Bloqueio do Acols de Duplicatas

Ponto-de-Entrada: MT103BDP - Bloqueio do Acols de Duplicatas

Abrangências:	Microsiga Protheus 10 , Microsiga Protheus 11
Versões:	Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Idiomas:	Português (Brasil) , Português (Portugal) , Espanhol , Inglês

Descrição:

O ponto de entrada: MT103BDP está localizado no Documento de Entrada e tem a finalidade de indicar se o aCols de Duplicatas serábloqueado.

Programa Fonte

MATA103X.PRX

Sintaxe

MT103BDP - Bloqueio do Acols de Duplicatas ( ) --> lRet

Retorno

lRet

.T. = Bloqueia a edição do Acols SE2.F. = Não Bloqueia

Exemplos

User Function MT103BDPLocal lRet := .T.Return lret