Fluxo do Processo
Fazer esta primeira execução sem a alteração nos programas
1- Criar uma estrutura no modelo(CF0101) para um item A (Política Configurado no CD1112), onde um de seus componentes B seja também configurado, e tenha ao menos um componente comprado C.
2 - Realizar a configuração do item A(CF0201) e B.
3 - Marcar parâmetro "Gera Reserva Configurado" (CP0106)
4 - Gerar uma Ordem de Produção do configurado A e versão (CF0501). Como resultado serão criadas duas OPs, uma para o configurado A e outra para o configurado B.
5 - Sumarizar as OPs dos itens A e B (CP0304).
6 - Caso não tenha saldo para o item comprado C, então inserir uma entrada (CE0220)
7 - Realizar o apontamento da OP do item B. Como resultado deste apontamento, deverá aparecer um novo registro <saldo-op-config> para o item B.
8 - Realizar o apontamento da OP do item A. Como resultado deste apontamento, deverá aparecer um novo registro <saldo-op-config> para o item A.
9 - Criar uma nova OP tipo Reaproveitamento, para linha de Serviço manualmente (CP0301) para um outro item D (este item pode ser fabricado ou comprado também, e pode até ser configurado, podem ser feitas várias combinações). E selecionar o item configurado A e sua referência. (Pode também ser variado o tipo da ordem, como interna, bastando inserir depois o item configurado na reserva manualmente.
10 - Requisitar para a OP do item D o componente configurado A(CP0309). Como resultado, não será possível a requisição, pois existe <saldo-op-config> do item A e sua referência.
Fazer esta segunda execução com a alteração nos programas
1 - Gerar uma Ordem de Produção do configurado A e versão (CF0501). Como resultado serão criadas duas OPs, uma para o configurado A e outra para o configurado B.
2 - Sumarizar as OPs dos itens A e B (CP0304).
3 - Realizar o apontamento da OP do item B. Como resultado deste apontamento, deverá aparecer um novo registro <saldo-op-config> para o item B.
4 - Realizar o apontamento da OP do item A. Como resultado deste apontamento, não deverá aparecer um novo registro <saldo-op-config> para o item A.
5 - Criar uma nova OP tipo Reaproveitamento, para linha de Serviço manualmente (CP0301) para um outro item D (este item pode ser fabricado ou comprado também, e pode até ser configurado, podem ser feitas várias combinações). E selecionar o item configurado A e sua referência.
6 - Requisitar para a OP do item D o componente configurado A(CP0309). Como resultado, será possível a requisição, pois não existe <saldo-op-config> do item A e sua referência.
7 - Como último teste, Requisitar para a OP gerada no primeiro Teste para o item D (CP0309). Como resultado, mesmo existindo <saldo-op-config>, ela será Eliminada na tentativa de requisição, e a requisição será efetivada.
Obs.1: Realizar também o teste de devolução manual, requisição automática e devolução automática(para estes últimos, não será possível concluir, pois uma Ordem de Produção com componente configurado deve impedir).
Obs.2: Realizar também testes com ordem tipo Interna, para linha de processo, neste caso testar o apontamento de produção, e será requisitado junto.
Alterar CPAPI022 (GeraSaldo) para inserir a validação abaixo antes de todo o resto.
Se não existe ( um <al-res-op> quando <al-res-op.nr-ord-produ> = p-nr-ord-produ)
então:
Sai da rotina GeraSaldo sem efetuar nada.
Fim-se.
Alterar CPAPI022 (saldoAutomatico) para inserir a validação, caso ainda exista um saldo de Acabado:
FOR EACH saldo-op-config WHERE saldo-op-config.cod-estabel = p-cod-estabel
AND saldo-op-config.it-codigo = p-it-codigo
AND saldo-op-config.cod-refer = p-cod-refer EXCLUSIVE-LOCK
BREAK BY saldo-op-config.nr-ord-produ:
Se não existe ( um <al-res-op> quando <al-res-op.nr-ord-produ> = saldo-op-config.nr-ord-produ) /* Não deve existir saldo-op-config para Ordens de Produto Acabado Pai. */
então:
Eliminar <saldo-op-config>.
Retornar ao laço <saldo-op-config>
Fim-se.
RUN atualizaDisponibilidadeSaldo.
IF AVAIL saldo-op-config THEN
FIND FIRST al-res-op WHERE
al-res-op.nr-ord-res = p-nr-ord-produ AND
al-res-op.it-codigo = p-it-codigo AND
al-res-op.nr-ord-produ = saldo-op-config.nr-ord-produ NO-LOCK NO-ERROR.
Após o laço <saldo-op-config> criar a <tt-reserva-op-config> caso não exista nenhuma e Não precisa de saldo.
Se <l-precisa-saldo> = Não E
não existe (<tt-reserva-op-config> quando rw-reserva = p-rw-reserva
e cod-estabel = p-cod-estabel
e cod-depos = p-cod-depos
e cod-localiz = p-cod-localiz
e lote = p-lote
e it-codigo = p-it-codigo
e cod-refer = p-cod-refer) THEN DO:
criar <tt-reserva-op-config>
rw-reserva = p-rw-reserva
cod-estabel = p-cod-estabel
it-codigo = p-it-codigo
cod-depos = p-cod-depos
cod-refer = p-cod-refer
cod-localiz = p-cod-localiz
lote-serie = p-lote
nr-ord-filha = p-nr-ord-produ
quant-requis = p-quant-requis
Fim-se.
Alterar CPAPI022 (saldoManual) para inserir a validação, caso ainda exista um saldo de Acabado:
Se existe ( um <al-res-op> quando <al-res-op.nr-ord-produ> = p-nr-ord-produ) /* Continua o processo de Saldo Manual*/
então:
Todo código hoje existente....
senão: /* Não deve existir saldo-op-config para Ordens de Produto Acabado Pai. */
Pesquisar um <saldo-op-config>
quando <saldo-op-config.nr-ord-produ> = p-nr-ord-produ.
Se existe <saldo-op-config>
então:
Eliminar <saldo-op-config>
Fim-se.
Fim-se.
Alterar CPAPI022 (VerificaSaldo) desconsiderar verificação de saldo de Acabado:
Se existe ( um <al-res-op> quando <al-res-op.nr-ord-produ> = p-nr-ord-produ) /* Continua o processo de Saldo Manual*/
então:
Todo código hoje existente....
senão: /* Não deve existir saldo-op-config para Ordens de Produto Acabado Pai. */
Pesquisar um <saldo-op-config>
quando <saldo-op-config.nr-ord-produ> = p-nr-ord-produ.
Se existe <saldo-op-config>
então:
Eliminar <saldo-op-config>
Fim-se.
Retornar "OK".
Fim-se.
Alterar CPAPI022 (pi-troca-chave):
Antes da pesquisa <saldo-op-config>, caso <tt-reserva-op-config.nr-ord-filha> = 0, retornar "OK".
Alterar CPAPI022 (pi-devolve-saldo) preencher a tt-reserva-op-config:
Logo após a pesquisa <saldo-op-config>
Se existe <saldo-op-config>
Então:
Se não Existe(um <al-res-op> onde <al-res-op.nr-ord-produ> = <saldo-op-config.nr-ord-produ>)
Então:
Elimine <saldo-op-config>.
Fim-se.
Fim-se.
Depois inserir um senão, quando não existir <saldo-op-config>, criar tt-reserva-op-config com os dados passados por parâmetro.
Se p-de-acum-quant > p-quantidade
Então
p-de-acum-quant = p-de-acum-quant - p-quantidade
de-quantidade = p-quantidade.
Senão /*Caso a qtd a devolver seja menor que a qtd a devolver para este saldo-op-config (tratamento para o caso de devolução parcial)*/
de-quantidade = p-de-acum-quant
p-de-acum-quant = 0.
Fim-se.
criar <tt-reserva-op-config>
rw-reserva = p-row-movto-estoq
cod-estabel = p-cod-estabel
it-codigo = p-it-codigo
cod-depos = p-cod-depos
cod-refer = p-cod-refer
cod-localiz = p-cod-localiz
lote-serie = p-lote-serie
nr-ord-filha = p-num-ord-des
quant-requis = de-quantidade
Alterar CPAPI012 (pi-processa-reservas-positivas), não será possível Requisitar Automaticamente quando Ordem de Produção possuir algum componente item configurado:
Quando é validado se o item é configurado(<item-uni-estab.politica> = 5), inserir uma nova mensagem de erro antes do "NEXT".
Sugestão de mensagem: "A Ordem de Produção 9999, possui item configurado, logo não será possível utilizar este processo."
Utilizar a pi-gera-tt-erro para incluir a mensagem. (verificar a necessidade de preenchimento das variáveis c-erro, c-texto e c-retorno)
Alterar CPAPI012 (pi-processa-devolucao), não será possível Devolução Automaticamente quando Ordem de Produção possuir algum componente item configurado:
Quando é validado se o item é configurado(<item-uni-estab.politica> = 5), inserir uma nova mensagem de erro antes do "NEXT"(verificar ponto onde: Se l-item-config = verdadeiro).
Sugestão de mensagem: "A Ordem de Produção 9999, possui item configurado, logo não será possível utilizar este processo."
Utilizar a pi-gera-tt-erro para incluir a mensagem. (verificar a necessidade de preenchimento das variáveis c-erro, c-texto e c-retorno)