Histórico da Página

Informações Gerais

   Legenda: 1 – Inovação 2 – Manutenção (Os demais campos devem ser preenchidos para ambos os processos). 

Objetivo

 Desenvolver a estrutura  e os componentes que possibilitem adotar, para o processo de aprovação de documentos de fretes e faturas de fretes, um sistema de aprovações por nível de alçada, com possibilidade de integração com o módulo MLA do ERP Datasul.

Definição da Regra de Negócio

Atualmente o processo de aprovação de documentos de fretes faturas de fretes no SIGAGFE é realizado diretamente pelo programa de auditoria Auditoria de fretesFretes, sem a possibilidade de adoção de um sistema de hirarquiashierarquias, sequenciamento de aprovação ou por nível de alçada considerando os valores envolvidos.

 A partir deste desenvolvimento , será disponibilizado um novo processo aos clientes do SIGAGFE que utilizam o ERP Totvs TOTVS 12 / Datasul, para permitir a aprovação destes processos em nível de alçadas, com a integração ao módulo  MLA módulo MLA - Módulo Logístico de Aprovação (http://tdn.totvs.com/pages/releaseview.action?pageId=73077953).Aprovação de Processos Logísticos.

 Este sistema de aprovação terá como tem como função principal permitir a definição de  hierarquias de aprovação sobre os processos de frete (com nível de alçada), levando sempre para o MLA documento que passou pela conferência de fretes.    Assim, serão integrados os documentos de frete que foram bloqueados pelo sistema SIGAGFE devido a divergência com o valor previsto ou com os dados calculados e de faturas de fretes bloqueados por divergências com os carga. As faturas de fretes serão enviadas após serem aprovadas pelo sistema, para que no MLA seja liberada a permissão de pagamento (integração com o módulo Financeiro).

As faturas que forem bloqueadas por divergências com os valores de pré-faturas ou com o do somatório de documentos de frete vinculados a ela. Também será gerada (para os clientes que optarem por utilizar a pré-fatura) gerará o registro de pendência de aprovação no MLA para os documentos de frete e faturas que forem Aprovados pelo Sistema, porém, para que não seja necessária a intervenção de aprovadores neste módulo e ele seja aprovado automaticamente (pois a auditoria de frete já conferiu e liberou o documento) a pendência será criada no MLA com o usuário de solicitação = "SISTEMA", o qual deve obrigatoriamente estar cadastrado como um aprovador para os documentos 30 e 31 e configurado para aprovação automática. Se este usuário não for cadastrado, os documentos serão gerados normalmente e dependerão da intervenção de algum aprovador, conforme a configuração definida no MLA para os documentos. Esta movimentação se faz necessária para manter em um mesmo ambiente todos os documentos aprovados.

no momento do seu bloqueio no GFE. Neste caso, a aprovação da divergência entre Fatura de frete x Pré-fatura já libera para a integração com o Financeiro, não necessitando aprovação dupla da fatura no MLA.

A integração com o módulo MLA

deve ser ativada no programa de

Parâmetros do

Módulo - GFEX000, no qual, além da definição da integração da aprovação dos processos com o MLA, também será definido se o valor a ser considerado para definição da alçada de aprovação será o valor total do documento ou a diferença entre previsto e realizado.

GFEXWSFUN:

• Na Function GFEWSGETDATA:

Incluir o tratamento para envio das informações ao Web Service: 

Case cTabela == "GW3" .AND. cCodInt == '6'

// Doc Frete e Cod integração seja Recebimento
cQuery += " AND (TAB.GW3_SITMLA = '2' OR TAB.GW3_SITMLA = '5' OR TAB.GW3_SITMLA = '8') "

Case cTabela == "GW6" .AND. cCodInt == '6'
// Fatura e Cod integração seja

Financeiro 
cQuery += " AND (TAB.GW6_SITMLA = '2' OR TAB.GW6_SITMLA = '5' OR TAB.GW3_SITMLA = '8') "

Criar bloco de envio de informações da tabela de fretes do GFE para o Datasul: 

tabela = GW3

operação = 6

As informações do Documento de frete enviados para o

WebServices serão:

 #GW3|GW3_FILIAL|GW3_CDESP|GW3_EMISDF|GW3_SERDF|GW3_NRDF|GW3_DTEMIS|GW3_TPDF|GW3_DTENT|GW3_CFOP|GW3_SIT|GW3_USUIMP|GW3_CDREM|GW3_CDDEST|GW3_VLDF|GW3_TAXAS|GW3_FRPESO|GW3_FRVAL|GW3_PEDAG|GW3_QTDCS|GW3_QTVOL|GW3_VOLUM|GW3_PESOR|GW3_PESOC|GW3_VLCARG|GW3_TPIMP|GW3_TRBIMP|GW3_BASIMP|GW3_PCIMP|GW3_VLIMP|GW3_CTE|GW3_MOTBLQ|GW3_DTBLQ|GW3_USUBLQ

|GW3_ORIGEM|GW3_TPCTE|GW3_SITMLA|

• • Tratar o campo de valor do documento de frete (GW3_VLDF) para que seja enviada a diferença entre previsto e realizado, se o parâmetro MV_VLDFMLA == 2.

A mensagem será complementada com a descrição do resultado da conferência de frete (Campo Observação) para apresentação na consulta do MLA.

tabela = GW6

operação = 6

As informações da Fatura de frete enviados para o Web-Services serão:

#GW6|GW6_FILIAL|GW6_EMIFAT|GW6_SERFAT|GW6_NRFAT|GW6_DTEMIS|GW6_VLFATU|GW6_VLDESC|GW6_VLICMS|GW6_VLICRE|GW6_VLISS|GW6_VLISRE|GW6_VLJURO|GW6_DTCRIA|GW6_DTVENC|GW6_

ORIGEM|GW6_SITAPR|GW6_DTBLOQ|GW6_HRBLOQ|GW6_USUBLO|GW6_MOTBLO|GW6_OBS|GW6_SITMLA|

• • Tratar o campo de valor do documento de frete (GW6_VLFATU) para que seja enviada a diferença entre previsto e realizado, se o parâmetro MV_VLFTMLA == 2.

• Na Function

•   GFEWSSETDATA: 

Criar o tratamento do retorno do MLA do Datasul para o GFE.

Alterar, conforme a string de retorno  os campos:

Case cTabela == "GW3"

If cCodInt == '6'

GW3->GW3_SITMLA :=  aDados[7]  /*Situação da integração*/

GW3->GW3_MOTMLA := aDados[8] /* Motivo aprovação rejeição */

Se o campo GW3_SITMLA ficar com o valor ' 4=Atualizado ' então Executar o processo de aprovação (auditoria) de documentos de fretes através

da execução da função GFEA066OK (.T.), passando os dados de aprovação como parâmetros:

GFEA066OK (.T.

,

Private cMemoMLA

Private cUserAprovMLA

Private dDataAprovMLA

--

 aDados[

11] , aDados[10] , 

aDados[

9]

)

Se ficar com o valor '3=Rejeitado' ou '7=Enviado/Aguardando' então manter o documento como bloqueado, sem alterações.     

Case cTabela == "GW6"

If cCodInt == '6'

GW6->GW6_SITMLA :=  aDados[6]  /*Situação da integração*/

GW6->GW6_MOTMLA := aDados[7] /* Motivo aprovação rejeição */

Se o campo GW6_SITMLA ficar com o valor ' 4=Atualizado ' então Executar o processo de aprovação (auditoria) de documentos de fretes através da execução da

função GFEA071OK, passando os dados de aprovação como parâmetros:

GFEA071OK(aDados[11

], aDados[10] ,  aDados[8], aDados[9] )

 Se ficar com o valor '3=Rejeitado' ou '7=Enviado/Aguardando' então manter a fatura como bloqueada, sem alterações.   

Atualizar os campos de usuário, data e hora de aprovação ou rejeição no MLA:

GW6->GW6_DTAPR:=  aDados[8]

GW6->GW6_USUAPR :=  aDados[9]

GW6->GW6_HRAPR :=  aDados[10]

GFEX000:

• Na pasta Integrações Datasul, seção Opções de Integração

Private cUserAprovMLA

Private dDataAprovMLA

Private cHRAprovMLA

--

dDataAprovMLA := aDados[8] 

cHRAprovMLA := aDados[9] 

cUserAprovMLA := aDados[10] 

 Se ficar com o valor '3=Rejeitado' ou '7=Enviado/Aguardando' então manter a fatura como bloqueada, sem alterações.   

GFEX000:

• , incluir os parâmetros:
   - 
  • • MV_DFMLA - Aprovação de Doc. frete via MLA
  . 
  • • -
   MV_FTMLA - Aprovação de faturas via MLA.Ambos com as
  • • opções: 1=
  Sim
  • • Não integra / 2
  =Não
  • • =Integra com valor doc./ 3=Integra valor diferença prev./realizado.
  -
  • • MV_
  VLDMLA - Valor a considerar para o documento no MLA.Opções: 1=Valor do documento /  2=Difenrença Previsto/Realizado
  • • FTMLA - Aprovação de faturas via MLA -opções: 1=Não integra / 2=Integra com valor doc./ 3=Integra valor diferença prev./realizado.

  GFEA066:

  • Bloquear o programa para o uso quando o parâmetro MV_DFMLA estiver
  ativado
  • ativo (diferente de 1). Ao acessar o programa, o usuário deve receber a mensagem informando que a aprovação de documentos será
  através da
  • pela integração com o MLA e não permitir o acesso:
  • "Sistema parametrizado para realizar a aprovação de documentos de fretes através do módulo MLA".
  • Na função GFEA066OK:
    • Tratar os dados de aprovação vindos do MLA. Atualmente, como a função não é acessada externamente, o programa utiliza variáveis privadas para atribuir os valores aos campos de data e usuário de aprovação.
    • Criar novos parâmetros de entrada da função com atribuição do motivo, usuário e data de aprovação. Definir os valores de padrão dos mesmos para os casos em que a função for chamada sem informação
  destes parâmetros:
  • • destes parâmetros: 

   Function GFEA066OK(lMotivo, cMotAprov, cUserAprov, dtAprov, hrAprov)

  Default cMotAprov := cMemo

  Default  cUserAprov := cUserAprov

  Default dtAprov := DDATABASE

  ...

   

  cMemo

  RecLock("GW3",.F.)

  GW3->GW3_MOTAPR :=

  cMemo

   cMotAprov
  GW3->GW3_USUAPR :=

    cUserName

    cUserAprov 
  GW3->GW3_SIT := "4"
  GW3->GW3_DTAPR :=

   DDATABASE

   dtAprov

  GW3-

  >GW3_MOTAPR := cMemoMLA

  > GW3_HRAPR :=hrAprov

  
  GW3->GW3_USUAPR :=cUserAprovMLA
  GW3->GW3_SIT := "4"
  GW3->GW3_DTAPR := dDataAprovMLA

  EndIf

  MsUnLock("GW3")

  GFEA071:

  • Bloquear o programa para o uso quando o parâmetro MV_FTMLA estiver ativado. Ao acessar o programa, o usuário deve receber a mensagem informando que a aprovação de faturas de fretes será
  através da
  • pela integração com o MLA e não permitir o acesso:
  •   "Sistema parametrizado para realizar a aprovação de faturas de fretes através do módulo MLA".
  • Na
  função  
  • função GFEA071OK:
    • Alterar a função para passar a gravar os valores, nos campos de aprovação da tabela GW6, enviados pela aprovação via MLA:
      

  Private cUserAprovMLA

  Private dDataAprovMLA

  Private cHRAprovMLA

  -- 

  RecLock("GW6", .F.)

  If !IsInCallStack("GFEXWSFUN")  

  GW6->GW6_MOTDES := cMemo
  GW6->GW6_SITAPR := "4"
  GW6->GW6_DTAPR := dDataBase
  GW6->GW6_HRAPR := Time()
  GW6->GW6_USUAPR := cUserName

  Else

  Function GFEA071OK( cMemo, cUserAprov, dDataAprov, cHRAprov )

  Default cUserAprovMLA := cUserName

          Default dDataAprovMLA := dDataBase

          Default cHRAprovMLA := Time()

  -- 

  RecLock("GW6", .F.)

   

  GW6->GW6_MOTDES := cMemo

  GW6->GW6_SITAPR := "4"

  GW6->GW6_DTAPR := 

  dDataAprovMLA

  dDataAprov
  GW6->GW6_HRAPR :=  

  cHRAprovMLA

  cHRAprov
  GW6->GW6_USUAPR := 

  cUserAprovMLA

  cUserAprov

  Endif 

  GW6->( MsUnlock() )

  ***O campo cMemo não precisa ser atribuído por uma variável diferente pois na chamada da função atual já é passada como parâmetro.

   
  • Na Function GFEA071RA:
    No bloco de alteração da sitação da fatura para '2-Bloqueado' ( GW6->GW6_SITAPR := "2" ), incluir
    • • Incluir a alteração do campo GW6_SITMLA para "2-Pendente", verificando os parâmetros de ERP Integrado ( 1=Datasul ) e Aprovação via MLA ( 1=Sim ).

     RecLock("GW6",.F.) 

             If lAprovMLA 

                If

     MV

    GW6->GW6_

    ERPGFE

    SITMLA=="

    1" .AND. MV_DFMLA

    7" 

      

                    

    GW6->GW6_SITMLA:="28" 

                    GW6->GW6_MOTMLA:="" 

                 Else 

                     GW6->GW6_SITMLA:="2" 

                     GW6->GW6_MOTMLA:="" 

                 EndIf 

     

          Else 

     

                GW6->GW6_SITMLA:="6"// Não se aplica - sem integração com MLA. 

                GW6->GW6_MOTMLA:="" 

           

          EndIf 

    No bloco onde a fatura é aprovada pelo sistema (GW6->GW6_SITAPR := "3") atribuir

          GW6->(MsUnlock())

    GFEA070:

    • Quando for solicitada a exclusão da fatura no SIGAGFE, atualizar o campo GW6_SITMLA
    := 6 (Não se aplica). 
    • para 9-Excluir, se a situação no MLA for 3=Rejeitado, 4=Atualizado ou 7-Enviado/aguardando.

    GFEA065:

    • Alterar programa para que na validação do documento de fretes o campo de situação no MLA seja atualizado.
    • Na Function GFEA065VP:
    • Incluir o campo GW3_SITMLA := 2 e GW3_MOTMLA := " " na conferência de
    fretes, quando o documento não for aprovado. Quando aprovado
    • fretes, quando o documento for ou não aprovado ( quando MV_ERPGFE == "1" .AND. MV_DFMLA  ). Caso contrário, gravar o campo com o valor
    '
    • 6=Não se aplica
    ': 
    • .
    • Se o registro estiver aguardando aprovação no MLA (GW3_SITMLA == "7" ) e houve atualização no registro que alterou a situação para aprovado via Sistema, então, deve ser enviada solicitação de desatualização do registro no MLA.
    •  

    lAprovar := GFEA065CO(oModel)

     If 

     If !lAprovar .AND. MV_ERPGFE == "1" .AND. MV_DFMLA  

                     oModel:LoadValue("GFEA065_GW3" ,"GW3_SITMLA","2")  /*Pendente Atualização */

                   

     oModel

     oModel:LoadValue("GFEA065_GW3" ,"GW3_MOTMLA",")

           

     Else               if  GW3

     If  GW3->GW3_SITMLA == "7"

         oModel

     oModel:LoadValue("GFEA065_GW3" ,"GW3_SITMLA","

    5

    8")

     /* pendente desatualização.

      /*Atualizar registro de pendencia no MLA*/

     

    else

                     oModel:LoadValue("GFEA065_GW3" ,"GW3_

    SITMLA

    MOTMLA","

    6"

    )

     /* Não se aplica. */

    endif

             Else 

     

         

            If MV_ERPGFE == "1" .AND. MV_DFMLA 

      if  GW3->GW3_SITMLA == "7"

         oModel:LoadValue("GFEA065_GW3" ,"GW3_

    MOTMLA

    SITMLA","

    Aprovado Via Sistema")

    5")  /* pendente desatualização. Quer dizer que o documento foi alterado após ser enviado para o MLA */ 

    endif

           

    EndIf 

    EndIf 

     

    GFEA065C:

    • Na  Function Conferencia():
      • Incluir o campo GW3_SITMLA := 2 e GW3_MOTMLA := " " na conferência de fretes, quando o documento for ou não
    for
    • • aprovado
    . Quando aprovado, gravar
    • • (considerar os parâmetros do módulo). Gravar o campo com o valor
    '
    • • 6=
    Não se aplica': 
    • • Não se aplica quando não ativada a integração com o MLA de documentos de frete:

    lAprovado := GFEA065CO(oModelGW3)
    RecLock("GW3", .F.)

    If !lAprovado .AND.  MV_ERPGFE == "1" .AND.

     MV_DFMLA  

     MV_DFMLA  

       

           

     oModel:LoadValue("GFEA065_GW3" ,"GW3_SITMLA","2")  /*Pendente Atualização */

         oModel:LoadValue("GFEA065_GW3" ,"GW3_

    SITMLA

    MOTMLA",

    "2")  /*Pendente Atualização */

    ")

         if  GW3->GW3_SITMLA == "7"

             

            oModel:LoadValue("GFEA065_GW3" ,"GW3_

    MOTMLA

    SITMLA","8")

             Else              

    if  GW3

     /* Atualizar registro no mla */ 

         endif

    Else

      If MV_ERPGFE == "1" .AND. MV_DFMLA 

          if  GW3->GW3_SITMLA == "7"

         

    oModel

         oModel:LoadValue("GFEA065_GW3" ,"GW3_SITMLA","5")  /* pendente desatualização. Quer dizer que o documento foi alterado após ser enviado para o MLA */ 

    Else

         Endif 

    else 

               oModel:LoadValue("GFEA065_GW3" ,"GW3_SITMLA","6")  /* Não se aplica. */ 

                     

     oModel

     oModel:LoadValue("GFEA065_GW3" ,"GW3_MOTMLA",") EndIf

    endif

          

        EndIf         MsUnlock

     MsUnlock()

    Tabelas Utilizadas

    • GW3 - Documento de fretes

    • GW6 – Fatura de fretes

     

Protótipo de Tela

Não se aplica. 

Fluxo do Processo

 Não se aplica.

Dicionário de

Grupo de Perguntas

Não se aplica. 

Consulta Padrão

Não se aplica. 

Estrutura de Menu

Não se aplica. 

Cadastro de Papéis

Não se aplica.