;******************************************************************************
;* Acerto Comissao do Item por Grupo                 Concretos Vico           *
;* Desenvolvido: 13/09/2011 por Karina Andrade                                *
;* Modificado  :   /  /     por                                               *
;******************************************************************************

; Acerto Comissao do Item por Grupo no cadastro do Item

;****ATENCAO***
;***  feito para todos os grupos que nao tenha Conta Contabil em branco, 
;*** caso deseje um grupo em especifico descomentar a linha 24 e mudar o 
;*** codigo 000 para o desejado.

;*******************************************************************************
;Rotina CorreĈo de Tabelas                                                    *
;*******************************************************************************
Proc Correcao_Tabelas()

If Not IsEmpty("Itens") And IsEmpty("Grupos") 
   Then Return False
EndIf

{Ask} {Grupos} Check 
;Moveto [Codigo do Grupo ] TypeIn "000"
Moveto [Conta Contabil  ] TypeIn "not blank" 
Do_It! 
ClearAll

If IsEmpty("Answer")
  Then Return False 
EndIf

Rename "Answer" "Temp"

{Modify} {Restructure} {Temp}
  Moveto [Field Name]
  Locate "Conta Contabil"
  If RetVal
    Then CtrlBackSpace "Comissao do Item"  Enter CtrlBackSpace "N"
  EndIf        
  Do_It!
  ClearAll  

{Ask} {Temp}
Moveto [Codigo do Grupo  ] Example "g"
Moveto [Comissao do Item ] Example "c"
{Ask} {Itens}
Moveto [Codigo do Grupo  ] Example "g"
Moveto [Comissao do Item ] TypeIn "Changeto " example "c"
Do_it!
ClearAll

Delete "Temp"
Return True
EndProc

;*******************************************************************************
;Rotina Principal                                                              *
;*******************************************************************************
Autolib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"

While True
  If Verifica_Usuario()
     Then Aguarde("Alterando Comissao dos Itens")
          If Correcao_Tabelas()
          Then MSG="Rotina Ok !"+
                 "// // Obrigado Vise Inform tica [SIM]."
          Else MSG="No Existem Registros a Processar"
          EndIf
          
          LimpAguarde()
          Mensagem(MSG)
          QuitLoop

     Else ConfGeral("Comunicar os usuarios !// //Deseja Continuar com Atualizacao ?")
          If OK<>"S"
             Then QuitLoop
          EndIf
  EndIf
EndWhile

Release Vars All
Release Procs All
