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

Atualmente o sistema Padrão WMS, permite relacionar saldos do deposito do ERP TOTVS aos endereços relacionados a estes depósitos, ou seja, só é possível ter um depósito por endereço atualmente. O Desenvolvimento proposto, permite o processo de gestão de saldo relacionados aos saldos dos depósitos com saldo no WMS, sem a relação por endereços X depósitos, desta forma será possível que, num mesmo Endereço ter Saldos de diferentes Depósitos controlados pelo WMS, onde estes endereços não possuam Local WMS relacionado, usando um Local padrão para isso,

Esta funcionalidade permitirá:

- Integrações dos embarques com os saldos no WMS conforme deposito alocado.

- Atualização de inventários com os saldos do TOTVS

- Integrações dos recebimentos com os saldos no WMS conforme deposito.

- Cadastro e parâmetros específicos.

Será desenvolvida uma gestão de relação de deposito X local, onde para um local, poderão existir mais depósitos do TOTVS relacionado.

Esta gestão será denominada CLASSE, para que para um local do WMS, seja possível armazenar saldos de depósitos diferentes.

Será usado o campo cod-cliente para armazenar a informação da classe no banco de dados do WMS. Este campo atualmente é sempre considerado 0. Para este novo processo o cadastro de classe será uma relação de deposito com o cadastro genérico de cliente, onde para a gestão do WMS, será considerado o deposito.

• Exemplo Situação ATUAL WMS x ERP Datasul:

Situação atual, para um local uma relação com deposito.

Situação ERP TOTVS: 

 Situação WMS: 

Endereço 01/A/01/001:

6 pallet de 100 unidades cada.

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

• Exemplo de como ficará após desenvolvimento Proposto: 

Um local no WMS associado ao deposito EXP e um deposito EX2 – classe 999 associado ao local.

 Situação ERP Datasul: 

 Situação WMS: 

 Endereço 01/A/01/001:

 6 pallet de 100 unidades cada. 

 Saldo endereço: 

Os movimentos no WMS, serão gerados com o campo cod-cliente relacionado ao cadastro das relações deposito X classe, assim os saldos movimentados, serão considerados os associados a esta informação.

<Nesta etapa informar o objetivo da especificação do requisito, ou seja, o que a funcionalidade deve fazer. Exemplo: Permitir que o usuário defina o percentual mínimo em espécie (dinheiro), a referência mínima para calculo dos débitos do aluno e o período de validade do parâmetro de negociação>.

(Obrigatório)

Definição da Regra de Negócio

 Desenvolver cadastro para associar deposito x classes.

Esta tela permitirá relacionar:

Estabelecimento +  local.aos Depósitos que controla WMS.

- Sem local cadastrado no WMS.

1. Cadastro relacionado ao local (wm0240).

Tela: Local X Deposito Classe (WM0240B)

- Desenvolver programa wm0240B relacionado ao local informado, permitindo relacionar depósitos a estes.

- Apresentar somente locais cadastrados no WMS.

- Quando selecionado um deposito utilizando o botão de incluir, apresentar o programa WM0240C, permitindo o usuário informar o ID da classe.

- Não permitir relacionar um depósito associado a outro local.

- Não permitir relacionar o cliente “0”.

 - Não permitir desvincular uma relação Deposito X classe se existir saldo deste no estabelecimento X local do cadastro.

- O botão “alterar” acessa a tela Deposito X Classe (WM0240C).

Tela: Deposito X Classe (wm0240B).  

Alterar include WM9000.i, para incluir na definição da ttWm-docto-itens o campo:

 FIELD cod-depos             AS CHAR    FORMAT "X(3)"

Alterar programa WM9000 para incluir logica para alteração do código cliente conforme cadastro da relação de deposito X classe.

 - desenvolver função: “Log-classe-estoque-wms”,

PROCEDURE pi-atualiza-local:

    FOR EACH ttWm-docto:

        IF ttWm-docto.cod-depos <> "" and

           ttWm-docto.cod-local = "" THEN DO:

            FIND FIRST wm-local WHERE

                 wm-local.cod-estabel = ttWm-docto.cod-estabel AND

                 wm-local.cod-depos   = ttWm-docto.cod-depos

                 NO-LOCK NO-ERROR.

            IF AVAIL wm-local THEN

                ASSIGN ttWm-docto.cod-local = wm-local.cod-local.

            ELSE DO:

                FIND FIRST wm-local-deposito WHERE

                    wm-local-deposito.cod-estabel = ttWm-docto.cod-estabel AND

                    wm-local-deposito.cod-depos   = ttWm-docto.cod-depos   NO-LOCK NO-ERROR.

                ASSIGN ttWm-docto.cod-local = IF AVAIL wm-local-deposito THEN wm-local-deposito.cod-local

                                              ELSE "".

            END.

            IF ttWm-docto.cod-local <> "" THEN

                FOR EACH ttWm-docto-itens WHERE

                    ttWm-docto-itens.cod-estabel = ttWm-docto.cod-estabel AND

                    ttWm-docto-itens.cod-local   = ""                     AND

                    ttWm-docto-itens.num-docto   = ttWm-docto.num-docto:

                    ASSIGN ttWm-docto-itens.cod-local = ttWm-docto.cod-local.

            END.

        END.

    END.

END.

IF CAN-FIND(FIRST funcao WHERE funcao.cd-funcao = "Log-classe-estoque-wms" AND funcao.ativo = YES).

FOR EACH ttWm-docto:

FOR EACH ttWm-docto-itens: 

FIND FIRST wms-local-classe no-lock

         Where wms-local-classe.cod-estabel = ttWm-docto-itens.cod-estabel

                               AND wms-local-classe.cod-local    = ttWm-docto-itens.cod-local

             AND wms-local-classe.cod-cliente = ttWm-docto-itens.cod-cliente NO-LOCK NO-ERROR.

IF AVAIL wms-local-classe THEN

ASSIGN ttWm-docto-itens.cod-cliente = wms-local-classe.classe.                                                     

                END.

End.

- Incluir validação para se existir mais de uma ttWm-docto.cod-local com depósitos diferentes com origem pré-faturamento, bloquear integração.

  No processo de entrada alterar:

Wm9023: alterar validação de deposito X local para se não encontrar o local, valida no novo cadastro de classe.

find first wm-local where

            wm-local.cod-estabel  = tt-docto-ft.cod-estabel and

            wm-local.cod-deposito = tt-docto-ft.cod-depos   no-lock no-error.

        if not avail wm-local then do: 

            IF CAN-FIND(FIRST funcao WHERE funcao.cd-funcao = "Log-classe-estoque-wms" AND funcao.ativo = YES).          

            FIND FIRST wms-local-classe

                WHERE wms-local-classe.cod-estabel = tt-docto-ft.cod-estabel

                 AND wms-local-classe.cod-deposito = tt-docto-ft.cod-depos                 NO-LOCK NO-ERROR.

            IF NOT AVAIL wms-local-classe THEN DO: 

                {utp/ut-liter.i "Depósito_no_WMS" *}

                run piCreateErrors (input 3549,

                                    input RETURN-VALUE).

                assign l-erro = yes.

                undo DESATUALIZACAO, return                      

            END.

            /*Deposito inexistente no WMS*/

            /* Inicio -- Projeto Internacional */          

            {utp/ut-liter.i "Depósito_no_WMS" *}

            run piCreateErrors (input 3549,

                                input RETURN-VALUE).

            assign l-erro = yes.

            undo DESATUALIZACAO, return.

        end.

Bosc039atua: alterar processo de para alterar deposito/local. tt-itens-ped.cod-depos.

Incluir nova variável:

def var l-deposito             LIKE wm-local.cod-depos no-undo.

Incluir gerenciamento da variável na procedure atualizaPreFaturEMS:

 IF CAN-FIND(FIRST funcao WHERE funcao.cd-funcao = "Log-classe-estoque-wms" AND funcao.ativo = YES).

 IF Wm-docto-itens.cod-cliente <> 0 THEN DO:

                   FIND FIRST wms-local-classe

                    WHERE wms-local-classe.cod-estabel  = Wm-docto-itens.cod-estabel

                      AND wms-local-classe.cod-local    = Wm-docto-itens.cod-local

                      AND wms-local-classe.cod-cliente  = Wm-docto-itens.cod-cliente NO-LOCK NO-ERROR.

                   IF AVAIL wms-local-classe THEN DO:

                       ASSIGN l-deposito = wms-local-classe.cod-depos.

            END.

            ELSE DO:

                ASSIGN l-deposito = wm-local.cod-depos.

            END.

End.

Alterar create:

 IF NOT AVAIL tt-itens-ped THEN DO:

                create tt-itens-ped.

                assign tt-itens-ped.cod-estabel  = wm-docto.cod-estabel

                       tt-itens-ped.cdd-embarq   = de-cdd-embarq

                       tt-itens-ped.nr-resumo    = i-nr-resumo

                       tt-itens-ped.nr-pedcli    = tt-volume.nr-pedcli

                       tt-itens-ped.cod-depos    = l-deposito  /* alterar Britania*/

                       tt-itens-ped.nome-abrev   = tt-volume.nome-abrev

                       tt-itens-ped.it-codigo    = tt-volume.cod-item

                       tt-itens-ped.cod-refer    = tt-volume.cod-refer

                       tt-itens-ped.cod-lote     = tt-volume.cod-lote

                       tt-itens-ped.seq-item     = wm-docto-itens-ped.num-seq-item-ped

                       tt-itens-ped.nr-entrega   = wm-docto-itens-ped.int-1

                       tt-itens-ped.qt-item-ped  = de-qtd-item-ped

                       tt-itens-ped.qt-item      = de-qtd-item

                       tt-itens-ped.peso-liquido = de-qtd-peso

                       tt-itens-ped.peso-bruto   = de-qtd-peso + IF FIRST-OF(tt-volume.num-seq-volume) THEN (tt-volume.qti-embalagem * wm-embalagem.qtd-peso) ELSE 0.

            END.

 - incluir validação de deposito local no WMS.

IF CAN-FIND(FIRST funcao WHERE funcao.cd-funcao = "Log-classe-estoque-wms" AND funcao.ativo = YES).

                  FIND FIRST wms-local-classe

                    WHERE wms-local-classe.cod-estabel  = doc-fisico.cod-estabe

                            AND wms-local-classe. cod-depos = rat-lote.cod-depos NO-LOCK NO-ERROR.

                   IF AVAIL wms-local-classe THEN DO:

                       ASSIGN c-cod-local-wms = wms-local-classe.cod-local.

                   END.

- Alterar create da ttWm-docto-itens, para incluir o código do deposito.

ttWm-docto-itens.cod-depos             = rat-lote.cod-depos.

- incluir validação de deposito local no WMS.

  IF CAN-FIND(FIRST funcao WHERE funcao.cd-funcao = "Log-classe-estoque-wms" AND funcao.ativo = YES).

   FIND FIRST wms-local-classe                                                                       

     WHERE wms-local-classe.cod-estabel  = it-dep-fat.cod-estab                                     

             AND wms-local-classe. cod-depos = it-dep-fat.cod-depos NO-LOCK NO-ERROR.               

    IF AVAIL wms-local-classe THEN DO:                                                              

        ASSIGN c-cod-local = wms-local-classe.cod-local.                                        

END.                                                                                                 

 - Alterar creeate da ttWm-docto-itens, para incluir o código do deposito.

   ttWm-docto-itens.cod-depos              = it-dep-fat.cod-depos. 

 Incluir campo para informar cod-cliente/classe. Trazer como padrão o relacionado a WM-box-saldo localizando pela wm-box-saldo-etiqueta do id da etiqueta lida.

 - Registrar cod-cliente/classe na tabela wm-inventario-endereço. Alterar a chamada da bcapi9024 para incluir o campo cod-cliente e bosc0118 procedure createEnderecoInventario, para gerar a tabela com a nova informação. 

Incluir coluna com informação do o código cliente/classe, conforme alteração do REQ001-6.

 Incluir coluna com informação do o código cliente/classe, conforme alteração do REQ001-6 

 - Alterar processo de atualização de saldos no WMS, considerando o código cliente/classe para comparativo e acertos.

- Incluir coluna com informação do o código cliente/classe, conforme alteração do REQ001-6.

- Alterar processo comparativo de saldo inventariado WMS com ERP, para considerar a relação classe X deposito para comparar os saldos ao deposito.

- Alterar relatório para considerar os comparativos de deposito, dividindo o relatório em depósitos.

Desenvolver processo de conferencia baseado no atual processo de conferencia do WMS. Onde via coletor de dados, que interaja com documentos digitados no RE2001. Este processo deve permitir gerar documento de entrada no WMS, permitindo a movimentação (Armazenamento) do material recebido antes da atualização da nota e em depósitos.

 O processo de conferencia será realizado via coletor de dados onde a chave do processo será a nota fiscal, baseado no atual processo de conferencia.

 Este processo permite o operador gerar os pallets e imprimir as etiquetas destes, conforme a quantidade informada. No WMS este processo deve gerar um documento de entrada, com as mesmas informações da nota fiscal selecionada. Os itens conferidos serão registrados no processo de conferencia padrão do WMS associado a nota fiscal. Assim como ocorre com o programa de conferencia de coletor (BC9045), os registros serão realizados nos processos padrões do WMS. O acerto contábil dos itens conferidos que não estão na composição da nota fiscal será de responsabilidade do cliente.

Definição da Regra de Negócio

Desenvolver processo de conferencia via coletor de dados: 

1. Informar usuário e senha:

 Image Added

1. Tipo de Seleção nota fiscal:

Image Added

2.1.     Se informado 1, apresenta as notas fiscais pendentes de conferencia (tópico 3).

2.2.     Se informado 2, permite informar a nota fiscal.

1. Seleção nota fiscal:

Image Added

3.1.     Permite o operador navegar pelas notas fiscais pendentes de conferencia.

3.2.     Enter para seleção ir para tópico 5.

1. Informar nota fiscal:

Image Added

4.1.     Permite o operador informar a nota fiscal.

4.2.     Quando Não encontrada, retornar menssagem. (nota fiscal não encontrada)

4.3.     Quando encontrada, retornar ao topico 3, posicionado na nota.

1. Selecionar item:

Image Added

5.1.     Permite selecionar os itens da nota pendente de conferencia.

5.2.     Selecionar a opção “Novo Item” para conferir um ítem diferente da nota fiscal.

5.3.     Enter para seleção ir tópico 6.

1. Informar Quantidade:

Image Added

6.1.     Informar quantidade do pallet.

6.2.     Gerar/imprime etiqueta WMS com as informações da nota fiscal e item/quantidade conferida.

6.3.     Existe documento de entrada do WMS com as mesmas informações da nota?

6.3.1.  SIM, Incrementa nova sequência do item/quantidade conferida.

6.3.2.  NÃO, Gerar documento de entrada no WMS com as mesmas informações da nota fiscal.

6.4.     Registrar informações do processo de conferencia padrão do WMS (re2001W).

6.5.     Retorna sequência 5.

Premissas/Restrições

1. Restrições:
2. Processos internos como picking e transferência entre endereços, não serão alterados nesta inovação.
3. O módulo de controle de qualidade (CQ) não sofrerá alteração para adequação do controle de saldo por cliente/classe apresentado nesta engenharia.
4. O processo de reporte de produção não sofrerá alteração para adequação do controle de saldo por cliente/classe apresentado nesta engenharia.
5. O módulo de controle de chão-de-fábrica não sofrerá alteração para adequação do controle de saldo por cliente/classe apresentado nesta engenharia.
6. O processo de requisição de estoque não sofrerá alteração para adequação do controle de saldo por Cliente/Classe.
7. A leitura dos itens/etiquetas/saldos serão alteradas para que o Cod. Cliente/Classe também seja informado. Somente nos programas do coletor de dados será alterado, o programa de leitura WM2002A não terá a opção de informar o Cod. Cliente/Classe para a leitura.

<Regra de negócio é o que define a forma de fazer o negócio, o processo definido e/ou as regras que devem ser contempladas. Devem ser descritas restrições, validações, condições e exceções do processo. Caso necessário, incluir neste capítulo também regras de integridade que devem ser observadas no momento do desenvolvimento>.

<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

ADD TABLE "wm-local-depos-classe"
AREA "Schema Area"
LABEL "Local x Depos x Classe"
DESCRIPTION "Rela‡Æo Local x Desp¢sito x Classe"
DUMP-NAME "es010-------1"

ADD FIELD "cod-estabel" OF "wm-local-depos-classe" AS character
DESCRIPTION "C¢digo do Estabelecimento."
FORMAT "x(5)"
INITIAL ""
LABEL "Estabelecimento"
POSITION 2
MAX-WIDTH 10
COLUMN-LABEL "Estabelec"
HELP "C¢digo do Estabelecimento."
ORDER 10
MANDATORY

ADD FIELD "cod-local" OF "wm-local-depos-classe" AS character
DESCRIPTION "C¢digo do Local."
FORMAT "x(3)"
INITIAL ""
LABEL "Local"
POSITION 3
MAX-WIDTH 6
COLUMN-LABEL "Local"
HELP "C¢digo do Local."
ORDER 20
MANDATORY

ADD FIELD "cod-deposito" OF "wm-local-depos-classe" AS character
DESCRIPTION "C¢digo do Dep¢sito do ERP"
FORMAT "x(3)"
INITIAL ""
LABEL "Dep¢sito"
POSITION 4
MAX-WIDTH 6
COLUMN-LABEL "Dep¢sito"
ORDER 30

ADD FIELD "cod-classe" OF "wm-local-depos-classe" AS integer
DESCRIPTION "C¢digo Classe/Cliente"
FORMAT ">>>>>>>>9"
INITIAL "0"
LABEL "Classe"
POSITION 5
MAX-WIDTH 4
COLUMN-LABEL "Classe"
ORDER 40

ADD INDEX "local-depos-classe" ON "wm-local-depos-classe"
AREA "Schema Area"
UNIQUE
PRIMARY
INDEX-FIELD "cod-estabel" ASCENDING
INDEX-FIELD "cod-local" ASCENDING
INDEX-FIELD "cod-deposito" ASCENDING
INDEX-FIELD "cod-classe" ASCENDING

.
PSC
cpstream=ibm850
.
0000001439

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>.