;XX_RFAC2
;Script para corre‡Æo do [preco total], Quantidae_Produziada da cabeca

AutoLib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"
Debug
View "Rfacrig"  
CoEdit "Rfacc"
Scan for Year([Data_Producao])=2020
  Barra(NRecords("Rfacc"), RecNo())
  Aguarde("Aguarde, ajustando dados "+BARRA_STRING)

  TOTVR =0
  TOTQTD=0  
  Moveto "Rfacrig"
  Moveto [Numero_Producao]
  Locate [Rfacc->Numero_Producao]
  If RetVal
     Then 
          While [Numero_Producao] = [Rfacc->Numero_Producao]
            TOTVR =TOTVR +[Preco Total         ]
            TOTQTD=TOTQTD+[Quantidade Produzida]
            
            Skip
            If Eot() Then QuitLoop EndIf
          EndWhile
          
          Moveto "Rfacc"
          [Quantidade_Produzida]=TOTQTD 
          [Valor Total         ]=TOTVR  
          
  EndIf
  Moveto "Rfacc"
  
EndScan
DO_it!
ClearAll

Mensagem("Processo Concluido!")
