Histórico da Página

#INCLUDE "TOTVS.CH"
/*/
    {Protheus.doc} User Function MAT070OK
    ( Ponto de entrada permite criar validações no codigos de fornecedores e clientes )
    @type  Function
    @author Cassio S Dias
    @since 07/12/2023
    @version 12.12310
    @return lRet, logical
    @see (links_or_referenceshttps://tdn.totvs.com/x/DDJAM)
/*/

User Function MAT070OK() as logical
Local lRet   as logical
local cCliLj as character
local cForLj as character 

lRet    := .F.
cCliLj  := M->A6_CODCLI+M->A6_LOJCLI
cForLj  := M->A6_CODFOR+M->A6_LOJFOR

If Empty(cCliLj) .and. Empty(cForLj)
	Return .T.
EndIf

Return( lRet )