;*******************************************************************************
;* Desenvolvido: 02/08/2016 por Bruno Carvalho                                 *
;*******************************************************************************
Autolib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"

;Script para adicionar itens nÆo cadastrados na ITEN_COM
;Se por algum motivo o item nÆo foi cadastrado na item_com, este script adicionar 
;automaticamente este item nesta tabela.

ConfGeral("Rotina para cadastrar itens NAO CADASTRADOS na tabela Item_Com!//Deseja continuar com este processo?")
If Ok<>"S"
   Then Return
EndIf    
   
{Ask} {Itens}
Moveto [Codigo do Item] Check
Do_it!
ClearAll

;---- Campo Chave na Tabela para a exclusÆo da rotina a baixo ser mais rapida -- 
{Modify} {Restructure} {Answer}
Moveto [Field Name] Enter CtrlBackSpace TypeIn "A10*" Enter
Do_it!
ClearAll

{Ask} {Answer} TypeIn "Fast Delete" Enter
Moveto [Codigo do Item] Example "Ite" 
{Ask} {Iten_Com}
Moveto [Codigo do Item] Example "Ite"
Do_it!
ClearAll   

If IsEmpty("Answer")
   Then Mensagem("N„o h  registros a processar!") 
        Return
EndIf

NR=NRecords("Answer")

View "Iten_Com"
CoEdit "Answer"                    
Scan      
  CODIGO = [Codigo do Item]
  Barra(NR, RecNo())
  Aguarde("Aguarde, Ajustando o Item "+CODIGO+BARRA_STRING)
  
  Moveto "Iten_Com"
  End Down
  [Codigo do Item         ]=CODIGO
  [Edita Descricao do Item]="N"
  [Situacao               ]="L"
  [Vendagem               ]="BOM"
  [Fracionado             ]="N"
  [Composto               ]="N"
  [EX_TIPI                ]="999"
  [Producao Esgotada      ]="N"                                                            
  [ANP_Codigo_Combustivel ]="999999999"
  UnLockRecord 
  
  Moveto "Answer"
EndScan 
Do_it!
ClearAll                                     

Mensagem("Processo Concluido!")
