;** AC_COR *********************************************************************
;** Acerto da Descricao da Cor_Tecido                                          *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 19/03/2018 por Bruno Carvalho
;Ultima Alteracao: 20/03/2018 por Bruno Carvalho              
;Motivo Alteracao: Adicionado a Ref 32005 e a Ref 32081 a pedido de Mariana  

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
Proc Ajusta_Cor_Tecido(PARAM)

Aguarde("Aguarde, ajustando a tabela "+Upper(PARAM))

If IsTable(PARAM)
   Then Switch 
          Case Upper(PARAM)="FORMULAC" :
               {Ask} TypeIn TabelaItem Enter
               Moveto [Codigo do Item         ] TypeIn "_item"
               Moveto [Descricao do Item      ] TypeIn "_desi"
               Moveto [Descricao da Cor_Tecido] TypeIn "_des"
               {Ask} TypeIn PARAM Enter 
               Moveto [Codigo do Produto      ] TypeIn "_item"
               Moveto [Descricao do Item      ] TypeIn "Changeto _desi"
               Moveto [Descricao da Cor_Tecido] TypeIn "Changeto _des"
               Do_it!
               ClearAll
          Case Upper(PARAM)="PED_REGI" : 
               {Ask} TypeIn TabelaItem Enter
               Moveto [Codigo do Item         ] TypeIn "_item"
               Moveto [Descricao do Item      ] TypeIn "_desi"
               Moveto [Descricao da Cor_Tecido] TypeIn "_des"
               {Ask} TypeIn PARAM Enter 
               Moveto [Codigo do Item         ] TypeIn "_item"
               Moveto [Descricao do Item      ] TypeIn "Changeto _desi"
               Moveto [Descricao Cor_Tecido   ] TypeIn "Changeto _des"
               Do_it!
               ClearAll
                
          OtherWise:
               {Ask} TypeIn TabelaItem Enter
               Moveto [Codigo do Item         ] TypeIn "_item"   
               Moveto [Descricao do Item      ] TypeIn "_desi"
               Moveto [Codigo da Cor_Tecido   ] TypeIn "_cor"    
               Moveto [Descricao da Cor_Tecido] TypeIn "_des"
               {Ask} TypeIn PARAM Enter  
               Moveto [Codigo do Item         ] TypeIn "_item"
               Moveto [Descricao do Item      ] TypeIn "Changeto _desi"
               Moveto [Codigo da Cor_Tecido   ] TypeIn "Changeto _cor"    
               Moveto [Descricao da Cor_Tecido] TypeIn "Changeto _des"
               Do_it!
               ClearAll           
        EndSwitch
   Else Mensagem("N„o foi localizado a tabela "+PARAM+"!")
EndIf

EndProc ;Ajusta_Cor_Tecido()

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

COR_MENSAGEM="ALERTA"
MSG =       Completa("Processo p/ ajustar a descricao da cor do tecido das referˆncias:",72," ")+"////"
MSG = MSG + Completa("- 32565",72," ")+"//"
MSG = MSG + Completa("- 32577",72," ")+"//"
MSG = MSG + Completa("- 32529",72," ")+"//"
MSG = MSG + Completa("- 32526",72," ")+"//"
MSG = MSG + Completa("- 32022",72," ")+"//"
MSG = MSG + Completa("- 32005",72," ")+"//"
MSG = MSG + Completa("- 32081",72," ")+"//"
MSG = MSG + Completa("- 32532",72," ")+"////"
MSG = MSG + Completa("Ser  preciso realizar um BACKUP COMPLETO do sistema.",72," ")+"//"
MSG = MSG + Completa("Deseja continuar com esse processo?",72," ")
ConfGeral(MSG)
If OK<>"S"
   Then Return
EndIf   

Array CODIGO_COR[8]
CODIGO_COR[1] = "32565"
CODIGO_COR[2]	= "32577"
CODIGO_COR[3]	= "32529"
CODIGO_COR[4]	= "32526"
CODIGO_COR[5]	= "32022"
CODIGO_COR[6]	= "32005"
CODIGO_COR[7]	= "32081"
CODIGO_COR[8]	= "32532"

CODIGO = ""
For i From 1 To ArraySize(CODIGO_COR)
  CODIGO = CODIGO + CODIGO_COR[i]
  If i <> ArraySize(CODIGO_COR)
     Then CODIGO = CODIGO + " Or " 
  EndIf
EndFor

{Ask} {\\Sistemas\\Estoque\\Itens}
Moveto [Codigo do Item         ] Check
Moveto [Descricao do Item      ] Check
Moveto [Referencia             ] Check TypeIn CODIGO
Moveto [Codigo da Cor_Tecido   ] Check TypeIn "Not Blank"
Moveto [Descricao da Cor_Tecido] Check
Do_it!
ClearAll

TabelaItem=Adiciona_Indice_Temp("Codigo do Item")

SetDir "\\Sistemas\\Compras"
Ajusta_Cor_Tecido("Oci")

SetDir "\\Sistemas\\Estoque"
Ajusta_Cor_Tecido("Confnei")
Ajusta_Cor_Tecido("NotaEi")             ;Nao tem REFERENCIA
Ajusta_Cor_Tecido("Rqitemg")
Ajusta_Cor_Tecido("Inei") 

SetDir "\\Sistemas\\Faccao"
Ajusta_Cor_Tecido("Cfacri")
Ajusta_Cor_Tecido("Cfacrig")
Ajusta_Cor_Tecido("Pcfacri")
Ajusta_Cor_Tecido("Pcfacrig")
Ajusta_Cor_Tecido("Pfacri")
Ajusta_Cor_Tecido("Pfacrig")
Ajusta_Cor_Tecido("Rfacri")
Ajusta_Cor_Tecido("Rfacrig")
Ajusta_Cor_Tecido("Cprobi")
Ajusta_Cor_Tecido("Ofacpi")
Ajusta_Cor_Tecido("Ofacri")

SetDir "\\Sistemas\\Producao"
Ajusta_Cor_Tecido("FormulaC")

SetDir "\\Sistemas\\Vendas"
Ajusta_Cor_Tecido("Faturai")            
Ajusta_Cor_Tecido("Faturag")
Ajusta_Cor_Tecido("Faturaid")
Ajusta_Cor_Tecido("Faturaig")
Ajusta_Cor_Tecido("Faturatg")
Ajusta_Cor_Tecido("Notai")               ;Nao tem REFERENCIA
Ajusta_Cor_Tecido("Notaig")              ;Nao tem REFERENCIA
Ajusta_Cor_Tecido("Notaidv")             ;Nao tem REFERENCIA
Ajusta_Cor_Tecido("Expedi")
Ajusta_Cor_Tecido("Expediq")
Ajusta_Cor_Tecido("Expedofi")
Ajusta_Cor_Tecido("Expedtg")
Ajusta_Cor_Tecido("Confcfi") 
Ajusta_Cor_Tecido("Of_Nfei")
Ajusta_Cor_Tecido("Pedidoi")
Ajusta_Cor_Tecido("Pedidog")
Ajusta_Cor_Tecido("Pedidogt")
Ajusta_Cor_Tecido("Ped_Regi")

Mensagem("Fim do Processo!")
