Windev21 Aulas,Estudos e Desenvolvimento: Aula 1178 WinDev Curso ErpAmarildo 035

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

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