Objetivo:

       Validar se o registro corrente do While será adicionado ao Listbox de notas


Onde é usado?        

       Durante o processamento de atualização da Lista de Notas da tela da Central XML

Se o retorno do ponto de entrada for Falso, o registro corrente do While será ignorado.



Parâmetros enviados na chamada:


1 - ParamIxb[1]        - Numérico - Como o ponto de entrada é acionado em 3 situações dentro While, é passado o valor

       1 - No começo do While, onde apenas a tabela "CONDORXML" está posicionada

       2 - Dentro dos registros que usam a entidade SA2 - Fornecedores, sendo que a SA2 está posicionada

       3 - Dentro dos registros que usam a entidade SA1 - Clientes, sendo que a SA1 está posicionada.


Exemplo de uso do Ponto de entrada, que filtra as notas de fornecedores previamente liberados para inclusão automatizada por usuários com perfil de Franqueado.


/*/{Protheus.doc} XMLCTE10

// Ponto de entrada Central XML - Verifica se registro é válido para ser exibido na tela

@author Marcelo Alberto Lauschner

@since 22/05/2019

@version 1.0

@return lRet , Logical, Retorna .T./.F. se o registro em cursor será adicionado 


@type User Function

/*/

User Function XMLCTE10()

       Local        aAreaOld        := GetArea()

       Local        lRet                := .T. 

       Local        nOpcFil        := ParamIxb

       

       

       If nOpcFil == 2        // Posicionado no cadastro de fornecedor

               If lFranqUsr        

                       If SA2->(FieldPos("A2_XIMPXML")) > 0 .And. SA2->A2_XIMPXML =="S" .And. !(CONDORXML->XML_OK $ "NN#N1#N2#N3")

                               lRet        := .T.

                       Else

                               lRet        := .F. 

                       Endif

                       

               Endif

       ElseIf nOpcFil == 3 // Posicionado no cadastro de Clientes 

               If lFranqUsr        // Se usuário com perfil de Franqueado não retorna registros de Notas de clientes

                       lRet        := .F. 

               Endif

       Endif

       

       RestArea(aAreaOld)

       

Return lRet

Created with the Personal Edition of HelpNDoc: Free help authoring environment