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




Lançamento Curso Iniciante ao Avancado - Windev/Mobile/Webdev 001/... Aula 1133
Criar Analise/Conexao e Tabela de Empresa - Curso 002/... Aula 1140
ErpAmarildo - Menu Principal - Curso 003/... Aula 1145
Menu Ribbon - Menu Principal - Curso 004/... Aula 1146
Botao Empresa - Menu Ribbon - Curso 005/... Aula 1147
Query Empresa - Cadastro Wdl - Curso 006/... Aula 1148
Tabela Empresa - Curso 007 - Aula 1149
Incluir - Botao Incluir Empresa Tabela Codigo - Curso 008 - Aula 1150
Icone Botao de Incluir - Brinde - Curso ErpAmarildo 9/... aula 1151
Icones Novos - Tabela - Curso ErpAmarldo 10/... Aula 1152
Codigos alteracao Tabela Empresa - Curso ErpAmarildo 11/... Aula 1153
Exclusão Codigos - Tabela Empresa - Curso ErpAmarildo 12/... Aula 1154
Procure - TableEnableFilter - Curso ErpAmarildo 13/... Aula 1155
Menu - Empresas - Chamar Wdl - Curso ErpAmarldo 14/... Aula 1156
Analise - Centro Custo - Niveis - Curso ErpAmarildo 15/... Aula 1157
Conexão Hyperfile - Curso ErpAmarildo 16/... Aula 1158
Tabela-Formulario Custos - Curso ErpAmarildo 17... Aula 1159
Menu Erp Custo - Curso ErpAmarildo 18.. Aula 1160
Tabela Seleciona Empresa - Curso Erp 19/... Aula 1162
CODIGO SELECIONA EMPRESA - CURSO ERP 20/... AULA 1163
ERP CHAMA SELECIONA EMPRESA - CURSO ERP 21/... AULA 1164
ERP AJUSTE -APARECER CODIGO E NOME EMPRESA - CURSO ERP22/... AULA 1165
ERP AJUSTE TELA - CURSO ERP23/... AULA 1166
CODIGO JANELA MDI - CURSO ERP 24/... AULA 1167
Conexao Duvida eRP 25/.. AULA 1168
EMPRESA AJUSTANDO - ERP 26/... AULA 1169
Formulario Custo Ajustando erp 27... aula 1170
Tabela Custo Ajustando erp 28 /... AULA 1171
Formulario Custos - Codigos - erp 29/... AULA 1172
x Nao Sair - Curso Erp 30/... AULA 1173
Tabela Custo - 2o Nivel - ERP 31/ AULA 1174
TABELA CUSTO - MESMO NIVEL - CODIGO - ERP32 / AULA 1175
TABELA CUSTO - NIVEL ABAIXO - CODIGO - ERP33/ AULA 1176
TABELA CUSTOS - LANCAMENTOS - CODIGO - ERP34 / AULAS 1177
FORMULARIO CUSTOS - CODIGO - ERP35 / AULA 1178




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)





















Nenhum comentário:

Postar um comentário

Teste

Teste
teste