Histórico da Página

...

F73 Natureza x Contas Orçamentárias.
SED Naturezas.
AK5 Contas Orçamentárias.
AK6 Classes Orçamentárias.
CTT Centro de Custo .
CTD Item Contábil.
CTH Classes de Valores.

05. MIGRADOR ZC1 x F73

Este RdMake tem por finalidade transferir os dados da tabela de cliente (ZC1) para a nova tabela de dados (F73) Natureza x Contas Orçamentárias.

Bloco de código

language	java
theme	Midnight
title	Código fonte:
collapse	true

#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

...

Árvore de páginas

Versões comparadas

Versão antiga 11

Nova versão 12

Chave

05. MIGRADOR ZC1 x F73