ER_PCREQ-3010_Melhorias_Diversas_DEPOT

Informações Gerais

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

Objetivo

Realizar pequenas melhorias reportadas durante pilotos de implantação do processo DEPOT. Sendo elas:

• Na consulta de vistoria de container por período, informar a quantidade de itens de avaria já cadastrados para a vistoria;
• Criação de cadastro de tela para os tipos de materiais de containers;
• Ajuste de posicionamento de campos e usabilidade de tela das rotinas de:
  • Vistoria,
  • Itens de Vistoria,
  • Vistoria Maquinário,
  • Itens Vistoria Maquinário,
  • Estimativa Container Item 
• Criação de novo motivo de rejeição de estimativa para permitir liberar container avariado sem reparo da oficina;
• Incluir a possibilidade de filtro "Com Saldo em Estoque" nas consultas 360º por: 
  • Container;
  • Lote;
  • Processos DEPOT.

Definição da Regra de Negócio

• MENU: Portaria - CESV (unt_frm_cesv)
  
  • No início do evento de edição de CESV (btbtnEditClick), adicionar chamada ao evento de troca de portaria (mcmbxPortariaChange) para que seja carregado o botão de seleção de programação DEPOT.
    
    

      if vCesv_id = '' then

        exit;

      mcmbxPortariaChange(Self);

• MENU: Portaria - CESV - Containers (unt_tela_container)

  • Na procedure de banco de dados proc_diu_container  realizar as seguintes alterações:

    • Na operação de exclusão, estruturar código fonte de modo que as validações não fiquem aninhadas;
    • Em todas as consultas na tabela de movimentação de entrada de container (tab_mov_cnt), onde existe o filtro por container, adicionar filtro por CESV;
    • Ao disparar mensagem de erro de validação, passar o código de erro (30000);
    • Adicionar validação para verificar documentos associados ao container (rel_dent_cnt). Existindo, disparar crítica "Nao e possivel deletar um container que possua documento de entrada relacionado"
    • Adicionar validação para verificar se container possui vistoria (tab_vistoria-container). Existindo, disparar a crítica "Nao e possivel deletar um container que possua uma vistoria realizada"
    • Retirar a instrução de exclusão do relacionamento documento de entrada x container (delete rel_dent_cnt)
    • Incluir o filtro por CESV (cesv_id_ent) na exclusão do movimento de entrada do container (delete tab_mov_cnt). Adicionar tratamento de erro, e disparar a mensagem de erro "Nao e possivel excluir processos em andamento para a movimentacao de entrada deste container"
      
      

• MENU: Portaria - CESV (Carga DEPOT) - Aba Saída - Botão Fechar - Lacres (ufrmCadLacres)

  • Alterar a primeira validação da função bbGravarClick. Atualmente está consultando apenas pelo número do lacre e verificando se o armador do lacre é o armador do container. Alterar para consultar pelo número do lacre e pelo código do armador

    de:

    if( retornaCampo('select a.cli_armador ' +
    ' from tab_lacre_depot_sequencia a ' +
    ' inner join tab_lacre_depot b ' +
    ' on b.tlds_id = a.tlds_id ' +
    ' where b.tld_lacre_numero = ' + quotedstr(edtNumeroLacre.text) ) <> edtCodArmador.text ) then

    
    para:

    if( retornaCampo('select select 1' +
    ' from tab_lacre_depot_sequencia a ' +
    ' inner join tab_lacre_depot b ' +
    ' on b.tlds_id = a.tlds_id ' +
    ' where b.tld_lacre_numero = ' + quotedstr(edtNumeroLacre.text) +
    ' and a.cli_armador = '+ quotedstr(edtCodArmador.text) ) <> '1')

  • Alterar mensagem de 'Este lacre não pertence a este armador' para 'Lacre não cadastrado para o armador'.
    
    
    

• MENU: Operacional - DEPOT - Containers aguardando vistoria (ufrmConsultaVistoriaContainer)

  • Quando a consulta for executada com a opção "Vistoriados por período", exibir uma coluna no grid para informar a quantidade de itens de vistoria.No SQL existente na função CarregaQuery incluir uma nova coluna "Qtde. Avarias" para exibir a quantidade de itens de avaria. Tornar esta coluna visível somente quando a consulta for "Vistoriados por período". 
    Segue consulta SQL para exibir quantidade de itens de avarias para uma vistoria: SELECT COUNT(0) FROM tab_vistoria_container_avaria WHERE tvc_id =  :tab_vistoria_container.tvc_id
    
    
    
• MENU: Operacional - DEPOT (umain)
  
  • Ajustar a ordem do último grupo de menu do Operacional - DEPOT. A ordem do último grupo deverá ser:
    • Tipo Material Container (novo);
    • Tipo Material Componente;
    • Componentes Container;
      
      
      
• MENU: Operacional - DEPOT - Tipo de material de container (LIB\ufrmCadTipoMaterialContainer)
  • Criar uma nova tela de cadastro simples para a tabela tab_tipo_material_container. Atentar para:
    • Utilização de herança do repositório (fRepositorioSp). Não existe necessidade de implementação das funcionalidades dos botões "Filtrar", "Relatório", "Outras Ações" (implementar as demais);
    • Atentar para obrigatoriedade dos campos código e descrição (HelpContext = 1; Hint='Descrição do campo');
    • Ordenação dos campos (tab order);
    • Alinhamento dos campos;
    • Utilizar como exemplo um cadastro do módulo IBT ($/SARA/Fontes_Doc/Customizacao/IBT/Fontes/ufrmAtividade.pas).
    • Criar script de banco de dados para inclusão do registros no módulo Segurança para permissão de acesso.
      INSERT INTO tab_menu VALUES ('HL','SARA_OPR','Tipo Material Container',90)
      
      
  • Permitir abertura da nova tela de tipo de material de container a partir do cadastro de container. (lib\frmCadContainer)
    • Substituir o componente combo box do campo tipo de material por uma pesquisa genérica. Da mesma forma existente no campo Armador\Proprietário. Ao lado do botão de pesquisa incluir um novo botão que permita acesso a nova tela de cadastro de tipo de material de container. No cadastro de CESV (Portaria - CESV) o campo motorista possui um botão que da acesso a tela de cadastro de motorista, implementar mesmo comportamento para o botão de acesso ao cadastro de Tipo Material Container.
      
      
      
• MENU: Operacional - DEPOT - Containers Aguardando Vistoria - Registrar Vistoria (lib\frm_VistoriaContainer)
  • Alinhar o posicionamento dos componentes(label e edit) dos campos Vistoria, Data Vistoria, Hr, Vistoriador. Unificar os espaçamento entre label, edit e btn.
    
    
    
• MENU: Operacional  - DEPOT -  Containers Pendentes de Vistoria - Registrar Vistoria - Registrar Avarias (lib\ufrmVistoriaContainerAvaria)
  • Adicionar o atalho "F5" para os campos que possuem consulta genérica.
  • Informar a propriedade "Hint" com a descrição do campo para todos os TEdits da tela.
  • Ao informar o campo "Local", atualizar o campo "Location Code" com a "Sigla" do campo "Local".
    
    
    
• MENU: Operacional - DEPOT - Containers Pendentes de Vistoria de Maquinário (ufrmConsultaVistoriaMaquinario)
  • Ajustar abertura de tela do botão "Registrar Avaria". Ao abrir a tela frmVistoriaMaquinario a tela frmConsultaVistoriaMaquinario é minimizada. Para corrigir esta situação realizar a alteração abaixo na função BitBtn1Click:
    
    de:
    

    frmVistoriaMaquinario:= TfrmVistoriaMaquinario.Create(self);
    frmVistoriaMaquinario.qryGrid.close;

    
    para:

    frmVistoriaMaquinario:= TfrmVistoriaMaquinario.Create(self);
    frmConsultaVistoriaMaquinario.WindowState := wsMaximized;
    frmVistoriaMaquinario.qryGrid.close;

     

• MENU: Operacional - DEPOT - Containers Pendentes de Vistoria de Maquinário - Registrar Vistoria (ufrmVistoriaMaquinario)
  • Adicionar botão "Hr" ao lado do campo "Data vistoria" para carregar "Data\Hora" atual. Igual ao já existente no formulário lib\frm_VistoriaContainer. Unificar os espaçamentos entre label, edit e btn.
  • Adicionar o atalho "F5" para a pesquisa genérica do campo vistoriador.
    
    
    
• MENU: Faturamento - DEPOT - Estimativa de Reparo - Serviços (ufrmEstimativaContainerItem)
  • Ao selecionar um item de vistoria, sistema não carrega as informações de componente e material. Alterar a procedure btnPesqItemVistoriaClick e adicionar o relacionamento das tabelas tab_componente_container (Componente) e tab_tipo_material_componente (Material).
    
    select a.tvca_id, 
           a.pcnt_id, 
           b.pcnt_descricao, 
           a.tad_id, 
           c.tad_descricao,  
           a.tsd_id, 
           d.tsd_descricao, 
           a.tvca_qtde,
           a.tcc_id, -- código do componente (edtCodComponente)
           e.tcc_descricao, -- descrição do componente (edtComponente)
           a.tmc_id, -- código do material (edtCodMaterial)
           f.tmc_descricao  -- descrição do material (edtDescricaoMaterial)
      from tab_vistoria_container_avaria a 
             inner join tab_parte_cnt b 
               on a.pcnt_id = b.pcnt_id 
             inner join tab_avaria_depot c  
               on a.tad_id = c.tad_id 
             inner join tab_servico_depot d 
               on a.tsd_id = d.tsd_id  
       inner join tab_componente_container e 
               on a.tcc_id = e.tcc_id  
             inner join tab_tipo_material_componente f 
               on a.tmc_id = f.tmc_id  
    
    
  • No evento edtDescServicoExit, incluir chamada para as procedures BuscaValores() e CalculaValores(). Sem estas chamadas o sistema não está calculando o valor do serviço ao informar um item de estimativa sem vincular um item de vistoria.
    
    if (edtServico.Text = '') and (edtDescServico.Text <> '') then
         btnPesqServico.Click;
    
      BuscaValores();
      CalculaValores();

• MENU: Faturamento  - DEPOT -  Estimativa de Reparo - Estimava - Serviços (ufrmEstimativaContainerItem)
  • Posicionar o group box "Estimativa" no topo da tela.
    
    
    
• MENU: Faturamento  - DEPOT -  Autorização de Estimativa - Registrar Autorização (ufrmAutorizacaoEstimativa)
  
  • Na função Gravar, no caso de aprovação negativa, verificar se o motivo de rejeição é igual a 3 - 'REJEITAR RECEBIMENTO'. Neste caso, verificar se o container já foi baixado para estoque, se sim, informar ao usuário 'Container já armazenado.' e não realizar a gravação. 
    Para verificar se o container já foi baixado em estoque, verificar se tab_mov_cnt.mcnt_fechado = 'S'.
    

    SELECT ISNULL(c.mcnt_fechado,'N') AS mcnt_fechado
    FROM tab_estimativa_container a
    JOIN tab_vistoria_container b
    ON a.tvc_id = b.tvc_id
    JOIN tab_mov_cnt c
    ON b.mcnt_id = c.mcnt_id
    WHERE a.tec_id = :CODIGO_ESTIMATIVA (DBEdit3.Text)

    
    

  • Criar novo motivo de rejeição que possibilite tornar o recebimento do container OK mesmo estando avariado e sem estimativa aprovada. Para isso será necessário:

    • Criar novo motivo de rejeição.
      INSERT INTO tab_tipo_rejeicao_estimativa VALUES (4,'REJEITAR ESTIMATIVA E LIBERAR CONTAINER SEM REALIZAR REPARO')
      
      
    • Alterar a procedure de banco de dados proc_diu_autorizacao_estimat para tratar o novo tipo de rejeição. Em geral, ao informar o novo motivo de rejeição o sistema deverá alterar o status do container para 12 - DISPONÍVEL. Porém caso o container possua lavação ou for container refeer o sistema deverá considerar respectivamente a mudança de status para 10 - AGUARDANDO LAVAÇÃO (quando lavação pendente) ou 11 - ESTRUTURA OK AGUARD. MAQUINARIO (quando vistorio do maquinário pendente). Para aplicar esta regra realizar a alteração abaixo após o tratamento existente de quando o motivo de rejeição é 3 - REJEITAR RECEBIMENTO (@w_ttre_id = 3) :
      
      if @w_ttre_id = 4 --Rejeitar Estimativa e liberar container
      begin
      if @w_operacao = 'U' or @w_operacao = 'I'
      begin
      if(@lavacao = 1)
      begin
             exec proc_controle_status_container 'I',10,null,@w_mcnt_id, @w_tae_data, null
      end
      else
      begin
      if(@refeer = 1)
      begin
               exec proc_controle_status_container 'I',11,null,@w_mcnt_id, @w_tae_data, null
      end
      if(@refeer = 0)
      begin
               exec proc_controle_status_container 'I',12,null,@w_mcnt_id, @w_tae_data, null
      end
      end
        end
       end
      
      
    • Para saber se o container é refeer, será nessário declarar a variável @refeer como inteiro e carregar o valor dela juntamente com o valor da variável @lavacao. Na consulta que carrega a variável @lavacao incluir relacionamento com a tabela tab_mov_cnt e a view vw_container. A indicação de refeer  está em vw_container.mc_refeer.
      
      select @avariado = b.tvc_avariado,
                 @lavacao = b.tvc_lavacao,
                 @refeer = d.mc_reefer
      from tab_estimativa_container a
      inner join tab_vistoria_container b
      on b.tvc_id = a.tvc_id
      inner join tab_mov_cnt c
      on b.mcnt_id = c.mcnt_id
      inner join vw_container d
      on c.cnt_id = d.cnt_id
           where a.tec_id = @w_tec_id
      
      
      
• MENU: Consulta - Consulta Genérica  (frm_ConGen)
  
  
  • Consulta por Container
    
    • 
      
      

    • Para todos os tipos de filtro da consulta de Container exceto o filtro "Por Container", permitir informar um filtro adicional "Com Saldo em Estoque". Para isso:
      
      

      • Na "sheet" tsContainer, abaixo dos campos existentes, incluir um checkbox "Com Saldo em Estoque" (chkComSaldoEstoqueContainer).
        
        

      • Alterar  o evento tvConsultaClick para realizar o tratamento do click nos "nós" de container. Para o filtro "Por Container", este novo campo "Com Saldo em Estoque" deverá permanecer desabilitado.Para os demais filtros (w_ctipo = 23;w_ctipo = 24;w_ctipo = 25;w_ctipo = 97) o novo campo "Com Saldo em Estoque" deverá estar habilitado para ser informado pelo usuário. Por padrão o campo deverá sempre ser exibido desmarcado.
        
        

      • Alterar o evento BitBtn6Click para que ao clicar em "Consultar" o filtro do novo campo "Com Saldo em Estoque" seja considerado na pesquisa. Incluir nesta função a condição "and a.cesv_id_sai is null" caso o check box "Com Saldo em Estoque" esteja marcado (chkComSaldoEstoqueContainer.checked). Isso deve ser feito para todos os filtros da consulta de Container (w_ctipo = 23;w_ctipo = 24;w_ctipo = 25;w_ctipo = 97) exceto o filtro "Por Container"(w_ctipo = 22).

    
    
    • Adicionar também um novo nó "Com Saldo em Estoque". Para isso:
      
      

      • Incluir o novo nó "Com Saldo em Estoque" no componente "tvConsulta". Este deverá ser o último nó da estrutura de Container. Este novo nó deverá ter as seguintes propriedades:

        Propriedade	Valor
        Text	Com Saldo em Estoque
        Image Index	69
        Selected Index	69
        State Index	207

        (Para incluir um novo nó, selecionar componente tvConsulta, propriedade Items, selecionar o nó "Container", "New SubItem".
        
        

      • Alterar  o evento tvConsultaClick para realizar o tratamento do click no novo nó criado.Ao clicar neste novo nó (w_ctipo = 207) habilitar todos campos de filtro exceto o campo Container (edtContainer). Marcar o novo campo criado "Com Saldo em Estoque" e o desabilitar para edição pelo usuário.

      
      
      • Alterar o evento BitBtn6Click para que ao clicar em "Consultar" o filtro do novo nó seja considerado (w_ctipo = 207). Adicionar a cláusula where para os campos informados pelo usuário (cláusulas where em (w_ctipo = 23;w_ctipo = 24;w_ctipo = 25;w_ctipo = 97;w_ctipo = 207). Nenhum campo deverá ser obrigatório para filtro, o filtro mínimo será "Com Saldo em Estoque".
  
  
  
  • Consulta por Lote
    
    

    • Para todos os tipos de filtro da consulta de Lote exceto o filtro "Por Lote" permitir informar um filtro adicional "Com Saldo em Estoque". Para isso:
      
      

      • Na "sheet" tsLote, abaixo dos campos existentes, incluir um checkbox "Com Saldo em Estoque" (chkComSaldoEstoqueLote).
        
        

      • Alterar  o evento tvConsultaClick para realizar o tratamento do click nos "nós" de lote. Para os filtros "Por Lote" e "Por Lote\RF"(w_ctipo = 10;w_ctipo = 11), este novo campo "Com Saldo em Estoque" deverá permanecer desabilitado.Para os demais filtros (w_ctipo = 12;w_ctipo = 13;w_ctipo = 35;w_ctipo = 75) o novo campo "Com Saldo em Estoque" deverá estar habilitado para ser informado pelo usuário.
        
        

      • Alterar o evento BitBtn3Click para que ao clicar em "Consultar" o filtro do novo campo "Com Saldo em Estoque" seja considerado na pesquisa. Incluir nesta função a condição "and exists (select distinct 1 from tab_lote_atual x where x.latu_lote = a.lote_Id and isnull(latu_qt_saldo,0) > 0 )" caso o check box "Com Saldo em Estoque" esteja marcado (chkComSaldoEstoqueLote.checked). Isso deve ser feito para todos os filtros da consulta de Lote (w_ctipo = 12;w_ctipo = 13;w_ctipo = 35;w_ctipo = 75) exceto para os filtros "Por Lote" e "Por Lote\RF "(w_ctipo = 10;w_ctipo=11).

    
    
    • Adicionar também um novo nó "Com Saldo em Estoque". Para isso:
      
      

      • Incluir o novo nó "Com Saldo em Estoque" no componente "tvConsulta". Este deverá ser o último nó da estrutura de Lote. Este novo nó deverá ter as seguintes propriedades:

        Propriedade	Valor
        Text	Com Saldo em Estoque
        Image Index	69
        Selected Index	69
        State Index	907

        (Para incluir um novo nó, selecionar componente tvConsulta, propriedade Items, selecionar o nó "Lote", "New SubItem".
        
        

      • Alterar  o evento tvConsultaClick para realizar o tratamento do click no novo nó criado.Ao clicar neste novo nó (w_ctipo = 907) habilitar todos campos de filtro exceto o campo de Lote (edtLoteAno, edtLoteNumero, edtDv). Marcar o novo campo criado "Com Saldo em Estoque" e o desabilitar para edição pelo usuário.

      
      
      • Alterar o evento btnDepotConsultarClick para que ao clicar em "Consultar" o filtro do novo nó seja considerado (w_ctipo = 907). Adicionar a cláusula where para os campos informados pelo usuário (cláusulas where em (w_ctipo = 12;w_ctipo = 13;w_ctipo = 35;w_ctipo = 75;w_ctipo = 907). Nenhum campo deverá ser obrigatório para filtro, o filtro mínimo será "Com Saldo em Estoque".
  
  
  

  • Consulta por DEPOT
    
    

    • Dentre os tipos de filtro para consulta de DEPOT, incluir um novo nó de consulta. Consulta "Por Armador". Para isso:
      
      
      • Na "sheet" tbsDepot, abaixo dos campos existentes, incluir novo campo "Armador" (edtArmadorContainerDepot). Criar funcionalidade de pesquisa genérica de armador ativo (tab_clientes.cli_situacao = 1), pelos campos código(tab_armador.cli_id) e nome(tab_armador.arma_nome), sendo o nome o filtro padrão com forma de pesquisa "INTERMEDIARIO".
        
        

      • Incluir o novo nó "Por Armador" no componente "tvConsulta". Este deverá ser o último nó da estrutura de Depot. Este novo nó deverá ter as seguintes propriedades:

        Propriedade	Valor
        Text	Por Armador
        Image Index	107
        Selected Index	107
        State Index	99

        (Para incluir um novo nó, selecionar componente tvConsulta, propriedade Items, selecionar o nó "Depot", "New SubItem".
        
        

      • Alterar  o evento tvConsultaClick para realizar o tratamento do click no novo nó criado.Ao clicar neste novo nó (w_ctipo = 99) além do novo campo Armador(edtArmadorContainerDepot), os campos de data (edtDepotDtRecebDe;edtDepotDtRecebAte) existentes deverão ficar habilitado. O campo container(edtDepotContainer) deve ficar desabilitado. Quando clicado no nó "Por Container" (w_ctipo = 80) além dos campos de data o novo campo Armador também deverá permanecer desabilitado.

      
      

      • Alterar o evento btnDepotConsultarClick para que ao clicar em "Consultar" o filtro do novo campo Armador seja considerado na pesquisa. Incluir nesta função o tratamento para w_ctipo = 99 então " where c.cli_armador = :ARMADOR and d.data_entrada between data_de and data_ate", da mesma forma que é feito para o filtro "Por Data de recebimento" (w_ctipo = 81).

    
    
    

    • Para todos os tipos de filtro da consulta de Depot exceto o filtro "Por Container", permitir informar um filtro adicional "Com Saldo em Estoque". Para isso:
      
      

      • Na "sheet" tbsDepot, abaixo dos campos existentes, incluir um checkbox "Com Saldo em Estoque" (chkComSaldoEstoqueContainerDepot).

      • Alterar  o evento tvConsultaClick para realizar o tratamento do click nos "nós" de Depot. Para o filtro "Por Container", este novo campo "Com Saldo em Estoque" deverá permanecer desabilitado.Para os demais filtros (w_ctipo = 81;w_ctipo = 99) o novo campo "Com Saldo em Estoque" deverá estar habilitado para ser informado pelo usuário. Por padrão o campo deverá sempre ser exibido desmarcado.
        
        

      • Alterar o evento btnDepotConsultarClick para que ao clicar em "Consultar" o filtro do novo campo "Com Saldo em Estoque" seja considerado na pesquisa. Incluir nesta função a condição " and data_saida is null" caso o check box "Com Saldo em Estoque" esteja marcado (chkComSaldoEstoqueContainerDepot.checked). Isso deve ser feito para todos os filtros da consulta de Depot(w_ctipo = 81;w_ctipo = 99) exceto o filtro "Por Container" (w_ctipo = 80).
        
        

    • Adicionar também um novo nó "Com Saldo em Estoque". Para isso:
      
      

      • Incluir o novo nó "Com Saldo em Estoque" no componente "tvConsulta". Este deverá ser o último nó da estrutura de Depot. Este novo nó deverá ter as seguintes propriedades:

        Propriedade	Valor
        Text	Com Saldo em Estoque
        Image Index	69
        Selected Index	69
        State Index	793

        (Para incluir um novo nó, selecionar componente tvConsulta, propriedade Items, selecionar o nó "Depot", "New SubItem".
        
        

      • Alterar  o evento tvConsultaClick para realizar o tratamento do click no novo nó criado.Ao clicar neste novo nó (w_ctipo = 793) habilitar todos campos para filtro exceto o campo Container (edtDepotContainer). Marcar o novo campo criado Com Saldo em Estoque e o desabilitar para edição pelo usuário.

      
      
      • Alterar o evento btnDepotConsultarClick para que ao clicar em "Consultar" o filtro do novo nó seja considerado (w_ctipo = 793). Adicionar a cláusula where para os campos informados pelo usuário (cláusulas where em w_ctipo=81;w_ctipo=793). Nenhum campo deverá ser obrigatório para filtro, o filtro mínimo será "Com Saldo em Estoque".