;** Expsaiit *******************************************************************
;*  Geracao dos Itens de Saida                                                 *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 15/10/2004 por Jos LuĦs Ameno da Silva
;Ultima Alteracao: 01/12/2004 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes
;Ultima Alteracao: 20/08/2012 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes desprezar item notai cancalado

;*******************************************************************************
;* Rotina p/ Selecionar Registros                                              *
;*******************************************************************************
Proc GERA()

ClearAll
{Ask} TypeIn Dir_Buscag + "NotaC" Enter
Moveto [UF                       ] Check
Moveto [Data de Emissao          ] Check TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
Moveto [Codigo da Empresa        ] Check Example "ce" TypeIn ", ~VSDGEMPRESA.."
Moveto [Numero do Documento      ] Check Example "nd"
Moveto [Serie do Documento       ] Check Example "sd"
Moveto [Tipo Movimento Estoque   ] TypeIn "S"

{Ask} TypeIn Dir_Buscag + "NotaI" Enter
Moveto [Codigo da Empresa        ] Example "ce"
Moveto [Numero do Documento      ] Example "nd"
Moveto [Serie do Documento       ] Example "sd"
Moveto [NCM                      ] Check
Moveto [Unidade Fiscal           ] Check
Moveto [Quantidade               ] Check
Moveto [Preco Total              ] Check
Moveto [Aliquota de IPI          ] Check
Moveto [Valor do IPI             ] Check
Moveto [Item do Documento        ] Check
Moveto [CFO                      ] Check
Moveto [Codigo do Item           ] Check Example "it"
Moveto [Tipo Tributacao          ] Check
Moveto [Valor Desconto Total     ] Check
Moveto [Aliquota de ICMS         ] Check
Moveto [Descricao do Item        ] Check
Moveto [Aliquota Reduzida BCICMS ] Check
Moveto [Situacao_Item            ] TypeIn "Not C"

{Ask} TypeIn "\\Sistemas\\Estoque\\Itens" Enter
Moveto [Codigo do Item           ] Example "it"
Moveto [Codigo de Barras         ] Check

Do_It!
ClearAll

;;;;If IsEmpty("Answer")
;;;;   Then Return
;;;;EndIf

If Not IsTable("\\Sistemas\\Exporta\\It_TempS")
   Then Rename "Answer" "\\Sistemas\\Exporta\\It_TempS"
   Else Add "Answer" "\\Sistemas\\Exporta\\It_TempS"
EndIf
EndProc


;*****************************************************************************************
;* Rotina principal
;*****************************************************************************************
LimpAguarde()
Aguarde("Aguarde, Processando Dados Saidas")

If IsTable("\\Sistemas\\Exporta\\It_TempS")
   Then Delete("\\Sistemas\\Exporta\\It_TempS")
EndIf

View "\\Sistemas\\Estoque\\Itens"

SetDir "\\Sistemas\\Vendas\\"
Monta_Dir_Trab(VSDGDTINI,VSDGDTFIM)
While Novo_Dir_Trab()

  If IsTable("\\Sistemas\\Vendas\\"+Dir_Trab+"NotaC")
     Then Dir_Buscag  = "\\Sistemas\\Vendas\\"+Dir_Trab
          Gera()
  EndIf

EndWhile
ClearAll

LimpAguarde()
Release Procs GERA

