PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 25 → [Video Aulas Amarildo] Aula 1178 WinDev Curso ErpAmarildo 035 - Formulario Custo
[Video Aulas Amarildo] Aula 1178 WinDev Curso ErpAmarildo 035 - Formulario Custo
Débuté par amarildo, 12 juin 2017 09:55 - 1 réponse
#1
Membre enregistré
535 messages
Popularité : +14 (14 votes)
Posté le 12 juin 2017 - 09:55
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


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


// no F2 - GRAVA CUSTOS

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


http://windevdesenvolvimento.blogspot.com.br/2017/06/aula-1178-windev-curso-erpamarildo-035.html
#2
Membre enregistré
535 messages
Popularité : +14 (14 votes)
Posté le 12 juin 2017 - 09:56
→ Revenir à WINDEV 25