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 carga. As faturas de fretes bloqueados 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 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.

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 (para os clientes que optarem por utilizar a pré-fatura) gerará o registro de pendência de aprovação no MLA 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., 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

• , incluir os parâmetros:
   -  - 
  • • MV_DFMLA - Aprovação de Doc. frete via
  MLA.
  • • MLA - opções: 1=Não integra / 2=Integra com valor doc./ 3=Integra valor diferença prev./realizado.
  • • MV_FTMLA - Aprovação de faturas via MLA
  .Ambos com as
  • • -opções: 1=
  Sim
  • • Não integra / 2=
  Não.

  - MV_VLDMLA - Valor a considerar para o documento no MLA.

  Opções: 1=Valor do documento /  2=Difenrença Previsto/Realizado
  • • 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:
  • •  

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

  Default cMotAprov := cMemo

  Default  cUserAprov := cUserAprov

  Default dtAprov := DDATABASE

  ...

  RecLock("GW3",.F.)

  GW3->GW3_MOTAPR := cMotAprov
  GW3->GW3_USUAPR :=  cUserAprov 
  GW3->GW3_SIT := "4"
  GW3->GW3_DTAPR := dtAprov

  GW3-> GW3_HRAPR :=hrAprov

  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:
  • • 
      

  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 := dDataAprov
  GW6->GW6_HRAPR :=  cHRAprov
  GW6->GW6_USUAPR := 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  MV_ERPGFE

     If lAprovMLA 

              If GW6->GW6_SITMLA=="

  1" .AND. MV_DFMLA

  7" 

                  GW6->GW6_SITMLA:="8" 

    

                  

  GW6->GW6_SITMLA MOTMLA:="2" 

               Else 

                   GW6->GW6_MOTMLA SITMLA:="2" 

         

   Else

           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") também atribuir ao campo GW6_SITMLA := 2 (Pendente) ou 6 (Não se aplica) considerando os mesmos valores e parâmetro mencionados acima.

   

        GW6->(MsUnlock())

  GFEA070:

  • Quando for solicitada a exclusão da fatura no SIGAGFE, atualizar o campo GW6_SITMLA 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 for ou não
  for aprovado.Quando aprovado
  • 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 MV_ERPGFE == "1" .AND. MV_DFMLA 

  if  GW3 If  GW3->GW3_SITMLA == "7"     oModel

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

  5

  8")

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

    /*Atualizar registro de pendencia no MLA*/

   Else

                   oModel:LoadValue("GFEA065_GW3" ,"GW3_

  SITMLA

  MOTMLA","

  2"

  )

  endif

           Else   /* Pendente atualização. */       

          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

  Else

          EndIf 

   

  oModel

  GFEA065C:

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

  • Na  Function Conferencia():
    • Incluir o campo GW3_SITMLA := 2 e GW3_MOTMLA := " " na conferência de fretes, quando o documento for ou não aprovado (considerar os parâmetros do módulo). Gravar o campo com o valor 6=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  

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

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

       if  GW3->GW3_SITMLA == "7"

          oModel

   

   

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

  EndIF

          EndIf 

   

  GFEA065C:

  Na  Function Conferencia():

  Incluir o campo GW3_SITMLA := 2 e GW3_MOTMLA := " " na conferência de fretes, quando o documento não for aprovado. Quando aprovado, gravar o campo com o valor '6=Não se aplica': 

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

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

                   oModel

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

  2

  8")

    

   /*

  Pendente Atualização

  Atualizar registro no mla */ 

     

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

           Else              

  if  GW3

   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

  cHRAprov

   

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.