Windev21 Aulas,Estudos e Desenvolvimento: Aula 1177 WinDev Curso ErpAmarildo 034

domingo, 11 de junho de 2017

Aula 1177 WinDev Curso ErpAmarildo 034 - Tabela Custo Lançamentos

Video PLANO LANCAMENTOS no Youtube Se Gostou clique aqui para dar joinha

help1

Nessa aula de hoje

Vamos continuar a fazer o codigo da tabela de custo,
agora, revisando a parte de conta lancamento

In this class today

Let's continue to do the cost table code,
Now, revising the part of account launch

En esta clase de hoy

Vamos a seguir haciendo el código de la tabla de coste,
Ahora, revisando la parte de cuenta de lanzamiento

// CONTA LANÇAMENTO
// LAUNCHING ACCOUNT
// CUENTA LANZAMIENTO
_nivel is int=0
_grupo is boolean=False
_centro_custo is string=""
// vamos primeiro criar 3 variaveis, nivel, grupo e centro custos
// Let's first create 3 variables, level, group and center costs
// Primero crear 3 variables, nivel, grupo y centro de costes

IF TABLE_CUSTOS.COL_CONTA_GRUPO=True THEN
    // se conta grupo for igual a sim
    // If group count is equal to yes
    // Si cuenta grupo es igual a sí
    _nivel=TABLE_CUSTOS.COL_NIVEL+1
    // aqui pego o nivel atual e soma mais 1
    // Here I get the current level and add 1 more
    // Aquí llego el nivel actual y suma más 1

    _centro_custo=TABLE_CUSTOS.COL_CENTRO_CUSTO
    // aqui pego o centro de custo atual ex: 01.001 / ou 01 / etc...
    // Here I take the current cost center ex: 01.001 / or 01 / etc ...
    // Aquí el centro de coste actual ex: 01.001 / o 01 / etc ...

ELSE //senao
    _nivel=TABLE_CUSTOS.COL_NIVEL
    // PEGO O NIVEL ATUAL
    // PEGO OR CURRENT LEVEL
    // PEGO EL NIVEL ACTUAL
    _posicao_final is int=(_nivel-1)*3
    // VOU PEGAR A POSICAO FINAL, PEGANDO O NIVEL - 1 E MULTIPLICANDO POR 3
    // I'LL TAKE THE FINAL POSITION, TAKING LEVEL - 1 AND MULTIPLYING FOR 3
    // VOY PEGAR LA POSICION FINAL, PEGANDO EL NIVEL - 1 Y MULTIPLICANDO POR 3
    _centro_custo=TABLE_CUSTOS.COL_CENTRO_CUSTO[[1 TO _posicao_final]]
    // aqui pego o centro de custo , mas como já é de lancamento, vou tirar as ultimas 4 posicoes
    // Here I take the cost center, but as it is already launched, I will take the last 4 positions
    // aquí atrapado el centro de coste, sino como es poner en marcha, yo tomo a los últimos 4 posiciones

END
HReset(CUSTOS)
// reinializa os valores
// Re-validates the values
// Reinializa los valores
Open(WIN_Form_CUSTOS,_nivel,_grupo,_centro_custo)
// estou abrindo janela, mandando parametros, nivel,grupo e centro de custos
// I'm opening the window, sending parameters, level, group and cost center
// Que se abre ventana, mandando parámetros, nivel, grupo y centro de costos
TableDisplay(TABLE_CUSTOS,taCurrentFirst)
// estou atualizando a tabela
// I'm updating the table
// Estoy actualizando la tabla

//SEM COMENTARIOS

// CONTA LANÇAMENTO
// LAUNCHING ACCOUNT
// CUENTA LANZAMIENTO
_nivel is int=0
_grupo is boolean=False
_centro_custo is string=""
IF TABLE_CUSTOS.COL_CONTA_GRUPO=True THEN
    _nivel=TABLE_CUSTOS.COL_NIVEL+1
    _centro_custo=TABLE_CUSTOS.COL_CENTRO_CUSTO
ELSE //senao
    _nivel=TABLE_CUSTOS.COL_NIVEL
    _posicao_final is int=(_nivel-1)*3
    _centro_custo=TABLE_CUSTOS.COL_CENTRO_CUSTO[[1 TO _posicao_final]]
END
HReset(CUSTOS)
Open(WIN_Form_CUSTOS,_nivel,_grupo,_centro_custo)
TableDisplay(TABLE_CUSTOS,taCurrentFirst)