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 | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas