Histórico da Página

...

ÍNDICE

...

Visión general

...

Ejemplo de

...

utilización

...

Estructura de

...

datos.

...

Tablas utilizadas
Migrador ZC1

...

vs. F73

01. VISIÓN GENERAL

Este archivo permite la importación del Flujo presupuestario por modalidad del PCO – Planificación y control presupuestario para el Financiero. Se utilizará para vincular las Modalidades con las Cuentas presupuestarias, este vínculo se utilizará posteriormente en la importación de los valores registrados en Planificación y control presupuestario al Presupuesto del Financiero.

...

02. EJEMPLO DE UTILIZACIÓN

Incluir.

En la opción incluir, se mostrará la siguiente pantalla con encabezado e ítems, donde el encabezado es una visualización de la tabla de Modalidades (SED) de los campos código y descripción, y los ítems la relación que se registrará en la tabla de F73.

...

03. ESTRUCTURA DE DATOS

Tabla

Clave	Archivo	Nombre	Clave única
F73	F73010	Modalidades vs. Cuentas presupuestarias	F73_FILIAL+F73_NATUR+F73_ITEM

Principales campos

Campo	Descripción
F73_FILIAL	Código de la sucursal del sistema
F73_NATUR	Código de identificación de la modalidad financiera
F73_DESNAT	Descripción de la modalidad financiera
F73_ITEM	Ítem secuencial
F73_COINI	Código inicial de la cuenta presupuestaria para importación de datos
F73_COFIM	Código final de la cuenta presupuestaria para importación de datos
F73_CLASSE	Código de la clase para importación de datos, si estuviera vacío se considerarán todos.
F73_ CCINI	Código inicial del centro de costo para importación de datos, si estuviera vacío se considerarán todos.
F73_ CCFIM	Código final del centro de costo para importación de datos, si estuviera vacío se considerarán todos.
F73_ITCTBI	Código inicial del ítem contable para importación de datos, si estuviera vacío se considerarán todos.
F73_ITCTBF	Código final del ítem contable para importación de datos, si estuviera vacío se considerarán todos.
F73_CLVRLI	Código inicial de la clase de valor para importación de datos, si estuviera vacío se considerarán todos.
F73_CLVRLF	Código final de la clase de valor para importación de datos, si estuviera vacío se considerarán todos.

Validaciones

Campo	Validación
F73_NATUR	ExistChav("SED")
F73_COINI	ExistChav("AK5") .AND. FIN272Vld(‘F73_CO’,INCLUI)*
F73_COFIM	ExistChav("AK5") .AND. FIN272Vld(‘F73_CO’,INCLUI)*
F73_CLASSE	Vazio() .or. ExistChav("AK6")
F73_ CCINI	Vazio() .or. ExistChav("CTT").AND. FIN272Vld(‘F73_ CCINI’,INCLUI)*
F73_ CCFIM	Vazio() .or. ExistChav("CTT").AND. FIN272Vld(‘F73_ CCFIM’,INCLUI)*
F73_ITCTBI	Vazio() .or. ExistChav("CTD").AND. FIN272Vld(‘F73_ ITCTBI’,INCLUI)*
F73_ITCTBF	Vazio() .or. ExistChav("CTD").AND. FIN272Vld(‘F73_ ITCTBF’,INCLUI)*
F73_CLVRLI	Vazio() .or. ExistChav("CTH").AND. FIN272Vld(‘F73_ CLVRLI’,INCLUI)*
F73_CLVRLF	Vazio() .or. ExistChav("CTH").AND. FIN272Vld(‘F73_ CLVRLF’,INCLUI)*

*La función FIN272Vld() será responsable por todas las validaciones de campos

Índice

Indice	Orden	Clave	Descripción
F73_FILIAL	1	F73_FILIAL+F73_NATUR+F73_ITEM	Modalidad + Ítem

Disparadores

Campo	Sec	Regla	Clave	Condición	Alias
F73_NATUR	001	M->F73_DESNAT:=SED->ED_DESCRIC	xFilial("SED")+M->F73_NATUR	!EMPTY(M->F73_NATUR)	SED

Card documentos

Informacao	Importante aplicar o pacote 008342, e adicionar a rotina ao menuEs importante aplicar el paquete 008342, y agregar la rutina al menú.
Titulo	IMPORTANTE¡IMPORTANTE!

04. TABLAS

F73 Modalidad vs. Cuentas presupuestarias.
SED Modalidades.
AK5 Cuentas presupuestarias.
AK6 Clases presupuestarias.
CTT Centro de costo.
CTD Ítem contable.
CTH Clases de valor.

...

Bloco de código

language	java
theme	Midnight
title	Código fuente:
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

HTML

<!-- 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>

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

ÍNDICE

01. VISIÓN GENERAL

02. EJEMPLO DE UTILIZACIÓN

03. ESTRUCTURA DE DATOS

04. TABLAS