;** RM_0050B *******************************************************************
;*  Conferencia das requisicoes por periodo Grade Entrada/Producao             *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 17/01/2006 por Anivel Augusto Rodrigues
;Ultima Alteracao: 11/04/2006 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes
;Ultima Alteracao: 26/11/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Requisitante
;Ultima Alteracao: 25/02/2010 por Cleber Alves
;Motivo Alteracao: Opcao Referencia
;Ultima Alteracao: 12/04/2011 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao TG_REFERENCIA/BIB_SHOW
;Ultima Alteracao: 23/04/2014 por Kamila Gomes
;Motivo Alteracao: Ajuste Ask - Titulos das grades
;Ultima Alteracao: 02/10/2015 por Bruno Carvalho  
;Motivo Alteracao: Incluido "I" no [Tipo de Operacao] para fornecer registros quando for requisi‡äes de Industrializa‡Æo
;Ultima Alteracao: 18/09/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes showdialog                   
;Ultima Alteracao: 27/12/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes showdialog                   
;Ultima Alteracao: 27/01/2017 por Anivel Augusto Rodrigues 
;Motivo Alteracao: Ajustes TG_REFERENCIA
;Ultima Alteracao: 24/03/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes showdialog   
;Ultima Alteracao: 27/03/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes agrupado RM_0050, substituido RM_0051
;Ultima Alteracao: 08/04/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes ask          
;Ultima Alteracao: 27/04/2020 por Bruno Carvalho
;Motivo Alteracao: Otimiza‡Æo na ASK p/ o campo [Tipo do Item] -> Ask_Estoque()
;Ultima Alteracao: 04/08/2020 por Bruno Carvalho
;Motivo Alteracao: Ajustes ask tipo do item nova fun‡Æo

;*******************************************************************************
;* Rotina p/ Selecionar e Ordernar Registros                                   *
;*******************************************************************************
Proc RM_0050B_Seleciona()
ClearAll
  
If IsTable("\\Sistemas\\Estoque\\"+Dir_Trab+"RqCabeca") And
   IsTable("\\Sistemas\\Estoque\\"+Dir_Trab+"RqItemg")  
   Then
   
        {Ask} TypeIn "\\Sistemas\\Estoque\\Itens" Enter
        Moveto [Codigo do Item         ] TypeIn "_cite"
        Moveto [Codigo da Familia      ] TypeIn "~VSDGFAMI.."
        Moveto [Codigo do Grupo        ] TypeIn "~VSDGGRP.."
        Moveto [Codigo da Marca        ] TypeIn "~VSDGMARCA.."
   
        {Ask} TypeIn "\\Sistemas\\Estoque\\"+Dir_Trab+"RqCabeca" Enter Check
        Moveto [Numero do Lancamento] Example "LANCTO" TypeIn ",>=~VSDGNLANCINI,<=~VSDGNLANCFIM"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA.."
        Moveto [Tipo de Movimento   ] TypeIn "E"
        Moveto [Tipo de Operacao    ] TypeIn "P"        
        Moveto [Data de Ocorrencia  ] TypeIn ">=~VSDGDTINI,<=~VSDGDTFIM"
        Moveto [Requisitante        ] Check TypeIn "~VSDGREQUISIT.."
        {Ask} TypeIn "\\Sistemas\\Estoque\\"+Dir_Trab+"RqItemg" Enter Check
        Moveto [Numero do Lancamento] Example "LANCTO"
        Moveto [Codigo do Item      ] TypeIn "_cite, ~VSDGITEM.."
        Ask_EstoqueTpItem("")
        Moveto [Referencia          ] TypeIn "~VSDGREFERENCIA.."
        Moveto [Codigo da Grade     ] Example "cgrd" 
        {Ask} TypeIn "\\Sistemas\\Estoque\\TpGrade" Enter 
        Moveto [Codigo da Grade] Example "cgrd" 
        Moveto [Titulo Grade1  ] Check
        Moveto [Titulo Grade2  ] Check
        Moveto [Titulo Grade3  ] Check
        Moveto [Titulo Grade4  ] Check
        Moveto [Titulo Grade5  ] Check
        Moveto [Titulo Grade6  ] Check
        Moveto [Titulo Grade7  ] Check
        Moveto [Titulo Grade8  ] Check
        Moveto [Titulo Grade9  ] Check
        Moveto [Titulo Grade10 ] Check
        Moveto [Titulo Grade11 ] Check
        Moveto [Titulo Grade12 ] Check
        Do_It!
        ClearAll

        If IsTable(Tabela)
           Then Add "Answer" Tabela
           Else Rename "Answer" Tabela
        EndIf
EndIf

EndProc   ;  (Seleciona)

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
Proc RM_0050B_Principal()

AGUARDE("Aguarde, gerando o relat¢rio")
Tabela=Cria_Temp(PrivDir())

Monta_Dir_Trab(VSDGDTINI,VSDGDTFIM)
While Novo_Dir_Trab()
  RM_0050B_Seleciona()
EndWhile

If IsEmpty(Tabela)
   Then 
        MENSAGEM("N„o existem registros a processar")
   else
        Switch
          Case VSDGCODMODELO="46"  : CopyReport "\\Base\\Sistemas\\Estoque\\RM_0051" "R" Tabela "R"
        EndSwitch
        IMPRIREL(Tabela,"R")  
EndIf
Delete Tabela

EndProc

;-- Chamada principal ----------------------------------------------------------
RM_0050B_Principal()

Release Vars Tabela
Release Procs RM_0050B_Principal, RM_0050B_Seleciona
