;*******************************************************************************
;* Desenvolvido: 04/11/2019 por Anivel Augusto Rodrigues                       *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)               
;Desenvolvido    : 04/11/2019 por Anivel Augusto Rodrigues
;Ultima Alteracao:   /  /     por  
;Motivo Alteracao: 

Autolib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"

;*******************************************************************************
;Rotina Corre‡Æo de Tabelas                                                    *
;*******************************************************************************
Proc Correcao_TabelasNS()

NR = NRecords("Notac")

CoEdit "NotaC"
PickForm "1"
Scan
  Barra(NR, RecNo())
  Aguarde("Aguarde, processando dados NS "+BARRA_STRING)

  If [Situacao]="C"    
     Then Loop
  EndIf

  If [Tipo Movimento Estoque]="E"        
     Then Loop
  EndIf

  If Search("NCE",[Codigo do Documento])=0
     Then Loop
  EndIf   

  VRPIS   =0
  
  Moveto "NotaI"
  Scan

    VRPIS   =VRPIS   +[PIS_Valor   ]

  EndScan

 Moveto "NotaC"
 [Valor PIS   ]=VRPIS

EndScan
Do_It!
ClearAll

EndProc ;Correcao_TabelasNS()


;------------------------------------------------------------------------------
Aguarde("Atualizando Sistema")
Password("t01avivcl")
Password("FechaSys")
ClearAll

sys_Valor()

if sys_Codigo_Cliente="0309"
   then
        if ConfGeral("Executar acerto Valor PIS!")
           then 
                Correcao_TabelasNS()

                Mensagem("Fim do processo !// Conferir novos Dados !")
        endif
endif   

LimpAguarde()

Release Vars All
Release Procs All
