MIT072_Conversao_P11

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 &o!eiro para converso ou a!uali%aço de release relea se para o produ!o TOT*+ MIC&O+I,$ P&OT-/+ 11 ou superior laoraço

aricio $aro – /nidade TOT*+ OP – 4auru – 5aricioaaro6!o!vs.co.r 5aricioaaro6!o!vs.co.r

Colaoraço

Gustavo Canela – Unidade TOTVS OP – OP – Bauru – [email protected] [email protected] Modo de Compartilamento Compartilamento das tabelas Victor !igro – Unidade TOTVS OP – OP – Bauru – "ose.vas#[email protected] "ose.vas#[email protected] Copiar via lina de comando direto do $inu% &aniel Pei%oto da Silva – Unidade TOTVS OP – OP – S. '. (io Preto – [email protected] [email protected] .br Collation di)erentes *vandro Galindo – TOTVS SP – S +o Paulo – [email protected] [email protected] – ,-/,-/,Collation di)erentes0 criar uma database limpa e importar as tabelas. *derson Guerra – TOTVS OP – Bauru 1 [email protected] [email protected] – -2/--/,(otina para a"ustar os campos das tabelas compartiladas pelo S3-

Con)orme orienta45es do camado +C/M8 +C/M866 a convers+o para a vers+o ,, segue os mesmos procedimentos #ue a ,/6 mudando apenas o nome da )un4+o a ser e%ecutada. Para dei%ar bem detalado todos os procedimentos a serem e%ecutados6 )oi desenvolvido esse manual para #ue a convers+o saia da melor maneira poss7vel. 8oi desenvolvido com base em ist9ricos de convers5es na pr:tica6 ou se"a6 est+o relatados #uase todos os poss7veis problemas #ue podem ocasionar um erro de convers+o. Oservaço e9!reaen!e ipor!an!e *sse documento n+o est: O8;C;<$;=<&O pela TOTVS matri>6 portanto6 dever: ser seguido apenas como um guia. Os nomes a#ui citados s+o de pessoas #ue possuem grande e%peri?ncia no re)erido assunto6 mas apenas a"udaram no complemento de in)orma45es desse manual6 portanto6 n+o s+o correspons:veis pelas aplica45es dos procedimentos. Sendo assim6 re)or4amos a necessidade de e)etuar um bacup de toda a base de dados. +ugerios a lei!ura I:T,&$; desse docuen!o< an!es de iniciar a converso< inclusive os i!ens relacionados aos proleas p"s'converso. Os documentos o)iciais da TOTVS para a co nvers+o do sistema est+o nos l ins abai%o0 Procedimentos para convers+o (elease ,,.A0 ttp0tdn.totvs.compagesreleasevie.action"sessionidD8,E&8C2A&F2&AHEB<<88A*
MIT072_Conversao_P11.doc

Página 1 de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013
*spa4o em disco0 O espa4o em disco livre deve ser de apro%imadamente 2 ve>es o tamano atual da pasta SKstem somado ao tamano do banco de dados. Ou se"a6 se a sua database estiver com F6 GB6 e a pasta sKstem estiver com //MB6 ent+o6 o seu espa4o em disco livre dever: ser de apro%imadamente , GB. ;sso se )a> necess:rio devido ao )ato do Proteus e)etuar bacups de cada tabela Lou mesmo criar tabelas no momento da convers+o6 tanto no B
2=

8a>er um bacup da pasta ProteusN&ata e do banco de dados.

3=

Cecar a duplicidade de registros0 a.

Bai%ar do portal o ar#uivo S3-.U!R e a patc da ro tina Cec&upl6 e colocar na s Kstemload do ambiente a ser convertido.

b.

*%ecutar a rotina Cec&upl Lobs. < rotina n+o pode ser camada pelo 8O(MU$ Chec lang="pt">CheckDupl kDupl Chec lang="es">CheckDupl kDupl Chec lang="en">CheckDupl kDupl CHECKDUPL 1 xxxxxxxxxx 99 13

c. )=

<"ustar os registros duplicados Lse ouver

Bacup e remo4+o dos 7ndices de usu:rios 1 S;30 a. b. c. d.

ados na convers+o.

Os. Ser: Os. Ser: necess:rio volt:1los ao ar#uivo de 7ndice ao )inal da convers+o6 atentando1se a se#?ncia in)ormada pelo sistema. ;sso #uer di>er #ue tambm ser: necess:rio corrigir esse 7ndice e se#?ncia nos rdmakes L)ontes customi>ados #ue utili>em os mesmos6 e #ue indicam o nWmero do 7ndice ao invs do nickname do 7ndice. MIT072_Conversao_P11.doc

Página 2 de 31

*spa4o em disco0 O espa4o em disco livre deve ser de apro%imadamente 2 ve>es o tamano atual da pasta SKstem somado ao tamano do banco de dados. Ou se"a6 se a sua database estiver com F6 GB6 e a pasta sKstem estiver com //MB6 ent+o6 o seu espa4o em disco livre dever: ser de apro%imadamente , GB. ;sso se )a> necess:rio devido ao )ato do Proteus e)etuar bacups de cada tabela Lou mesmo criar tabelas no momento da convers+o6 tanto no B
2=

8a>er um bacup da pasta ProteusN&ata e do banco de dados.

3=

Cecar a duplicidade de registros0 a.

Bai%ar do portal o ar#uivo S3-.U!R e a patc da ro tina Cec&upl6 e colocar na s Kstemload do ambiente a ser convertido.

b.

*%ecutar a rotina Cec&upl Lobs. < rotina n+o pode ser camada pelo 8O(MU$ Chec lang="pt">CheckDupl kDupl Chec lang="es">CheckDupl kDupl Chec lang="en">CheckDupl kDupl CHECKDUPL 1 xxxxxxxxxx 99 13

c. )=

<"ustar os registros duplicados Lse ouver

Bacup e remo4+o dos 7ndices de usu:rios 1 S;30 a. b. c. d.

ados na convers+o.

Os. Ser: Os. Ser: necess:rio volt:1los ao ar#uivo de 7ndice ao )inal da convers+o6 atentando1se a se#?ncia in)ormada pelo sistema. ;sso #uer di>er #ue tambm ser: necess:rio corrigir esse 7ndice e se#?ncia nos rdmakes L)ontes customi>ados #ue utili>em os mesmos6 e #ue indicam o nWmero do 7ndice ao invs do nickname do 7ndice. MIT072_Conversao_P11.doc

Página 2 de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 >=

B=

7=

!a pasta +8+TM;O$@D6 +8+TM;O$@D6 e%clua os ar#uivos ?.@4 e ?.@4 e ?.I@A. ?.I@A.

E=

@ica para agili%ar a converso Muitos clientes utili>am a empresa EE para testes6 e em muitos casos nem  mais utili>ada. < sugest+o  e%cluir os ar#uivos &B8 ou &TC dessa empresa6 e apagar a empresa do Cadastro de *mpresas Labra o ar#uivo S;G
F=

;nstalar e subir os servi4os do Proteus ,,. ar com todos os pacotes mais recentes poss7vel. a.

(PO 1 Categoria0 (eposit9rio de Ob"etos

b.

BU;$& 1 Categoria0 Bin:rio TOTVSTec

c.

UP&
d.

P
e.

\*$P 1 Categoria0 \elp de CampoPergunta

).

M*!US 1 Categoria0 Menu de m9dulo. Contempla os ar#uivos 3!U. *sses ar#uivos dever+o substituir os da pasta SQST*M6 porm6 )a>er um bacup antes para6 ap9s a convers+o6 poder comparar e incluir os menus customi>ados.

g.

B(<.=;P 1 Categoria0 &icion:rio de dados. *sse ar#uivo contm o ar#uivo S3B(<.T3T6 #ue  o dicion:rio de dados padr+o do Proteus

.

&escompactar o conteWdo da pasta
i.

Certi)i#ue1se #ue o servidor tena espa4o em disco o su)iciente para a convers+o. (ecomenda1se6 no m7nimo6 um espa4o 2 ve>es superior ao da base atual Lsoma da pasta SQST*M e a base de dados. ;sso se )a> necess:rio pois o Proteus cria ar#uivos tempor:rios no momento da convers+o.

10= &escompacte os ar#uivos de \*$P e B(<.=;P na pasta SQST*M$O<& da base a ser convertida. &ever: substituir os ar#uivos e%istentes. Os. cuidado com os servidores do Proteus #ue tenam o sistema operacional ;I:/A6 ;I:/A6 pois #uando o ar#uivo  copiado pelo programa YinSPC Lpor e%emplo o ar#uivo pode ser corrompido. Sugest+o0 copiar via lina de co mando diretamente do $inu%. Caso #ueira6 utili>e o programa 7'Hip Lprograma 7'Hip Lprograma tipo Yinrar e Yin>ip. Gere um ar#uivo tipo T$& antes T$& antes de copiar para o $inu%6 e )a4a a trans)er?ncia Lc9pia. Para descompactar no $;!U3 utili>e a sinta%e0 !ar '9v5 noedoaruivo.!ar Coo saer se deu proleaJ !o proleaJ !o inicio da convers+o6 ap9s clicar em
Página 3 de 31


Observar nessa pasta e6 caso demore a criar os ar#uivos ou mesmo o tamano desses ar#uivos n+o tiverem sendo alterado Lpara maior6 #uer di>er #ue o ar#uivo T3T est: corrompido6 e a convers+o simplesmente est: parada. Sendo assim6 encerrar o processo reiniciando o Server. @ica *m casos dos clientes #ue utili>am apenas o ambiente em linguagem PO(TUGU*S6 dos ar#uivos de \*$P de CampoPergunta6 dei%e apenas o ar#uivo -;PPO&.TAT. &essa )orma a convers+o ser: mais r:pida6 pois n+o ir: atuali>ar os ar#uivos de elp de campo espanol e ingl?s. 11= Caso tena um TOP Connect mais atuali>ado6 tambm bai%ar6 instalar e con)igurar. O mesmo dever: apontar para o banco de dados a ser convertido. !o caso do Proteus ,,6 dever: ser utili>ado o TOT*+ @4$ccess. Se n+o utili>ar um &Bado6 ter: srios problemas. Se #uiser utili>ar - TOP^s6 pode1se con)igur:1los para compartilar as licen4as6 colocando essas con)igura45es nos ;!;^s dos Server^s dos TOP^s0 _General` $icenselimitDnnn Onde nnn  o limite de licen4as #ue vai consumir do $icense Server. 12= !o ar#uivo appserver.ini do Proteus ,,6 criar um ambiente #ue aponte para o am biente a ser convertido. *%emplo0 [TOTVS_10_PARA_11] SourcePath = RootPath = StartPath = x2_path = RpoDb = RpoLanguage = RpoVersion = LocalFiles = Localdbextension = PictFormat = DateFormat = TopDataBase = TopServer = LOCALHOST TopALIAS = RegionalLanguage = Helpserver =

C:\TOTVS 11\Microsiga\Protheus\APO ;tem que ser o APO da versão 11 C:\Protheus_Data ;apontar para o ambiente OFICIAL a ser convertido \system\ SQL Portuguese 110 ads .dbf DEFAULT DEFAULT MSSQL7 TOTVS_10_11 ;nome do ALIAS criado no TOP – ambiente OFICIAL BRA localhost:8687

Os. e9!reaen!e ipor!an!e !+o utili>e esses espa4os e  em servidores com S.O. $inu%. 13= ada ser: em branco. $p"s a converso6 abrir o S;G6 e )uncionou normalmente. < dica de apagar o sigapss antes do inicio da convers+o )oi mina6 pois na convers+o o sistema n+o altera o ar#uivo. er dessa )orma6 pois utili>ando o padr+o era apresentado erro Lmas #ue n+o impediu a convers+o. &ev. 00F – Uma boa dica 6 assim #ue terminar de con)igurar o acesso ao Proteus ,,6 acesse o MPS&U antes de dar inicio a convers+o6 dessa )orma ele ir: recriar a estrutura do ar#uivo de senas.


Página ) de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 1)= = Inicio da converso. Seguido todos esses passos corretamente6 poder: s er e%ecutado o smartclient.e%e do P roteus ,,6 passando o seguinte Programa ;nicial0 MPH,/TO,,/

Utili>ando o ar#uivo de sena padr+o Ls em apagar o sigapss.sp)6 ao digitar a s ena6 deu erro0

Porm6 tentando novamente6 digitei a sena6 e passou. 1B= Selecione de #ual vers+o ser: originada a convers+o.


Página > de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 Convers+o0

a4+o de release0

Os. !+o )oram )eitos teste com a vers+o A nem com a H6 ent+o6 n+o se sabe os riscos #ue implicariam. Vale lembrar #ue da vers+o H ou A para a ,/6 e%istem detales espec7)icos a serem analisados6 tais como altera4+o de algumas vari:veis0 a

ValidPerg ou cPerg0 tamano de J para ,/ 1 P<&(LcPerg6,/

b

cUsuario0 essa vari:vel n+o  mais utili> ada6 portanto dever: ser trocada para cUser!ame.

Os. Ipor!an!e a esse ar#uivo para dar continuidade. O mesmo s9 poder: ser apagado s e a convers+o )or iniciada do =*(O. Se a tela para sele4+o de #ual ver s+o ser: originada a convers+o n+o aparecer6  por#ue e%iste esse ar#uivo na pasta
1E= Ser: apresentada a tela com as empresas #ue ser+o convertidas0


Página B de 31


1F=
20= Se ouver erros na convers+o ser: apresentada a tela0

*mitir o relat9rio para analisar os erros. 8inali>ar a convers+o. Os. segue abai%o rela4+o dos erros #ue )oram apresentados na convers+o da base de testes Lsem customi>a45es0 O O O O O

gatilho gatilho gatilho gatilho gatilho

AK2_CC sequencia 001 esta duplicado AK2_CLVLR sequencia 001 esta duplicado AK2_CO sequencia 001 esta duplicado AK2_ITCTB sequencia 001 esta duplicado QAA_RECUR sequencia 001 esta duplicado


Página 7 de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 A chave de indice BMA ordem 2 registro 1430 esta duplicada A chave de indice CDM ordem 5 registro 10059 esta duplicada A chave de indice CDM ordem 6 registro 10060 esta duplicada Chave duplicada na tabela TRX990, existem procedimentos especificos a serem adotados, consulte o HelpDesk Microsiga, mensagem SQL Error: 1505 (23000) - RC -1 - [Microsoft][ODBC SQL Server Driver][SQL Server]A instrução CREATE UNIQUE INDEX foi encerrada porque foi encontrada uma chave duplicada para O tamanho no SX3 do campo VI0_LOJFOR é dIferente do SXG O tamanho no SX3 do campo VI0_LOJFOR é infeiror ao limite do SXG O tamanho no SX3 do campo AKX_CC_FIN é dIferente do SXG O tamanho no SX3 do campo RFF_CC é dIferente do SXG O do tamanho no SX3 campo EK_NUMOPER é dIferente do SXG O tamanho da pergunta 07 do grupo MTA996 é dIferente do SXG O tamanho da pergunta 10 do grupo MTA996 é dIferente do SXG A chave de indice BMA ordem 2 registro 1430 esta duplicada O tamanho da pergunta 07 do grupo MTA996 é dIferente do SXG Erro durante atualização da tabela AA1010 RDD TOPCONN

$ suges!o  ue< an!es do inNcio da converso< sea vis!o esses proleas. 21= Coo resolver os erros de converso abrir o MPS&U Lse ": iniciou a convers+o6 abra pelo Proteus ,, mesmo. Ver um pe#ueno detale em Observa45es )inais. a.

*m casos de G
.

*m casos de ;!&;C*S duplicados6 abrir a tabela S;3**/.e%t6 )iltrar pelo 7ndice mencionado6 e apagar os #ue estiverem duplicados.

c.

Ruando o erro re)erenciar a tabela S3G6 signi)ica #ue o campo est: em desacordo com a tabela de G(UPO &* C
!esse caso6 abrir a tabela S32 Lem casos de Campos de tabelas ou S3, Lem casos de campos de Perguntas6 )iltrar o campo mencionado6 e na coluna 32NG(PS3G ou 3,NG(PS3G6 apagar o conteWdo desse campo6 para #ue o mesmo n+o )a4a mais parte desse grupo de campos. Obviamente6 dever: voltar essa in)orma4+o ap9s a convers+o6 e analisar os detales. O mais recomendado  )a>er essa an:lise antes da convers+o. Os. ** D *mpresa  e%t D &B8 ou &TC Os. 2 os erros de portugu?s s+o do pr9prio sistema. d.

Ruando o erro  re)erente a cave duplicada na tabela6 #uer di>er #ue o C\*C&UP$ n+o )oi e%ecutado. Para resolver isso6 dever: saber #ual o 3-NU!;CO da tabela6 e6 via banco6 )a>er um select nessa tabela e ver #ual o registro #ue est: duplicado. !o e%emplo desse log Lem desta#ue vermelo6 )oi simples resolver0 abri a tabela pelo MPS&U6 e apaguei os dados da mesma6 pois se tratava de uma tabela sem uso.

e.

(ev. //E0 Se por ventura )or apresentado o erro abai%o0 Warning - TOPCONN - Create index error: -19 : COMMAND_FAILED - Error : 1408 - ORA-01408: such column list already indexed ( From tISAMFile::CreateIndex ) Thread ID [15984] User [Administrador] IO [554481] Tables [1] MaxTables [40] Comment [] Status [] SP [ ] Traced [No] InTran [No] DBEnv [ORACLE/SIGA] DBThread [(SID: 361,52687) ] Started [22/04/2013 14:49:30] LastIO [] IP [10.50.1.3] RCV [23846642] SND [19262946] TCBuild [20120327] CREATE INDEX STF010A ON STF010(TF_FILIAL,TF_CODBEM,TF_SERVICO,TF_INENMAN,R_E_C_N_O_,D_E_L_E_T_)

;sso indica #ue no momento da convers+o6 o sistema criou os ;!&;C*S6 e os mesmos acabaram )icando em duplicidade com #ue ": e%istiam. !o caso acima6 o #ue ouve de )ato )oi #ue avia - 7ndices da tabela ST8 #ue estavam com o P(OP(; D Lbranco6 ent+o6 na convers+o6 o sistema os manteve6 e criou - novos iguais6 e com o P(OP(; D S. < solu4+o )oi simplesmente apagar os - 7ndices de P(OP(; D Lbranco6 e e%ecutar a c onvers+o6 pois o sistema continuou de onde parou


Página E de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 5.

(ev. //E0 *rro durante atuali>a4+o da tabela <<,/,/ (&& TOPCO!! *sse erro normalmente ocorre #uando o sistema n+o conseguiu total acesso e%clusivo a tabela em #uest+o. !os testes #ue )i>6 propositalmente6 colo#uei no Top
Os.
22= ;niciado novamente a convers+o 1 Sem apagar o ar#uivo MPUP&$OG.$OG da pasta appserver.. Con)orme mencionado anteriormente6 como se manteve o ar#uivo MPUP&$OG.$OG6 n+o ser: apresentado a tela de sele4+o da origem da convers+o6 con)orme item , desse boletim. Os. Se )or apresentada uma tela mencionando #ue ouve erros na convers+o6 seguir os procedimentos mencionados na mesma6 e continuar a convers+o. *ssa mensagem normalmente s9  apresentada em casos de erros cr7ticos6 tais com e%emplo6 7ndices duplicados.


Página F de 31


@epois da converso... 23= er isso poder: dar erro ao tentar acessar algum cadastro do sis tema L*rro de tabela e%clusiva. 2)= ador )e> e #uais altera45es voc? dever: )a>er no ar#uivo de bacup. *%emplo pr:tico. L*sse 7ndice  s9 um e%emplo. O mesmo n+o so)reu tal altera4+o.

Página 10 de 31


Con)orme orienta4+o no item )6 o 7ndice J seria copiado para uma tabela de bacup e e%clu7do d essa tabela principal.
Observem #ue o compatibili>ador criou o 7ndice J6 com o P(OP(; D S. Sendo assim6 na tabela de bacup6 dever: abrir a mesma e alterar a ordem do 7ndice6 nesse e%emplo6 pra H0

= &eviso dos Nndices (evise os 7ndices dos )ontes customi>ados6 con)orme as altera45es e%ecutadas no passo -F e indica4+o no item F. &ev. 00E !ormalmente6 os )ontes personali>ados #ue apontam para os 7ndices #ue )oram criados pelos usu:rios6 utili>am o @+e!Order ou +e!Order6 e se na convers+o essa ordem )oi alterada6 dever: revera"ustar todos os )ontes. *m alguns casos)ontes  utili>ada a )un4+o +e!:icL:ae6 mas isso n+o indica #ue n+o dever: ser revisado o campo :IC:$M6 pois a TOTVS n+o possui um padr+o para dar nomes em alguns 7ndices6 conse#uentemente6 pode con)litar co m o #ue )oi criado pelo usu:rio. 2B= :ovo con!role de ,&/PO @ MP&+$+. &ev. 00F ;sso )oi corrigido em atuali>a45es posteriores6 onde o sistema acaba mantendo a U!;&<&* e *MP(*S< com o mesmo valor do 8;$;<$. Para atender ao novo conceito de empresas6 )iliais e unidades de neg9c io6 )oram inclusos - novos campos no ar#uivo S3-.


Página 11 de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 Porm6 observe #ue se trata de campos OB(;G
Os. Ipor!an!e !a convers+o o sistema n+o ir: alterar o tamano do campo N8;$;<$ das tabelas6 ser: mantido o padr+o de - e as regras de empresa e )ilial. !+o  necess:rio )a>er nenum tipo de tr atamento. Ve"a o e%emplo do S32 ap9s convers+o0

&ev. 00E Outro item importante #ue dever: ser observado  #ue a tabela S3- n+o est: mais e%clusivamente apenas na estrutura do dicion:rio Lpasta sKstem6 mas tambm est: no B
Portanto6 os a"ustes citados acima6 tambm dever+o ser )eitos nessa tabela S3- do B

Página 12 de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 :ovo ,rupo de presas Ruando )or criar uma nova em presa no Con)igurador LG(UPO &* *MP(*S
&ev. 00E !o lin abai%o e%istem alguns procedimento s e%plicando sobre o novo c onceito de G*STO &* *MP(*Sados com muita cautela. Videsolicite boletim espec7)ico para esse caso. 27= *%ecutar os passos de criar a pol7tica de senas con)orme passo 13. Se necess:rio6 copiar do bacup do ProteusN&ata o ar#uivo S;Ger um bacup para6 ap9s a substitui4+o6 analisar as customi>a45esparticularidades. 2F= ol(a de Pagaen!o – &o!eiro de cálculo Ruando : uma convers+o6  necess:rio apagar o roteiro e )a>er com #ue o sistema recrie o padr+o. Para isso0 a.

!o MPS&U6 abra a tabela S(M6 copie para um bacup as linas #ue n+o s+o do sistema. Para di)erenciar uma lina customi>ada de uma lina padr+o do sistema6 poder: )iltrar 6 utili>ando a e%press+o6 da seguinte )or ma0 SUBST(L(MNS*R66, Z h/h Obviamente dever: ser analisado com mais cautela6 pois pode aver altera45es em linas #ue terminem com /. \: casos onde os analistas colocam f no campo (MN&*SC(;C.

b.

c.

*ntrar no S;G

Página 13 de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 menus do item &e)ini45es de C:lculo6 tais como &e)ini4+o Tabela6 Mnemonicos6 etc6 pois e%istem procedimentos tcnicos internos nessas rotinas #ue s+o e%ecutados #uando acessado os mesmos. d.

*m seguida6 voltar ao MPS&U6 e dar um  append  na S(M com o ar#uivo de bacup6 para aplicar as linas customi>adas do cliente.

e.

!as linas customi>adas6 alterar o campo (MNV*(S
30= *eri5icar os 5on!es cus!oi%ados Pra #uem utili>a alguns pontos de entrada #ue incluem novos bot5es em rotinas6 tal como e%emplo6 GP*,,(OT6 relacionada a rotina G*ST
, 0 , , 0 , },; , 0 , , .F. , .F.

6 },; 6 },; 6 }} } ) } )

Porm6 se dei%ar dessa )orma6 e co mpilar o pro"eto6 ser: e%ibido erro no momento de entrar na roti na no Proteus ,,. Para corrigir isso6 dever: )a>er a seguinte altera4+o Lna lina em desta#ue a>ul0 aAdd( aRotinas, { "Oi*" aAdd( aRotinas, { "Processos Folha*"

, "u_oi()" , aFolProc

, 0 , 6 , 0 , 6

, , .F. } ) , , .F. } )

a45es do cliente. 32= ada. Como n+o : como sabermos se tal update ": )oi e%ecutado Le%ceto as do (\6 onde possui a rotina (\UP&MO&6 mesmo #ue antes da convers+o6 ter7amos ent+o #ue e%ecutar TO&OS os updates ou6 no m7nimo6 os m9dulos #ue o cliente mais utili>a. Para #ue possa aver esse controle6 )oi desenvolvida uma rotina espec7)ica #ue gera alguns ar#uivos de $OG6 e #uando )or e%ecutado os updates6 essa rotina veri)ica se o mesmo ": )oi e%ecutado ou n+o. Os detales da rotina est+o no ane%o 2. 33= inali%ando er todos o s testes poss7veis.


Página 1) de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 OservaçVes 5inais. $.

MP+@/ !+o estranar se voc? abrir o MPS&U e n+o encontrar o M*!U. O mesm o estar: no canto superior &;(*;TO0 !ovo menu0

Menu padr+o0

;sso acontece pois o tema est: con)igurado para C$
&ica0 !o Proteus ,,6 #uando se digita o usu:rio ou a sena errado6 o mesmo  )ecado por completo ap9s o O.
olders Wpas!as= – A3_O;@& Wrev. 007=

a4+o para o release ,,.6 )oi encontrado um pe#ueno problema #ue6 apesar de n+o ser t+o grave6 causa um descon)orto. O sistema n+o respeita o 32N8O$&*(. a4+o0

a4+o – MPH,/TO,,/0

8oram )eitos outros testes tambm sobre as demais in)orma45es do campo Ltamano6 valid. Usu:rio6 etc6 etc e nesse caso ele manteve o legado Lmenos mal. Portanto6 sempre )a4am um bacup e posteriormente a"ustem o 32N8O$&*(. Con)orme resposta do camado TPX16 esse procedimento  padr+o e n+o ser: resolvido.


Página 1> de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 &ev. 00E ' &o!ina ue aus!a o A3_O;@& co ase no acLup #INCLUDE 'PROTHEUS.CH' #include "rwmake.ch" #include "topconn.ch" User Function AjFolder() Local nCpo := 0 Local xArqCorr := "SX3990_BKP" //ARQUIVO SX3 QUE ESTÁ CORRETO //OBS: DEVERÁ SER CRIADO O INDICE 1 PARA O X3_CAMPO PARA ESSA TABELA - PODE SER UTILIZADO O MPSDU, CRIANDO UM INDICE PERMANENTE Private cEOL := CHR(13)+CHR(10) Private cLog := "ARQUIVO DE LOG DE AJUSTE DOS CAMPOS DA SX3 - X3_FOLDER "+cEOL+cEOL If MsgYesNo( "Iniciar o Processamento de ajuste da SX3 - X3_FOLDER?", "Confirma?" ) SX3->( dbSetOrder(1) ) SX3->( dbGoTop() ) While !SX3->( Eof() ) //VERIFICA A TABELA ORIGINAL dbUseArea( .T.,, xArqCorr ,"X3SA", .T., .F. ) X3SA->( dbSetOrder(1) ) If X3SA->( dbSeek( SX3->X3_CAMPO ) ) If SX3->X3_FOLDER <> X3SA->X3_FOLDER //SE FOREM DIFERENTES, ALTERA PARA O QUE ESTAVA NO ARQUIVO CORRETO RecLock("SX3",.F.) //ALTERAR Replace X3_FOLDER With X3SA->X3_FOLDER SX3->( MsUnlock() ) //ARMAZENA OS CAMPOS QUE ESTÃO SENDO AJUSTADOS cLog += X3SA->X3_ARQUIVO + " - " + X3SA->X3_CAMPO + " - " + X3SA->X3_FOLDER + cEOL EndIf End X3SA->( dbCloseArea() ) SX3->( dbSkip() ) EndDo SX3->( dbCloseArea() ) cArq := "C:\LOG_SX3_X3_FOLDER_"+xArqCorr+".TXT" Memowrite(cArq,cLOG) MsgStop("Concluído. Foi gerado o arquivo de LOG: "+cArq,"(AjFolder)") EndIf Return .T.

*sse problema est: sendo tratado pelo camado TPX1.

C.

Colletion di5eren!es en!re a @a!a4ase e a Taela. – &e5orçando a TOT*+ (oologa soen!e o collation ;$TI:1_,:&$;_4I:

;sso acontece pois a tabela est: com um collation di)erente da database0

Para resolver isso6 poder: ser )eito o seguinte0 i=

Criar uma nova database no banco6 com o collation correto. Criar as cone%5es O&BC e no &Bar o conceito de Multi1Processo Lat ,/ "obs6 e tambm desativar o Set Deleted  antes de iniciar a importa4+o. &ica do *vandro – TOTVS Matri>.


Página 1B de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 ii=

Utili>ar a rotina do
iii= e a tabela citada no error.log. Cli#ue com o bot+o direito e escola a op4+o &esign0

*m cada campo Lisso mesmo6 em cada c ampo na op4+o Table &esigner6 tro#ue o collation para database de)aultZ0

8eito isso6 salve a altera4+o da tabela6 e pode usar o sistema normalmente.

Uma dica simples para saber se o collation do banco est: errado6  e)etuar uma pes#uisa em algum broser Lpor e%emplo6 !ome no Cad. 8uncion:rios6 e se o sistema permitirencontrar alguma in)orma4+o escrevendo em minWsculo6 indica #ue est: errado. ;sso por#ue o collation $adas #ue utili>em comandos SR$6 pois6 se estiverem em sinta%e errada6 poder: ocorrer erros nas roti nas. Ve"a e%emplo abai%o0 cQuery := "SELECT NULL AS TAB FROM SYSOBJECTS WHERE ID = OBJECT_ID('" +cTab+"') " TCQUERY cQuery NEW ALIAS "QTEMTAB"

*ssa sinta%e acima )unciona pois o banco est: no collation errado. !o collation correto6 a sinta%e SQSOB'*TCS dever: estar escrito em minWsculo0 cQuery := "SELECT NULL AS TAB FROM sysobjects WHERE ID = OBJECT_ID('" +cTab+"') " TCQUERY cQuery NEW ALIAS "QTEMTAB"

@.

rro de es!ru!ura no e9is!en!e. !o momento em #ue o compatibili>ador estiver sendo e%ecutado6 pode ser #ue aconte4a o seguinte erro0 < estrutura do ar#uivo ]data]$8-/,/ nao e%iste no S32 !esse caso o sistema n+o encontrou os campos na tabela S32 da tabela citada no erro. Voc? pode contornar esse problema de - )ormas0 1= 2=

Solicite a algum os campos da tabela e coloca no seu S32


Página 17 de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 .

Taelas copar!il(adas via +A2 Wrev. 00E=

Prolea Ruando tentamos acessar o cadastro de Classe de Valor6 o sistema e%ibe o erro de #ue n+o e%iste o campo CT\N3N!
2=

Causa do prolea tabela compartilada pelo S3-6 mas a estrutura da S32 est+o di)erentes.

&etales tcnicos0 S3-/,/ D CT\ D a4+o LUNUP&CTB6 por e%emplo6 o sistema e)etua um alter table com base no S32 #uando e%istem novos c ampos. Ruando rodou o upd6 o #ue ocorreu0 *mpresa /, 1 O sistema alterou a tabela CT\/,/ com base no S32/,/ *mpresa /-0 1 O sistema alterou a tabela CT\/,/ novamente Ldevido ao compartilamento na S3-/-/ com base no S32/-/ D <#ui #ue ouve o problema6 pois na S32 da /- n+o tem o campo CT\N3N!
+oluço a

Solicitar para o usu:rio acessar o cadastro de Classe de Valor e preencer manualmente esse campo Linvi:vel

b

Corre!a abrir a tabela CT\/,/ do bacup6 e copiar para &B8 o u CT(**. Passos0 ;. ;;. ;;;. ;V.

!o MPS&U da base O8;C;<$6 abrir a CT\/,/ &roppar Lnesse momento ningum poder: utili>ar o sistema
O #ue  importante relatar  #ue6 #uando se cria um campo em um a tabela #ue ": estava compartilada pelo S3-6 o sistemano cria automaticamente na S32 da outra empresa6 sendo necess: rio cria1lo tambm nas outras empresas.

1=

Tabela SP, compartilada entre empresas


Página 1E de 31


2=

Campos atuais na SP, de ambos S32^s.

3=

Criando campo na empresa /,0


Página 1F de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 Os.
)=

Comprova4+o0

Conclu7mos #ue6 com isso6 numa atuali>a4+o #ue vena a criar novos campos nessa t abela6 sem duvidas ir: ocorrer do s istema apagar esse campo P,N3NT*ST* no B
Manual
Seguindo o e%emplo6 o #ue poderia s er )eito0

2=

<.

B.

C.

“Appendar” os campos da S32/,/6 claro6 )iltrando somente os das tabelas #ue est+o compartiladas.

&o!ina para aus!e au!oá!ico *ssa rotina )oi enviada pelo colaborador *derson6 mas #uem a desenvolveu )oi um cliente . Basta in)ormar os parmetros de #ual empresa dever: ser copiada a estrutura.


Página 20 de 31

#INCLUDE 'PROTHEUS.CH' #include "rwmake.ch" #include "topconn.ch" //ROTINA QUE VERIFICA O SX3 que seria o padrão (no caso o SX3010) //com o SX3 que estaria desatualizado (SX3020) e cria os campos necessários no mesmo. //Faz isso somente das tabelas que estão compartilhadas entre as empresas. //NO MOMENTO DE EXECUTAR A ROTINA, DEVERÁ ESTAR POSICIONADO NA EMPRESA QUE POSSIVELMENTE ESTARIA ERRADO, NO EXEMPLO ACIMA, 02 User Function ValSX3() Local aTabelas := {} Local aCampos := {} Local nAux := 0 Local cCpo := "" Local nCpo := 0 Local xcEmpCor := "01" //EMPRESA COM O SX3 CORRETO Local xcEmpAju := "02" //EMPRESA A SER AJUSTADA Private cEOL := CHR(13)+CHR(10) Private cLog := "ARQUIVO DE LOG DE AJUSTE DOS CAMPOS DA SX3 - EMPRESA ORIGEM (CORRETA): "+xcEmpCor+ "

- EMPRESA AJUSTADA: "+xcEmpAju+cEOL+cEOL

If cEmpAnt <> xcEmpAju MsgStop("Empresa Incorreta.","(ValSX3)") Return .F. EndIf If MsgYesNo( "Iniciar o Processamento do SX3?", "Confirma?" ) SX2->( dbGoTop() ) //PRIMEIRO ARMAZENA SOMENTE AS TABELAS QUE REALMENTE SERÃO ALTERADAS NA VARIAVEL aTabelas //DA EMPRESA QUE TEORICAMENTE ESTÁ ERRADA While !SX2->( Eof() ) If SubStr( SX2->X2_ARQUIVO, 4, 3 ) == (xcEmpCor+"0") aadd( aTabelas, { SX2->X2_CHAVE, .F. } ) Endif SX2->( dbSkip() ) End //AGORA PESQUISA O SX3 DA EMPRESA QUE ESTÁ CORRETO dbUseArea( .T.,, "SX3"+xcEmpCor+"0","X3SA", .T., .F. ) X3SA->( dbSetOrder(1) ) For nAux := 1 to Len( aTabelas ) SX3->( dbSetOrder(2) ) X3SA->( dbSeek( aTabelas[nAux,1] ) ) While !X3SA->( Eof() ) .And. X3SA->X3_ARQUIVO = aTabelas[nAux,1] If SX3->( dbSeek( X3SA->X3_CAMPO ) ) RecLock("SX3",.F.) Else //MsgStop( X3SA->X3_ARQUIVO + " " + X3SA->X3_CAMPO, "Add Campo" ) //ARMAZENA OS CAMPOS QUE ESTÃO SENDO CRIADOS cLog += X3SA->X3_ARQUIVO + " - " + X3SA->X3_CAMPO + cEOL RecLock("SX3",.T.) aTabelas[nAux,2] := .T. aadd( aCampos, X3SA->X3_CAMPO ) EndIf For nCpo := 1 to SX3->( FCount() ) cCpo := SX3->( FieldName( nCpo ) ) SX3->&( cCpo ) := X3SA->&( cCpo ) Next SX3->( MsUnlock() ) X3SA->( dbSkip() ) End Next X3SA->( dbCloseArea() ) cArq := "C:\LOG_SX3_"+xcEmpCor+"_"+xcEmpAju+".TXT" Memowrite(cArq,cLOG) MsgStop("Concluído. Foi gerado o arquivo de LOG: "+cArq,"(ValSX3)") EndIf Return .T.

*sse problema est: sendo tratado pelo camado TPXXT. .

Capos nuricos al!erados ap"s a converso Wrev. 00E=

O campo B,NPP;S est: blo#ueado para altera4+o Lno padr+o0


Página 21 de 31


Porm6 como sabemos6 podemos ir no MPS&U6 abrir o S326 e mudar o 32N(*S*(V0

Com isso6 podemos agora alterar o tamano do campo0

-

8oi e)etuada a mesma altera4+o no campo 8TN<$;RP;S.

2

8oi alterado tambm o tamano do cam po B,NRTM;&;<6 porm6 tal campo no es!ava loueado para altera4+o6 portanto6 n+o )oi necess:ria a interven4+o manual no S32.

F

(esultado dos campos alterados na base antes da convers+o.


Página 22 de 31




a4+o de release LMPH,/TO,,/6 o campo B,NPP;S e 8TN<$;RP;S )oram alterados0

J

Poss7veis perguntas e respostas0 Ruais problemas teremos com issoI (0 Muitos6 por e%emplo6 para os SP*&^s )oi necess:rio alterar o tamano de muitos campos.

Como )a>er para a"ustarI (0 Somente com um programa #ue primeiro compare o tamano do campo da tabela antiga6 e posteriormente a"uste6 e pegue o valor do bacup. Ruem tiver esse programa6 por )avor6 compartilem. * o termo do Proteus relacionado ao respeito ao legadoI (0 !+o podemos di>er #ue o s istema n+o respeitou6 pois o campo B,NRTM;&;< )oi mantido a altera4+o #ue )i>emo s6 o sistema somente a"ustou para o padr+o os campos #ue tiveram interven4+o manual. *sse problema est: sendo tratado pelo camado TPXX 6 mas n+o acredito #ue se"am resolvidos t+o cedo.

,.

Taela +A>

Muitos clientes costumam aproveitar a es truturaconceito da tabela S36 para criar tabelas es pec7)icas6 como a do e%emplo abai%o0 !o Proteus ,/0


Página 23 de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 adas6 e acaba criando ta belas tambm com a cave =. Ve"a as tabelas criadas pelo sistema ap9s a convers+o para o P,, Lso brepondo as tabelas criadas acima.

Para esse caso n+o : solu4+o a n+o ser revisar #uais )oram as tabelas #ue o cliente criou6 e re)a>?1las com outra cave.


Página 2) de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 $:AO 1 &o!eiro de converso Pro!(eus 7 para E< Pro!(eus E para 10 e Pro!(eus 10 &1 para &3 Segue roteiro de uma vers+o antiga6 para poss7veis consultas0 Passos para a conversão da versão 7.10 para 8.11 1.

Copiar a pasta \ap7\ para uma pasta a ser convertida.

2.

Atualizar esta versão 7.10 completamente e baixar o programa e o documento que vai explicar como rodar a rotina que vai eliminar os registros duplicados da base da versão 7.10 antes de iniciar o processo de conversão. (o ftp que segue vai trazer um patch e um documento explicativo sobre como atualizar o sistema e criar um programa no configurador que execute a rotina de compatibilizacão. -> ftp://ftp.microsiga.com.br/sistemas/CheckUnique/ )

3.

Após rodar essa rotina no banco da versão 7.10, instalar a versão 8.11 e atualiza-la completamente.

4.

Instalar e atualizar o topconnect versão 4.0 ( e verificar se o seu mp8srv.ini indica que esta usando a dll da versão 4.0).

5.

Criar um ambiente no topconnect que aponte para a sua base da versão 7.10 e testar esta conexão dentro do próprio topmonitor.

6.

Criar um ambiente na versão 8.11 que aponte para a pasta da versão 7.10 como o exemplo:

[Base710] SourcePath=c:\Protheus8\apo RootPath=c:\ap7 StartPath=\sigaadv\ RpoDb=Top RpoLanguage=portuguese RpoVersion=811 LocalFiles=ads localdbextenGsion=.dbf PictFormat=DEFAULT DateFormat=DEFAULT TopDataBase=MSSQL TopServer=Saturno TopALIAS=dbDatabase helpserver=192.168.1.1 Obs: Pode-se sim criar uma pasta na versão 7.10 chamada System e copiar os dados da pasta \SIGAADV\ para ela.. porem para fazer isso será necessário entrar nos arquivos SX2 de cada empresa e mudar o path de SIGAADV para SYSTEM, e fazer a m esma coisa com o arquivo de parâmetros, alem de deixar o StartPath=\SYSTEM\ Porem, prefiro fazer a conversão usando a pasta original sem realizar esta substituição, deixando para realiza-la após a conversão para a versão 8.11. 7.

Copiar para a pasta da versão 7.10 a pasta \systemload\ da versão 8.11 (essa pasta contem o arquivo SXSBRA.TXT que é o dicionário de dados que será utilizado para descompactar as tabelas na pasta \sigaadv\ da versão 7.10.

8.

Remover do arquivo de índices, todos os índices criados pelo usuário, e copia-los num arquivo a parte, pois será necessário volta-los ao arquivo de índice ao final da conversão, atentando-se a seqüência informada pelo sistema.. isso quer dizer que também será necessário corrigir esse índice e seqüência nos rdmakes que utilizam índices criados pelo usuário e que indicam o numero do indice ao invés do nick do índice.

9.

Seguidos estes passos, entre na versão 8.11, digite no programa inicial: mp710to811 e no ambiente o ambiente que foi criado acima (apontando para a base da versão 710).

10.

O sistema vai informar que esta versão atualizada permite atualiza o protheus 7.10 para a versão 8.11 R2 (Segundo release) ou então de uma versão 8.11 para o 8.11 R2, escolha apenas primeira opção.

11.

em seguida a tela que segue solicita a criação de sindex exclusivo, selecione esta opção.

12.

A próxima tela informa quais empresas passarão pelo processo de conversão, verifique se constam todas as empresas. (apenas a empresa “matriz” aparece, as filiais apesar de não aparecerem serão convertidas também pois pertencem a mesma família de arquivos.)

13.

Escolha então na próxima tela as opções de conversão, ou seja, marque “Warning Error”, “Remover arquivos de backup após atualização”,”substituir arquivo de log existente” e “Corrigir erros automaticamente”. (não selecione “permitir interromper processo de conversão”, pois esta opção faz com que cada um dos passos da conversão solicite interação do usuário para passar para o próximo passo.)

14.

Pronto, deixe a conversão seguir sozinha.

15.

Após a conversão: Volte os índices criados pelo usuário Copie o conteúdo da pasta \sigaadv\ da versão 7.10 para a pasta \system\ da versão 8.11. Copie o conteúdo da pasta \profile\ da versão 7.10 para a pasta \profile\ da versão 8.11. Verifique o path do arquivo sx2 se estah correto e apontando para a pasta \SYSTEM\ ao invés de \SIGAADV\ (o mesmo vale para o aquivo de parâmetros) Copie o conteúdo da pasta \RDMAKE\ da versão 710 para a pasta \my projects\ da versão 8.11 e revise os rdmakes que utilizam esses índices. Abrir os Menus do systemload da internet na pasta /SYSTEM/ Apagar o roteiro da folha (SRM010) Entrar no cadastro de roteiro para ele criar o padrão Voltar o roteiro dos usuários e corrigir a seqüência baseada na seqüência da versao anterior

• • • • • • • • •

Possíveis erros: 1) Arquivos da contabilidade são diferentes dos informados em seus dicionários. R: Verifique se o arquivo de g rupos contábeis contem o tamanha correto dos arquivos, esse arquivo contem o tamanho mínimo e o tamanho m aximo destes arquivos, se necessário corrija o tamanho do campo de código contábil no sx3, mate a tabela e a appende. 2) Arquivos insistem em derrubar a conversão, dando erros inesperados. (Comum para tabelas SQ da qualidade.) R: Renomeie este arquivo e reinicie a conversão, e após a conversão, appende este arquivo apagado com o conteúdo do renomeado, ou copie a tabela pra outra e drope para depois appenda-la a partir desta copia. 3) Sistema trava durante a conversão de arquivos muito extensos. R: Derrube a conexão e inicie novamente a conversão. Pode haver perda de sincronismo entre server e r emote, mas não apague os .log, nem os .tsk, apenas os .cdx devem ser apagados. 4) Algum erro que precise começar tudo novamente. R: Apague os arquivos com extensão .tsk (arquivo de lista de tarefas da conversão, que serve para saber quais os passos que foram feitos pelo sistema durante a conversão). Obs: Eis aí a necessidade da copia antes da conversão.. tanto da pasta AP7 quanto do banco, pois se precisar começar tudo novamente é preferível voltar o backup do que uma conversão já iniciada. 5) Erro em append por conta de índices. R: Verifique os índices criados, podem ter sido duplicados acidentalmente, ou então não constam do arquivo de índices. 6) sistema não entra mais por causa de senha errada, mesmo informando a senha do administrador. (erro corrigido na versão 8.11.009) R: comece apagando o arquivo de extensão .spf pois este arquivo pode ter sido corrompido durante a conversão. Se ainda assim der errado, apague a pasta \PROFILE\ pois as configurações de usuários podem estar erradas.(é claro que precisa de uma copia desta pasta a parte.) Obs: para a conversão de menus de usuários o sistema deixa a desejar na conversão do caminho destes menus, ou seja, nas configurações de usuários os menus de usuários continuarão apontando para a pasta \sigaadv\ ao invés da nova pasta \system\ criada na versão 8.11.. .para isso existem duas opções: Criar uma pasta \sigaadv\ na versão 8.11 que contenha somente os menus de usuários, ou então entrar via configurador no arquivo de usuários, e mudar um a um os caminhos de cada um dos m enus.


Página 2> de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 CHAMADO TÉCNICO N.o ABXAFL It.

Área

Ocorr.

Descrição

Cons. Externo

An. Alocao

Dt. Ocorr.

TBR0DJ-FABR737 8A S7

T7@20 8AN7E

0D/0J/0K 1@(0

Boa Tarde, Fabrício. Segue abaixo os rocedi!e"#os ara a#ua$i%a&'o de re$ease( )assos ara Migra&'o de Re$ease * )10 +R1 ara )10 +R1.1 )reara"do ara a a#ua$i%a&'o 1. A#ua$i%e a Bui$d e o R) do sis#e!a Si#e( ##(//or#a$doc$ie"#e.!icrosiga.co!.br i"k( A#ua$i%a&es do )rodu#o - R) )a$ara( )ro#eus10 3a#egoria( Reosi#4rio de b5e#os - B678 )a$ara( )ro#eus10 3a#egoria( Bi"9rio TT:STec - 6)8ATE )a$ara( )ro#eus10 3a#egoria( 6da#e de )rogra!as - )AT3;/7B 8E )R
N1-FRAMEW2

FeedBack

a. 8esco!ac#e( ;e$>de>3a!o>)ergu"#a.%i - ;E) )a$ara( )ro#eus10 3a#egoria( ;e$ de 3a!o/)ergu"#a b. 8esco!ac#e( Me"u>de>M4du$o.%i e 8icio"9rio>de>8ados.%i - MEN6S )a$ara( )ro#eus10 3a#egoria( Me"u de !4du$o - BRA.?7) )a$ara( )ro#eus10 3a#egoria( 8icio"9rio de dados @. D. . H.

Exc$ua Exc$ua Exc$ua Exc$ua

os aruios .8BF do dire#4rio SCSTEMA8 os aruios .78 do dire#4rio SCSTEMA8 o aruio .TSG do dire#4rio A))SER:ER do sis#e!a o aruio .< do dire#4rio SCSTEM

A#ua$i%a&'o da Base de 8ados. BS.( )ara bases To3o""ec#/8BAccess I "ecess9rio execu#ar a ro#i"a 3eck8u$. )ara !aiores de#a$es, e"#re e! co"#a#o co! o Suor#e ;e$ 8esk e e&a orie"#a&es ara a execu&'o da !es!a. 1. Execu#e o S!ar#3$ie"# 2. No ca!o )rogra!a 7"icia$ digi#e( M)J10T101 A##, 8a"ie$.

&eviso 010 – 1)#10#2013 ;inLs copleen!ares Procedimentos para convers+o (elease ,,.A0 ttp0tdn.totvs.compagesreleasevie.action"sessionidD8,E&8C2A&F2&AHEB<<88A*

Página 2B de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 $:AO 2 &o!ina para aus!e das !aelas *ssa rotina – %<"TabL 1 dever: ser camado via M*!U em algu "dulo6 e pelo +I,$M@I6 pois via Con)igurador ela n+o  e%ecutada6 e via +I,$$@* ele carrega as tabelas no inicio do programa6 tirando ent+o a e%clusividade das mesmas. #INCLUDE "PROTHEUS.CH" #INCLUDE "TOPCONN.CH" #INCLUDE "RWMAKE.CH" //ROTINA DESENVOLVIDA POR MARCO SMANIOTO E AJUSTADA POR FABRICIO AMARO //OBJETIVO - RECRIAR AS TABELAS DO BANCO //EXEMPLO DE USO: EM ALGUNS CASOS, O COLETTION DA TABELA ESTÃO DIFERENTES DA DATABASE, SENDO NECESSÁRIO "DROPPAR" E "APPENDAR" A TABELA. COMO // É DIFICIL SABER QUAIS TABELAS ESTÃO DESSA FORMA, EXECUTA ESSA ROTINA PARA AS TABELAS QUE DESEJAR //AS TABELAS DE BACKUP NÃO SÃO APAGADAS POR QUESTÕES DE SEGURANÇA, CASO SEJA NECESSÁRIO RECUPERAR OS DADOS //SE EXECUTAR 2 VEZES ESSA ROTINA SEM MUDAR O PARAMETRO 'EXTENSAO DA TABELA', SERÁ EXIBIDO O ERRO (NO TOPCONNECT) DE CHAVE DUPLICADA //NO INSERT DA TABELA OFICIAL E DE BACKUP QUANDO FOR COPIADA DO BACKUP //NA TABELA DE BACKUP //SUGESTÃO: ANTES DE EXECUTAR ESSA ROTINA, ABRA O TOPCONNECT E FAÇA O ACOMPANHAMENTO NA ABA MENSAGENS //Montagem da tela para passagem dos parametros User Function xAjTab() Local aSays Local aButtons := {}

:= {}

Private cPerg := "XAJTAB1" Private cCadastro := OemToAnsi( "* Ajusta Tabelas do Banco" ) ValidPerg() //Apresenta os parametros logo na entrada da rotina Pergunte(cPerg,.t.) AADD(aSays,OemToAnsi( " Este programa ira ajustar as tabelas do sistema, fazendo um backup," ) ) AADD(aSays,OemToAnsi( " apagando, recriando e recuperando os dados." ) ) AADD(aSays,OemToAnsi( " Obs.: Executar em modo exclusivo!" ) ) AADD(aButtons, { 5,.T.,{|| Pergunte(cPerg,.T. ) } } ) AADD(aButtons, { 1,.T.,{|o| yAjTab() }} ) AADD(aButtons, { 2,.T.,{|o| FechaBatch() }} ) //FechaBatch é padrão para fechar a tela FormBatch( cCadastro, aSays, aButtons ) Return //ROTINA QUE FAZ BACKUP, APAGA, RECRIA E RESTAURA OS ARQUIVOS USER FUNCTION AJUSTABANCO(cTabela) //POR GARANTIA, APAGA A TABELA //FABRICIO - MELHOR NÃO APAGAR A TABELA PARA NÃO TER PROBLEMAS //EM ALGUNS CASOS PODE DAR ERRO DE INSERT APOS RECRIAR A TABELA ORIGINAL E TENTAR COPIAR DA TABELA DO BACKUP (ACOMPANHAR PELO TOPCONNECT) //TcDelFile(RetSqlName(cTabela)+"_"+cExt) cExt := ALLTRIM(MV_PAR03) cCampos := "" //PRIMEIRO APAGA OS REGISTROS DELETADOS cQuery := " DELETE F ROM "+RetSqlName(cTabela)+" WHERE D_E_L_E_T_ = '*' " TCSQLEXEC(cQuery) //ANALISA QUAIS OS CAMPOS DA TABELA dbSelectArea("SX3") dbSetOrder(1) dbGoTop() While !SX3->(Eof()) If SX3->X3_ARQUIVO == cTabela .AND. SX3->X3_CONTEXT <> "V" cCampos += SX3->X3_CAMPO + "," EndIf DbSelectArea("SX3") dbSkip() EndDo cCampos += " R_E_C_N_O_ " //SELECIONA OS REGISTROS PARA BACKUP cQuery := " SELECT * INTO "+RetSqlName(cTabela)+"_"+cExt+" FROM " + RetSqlName(cTabela) TCSQLEXEC(cQuery) //APAGA A TABELA OFICIAL TCDelFile(RetSqlName(cTabela)) //RECRIA A TABELA ORIGINAL COM BASE NO SX3 DA EMPRESA POSICIONADA DbSelectArea(cTabela) dbSetOrder(1) //RECUPERA OS DADOS DA TABELA DE BACKUP cQuery := "INSERT INTO " + RetSqlName(cTabela) + " (" + cCampos + ") SELECT "+ cCampos +" FROM "+RetSqlName(cTabela)+"_"+cExt+" " TCSQLEXEC(cQuery) //APAGA A TABELA DE BACKUP //TcDelFile(RetSqlName(cTabela)+"_"+cExt) Return Static Function yAjTab() If MsgBox("Será iniciado agora o processo de ajustes das tabelas do banco. Deseja continuar?","Continua?","YESNO") Processa({|| zAjTab() },"Processando...") EndIf FechaBatch() Return Static Function zAjTab() cAlias := "SX2" DbSelectArea(cAlias) dbSetOrder(1) dbGoTop() ProcRegua(RecCount()) // Numero de registros a processar While !SX2->(Eof()) If SX2->X2_CHAVE >= MV_PAR01 .AND. SX2->X2_CHAVE <= MV_PAR02 IncProc("Tabela :" + SX2->X2_CHAVE + " - " + SX2->X2_NOME) U_AJUSTABANCO(SX2->X2_CHAVE) EndIf DbSelectArea(cAlias) dbSkip() EndDo MsgBox("Tabelas ajustadas com sucesso!","Ok","INFO") Return Static Function ValidPerg() _sAlias:= Alias() aRegs:= {} dbSelectArea("SX1") dbSetOrder(1) cPerg:= PADR(cPerg,10) // Grupo/Ordem/Pergunta/Perg.Esp/Perg.Ingl/Variavel/Tipo/Tam/Dec/Presel/GSC/Valid/Var01/Def01/Cnt01/Var02/Def02/Cnt02/Var03/Def03/Cnt03/Var04/Def04/Cnt04/Var05/Def05/Cnt05 aAdd(aRegs,{cPerg,"01","Tabela De ?","","","mv_ch1","C",03,00,00,"G","","mv_par01","","","","","","","","","","","","","","","","","","","","","","","","","HSPSX2","","","",""}) aAdd(aRegs,{cPerg,"02","Tabela Ate ?","","","mv_ch2","C",03,00,00,"G","","mv_par02","","","","","","","","","","","","","","","","","","","","","","","","","HSPSX2","","","",""}) aAdd(aRegs,{cPerg,"03","Extensão Tabelas Bkp","","","mv_ch3","C",03,00,00,"G","","mv_par03","","","","","","","","","","","","","","","","","","","","","","","","","","","","",""}) For i:=1 to Len(aRegs) If !dbSeek(cPerg+aRegs[i,2]) RecLock("SX1",.T.) For j:=1 to FCount() If j <= Len(aRegs[i]) FieldPut(j,aRegs[i,j]) Endif Next MsUnlock() Endif Next dbSelectArea(_sAlias) Return


Página 27 de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 $:AO 3 &o!ina para e9ecuço e c on!role dos updates odulares #include #include #INCLUDE #INCLUDE

"rwmake.ch" "topconn.ch" "PROTHEUS.CH" "TBICONN.CH"

/* FABRICIO AMARO - 06/06/2011 ROTINA PARA REGISTRAR A APLICAÇÃO DOS UPDATES RESUMO: PARA CADA UPDATE O SISTEMA IRÁ GRAVAR UM ARQUIVO COM O MESMO NOME DO UPDATE MAIS (+) A DATA DO FONTE DESSE UPDATE SE NA PROXIMA APLICACAO O SISTEMA VERIFICAR QUE A DATA É DIFERENTE, IRA APLICAR NOVAMENTE OBS.: SE CLICADO EM SIM PARA EXECUTAR O UPDATE, E DEPOIS CANCELAR O UPDATE (ROTINA PADRAO) FICARÁ GRAVADO NESSE LOG QUE ELE JÁ FOI EXECUTADO, PORTANTO, PARA ESSE CASO, IR NA PASTA DO LOG E APAGAR O ARQUIVO PARA QUE ELE POSSA SER EXECUTADO NOVAMENTE. */ User Function MeusUpds() Private oGera2 p11 := .T. cLocUpd cUpd If p11

:= "UPDS\" := SPACE(15)

//PASTA NA SYSTEM QUE FICARÁ GUARDADO O LOG DOS UPDATES - SUGESTÃO: CRIE ESSA PASTA

cLocSystem cLocSmart cTCP cAmbiente cProgCli

:= "C:\TOTVS 11\Microsiga\Treinamento\system\" := "C:\TOTVS 11\Microsiga\Protheus\bin\smartclient\" := "TCP" := "TOTVS_10_PARA_11" := "SmartClient.exe"

cLocSystem cLocSmart cTCP cAmbiente cProgCli

:= "A:\Protheus10\Treinamento\system\" := "A:\Protheus10\bin\smartclient\" := "TCP" := "Treinamento" := "TotvsSmartClient.exe"

//CAMINHO COMPLETO DA PASTA SYSTEM //CAMINHO COMPLETO DA PASTA SMARTCLIENT //COMUNICAÇÃO TCP COM O SERVIDOR //AMBIENTE //NOME DO PROGRAMA DO SMARTCLIENT (PROTHEUS10 = TOTVSSMARTCLIENT.EXE | PROTHEUS 11 = SMARTCLIENT.EXE)

Else

EndIf cLog cLog2 nCont1

//CAMINHO COMPLETO DA //CAMINHO COMPLETO DA //COMUNICAÇÃO TCP COM //AMBIENTE //NOME DO PROGRAMA DO

PASTA SYSTEM PASTA SMARTCLIENT O SERVIDOR SMARTCLIENT (PROTHEUS10 = TOTVSSMARTCLIENT.EXE | PROTHEUS 11 = SMARTCLIENT.EXE)

:= "" := "" := 0

//VARIAVEIS ESPECIFICAS PARA A PESQUISA DAS FUNÇÕES NO RPO aType := {} aFile := {} aLine := {} aDate := {} aTime := {} //MONTAGEM DA TELA PARA PASSAGEM DOS PARAMETROS @ 200,1 TO 400,400 D IALOG oGera2 TITLE OemToAnsi("Aplicação dos Updates") @ 10,018 Say "INFORME AS INICIAIS DO UPDATE - EXEMPLO: UPDCOM | UPDEST" PIXEL OF o Gera2 @ 70,018 MSGET oVar VAR cUpd Picture "@!" SIZE 040,10 PIXEL OF oGera2 @ 80,170 BMPBUTTON TYPE 01 ACTION {Close(oGera2)} Activate Dialog oGera2 Centered cUpd := Alltrim(cUpd) IF Alltrim(cUpd) == "" Alert("Não foi informado nenhum UPDATE!") Return EndIf If MsgBox("Será iniado a execução dos UPDs. Deseja continuar?","Atenção","YESNO") cNomFunc

:= "U_"+cUpd+"*" //O * SERVE PRA PESQUISAR O RESTANTE DA STRING

//PESQUISA AS FUNÇÕES NO RPO aRet := GetFuncArray(cNomFunc, @aType, @aFile, @aLine, @aDate, @aTime) For nCont := 1 To Len(aRet) //PRIMEIRO VERIFICA SE ESSE ARQUIVO JÁ EXISTE NA PASTA \SYSTEM\UPDS OU NO CAMINHO ESPECIFICADO cArqUpd := aRet[nCont] +"_"+ StrTran(dtoc(aDate[nCont]),"/","_") cArqUpd := cLocSystem + cLocUpd + cArqUpd + ".UPDATE" cTemArq := FOPEN(cArqUpd) //SE O ARQUIVO JÁ EXISTIR If !(cTemArq <= 0) cLog2 += aRet[nCont] +";" Else nCont1++ If MsgBox("Executa "+aRet[nCont]+"?","Atenção","YESNO") //EXECUTA O SMARTCLIENT COM OS PARAMETROS DO UPDATE WinExec(cLocSmart+cPROgCli+" -P="+aRet[nCont]+" -C="+cTCP+" -E="+cAmbiente+" -M") //ARMAZENA O LOG GERAL cLog += aRet[nCont] +";" //CRIA NA PASTA SYSTEM O UPDATE PARA DIZER QUE ELE JÁ FOI EXECUTADO MemoWrite(cArqUpd,cArqUpd) EndIf EndIf Next cArq := cLocSystem + cLocUpd + cUpd + ".TXT" MemoWrite(cArq,cLog) If nCont1 > 0 cMsg :=

"Compatibilizadores executado com sucesso! Foi gravado os LOG's na pasta SYSTEM"

cMsg :=

"Não foi executado nenhum compatibilizador!"

Else EndIf MsgBox(cMsg,"Acabou","INFO") If MsgBox("Deseja executar novamente a rotina MeusUpd's?","Meus Upds","YESNO") U_MEUSUPDS() EndIf EndIf Return


Página 2E de 31

MIT072 – Manual de Operaço do Pro!"!ipo Converso#$!uali%aço &elease ' Pro!(eus &eviso 010 – 1)#10#2013 $:AO ) Procedien!os de res!aurar 4$C/P uando o anco  Oracle

 &ev.

010

*m cliente #ue ap9s a migra4+o a maioria dos campos de tipo data )icam em branco. ar a migra4+o para o Proteus ,,.. !o ambiente de produ4+o o &b
!o ambiente de teste o &b


Página 2F de 31


Invalid date type on (M2_DATA)” O erro acontece por#ue o bacup na base teste do Oracle )oi restaurado Limport com o usu:rio teste6 assim todas as tabelas )icaram com o oner Lpropriet:rio teste. Porm6 o campo 8;*$&NT
&esta )orma o Proteus n+o locali>a o campo M-N&ar a inser4+o dos dados baseado nos dados da tabela antiga. Porm6 a rotina de migra4+o n+o gera o erro ao n+o conseguir ler os dados e grava os campos data em branco. *%istem duas solu45es0 Solu4+o ,0 restaurar o bacup da base teste do Oracle usando o mesmo nome de usu:rio da base de produ4+o. !o cliente #ue estamos pre)erimos n+o usar essa solu4+o por#ue teriamos #ue restaurar novamente o bacup. Solu4+o -0 parar o servi4o do &Bar via banco de dados a troca do nome do usu:rio no campo 8;*$&NT


Página 30 de 31

MIT072_Conversao_P11

Recommend Documents