;* ALT_AC **********************************************************************
;* Altera‡Æo dos Nomes dos Scripts de Acerto                                   *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 10/08/2020 por Bruno Carvalho
;Ultima Alteracao:   /  /     por                 
;Motivo Alteracao: 

;*******************************************************************************
;* Ajusta nome de script de acerto                                             *
;*******************************************************************************
Proc Renomeia_Acerto(ARRAY_AUX)
Private ARRAY_AUX,VALOR 

For ii From 1 To ArraySize(ARRAY_AUX)
   Aguarde("Renomeando o arquivo "+ARRAY_AUX[ii])
   If Not IsFile(ARRAY_AUX[ii]+".sc") Then Loop EndIf
   VALOR="" 
   Switch
     Case SubStr(Upper(ARRAY_AUX[ii]),1,2)="AC" :  
          VALOR = "X"+ SubStr(Upper(ARRAY_AUX[ii]),3,Len(ARRAY_AUX[ii]))
     Case SubStr(Upper(ARRAY_AUX[ii]),1,2)="A_" :
          VALOR = "X"+ SubStr(Upper(ARRAY_AUX[ii]),2,Len(ARRAY_AUX[ii]))           
   EndSwitch
   If VALOR <> ""
      Then Renomeia_Arquivo(ARRAY_AUX[ii]+".sc "+VALOR+".sc")
   EndIf   
EndFor

EndProc ;Renomeia_Acerto

;*******************************************************************************
;* Ajusta nome de script de acerto                                             *
;*******************************************************************************
Proc Processa()
Private ii,TAB_CAD,TAB_PAG,TAB_REC,TAB_FAC,TAB_VEND,TAB_PROD,ty

;---- CADASTRO -----------------------------
Array TAB_CAD[28]

TAB_CAD[1]  = "A_CNPJ"        ;Rotina para verificar duplicidade de CPF ou CNPJ existente no cadastro 
TAB_CAD[2]  = "A_NOT"         ;Emite relat¢rio conforme localiza‡Æo de notas, contas a receber, outros
TAB_CAD[3]  = "AC_BK"         ;Acerto para realizar a exclus„o de arquivos de BACKUP
TAB_CAD[4]  = "AC_CUP"        ;Acerto para Composi‡Æo de Dias de CUPOM FISCAL
TAB_CAD[5]  = "AC_NCM"        ;Ajustes para alterar NCM antigos de acordo com o arquivo em XLS
TAB_CAD[6]  = "AC_PC"         ;Corre‡äes de Valores de PIS e COFINS nos Itens da Nota de Entrada
TAB_CAD[7]  = "AC_PCOF"       ;Corre‡äes de Valores de PIS e COFINS nos Itens da Nota de Entrada
TAB_CAD[8]  = "AC_PGDN"       ;Rotina paraa executar a rotina CALC_OF das Notas #0227#
TAB_CAD[9]  = "AC_RFACR"      ;Rotina p/ ajustar o pre‡o total da tabela RFACRIR de acordo com a quantidade e o pre‡o unit rio 
TAB_CAD[10] = "AC_ROIS"       ;Ajustar para o novo formato do arquivo ROIS (mensal)
TAB_CAD[11] = "AC_RQ"         ;Rotina p/ ajustar a RQMATPRI conforme a formula cadastrada!
TAB_CAD[12] = "AC_RTRIM"      ;Rotina p/ remover espa‡amentos vazios em registros de campos das tabelas
TAB_CAD[13] = "AC_S_CHQ"      ;Rotina p/ refazer as tabelas da rotina de CHEQUE
TAB_CAD[14] = "AC_S_DUP"      ;Rotina p/ refazer as tabelas DUP
TAB_CAD[15] = "AC_S_FAC"      ;Rotina p/ refazer as tabelas do FACCAO
TAB_CAD[16] = "AC_S_FAT"      ;Rotina p/ refazer as tabelas do FATURA
TAB_CAD[17] = "AC_S_ITE"      ;Rotina p/ refazer a tabela dos ITENS
TAB_CAD[18] = "AC_S_NE"       ;Rotina p/ refazer as tabelas da NE
TAB_CAD[19] = "AC_S_NOT"      ;Rotina p/ refazer as tabelas do NOTA
TAB_CAD[20] = "AC_S_PED"      ;Rotina p/ refazer as tabelas do PEDIDO
TAB_CAD[21] = "AC_S_REC"      ;Rotina p/ refazer as tabelas do CONTAS A RECEBER 
TAB_CAD[22] = "AC_S_RQ"       ;Rotina p/ refazer as tabelas da RQ 
TAB_CAD[23] = "AC_S_TIT"      ;Rotina p/ refazer as tabelas do CONTAS A PAGAR
TAB_CAD[24] = "ACCLIE"        ;Rotina p/ Inativar Clientes Duplicados
TAB_CAD[25] = "ACFECHAM"      ;Acerta Estrutura de FechaMes e FechaAno das tabelas
TAB_CAD[26] = "ACFICHA"       ;Acerto para Ajustar a ficha financeira
TAB_CAD[27] = "ACFICHAR"      ;Rotina para excutar a ficha financeira/Recebido
TAB_CAD[28] = "ACLOJA"        ;CERTO DE REGISTRO INCLUSOS NO LOJA, ONDE NÇO CONSTAM NOS NOTAS

SetDir "\\Sistemas\\Cadastro"
Renomeia_Acerto(TAB_CAD)

If IsFile("AC_COR.sc")
  Then ;---- Exclui Arquivo ----------------
       Deleta_Arquivo("AC_COR.sc")
EndIf


;---- Ajusta tabela alterada no menu -----------------------------
If IsTable("M_UTIL_S")
   Then CoEdit "M_UTIL_S"
        Scan
          If Upper([Comando])="ACFICHA"
             Then Moveto [Comando] CtrlBackSpace TypeIn "XFICHA"   
          EndIf
        EndScan
        Do_it!
        ClearAll
EndIF


;---- CTAPAG -------------------------------
Array TAB_PAG[1]

TAB_PAG[1] = "AC_FAT"        ;Acerto de Controle de Frete -> CTAPAG 07.Lan‡amento de Faturas

SetDir "\\Sistemas\\CtaPag"
Renomeia_Acerto(TAB_PAG)

                          
;---- CTAREC -------------------------------
Array TAB_REC[2]

TAB_REC[1] = "AC_ENCER"      ;Programa p/ Fechamento de Meses Selecionados 
TAB_REC[2] = "AC_DUPCM"      ;Ajustes na Valor e Saldo da Comissao na Duplic e DupBaixa conforme NOTA

SetDir "\\Sistemas\\CtaRec"
Renomeia_Acerto(TAB_REC)


;---- ESTOQUE ------------------------------
Array TAB_EST[7]

TAB_EST[1] = "AC_COT"        ;Acerto de Cota‡Æo
TAB_EST[2] = "AC_DESC"       ;Acerto para ajustar em MAISCULO a [Descricao do Item] e a [Descricao Complementar]
TAB_EST[3] = "AC_DTCAD"      ;Acerto da Data de Cadastro do Item
TAB_EST[4] = "AC_ITCOM"      ;Acerto para cadastrar itens NAO CADASTRADOS na tabela Item_Com
TAB_EST[5] = "AC_REF"        ;Acerto para Informar o codigo do item na referˆncia SEM OS ZEROS
TAB_EST[6] = "ACEstprm"      ;Acerto da Estoque Parametros - Vendas
TAB_EST[7] = "ACNTFORN"      ;Acerto de itens da nota conforme fornprod

SetDir "\\Sistemas\\Estoque"
Renomeia_Acerto(TAB_EST) 

If IsFile("AC_LOC.sc")
  Then ;---- Exclui Arquivo ----------------
       Deleta_Arquivo("AC_LOC.sc")
EndIf    


;---- FACCAO -------------------------------
Array TAB_FAC[7]

TAB_FAC[1] = "AC_CFACG"      ;Acerto de Programa‡Æo do Corte
TAB_FAC[2] = "AC_PFACG"      ;Acerto de Programa‡Æo de Fac‡Æo
TAB_FAC[3] = "AC_RCORT"      ;Acerto para refazer a produ‡Æo INTERNA referente ao corte
TAB_FAC[4] = "AC_RFAC"       ;Acerto para corrigir a Produ‡Æo da Confec‡Æo [03] e [36] 
TAB_FAC[5] = "AC_RFACG"      ;Acerto de Produ‡Æo da Confec‡Æo
TAB_FAC[6] = "ACPRODC"       ;Acerto de Requisi‡Æo de Produ‡Æo de Corte
TAB_FAC[7] = "ACPRODF"       ;Acerto de Requisi‡Æo de Produ‡Æo

SetDir "\\Sistemas\\Faccao"
Renomeia_Acerto(TAB_FAC) 

                 
;---- PRODUCAO -----------------------------
Array TAB_PROD[2]

TAB_PROD[1] = "ACERT00"      ;Acerto de 2011 
TAB_PROD[2] = "ACERT01"      ;Acerto de 2011 

SetDir "\\Sistemas\\Producao"
For ty From 1 To ArraySize(TAB_PROD)  
  If IsFile(TAB_PROD[ty]+".sc")
      Then ;---- Exclui Arquivo ---------------- 
           Deleta_Arquivo(TAB_PROD[ty]+".sc")
    EndIf
EndFor


;---- VENDAS -------------------------------
Array TAB_VEND[6]

TAB_VEND[1] = "AC_AGEND"      ;Acerto para ajustar Data da ultima compra nos agendamentos em um determinado per¡odo espec¡fico
TAB_VEND[2] = "AC_CREC"       ;** Verifica Duplicatas no Contas a Receber
TAB_VEND[3] = "AC_CUP"        ;Acerto para Composi‡Æo de Dias de CUPOM FISCAL
TAB_VEND[4] = "AC_NOTA"       ;Acerto de Notas de Saida (especifica para registros que foram perdidos do NOTA)
TAB_VEND[5] = "AC_PGDN"       ;Acerto para ajustar o Valor e BC do PIS e COFINS -> Nota
TAB_VEND[6] = "AC_SORT"       ;Acerto de Itens SORTIDOS
           
SetDir "\\Sistemas\\Vendas"
Renomeia_Acerto(TAB_VEND)                 

EndProc ;Processa()

;*******************************************************************************
;* ROTINA PRINCIPAL                                                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bib_Show,\\Sistemas\\Cadastro\\Bibliot"
LimpAguarde()
If Not IsAssigned(PARAM_MSG) Then PARAM_MSG = True EndIf 

Switch
  Case Not PARAM_MSG : Processa() 
  Case PARAM_MSG     : If ConfGeral("Deseja alterar o nome dos acertos, para come‡ar com a letra X ?") 
                          Then Processa()
                               Mensagem("Processo Concluido!") 
                       EndIf
EndSwitch
SetDir "\\Sistemas\\Cadastro"

Release Vars PARAM_MSG