sábado, 8 de julho de 2017

AULA 1202 WINDEV CURSO ERP 041 USUARIO









USUARIOS - Video no Youtube Se Gostou clique aqui para dar joinha




BOM DIA

Na aula de hoje vamos CONTINUAR A PARTE DO CADASTRO
DE USUARIOS E GRUPO DE USUARIOS

GOOD MORNING

In today's class we are going to CONTINUE PART OF THE REGISTRATION
OF USERS AND USERS GROUP


BUEN DÍA

En la clase de hoy vamos a CONTINUAR LA PARTE DEL REGISTRO
DE USUARIOS Y GRUPO DE USUARIOS




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
USUARIOS - ERP37 - AULA 1180
USUARIOS - ERP38 - AULA 1181
CUSTOS - ERP39 - AULA 1182
USUARIOS - ERP40 - AULA 1200
USUARIOS - ERP41 - AULA 1202
USUARIOS - TIRAR FOTO - ERP 42 - AULA 1210




// Create a new record
// CADASTRAR USUARIO

HReset(usuario)

// Open the form of usuario file in creation mode
_ID_USUARIO is int=TABLE_usuario_grupo.COL_Usuario_grupoID

IF Open(WIN_Form_usuario,_ID_USUARIO) THEN
   
    // Refresh the table
    TableDisplay(TABLE_usuario,taCurrentFirst)
   
END

// ESTOU ABRINDO O FORMULARIO USUARIO, E MANDANDO ESSE PARAMETRO PARA O FORMULARIO
// I AM OPENING THE USER FORM, AND SENDING THAT PARAMETER FOR THE FORM
// ESTOY ABRIENDO EL FORMULARIO USUARIO, Y MANDANDO ESTE PARAMETRO PARA EL FORMULARIO





PROCEDURE WIN_Form_usuario(gn_RECEBE_ID_USUARIO_GRUPO is int=0)
// AQUI ESTOU RECEBENDO UM PARAMETRO COM ID DO USUARIO GRUPO
// HERE I AM RECEIVING A PARAMETER WITH USER GROUP ID
// AQUÍ ESTOY RECIBIDO UN PARAMETRO CON ID DEL USUARIO GRUPO

// Display the records
FileToScreen()
IF usuario..NewRecord=True THEN
    EDT_Usuario_grupoID=gn_RECEBE_ID_USUARIO_GRUPO
END
// ESTOU VERIFICANDO SE USUARIO É UM NOVO REGISTRO (INCLUSAO) , SE FOR
//                   EU VOU PEGAR O PARAMETRO DO ID USUARIO
// I AM VERIFYING IF USER IS A NEW REGISTRATION (INCLUDED), IF FOR I WILL
//                   TAKE THE PARAMETER OF THE USER ID
// ESTOY VERIFICANDO SI USUARIO ES UN NUEVO REGISTRO (INCLUYE), SI ESTOY
//                   VOY PEGAR EL PARAMETRO DEL ID USUARIO
MyWindow..ReturnedValue = False
ReturnToCapture(EDT_Nome)
// O QUE VAI FAZER: ELE VAI LEVAR DIRETO PARA ESSE CAMPO PARA DIGITAÇÃO
// WHAT YOU WILL DO: IT WILL LEAD DIRECT TO THIS FIELD FOR DIGITATION
// ¿QUÉ VA HACIENDO: EL VA A LEER DIRECTO A ESTE CAMPO PARA DIGITACIÓN




//SELECIONAR IMAGEN

sFile is string

// Opens the file picker
sFile = fSelect("", "", "Select a file...", "IMAGEN" + TAB + "*.JPG" + CR + "BMP" + TAB + "*.BMP" + CR + "PNG" + TAB + "*.PNG", "*.JPG")

IMG_Foto=sFile
















Teste

Teste
teste