segunda-feira, 12 de junho de 2017

Aula 1178 WinDev Curso ErpAmarildo 035 - Formulario Custo









Video FORMULARIO CUSTO no Youtube Se Gostou clique aqui para dar joinha







Nessa aula de hoje

vamos nessa aula de hoje, mostrar como
cadastrar o centro de custos, com niveis


En esta clase de hoy

En esta clase de hoy, mostrar cómo
Registrar el centro de costes, con niveles


In this class today

Let's go to this class today, show how
Register the cost center, with levels

 


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
TABELA CUSTOS - AJUSTES FINAIS - ERP36 - AULA 1179




// GLOBAL WIN_FORM_CUSTOS
PROCEDURE WIN_Form_CUSTOS(_nivel,_grupo,_centro_custos)
// EM PROCEDURE, ADICIONEI PARA RECEBER 3 PARAMETROS, NIVEL, GRUPO E CENTRO CUSTOS
// IN PROCEDURE, I ADDITION TO RECEIVE 3 PARAMETERS, LEVEL, GROUP AND COST CENTER
// EN PROCEDURE, ADICIONE PARA RECIBIR 3 PARAMETROS, NIVEL, GRUPO Y CENTRO COSTOS





//END OF INITIALIZATION OF WIN_FORM_CUSTOS
FileToScreen()

IF CUSTOS..NewRecord=True THEN
    // SE FOR NOVO REGISTRO,QUER DIZER INCLUSAO, ENTAO
    // IF YOU ARE A NEW REGISTRATION, YOU WANT TO SAY INCLUSION, ENTAO
    // Si es nuevo REGISTRO, QUIERE DECIRSE, ENTABLE   
   
    EDT_EmpresaID=gn_retorna_id_empresa_codigo
    EDT_NIVEL=_nivel
    CBOX_CONTA_GRUPO=_grupo
    EDT_CENTRO_CUSTO=_centro_custos
    // ESTOU COLOCANDO OS DADOS FIXOS
    // I'M PLACING FIXED DATA
    // ESTOY COLOCANDO LOS DATOS FIJOS
   
    IF _grupo=True THEN
        EDT_DESCRICAO..Caption="NOME GRUPO"
    END
    // SE FOR GRUPO, VAI APARECER NA DESCRICAO, NOME GRUPO PARA PREENCHER
    // IF FOR GROUP, IT WILL APPEAR IN THE DESCRIPTION, NAME GROUP TO FILL IN
    // SI ES GRUPO, VA APARECER EN LA DESCRIPCIÓN, NOMBRE GRUPO PARA PREENCHER
END

ReturnToCapture(EDT_DESCRICAO)

// Default return value
MyWindow..ReturnedValue = False





ScreenToFile()
IF CUSTOS..NewRecord THEN
    // SE FOR NOVO REGISTRO,QUER DIZER INCLUSAO, ENTAO // IF YOU ARE A NEW REGISTRATION, YOU WANT TO SAY INCLUSION, ENTAO
    // Si es nuevo REGISTRO, QUIERE DECIRSE, ENTABLE   
    _data_source is Data Source
    _sql is string
    _sql = [
        SELECT
        Max(CUSTOS.id_empresa_custo) AS ultimo
        FROM
        CUSTOS
        where
        CUSTOS.empresaID=%1
    ]
    // MONTEI SQL PARA SABER O PROXIMO ID DA EMPRESA CUSTOS    // MONTEI SQL TO KNOW THE COMPANY'S COST ID
    // MONTEI SQL PARA SABRE EL PROXIMO ID DE LA EMPRESA COSTES
    _sql = StringBuild(_sql,gn_retorna_id_empresa_codigo)
    // AQUI COLOCANDO O SQL, MAIS O CODIGO DA EMPRESA,SUBSTITUILDO O %1 // HERE PLACING SQL, PLUS THE COMPANY CODE, REPLACING% 1
    // AQUI COLOCANDO O SQL, MAIS O CODIGO DA EMPRESA, SUSTITUCION O% 1
    IF HExecuteSQLQuery(_data_source,hQueryDefault,_sql) THEN
        HReadFirst(_data_source)
        CUSTOS.id_empresa_custo=_data_source.ultimo+1
    ELSE
        CUSTOS.id_empresa_custo=1
    END
    // ESTOU LENDO O SQL, SE FOR A PRIMEIRA VEZ VAI COLOCAR 1 SENAO VAI PEGAR O ULTIMO + 1 // I'M READING SQL, IF FOR THE FIRST TIME YOU WILL PLACE 1 SENAO GOES TO TAKE THE LAST + 1
    // ESTOU LENDO O SQL, SE PARA UN PRIMEIRA VEZ VAI COLOCAR 1 SENAO VAI PEGAR O ULTIMO + 1
    IF CUSTOS.CONTA_GRUPO=False THEN
        CUSTOS.CENTRO_CUSTO=CUSTOS.CENTRO_CUSTO+"."+NumToString(CUSTOS.id_empresa_custo,"03D")
    END
    // SE GRUPO FOR FALSE, QUER DIZER LANCAMENTO,VOU ADICIONAR NO CUSTO O NUMERO DO ID //  // IF GROUP IS FALSE, YOU WANT TO SAY RELEASE, YOU WILL ADD IN THE COST THE ID NUMBER   
    //  SE GRUPO PARA FALSO, QUER DIZER LANCAMENTO, VOU ADICIONAR NO CUSTO O NUMERO DO ID
    HAdd(CUSTOS)
ELSE
    HModify(CUSTOS)
END
MyWindow..ReturnedValue = True






















Teste

Teste
teste