Histórico da Página

#INCLUDE "protheus.ch"
#INCLUDE "rwmake.ch"
#INCLUDE "TBICONN.ch"
#Include "TOTVS.CH"

USER FUNCTION Migrador()

Local lOk := .F.

PREPARE ENVIRONMENT EMPRESA cEmpAnt FILIAL cFilAnt MODULO "FIN" TABLES "ZC1","F73","SED"

If ChkFile("ZC1")
    DbSelectArea("ZC1")
    ZC1->(dbSetOrder(1))//ZC1_FILIAL+ZC1_NATUR+ZC1_ITEM 
    ZC1->(dbGoTop())//POSICIONA NO PRIMEIRO REGISTRO DA ZC1
Endif

If ChkFile("F73")
    DbSelectArea("F73")
    F73->(dbSetOrder(1))//F73_FILIAL+F73_NATUR+F73_ITEM 
    F73->(dbGoTop())//POSICIONA NO PRIMEIRO REGISTRO DA F73
Endif

Begin Transaction

    While !("ZC1")->( Eof())
        Reclock("F73",.T.)
            F73->F73_FILIAL  := ZC1->ZC1_FILIAL
			F73->F73_NATUR   := ZC1->ZC1_NATUR
            F73->F73_ITEM    := ZC1->ZC1_ITEM 
            F73->F73_COINI   := ZC1->ZC1_COINI
            F73->F73_COFIM   := ZC1->ZC1_COFIM 
            F73->F73_CLASSE  := ZC1->ZC1_CLASSE
            F73->F73_CCINI   := ZC1->ZC1_CCINI 
            F73->F73_CCFIM   := ZC1->ZC1_CCFIM
            F73->F73_ITCTBI  := ZC1->ZC1_ITCTBI
            F73->F73_ITCTBF  := ZC1->ZC1_ITCTBF 
            F73->F73_CLVRLI  := ZC1->ZC1_CLVRLI
            F73->F73_CLVRLF  := ZC1->ZC1_CLVRLF
            lOk := .T.
		F73->(MsUnlock())

        ZC1->(Dbskip())
    Enddo

    ZC1->(DbCloseArea())
    F73->(DbCloseArea())

    If lOk
        MsgAlert("Migração realizada com sucesso!")
    else
        DisarmTransaction()
        MsgAlert("Falha na migração execute novamente!")
    Endif

End Transaction   

RESET ENVIRONMENT

Return Nil

<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>