Informações Gerais

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

Objetivo

Integrar as informações de contas a pagar geradas pelo módulo SIGATMS (Transportation Management System) da linha Microsiga Protheus  com com o módulo FINANÇAS APB da linha Datasul.

O Protheus usará como ferramenta de Integração o EAI (Enterprise Application Integrator).

O , o EAI por sua vez, terá a responsabilidade de trafegar mensagens de XML entre o Protheus e o Datasul, além de fazer o controle de filas das mensagens a serem integradas.

Definição da Regra de Negócio

Para cumprir o objetivo deste requisito, será necessário retirar a amarração que o SIGATMS possui com tabelas e rotinas do SIGAFIN. Esta amarração só deverá ser retirada quando o transportador estiver trabalhando com integração com outro ERP que não seja Protheus. Para isto, será criado o parâmetro MV_TMSERP, este parâmetro definirá qual é o sistema que o TMS está integrado, onde: 0=Protheus; 1=DATASUL, sendo assim, se houver outro ERP  a a ser integrado pelo SIGATMS, o mesmo poderá ser cadastrado como "2" e assim sucessivamente.

Quando o parâmetro MV_TMSERP estiver igual á "0" - PROTHEUS, o SIGATMS deverá se comportar como se comporta hoje, ou seja, chamando as rotinas do financeiro Financeiro (050MANSE2, FINA050 e FINA080), para geração e baixa de títulos respectivamente, além de continuar analisando as tabelas SE2 e SE5.

Porém, se o parâmetro MV_TMSERP estiver igual á "1" - DATASUL, o SIGATMS deverá enviar mensagens para o DATASUL, solicitando a criação de títulos e impostos e solicitando o retorno de forma síncrona Síncrona em alguns casos.

Abaixo Mapa Mental com as rotinas que sofrerão alterações caso o parâmetro MV_TMSERP esteja igual à '1'.

Image Modified

                        
Seguem as rotinas que devem ser alteradas para que seja realizada a leitura do parâmetro : MV_TMSERP, e caso o conteúdo do parâmetro seja igual a '1', toda chamada às rotinas : A050ManSe2(), FINA050, FINA050 e FINA080, devem ser alteradas para chamar o EAI do Protheus para que o título/baixa seja realizada no DATASUL.

Abaixo exemplo do que deve ser alterado nos fontes citados, deve-Abaixo exemplo do que deve ser alterado nos fontes citados, deve-se criar apenas um novo fonte (TMSINTABP) que será chamado pelas rotinas acima e pelos retornos enviados pelo APB do Datasul.

Quando o SIGATMS estiver integrado com o ERP Datasul (MV_TMSERP = '1'), não será possível incluir movimento de custo de transporte seja realizado para uma viagem, que possui contrato de carreteiro não baixado.viagens que já possuem o contrato de carreteiro gerado. 

Image Added

Por intermédio da rotina Registro de Indenizações (TMSA370), é gerado um título no Contas a Pagar do Protheus (TMSA370).

Porém se Se o parâmetro MV_TMSERP, estiver configurado igual á "1", os títulos serão títulos serão gerados no ERP Datasul, a partir do envio de uma mensagem ao EAI Protheus para se comunicar com o Datasul e solicitar a geração deste título no ERP Datasul. O título será gerado de forma assíncrona Assíncrona, ou seja, o movimento de custo será gerado no SIGATMS e a mensagem de inclusão do título no Datasul será incluída na fila do EAI.

Caso o parâmetro MV_TMSERP, estiver esteja igual à "20", os títulos continuarão sendo gerados no Contas a Pagar do Protheus (SIGAFIN).

Rotina de Integração:

Sempre que o parâmetro MV_TMSERP for igual a  “1”, na rotina Registro de Indenizações (TMSA370) ao chamar a function TMSA370Grv fará o desvio e não vai cadastrar o título no contas à pagar pela rotina A050ManSe2(), será chamada a integração TMSI370ABP() que é responsável por enviar a mensagem com o tipo “3-Ocorrência” e subtipo “301-Indenização Seguro”, contendo o valor que será ressarcido.

Âncora
TMSA330 TMSA330

Fechamento de Seguro (TMSA330)

Image Added

Ao confirmar o fechamento de seguros no TMS, hoje é gerado um título no Financeiro considerando as informações das tabelas DU3 (Componentes de Seguro), DU8 (Fechamento de Seguro) e DU9 (Itens de Fechamento de Seguro).

Porém, quando a integração com ERP Datasul estiver ligada, a rotina A050ManSe2, não deverá ser mais chamada e sim a rotina que enviará uma mensagem de geração de título ao EAI Protheus, o EAI por sua vez enviará a mensagem de geração de título ao WebService do EAI Datasul.

Vale ressaltar que deve ser gerado um título para cada componente de seguro de acordo com os componentes definidos na tabela DU3 (Componentes de Seguro).

Importante observar que hoje os títulos gerados pelo fechamento do seguro podem ter seus lançamentos contábeis demonstrados no SIGATMS, com o ERP Datasul essa visualização não será mais disponível, já que a mesma será realizada automaticamente pelo ERP Datasul.

Rotina de Integração:

O desvio para a integração ocorre na função TMSA330Conf() localizada na rotina Fechamento de Seguro (TMSA330) e será realizada pela rotina de Integração TMS X ABP Datasul (TMSI330ABP).

Pela função TMSA330mnt() é chamada a tela de parâmetros e apresentada as informações dos documentos. Se o fechamento for confirmado é realizada a chamada da rotina TMSA330Conf() e realizada a integração financeira com o Contas à Pagar gravando o prêmio do seguro, do contrário é chamada a rotina TMSA330Grv(), gerando os registros nas tabelas DU8 e DU9.

Trecho do código que realiza o desvio para a integração:

Local lTmsERPDTS := SuperGetMV("MV_TMSERP",,'0') == '1'


If lTmsERPDTS
         //--Chama Rotina que fará a geração e envio do XML ao EAI (Essa rotina pode trabalhar de forma assíncrona)
                    //Integração via Mensagem Única
                    If cFilMsg == "1" .and. FWHasEAI('TMSIABP',.T.,,.T.)
                            FwIntegDef( 'TMSA070', , , , 'TMSA070' )
                   EndIf
Else 
         A050ManSE2(,DTY->DTY_VIAGEM,cPrefixo,cTipNDF,cParcela,SDG->DG_VALCOB,0,DTY->DTY_CODFOR,DTY->DTY_LOJFOR,;
         cNatuDeb,1,Nil, "SIGATMS", Date(), , Date(), , cFilAnt, {})
EndIf


Além de analisar as chamadas das funções 050ManSE2, deverá ser alterado os trechos onde são analisadas diretamente as tabelas do SIGAFIN. Exemplo: SE2 e SE5.
If !Empty(SDG->DG_FILORI) .And. !Empty(SDG->DG_VIAGEM) .And. DTY->(MsSeek(xFilial("DTY")+SDG->(DG_FILORI+DG_VIAGEM) )) .And.;
         (!lTMSOPdg .Or. lGerComp)
         If lTmsERPDTS
lTMSERPDTS == .F.
         ...executa integração nativa Financeiro  //--Chama rotina que buscará os títulos no DATASUL ref. ao contrato de carreteiro já gerado. Essa rotina por se tratar de consulta deve trabalhar de forma síncrona.
                aRet := TMSIABP (2,DTY->DTY_VIAGEM, DTY_NUMCTC, SDG->DG_VALCOB, DTY_CODFOR, DTY_LOJFORProtheus.
      Else 
              If FindFunction("GETROTINTEG") .And. FindFunction("FwHasEAI") .AND. FwHasEAI("TMSA330",,.T.,.T.)
                 If Empty(aRet)
      FwIntegDef("TMSA330",,"TMSA330") 
              EndIf 
      Aviso('Não foi encontrado título algum para o contrato de carreteiro informado')
                 EndIf   
      Else
         cOrigem := 'COM' //-- Complemento
         cParcela := StrZero(1, Len(SE2->E2_PARCELA)) 
         If lGerTit
                  cPrefixo := TMA250GerPrf(cFilAnt) 
                  cParc := StrZero(1, Len(SE2->E2_PARCELA)) 
                  SE2->(dbSetOrder(6))
                  If SE2->( MsSeek( cSeek := xFilial("SE2") + DTY->DTY_CODFOR + DTY->DTY_LOJFOR + cPrefixo + PadR(DTY->DTY_VIAGEM, Len(SE2->E2_NUM)) ) )
                           If SDG->(FieldPos("DG_PARC")) > 0
                                    Do While !SE2->(Eof()) .And. SE2->(E2_FILIAL+E2_FORNECE+E2_LOJA+E2_PREFIXO+E2_NUM) == cSeek
                                             cParc:=Soma1(SE2->E2_PARCELA)
                                             SE2->(dbSkip())
                                    EndDo
                           Else
                                    Aviso( STR0021 , STR0022 , { STR0024 } ) //"Atencao" ### "Foi encontrado na tabela SE2 um registro com a mesma chave primária, portanto não será possível efetuar a gravação." ### "OK" 
                                    Final( STR0023 ) // Execute o update UpdTMS32 
                           EndIf 
                  EndIf 
                  cParcela := cParc
         EndIf
      EndIf
EndIf

Através da rotina de Registro de Indenizações (TMSA370), é gerado um título no contas a pagar do Protheus. (TMSA370).

Porém se o parâmetro MV_TMSERP, estiver igual á "1", os títulos serão gerados no ERP Datasul a partir do envio de uma mensagem ao EAI Protheus para se comunicar com o Datasul e solicitar a geração deste título no ERP Datasul. O título será gerado de forma assíncrona, ou seja, o movimento custo será gerado no SIGATMS e a mensagem de inclusão do título no Datasul será incluída na fila do EAI.

Caso o parâmetro MV_TMSERP, estiver igual à "2", os títulos continuarão sendo gerados no Contas a Pagar do Protheus (SIGAFIN).

Ao confirmar o fechamento de seguros no TMS, hoje é gerado um título financeiro considerando as informações das tabelas: DU3(Componentes de Seguro), DU8 (Fechamento de seguro) e DU9(Itens de Fechamento de Seguro).

Porém quando a integração com ERP Datasul estiver ligada, a rotina A050ManSe2, não deverá ser mais chamada e sim a rotina que enviará uma mensagem de geração de título ao EAI Protheus, o EAI por sua vez enviará a mensagem de geração de título ao WebService do EAI Datasul.

Vale ressaltar que deve ser gerado um título para cada componente de seguro de acordo com os componentes definidos na tabela DU3(Componentes de Seguro).

Importante observar que hoje os títulos gerados pelo fechamento do seguro podem ter seus lançamentos contábeis demonstrados no SIGATMS, com o ERP Datasul essa visualização não será mais disponível. Já que a mesma será realizada automaticamente pelo ERP Datasul.

Ao gerar o contrato de carreteiro, para fornecedores com contratos que geram financeiro, campo: Ger.Tit.Cont.(DVG_GERTIT==’1’) será enviado as informações do contrato de carreteiro para o DataSul (Finanças). Como as seguintes informações:

• Tipo do título
• Número do Título
• Código do Fornecedor
• Loja do Fornecedor
• CNPJ do Fornecedor
• Loja do Fornecedor
• Lista com Viagens do Contrato de carreteiro
• Valor
• Moeda
• Data Emissão
• Filial de Débito
• Empresa Responsável pela geração
• Filial Responsável pela geração do contrato.
• Data de Vencimento (Opcional, se não for enviada gera-se de acordo com regra financeira)

O Datasul por sua vez, receberá as informações do contrato de carreteiro e definirá através das configurações do fornecedor como serão gerados os títulos (Parcelas, Data de vencimento e Impostos).

Observações:

1.            Vale ressaltar que temos um parâmetro MV_GERTIT, onde define se o título no financeiro será gerado, porém ele respeita as informações dos cadastros do financeiro (natureza, etc.). Logo o conceito deste parâmetro deixará de existir na Oferta de Operador Logístico, tendo em vista que o TMS não gerará mais títulos financeiros.

 2.             Existe um parâmetro na função Tmsa250GerDTY() que determina se o valor de pedágio deve ser deduzido da base de impostos, implica no campo DTY_BASEIMP. O conteúdo do parâmetro é de acordo com o cadastro do fornecedor campo Deduz Pedag.(DVG_DEDPDG).
Como essa informação é cadastrada no contrato do fornecedor, não será necessário ficar no financeiro Datasul, o TMS ao passar o valor do contrato ao Financeiro Datasul, já deverá resolver se o valor do pedágio será abatido ou não.

Para atender esta demanda o fonte TMSA250 deverá ser reestruturado com o objetivo de facilitar sua leitura, reutilizar as rotinas que serão utilizadas na geração do Financeiro do Protheus e no Financeiro do Datasul, além de separar as chamadas das rotinas que gerarão o contas a pagar no Financeiro do Protheus e no Financeiro do Datasul.

If cTmsErp == '0'
	
	//-- Verifica o Prefixo do Titulo
	cPrefixo := TMA250GerPrf(cFilAnt)
							
	//--Chama rotina de exclusão de títulos do ERP Protheus
	lRet := A250FinPrt(cPrefixo,cCodForn,cLojForn,cAliasDTY,cTipUso,cContrat,lRepom,@aMsgErr)	
							
	ElseIf cTmsERP == '1'
		//Chama rotina de exclusão de títulos do ERP Datasul	
		lRet := A250FinDTS(cPrefixo,cCodForn,cLojForn,cAliasDTY,cTipUso,cContrat,lRepom,@aMsgErr)
	EndIf
						

Atualmente o adiantamento da viagem é realizado na inclusão da viagem, porém deverá ser permitido que o transportador gera o título de adiantamento a partir do fechamento da viagem. Esta configuração será realizada na contrato do fornecedor, através da criação do novo campo DUJ_TITADI (1=Viagem;2=Fechamento Viagem).

Se o contrato do fornecedor estiver configurado para gerar adiantamento na Viagem (DUJ_TITADI == '1'), ao gerar uma viagem deverá ser verificado qual é o ERP que o SIGATMS está integrado.

Se o ERP for Protheus deverá ser respeitada a função A050ManSE2(). Caso o ERP for Datasul, deverá ser chamada a função de TMSIABP() que fará a integração com o ERP Datasul a partir do EAI.

Além do título de adiantamento, o título de pedágio pode ser configurado para ser gerado no momento do fechamento da viagem, campo (DUJ_TITPDG).

Se o contrato estiver configurado para gerar o título de pedágio no fechamento da viagem, ao efetuarmos a viagem a partir do TMSA310, deverá ser enviada a mensagem ao ERP Datasul solicitando a geração de um título financeiro do tipo pedágio. Porém a data de vencimento do título deverá ser a mesma data da geração.

O mesmo ocorrerá com o título de adiantamento, caso o mesmo esteja configurado para ser gerado no fechamento da viagem (DUJ_TITADI).

Rotinas que não serão Integradas neste Projeto

A tabela abaixo representa as rotinas que não serão integradas com o ERP Datasul neste momento, porém sua utilização deve continuar da mesma maneira se o SIGATMS esteja integrado com o Protheus (MV_TMSERP) == '0'.

EndIf

Image Added

Quando o SIGATMS estiver integrado com o ERP Datasul (MV_TMSERP=='1'), durante o processamento de Geração do Contrato de Carreteiro, será iniciada a Integração entre o SIGATMS e ERP Datasul. O SIGATMS repassará uma mensagem com as informações abaixo de forma Síncrona, e o ERP Datasul retornará os valores dos impostos para o SIGATMS.

Com as informações dos impostos, o contrato de carreteiro terá sua geração confirmada.

• Tipo do título
• Número do Título
• Código do Fornecedor
• Loja do Fornecedor
• CNPJ do Fornecedor
• Loja do Fornecedor
• Lista com Viagens do Contrato de Carreteiro
• Valor
• Moeda
• Data Emissão
• Filial de Débito
• Empresa Responsável pela Geração
• Filial Responsável pela Geração do Contrato
• Data de Vencimento (Opcional, se não for enviada gera-se de acordo com a regra financeira)
• Valor do INSS Retido

Se o parâmetro MV_GERTIT, estiver habilitado (.T.), ao enviar a mensagem solicitando os valores dos impostos, o SIGATMS identificará por meio de uma tag da mensagem que os títulos para o contrato de carreteiro e seus impostos devem ser gerados no ERP Datasul.

O Datasul por sua vez, receberá as informações do contrato de carreteiro e definirá por meios das configurações do fornecedor como serão gerados os títulos (Parcelas, Data de vencimento e Impostos).

Caso o parâmetro MV_GERTIT, não esteja habilitado (.F.), o SIGATMS enviará a mesma mensagem ao ERP Datasul, porém uma das tags da mensagem informará que o título não deve ser gerado no ERP Datasul.

Além dos títulos do contrato de carreteiro e seus impostos, os títulos referente ao adiantamento e pedágio também poderão ser gerados neste momento no ERP Datasul. 

Para cada um dos títulos deverá ser verificado o contrato do fornecedor e obedecer as regras abaixo:

1. Título de Adiantamento: 
   O título de adiantamento da viagem que atualmente é gerado na confirmação da viagem, poderá ser gerado no fechamento da viagem, na geração do contrato carreteiro ou ainda na confirmação da viagem, para fornecer esta possibilidade ao transportador, será criado o campo DUJ_TITADI no contrato de fornecedor.
   Este campo terá as seguintes opções de preenchimento (0,1 ou 2.), onde:
   • 0 = Confirmação da viagem;
   • 1 = Fechamento da viagem;

   • 2 = Geração do contrato de carreteiro.
     Se o título de adiantamento estiver configurado para ser gerado na geração do contrato de carreteiro, o SIGATMS ao processar a geração do contrato de carreteiro deverá verificar se o título não foi gerado na viagem. E se o título de adiantamento não tiver sido gerado, o SIGATMS enviará a mensagem de criação de título para o ERP Datasul por meio do EAI.

     Informações
     title Observação:
     Recomendável que está mensagem seja Síncrona para garantirmos que os títulos existirão no SIGATMS e também no ERP Datasul. E em caso de falha na integração o título não será gerado no SIGATMS.

      
     

2. Título de Pedágio:
   O título de pedágio já pode ser gerado em momentos diferentes, no Fechamento da Viagem (DUJ_TITPDG=='1') ou na Geração do Contrato de Carreteiro (DUJ_TITPDG=='2').
   Se o título estiver configurado para ser gerado no Contrato de Carreteiro, ao gerar o contrato de carreteiro, deve-se verificar se o título não foi gerado na viagem. Caso não tenha sido gerado no Fechamento da Viagem, o SIGATMS enviará a mensagem de criação de título de pedágio para o ERP Datasul, por meio do EAI.
   

   Informações
   title Observação:
   Recomendável que está mensagem seja Síncrona para garantirmos que os títulos existirão no SIGATMS e também no ERP Datasul. E em caso de falha na integração o título não será gerado no SIGATMS.

If cTmsErp == '0'
	
	//-- Verifica o Prefixo do Titulo
	cPrefixo := TMA250GerPrf(cFilAnt)
							
	//--Chama rotina de exclusão de títulos do ERP Protheus
	lRet := A250FinPrt(cPrefixo,cCodForn,cLojForn,cAliasDTY,cTipUso,cContrat,lRepom,@aMsgErr)	
							
ElseIf cTmsERP == '1'

		//Chama rotina de exclusão de títulos do ERP Datasul	
		lRet := A250FinDTS(cPrefixo,cCodForn,cLojForn,cAliasDTY,cTipUso,cContrat,lRepom,@aMsgErr)
EndIf						

Neste trabalho de reestruturação do TMSA250, deverá ser retirado todo o tratamento que o fonte possuí, referente a geração de contrato de carreteiro do OMS. Já que esta funcionalidade já foi retirada do Menu do módulo OMS, e a TOTVS possui o módulo SIGAGFE para embarcadores que contratam transportadoras para prestação do serviço de transporte.

Além disto o TMSA250 será convertido para MVC, fazendo com que as rotinas que estavam vinculadas a opção Mais Detalhes, fiquem disponibilizadas em folders, facilitando a visualização.

Por intermédio da opção Gerar Contrato de Carreteiro por Período, é possível gerarmos “n” registros na tabela DTY (Contrato de Carreteiro) com o mesmo número de contrato para o mesmo fornecedor. Cada registro da tabela DTY representa uma viagem no SIGATMS, porém no Contas a Pagar é gerado apenas um título para o frete, e um título para cada imposto cálculo (IRRF, INSS, Pis, Cofins, CSLL, entre outros).

Para atendermos a integração SIGATMS x ERP Datasul Finanças APB, será necessário solicitarmos o cálculo dos impostos considerando o frete total de todos os registros da tabela DTY gerados e posteriormente será necessário atualizar a tabela DTY, com os valores proporcionais de cada imposto.

Considerando a seguinte regra:

((DTY->DTY_VALFRE * nValIRRF)/nValFrete), onde:

• DTY->VALFRE: É o valor do frete da viagem.
• nValIRRF: É o valor do imposto de renda calculado para todas as viagens do contrato de carreteiro.
• nValFrete: É o valor do frete total de todas as viagens do contrato de carreteiro.

No requisito (Rentabilidade-Ocorrência de receita/despesa), será possível gerar um contrato de carreteiro complementar para as ocorrências de despesas apontadas na viagem. Isso permitirá que as despesas ocorridas no decorrer da viagem, exemplo: Diária, Ajudante, entre outros, sejam apontadas no SIGATMS a partir de ocorrências e essas despesas poderão ser pagas para o fornecedor por meio de um título a pagar, gerado pelo contrato complementar.

O requisito Rentabilidade-Ocorrência de receita/despesa, permitirá que seja gerado um contrato de carreteiro complementar para cada fornecedor e natureza financeira identificada. Ou seja, se a viagem possuir mais de um fornecedor ou as despesas da viagem possuirem mais de uma natureza financeira, será gerado mais de um contrato de carreteiro complementar.

Como a natureza financeira existente no ERP Protheus não será utilizada no SIGATMS, quando a integração com o ERP Datasul estiver habilitada (MV_TMSERP == ‘1’), devemos gerar um contrato de carreteiro complementar para cada despesa, já que cada despesa poderá ter uma configuração de espécie diferente no ERP Datasul.

Sendo assim, ao gerarmos o contrato complementar enviaremos na Tag DocumentType àIdentificação: “303” – Contrato Complementar, já a Tag DocumentSubType, terá em seu conteúdo o código da despesa utilizada na ocorrência. Exemplo: “000000000000001” – Diária.