;* ACCOTDTE ********************************************************************
;*  Acerto de Data de Emissao da tabela Cota‡Æo com NotaEC de meses Fechados   *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 11/03/2016 por Kamila Gomes
;Ultima Alteracao:   /  /     por                         
;Motivo Alteracao:                                               

;*******************************************************************************
;* Rotina p/ Inserir Registros                                                 *
;*******************************************************************************
Proc Acerto_Cotacao()                

Moveto "Cotacao"
NR = NRecords("Cotacao") 
Scan
  old_dtemis=[Data de Compra]
  Dir_Trab=""
   
  Barra(NR, RecNo())
  Aguarde("Aguarde, Ajustando Datas "+BARRA_STRING)
  If IsBlank([Data de Emissao])      And 
     (not IsBlank([Data de Compra])) And 
     StrVal([Data de Compra])>"31.12.2013"
     Then For wi From 1 to 3
            If IsTable("\\Sistemas\\Estoque\\"+Dir_Trab+"NotaEC")
               Then Aguarde("Aguarde, Ajustando Datas "+Dir_Trab+" "+BARRA_STRING)
                    GetRecord "\\Sistemas\\Estoque\\"+Dir_Trab+"NotaEC" [Numero do Lancamento] To REG_NOTA 
                    If RetVal
                       Then If [Data de Compra] = REG_NOTA["Data de Entrada"]
                               Then [Data de Emissao] = REG_NOTA["Data de Emissao"]
                                    Release Vars REG_NOTA        
                                    QuitLoop
                            EndIf
                    EndIf
            EndIf   
            If wi = 2 Then [Data de Compra]=Primeiro_Dia_Data([Data de Compra])-1 EndIf
            Dir_Trab="FechaMes\\"+AlinhM(StrVal(Year([Data de Compra])),4)+"_"+AlinhM(StrVal(Month([Data de Compra])),2)+"\\" 
          EndFor  
          [Data de Compra]=old_dtemis
  EndIf
EndScan

Do_it!
ClearAll      

EndProc   ;(Acerto_Cotacao)
;*******************************************************************************
;* Carrega Tabelas                                                             *
;*******************************************************************************
Proc Carrega_Tabelas()

View "NotaEC"
Coedit "Cotacao"

EndProc  ;Carrega_Tabelas()
;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"
LimpAguarde()

CONCLUIDO = False
 
ConfGeral("Confirma Acerto de Data de Emissao na Tabela Cotacao?")
If OK="S"
  Then  AGUARDE("Aguarde, Ajustando Datas")
        Carrega_Tabelas()
        Acerto_Cotacao()
        CONCLUIDO = True
EndIf
    
If Not CONCLUIDO
   Then Mensagem("Opera‡Æo nÆo Finalizada !")
   Else Mensagem("Opera‡Æo Finalizada !")
EndIf
     

ClearAll
Release Vars All
Release Procs All