;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"
SYS_Valor()

ConfGeral("Processo para ajustar em MAISCULO a [Descricao do Item]//e a [Descricao Complementar]!//Deseja continuar com este processo?")
If Ok<>"S"
   Then Return
EndIf   

MSG = "Deseja realizar o BACKUP da tabela ITENS?"
ConfGeral(MSG)
If Ok="S"
   Then Aguarde("Copiando a tabela ITENS para BK_ITEM")
        Copy "ITENS" "BK_ITEM" 
EndIf   

SetDir "\\Sistemas\\Estoque"

CoEdit "Itens"
Scan
  Barra(NRecords("Itens"), RecNo())
  Aguarde("Aguarde, ajustando a descri‡Æo do item "+BARRA_STRING)
  
  DESC_ITEM = Upper([Descricao do Item     ])
  DESC_COMP = Upper([Descricao Complementar])
  
  Moveto [Descricao do Item     ] CtrlBackSpace TypeIn DESC_ITEM
  Moveto [Descricao Complementar] CtrlBackSpace TypeIn DESC_COMP 
EndScan
Do_it!
Clearall

Mensagem("Processo concluido!")
