Histórico da Página

(Obrigatório)

Informações Gerais

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

(Obrigatório)

Objetivo

 Desenvolver funções (adapters) que serão executadas nas rotinas de cadastro de itens, cadastro de local de estoque, cadastro de recurso, estrutura, processos,  rotinas de inclusão/alteração de ordens de produção, endereços de estoque e saldos para que  os dados sejam enviados via mensagem XML ao PCFactory. O envio das mensagens se dará via WEBSERVICE.

(Obrigatório)

Definição da Regra de Negócio

Desenvolver rotinas para realizar o envio dos dados do LOGIX para o PCFactory usando Adapters que irão gerar os XML´s que serão enviados ao Webservice da PPi MultTask.

Serão integrados os seguintes dados :

• Cadastro de Itens
• Cadastro de Local de Estoque ( depósitos)
• Cadastro de Recurso (Cadastro de Centro de Trabalho)
• Ordens de produção ( Operações, Roteiros, Componentes )
• Estrutura
• Processos
• Endereços de estoque
• Saldos de estoque
  

A integração entre os dois sistemas ocorrerá utilizando o conceito de troca de mensagens XML trafegadas sobre o protocolo HTTP ou HTTPS – com o uso do padrão SOAP (WebServices). A mensagem será enviada para o Webservice disponibilizado pelo PCFactory (software MES da PPI Multitask), caracterizando o envio como síncrono.

Conforme o padrão da TOTVS, todas as mensagens trafegadas usarão o conceito de Mensagem Única – sob o layout da TOTVSMessage (que pode ser conferido em $/STABLE/xmlschema/general/totvsmsg.xsd).

Segue regra de envio (TOTVS-> PPI) usada para todos os arquivos(utilizando o exemplo do cadastro de produto):

• No momento da criação, alteração ou exclusão de um Item, o WebService será avisado de forma síncrona antes da efetivação no próprio TOTVS.
• O PC Factory, ao receber a mensagem já irá executar a rotina de efetivação no mesmo momento, permitindo retornar ao TOTVS se o ITEM foi incluído, alterado ou excluído com sucesso ou se há alguma inconsistência de negócio.
• Caso não ocorra erro, o procedimento é concluído e a sessão do usuário já é liberada.
  Em caso de exceção (erros de transporte ou inconsistências de negócio), o usuário será avisado no mesmo momento que o ITEM não foi efetivado no PC Factory, e gerando a pendência de integração em banco de dados, para que um usuário responsável consiga visualizar as informações que não foram enviadas e possa tomar alguma ação sobre ela(controle de pendências).
  

Abaixo vamos detalhar o envio de cada mensagem. A criação/alteração dos adpaters bem como a alteração dos pontos de geração e alteração dos dados que deverão startar o envio das mensagens.

Mensagens TOTVS enviadas:

1 - Item

O cadastro de itens é o MAN10021. Gera a tabela  ITEM.

A Mensagem utilizada será:  Item_3_002

1.1  Mensagem:

A mensagem possui vários tags, porém serão usadas algumas para o PCFactory:

Observação:

• Para a tag Productype deverá ser acrescentado os seguintes valores:
  22 = Produzido
  23 = Comprado
  24 = Fantasma
  25 = Beneficiado
  27 = Final

• Para a tag StockControlType:

  StockControlType (Não envia) 1 - Endereço; 2 - Serie; 3-Lote.

  Deverá verificar se controla nr. de serie (ITEM_CTR_GRADE.RESERVADO_

  ?

  2), se controlar gravar = '2'.
  Se não controlar série, verificar se controla endereço (ITEM_CTR_GRADE.IES_ENDERECO), se controlar gravar '1'.
  Por último verificar se controla Lote, se controlar gravar = '3'

1.2 Alterações necessárias:

1.2.1 MAN10021

Alterar o cadastro de itens para que execute o adapter quando a integração com o PPI MultTask estiver ativa.

Criar a função man10021_integra_mes, para fazer as validações referentes ao MES.

Exemplo:

  IF NOT man10021_before_process_commit() THEN

        RETURN FALSE

 END IF

 CALL man10021_integra_mes(mr_item.cod_item,m_operacao,TRUE,TRUE,NULL)

  WHENEVER ERROR CONTINUE

      CALL log085_transacao("COMMIT")

  WHENEVER ERROR STOP

..........

Na função MAN10021_INTEGRA_MES deverá validar:

• Se o TOTVS MES está ativo

Local lIntegDef  := FWHasEAI("MATA010",.T.,,.T.)

Para integração Protheus x PC-Factory não será usado o EAI e desta forma a variável lIntegDef não será utilizada. Para não interferir com o processo do EAI,será criada uma função no PCPXfun(com o nome de PCPIntgPPI ) para a verificação de integração com o PC-Factory registrada na tabela SOD, campo OD_ATIVO. O cadastro da SOD é feito pelo PCPA109, parâmetros da integração entre Protheus x PPI.

Obs.: A função PCPXfun(PCPIntgPPI)  de verificação será padrão que possa ser utilizada em outras rotinas.

A função IntegDef(que é executada pela FwIntegDef) é chamada de diversos pontos da rotina(Exclusão, Inclusão,Alteração). A IntegDef executa o adapter MATi010. Esta rotina é usada quando o EAI está ativo.

No caso da integração com o PCFactory será necessário executar o MATi010 de outra forma, executando-o antes de comitar os dados no banco, pois só poderá comitar se a integração for concluída com sucesso ou por geração de pendência. 

Inclusão e Alteração - A010TudoOk:

Quando incluir deverá executar a integração diretamente na função A010TudoOk. Somente efetivar a inclusão se ocorrer a integração(ver item 1.2.4)

..........

If lRet .AND. <PCPIntgPPI > 

        aRet := MATI010(cXml, nTypeTrans, cTypeMessage)

      <função para enviar o XML para o WebService da PPI e recuperar o retorno>

      Se o retorno for positivo poderá prosseguir com a inclusão/alteração e geração do XML nos diretórios correspondentes.

     <função para gerar o XML nos diretórios>

    <função para gerar tabela de integração SOF>

EndIf

RestArea(aArea)
Return(lRet)

...............

Exclusão - Static Function A010Deleta:

Após realizar as validações, que possibilitam a exclusão, antes de iniciar a transação Begin Transaction deverá executar a integração com o PPI. Somente efetivar a exclusão se ocorrer a integração(ver item 1.2.4).

.........

If !lPodeApagar
    Exit
Endif

     If <PCPIntgPPI > Then

       aRet := MATI010(cXml, nTypeTrans, cTypeMessage)

      <função para enviar o XML para o WebService da PPI e recuperar o retorno>

      Se o retorno for positivo poderá prosseguir com a exclusão e geração do XML nos diretórios correspondentes.

     <função para gerar o XML nos diretórios>

    <função para gerar tabela de integração SOF>

    End if

 Begin Transaction

..........

Deverá ser enviado os seguintes parâmetros para o MATI010 quando integração com pc-factory:

cXml =

nTypeTrans = TRANS_SEND

cTypeMessage = EAI_MESSAGE_BUSINESS

1.2.2 Function MATi010

A função MATI010 é a rotina responsável por gerar o XML.

Será usada a mesma função, sendo necessário algumas adequações. Alterar a Function MATI010(cXml, nTypeTrans, cTypeMessage) 

........

ElseIf nTypeTrans == TRANS_SEND

     IF <integraçao-pc_factory>

          //Fixo 2. Na fase 2 deverá cadastrar a versão na rotina de parâmetros

          cVersao := "2"

     ELSE

         dbSelectArea('XX4')

         aAreaXX4 := XX4->(GetArea())

         XX4->(dbSetOrder(1))

          IF XX4->(dbSeek(Xfilial('XX4') + PADR('MATA010', Len(XX4_ROTINA)) + PADR('ITEM', Len(XX4_MODEL))))

              If Empty(XX4->XX4_SNDVER)

                 lRet    := .F.

                 cXmlRet := STR0008 //"Versão não informada no cadastro do adapter."

                 Return {lRet, cXmlRet}

              Else

                 cVersao := StrTokArr(XX4->XX4_SNDVER, ".")[1]

              EndIf

           Else

               lRet    := .F.

               cXmlRet := STR0009 //"Adapter não encontrado!"

               Return {lRet, cXmlRet}

            Endif

 ..................

1.2.3 Function v2000

     Na função Static Function v2000, deverá fazer algumas validações pois a função é  executada via EAI e também passará a ser executada via integração com o PCFactory.

Geração do LOG (verificar em todos os pontos - somente no envio da mensagem):

IIf(lLog, AdpLogEAI(1, "MATI010", nTypeTrans, cTypeMessage, cXML), ConOut(STR0011)) //"Atualize o UPDINT01.prw para utilizar o log"

Quando a execução for via integração com o pc-factory <integraçao-pc_factory> não irá gerar o LOG.

Na montagem do XML a rotina gera a partir do BusinessEvent (que fica dentro da tag  BusinessMessage). Para integração com PCFactory deverá montar o cabeçalho da mensagem que consta com as tags TOTVSMessage e MessageInformation.

Abaixo modelo(seguindo padrão de integração entre PCFactory a Datasul):

<?xml version="1.0" encoding="UTF-8" ?>

<TOTVSMessage xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="xmlschema/general/events/Item_3_001.xsd">

    <MessageInformation version="3.001">

        <UUID>d97aeb6f-1440-8c81-fc13-ec8cf87b82ad</UUID>

        <Type>BusinessMessage</Type>

        <Transaction>Item</Transaction>

        <StandardVersion>1.0</StandardVersion>

        <SourceApplication>dts11cordas8480</SourceApplication>

        <CompanyId>10</CompanyId>

        <BranchId>10</BranchId>

         <UserId>xxx</UserId>

        <Product name="Datasul" version="11.5.X"/>

        <GeneratedOn>2015-07-10T16:25:21.971-03:00</GeneratedOn>

        <ContextName>PROTHEUS</ContextName>

        <DeliveryType>Sync</DeliveryType>

    </MessageInformation>

    <BusinessMessage>

        <BusinessEvent>

           ......................

        </BusinessEvent>

            ....................

            ....................          

    <\BusinessMessage>

   Onde:

•    TOTVSMessage xmlns:xsi Indica o xsd para gerarção do XML. Usar o conteúdo do modelo.
•    MessageInformation version Indica a versão da mensagem. Usar “3.001”
•    UUID : Sequencial usado pelo EAI. Gerar fixo “1’.
•    Type: Tipo da mensagem. Gerar fixo “BusinessMessage”
•    Transaction: Indica o que está sendo enviado. Gerar fixo “Item”
•    StandardVersion: Versão. Gerar fixo “1.0”
•    SourceApplication: Aplicação que está executando. Gerar fixo “SIGAPCP”
•    CompanyId: Código da empresa. Empresa que estiver logada
•    BranchId:  Código da filial. Filial logada.
•    UserId: Usuário. Usuário logado.
•    Product: Nome do produto. Name = “MATA010” version = versão do programa.
•    GenerateOn = Data e hora da geração da mensagem
•    ContextName = Protheus
•    DeliveryType:Tipo de envio da mensagem. Gerar fixo “Sync”.

Dentro do BusinessMessage existe o bloco BusinessEvent com as seguintes tags:

<BusinessEvent>
    <Entity>Item</Entity>
    <Event>upsert</Event>
   <Identification>
    <key name="Code">651140049</key>
    </Identification>
</BusinessEvent>

Onde:

• Entity: Entidade . Gerar fixo “Item”
• Event: Inclusão/Alteração ou exclusão. Pode ser ‘delete’ ou ‘upsert’
• Identification: Identificação do item.

                      Usar key name="InternalID" : Esta gerando com a empresa, filial e código do item.

Dentro do BusinessMessage existe o bloco BusinessContent, que contém os dados do item. Está gerando o XML com muitas informações que não serão usadas pela integração. Pode continuar gerando.

Somente deve gerar os campos necessários conforme descrito no item 1.1 

1.2.4 Filtros, geração do XML, execução do WeService PPI  e tabela para registrar a mensagem (XML) 

O que desenvolver:

a)Alterar a função  PCPXfun, criando a PCPXmLPPI - função para gerar fisicamente os XML com nome e diretório correspondente.

b)Alterar função PCPXfun, criando a função PCPWebsPPI - função para enviar o XML para o Webservice da PPI e recuperar o retorno.

c)Criar a PCPCriaSOF, que será uma função genérica para gerar a SOF de qualquer rotina.

Exemplo do  item 1.2.1

If lRet .AND. <PCPIntgPPI > 

        aRet := MATI010(cXml, nTypeTrans, cTypeMessage)

      <função para enviar o XML para o WebService da PPI e recuperar o retorno>

      Se o retorno for positivo poderá prosseguir com a operação e geração do XML nos diretórios correspondentes.

     <função para gerar o XML nos diretórios>

    <função para gerar tabela de integração SOF>

EndIf

Regras:

No cadastro de parâmetros PCPA109, é definido se gera o arquivo XML nos diretórios. Quando este indicador, OD_GERAXML, estiver como 2 ('N') não será gravado o arquivo XML nos diretórios correspondentes. Será gravado apenas o conteúdo em tabela (SOF).

Caso o indicador , OD_GERAXML, estiver como 1('S') deverá seguir a seguinte regra de geração:

- Processados com sucesso : XML processado pelo PPI com retorno do PCFactory OK.

        XML será gravado no diretório cadastrado no campo Enviados(OD_DIRENV) do PCA109. 

- Processados sem sucesso : XML processado pelo PPI com  retorno de ERRO pelo PCFactory  ou WebService desligado ( não conseguiu enviar o XML).
       XML será gravado no diretório definido no campo Pendência (OD_DIRPEND) do PCA109. Neste caso, como o retorno do PCFactory será impeditivo para o commit do registro, deverá ser questionado se deseja salvar no Protheus mesmo            com o erro/pendência no PCFactory(neste caso sempre deve exibir a mensagem de erro, retornada pelo PCFactory, que impossibilitou a integração).

       Em caso do usuário confirmar a operação no Protheus,  a rotina deverá salvar o item para que depois seja realizada a integração via programa  de controle de pendências. Nesta situação será gravado um arquivo de ERRO ou PEND                      conforme a situação que impossibilitou o envio ao PCFactory. Em caso do usuário não confirmar a operação, poderá fazer os ajustes para o reenvio de dados ou o cancelamento da operação ( sem commit e sem integração).

Em ambos os casos(sucesso ou erro/pendencia), ocorrendo o commit, será gerada a tabela SOF.        

Importante: Os arquivos XML´s gerados e dados da tabela SOF somente serão gerados se a inclusão/alteração/exclusão do item for comitada no banco, conforme descrito no item 1.2.1.

Os nomes do arquivos seguirão o seguinte padrão:
OK_<MSG>_<DATAHORA>_<REGISTRO>
PEND_<MSG>_<DATAHORA>_<REGISTRO>
ERR_<MSG>_<DATAHORA>_<REGISTRO>
Onde: OK - Se mensagem entregue sem problemas
PEND- Se mensagem não foi enviada
ERR - Se mensagem enviada, porém retornou erro.
MSG - ITEM
DATAHORA: Data e Hora do envio
REGISTRO: Código do item que está sendo enviado.

A tabela SOF conterá os seguintes campos:

• Transação : Nome da tabela ( SB1)
• Registro : código do item
• Status: 1 - OK; 2 - Pend; 3 - Erro
• Gerou XML : Sim ou não
• Nome arquivo XML
• Data Envio
• Hora de envio
• Usuário
• Mensagem de retorno do PCFactory
• Xml : Conteúdo do XML
• Programa: Rotina que gerou o registro
• Data Reprocessamento : Quando reprocessado pela rotina de pendências
• Hora Reprocessamento : Quando reprocessado pela rotina de pendências
  
  

IMPORTANTE:

Só poderá ter uma pendência para o registro.

Para gerar o XML e gravar a tabela SOF terá que respeitar as pendencias geradas. Se existir uma pendência de envio de algum registro e for gerada uma nova mensagem para o mesmo registro a pendencia deverá ser excluída e trabalhar somente com a última mensagem, que poderá ser enviada sem problemas ou gerar nova pendência.

Obs.: Mais informações verificar a especificação ER_PCREQ-6129_PPI_MultTask_Parametros

Filtros:

No PCPA109 são definidos os filtros que indicam quais registros serão enviados ao PCFactory.

No caso do item, deverá ler os dados da tabelas SOE onde o campo OE_TABELA seja = 'SB1'. O campo OE_FILTRO conterá o filtro que deverá ser aplicado ao registro que está sendo enviado. Somente poderá enviar(gerar xml) se satisfazer a condição do PCPA109.

Deverá alterar a função  no PCPXfun, criando a PCPFiltPPI ( fará o filtro de todas as tabelas que são integradas com o PCFactory).

Essa função irá receber como parâmetro o nome da tabela. No caso do cadastro de item será enviado SB1 como parâmetro. Deverá ser executada no MATi010,.no mesmo ponto onde verifica a versão. Somente executa se for integração via PCFactory.

A função irá retornar TRUE se satisfazer a condição, ou seja, o item pode ser enviado e false caso o item não satisfaça.

Obs.: Se não existir filtro na SOE , OE_FILTRO, enviará todos os registros, ou seja, a função sempre retornará TRUE.

........

ElseIf nTypeTrans == TRANS_SEND

     IF <integraçao-pc_factory>

          //Fixo 2. Na fase 2 deverá cadastrar a versão na rotina de parâmetros

          cVersao := "2"

         lRetorna := PCPFiltPPI('SB1')

        IF Not lRetorna THEN Return 

     ELSE

......................

<Na tabela abaixo informe quais são as rotinas envolvidas, o tipo de operação, a opção de menu e se necessário uma breve descrição das regras de negócio relacionadas a rotina>.

Exemplo de Aplicação:

• Criar o campo “% Mínimo Espécie” (AAA_PERESP) onde o usuário informará o % que o aluno pagará em dinheiro. Esse % poderá ser alterado durante a negociação.
• Criar o campo “Referência Mínima para Cálculo” (AAA_REFCAL) onde o usuário informará um dos 4 valores disponíveis para pagamento das mensalidades  como a referência mínima para calcular o débito total do aluno.
• Criar o parâmetro MV_ACPARNE que definirá se as informações de “% Mínimo Espécie” e “Referência Mínima para Cálculo” serão obrigatórias.
• O parâmetro MV_ACPARNE deve ter as seguintes opções: 1=Obrigatório e 2=Opcional. Deve ser inicializado como opcional>.

Tabelas Utilizadas

• SE2 – Cadastro de Contas a Pagar
• FI9 – Controle de Emissão de DARF>.

Opcional

Protótipo de Tela

<Caso necessário inclua protótipos de telas com o objetivo de facilitar o entendimento do requisito, apresentar conceitos e funcionalidades do software>.

Protótipo 01

Opcional

Fluxo do Processo

<Nesta etapa incluir representações gráficas que descrevam o problema a ser resolvido e o sistema a ser desenvolvido. Exemplo: Diagrama - Caso de Uso, Diagrama de Atividades, Diagrama de Classes, Diagrama de Entidade e Relacionamento e Diagrama de Sequência>. 

Opcional

Dicionário de Dados

Arquivo ou Código do Script: AAA – Negociação Financeira / *Versao=CP.2014.12_03*/

(Opcional)

Grupo de Perguntas

<Informações utilizadas na linha Protheus>.

Nome: FINSRF2

(Opcional)

Consulta Padrão

<Informações utilizadas na linha Protheus>

Consulta: AMB

(Opcional)

Estrutura de Menu

<Informações utilizadas na linha Datasul>.

Procedimentos

Programas

Cadastro de Papéis

<O cadastro de papéis é obrigatório para os projetos de desenvolvimento FLEX a partir do Datasul 10>.

<Lembrete: o nome dos papeis em inglês descrito neste ponto do documento, devem ser homologados pela equipe de tradução>.