PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 21 → Aula 1089 - WinDev Imagen 002/... - Guardar Imagen
Aula 1089 - WinDev Imagen 002/... - Guardar Imagen
Débuté par De matos, 11 mar. 2017 09:56 - Aucune réponse
//hostimage.webdev.info/avatars/4ofwsucwBZxV2XpJkn08g
Membre enregistré
341 messages
Popularité : +3 (3 votes)
Posté le 11 mars 2017 - 09:56
Aula 1089 - WinDev Imagen 002/... - Guardar Imagen
Nessa aula, vou ensinar como criar um campo de imagen.
Colocar isso num cadastro de Parametro.
Ler o Frente de caixa, mostrando essa imagem,
e tambem poder alterar essa imagen no proprio 
Frente de Caixa

//Procurar imagem e colocar no campo imagen
sFile is string
sFile = fImageSelect("", "", "Seleciona Uma Imagen", "Jpg" + TAB + "*.jpg" + CR + "bmp" + TAB + "*.bmp" + CR + "png" + TAB + "*.png")
IF sFile<>"" THEN
// Se Sfile for diferente de branco
IMG_Imagen_cupom_eletronico=sFile
END


inicializa_frente_caixa()

//colocando a imagen guardada
IF empresa_parametro_nfe.imagen_cupom_eletronico<>"" THEN
IMG_matos..Visible=True //Mostrar Imagen
IMG_matos=empresa_parametro_nfe.imagen_cupom_eletronico
ELSE // Senao
SWITCH empresa.suporte
CASE 1 // matos
IMG_matos..Visible=True
CASE 2 // diversos
CASE 3// rj
IMG_Rj..Visible=True
CASE 4//unimatos
IMG_Unimatos..Visible=True
CASE 5//nilsoftware
IMG_Nilsoftware..Visible=True
OTHER CASE

END

END

// Procura imagen para colocar no pdv
Procedure imagen_procura()


sFile is string
sFile = fImageSelect("", "", "Seleciona Uma Imagen", "Jpg" + TAB + "*.jpg" + CR + "bmp" + TAB + "*.bmp" + CR + "png" + TAB + "*.png")
IF sFile<>"" THEN
HReadSeekFirst(empresa_parametro_nfe,Id_empresa,gnEmpresaCodigo)
//Estou lendo o parametro da empresa 1
IF HFound(empresa_parametro_nfe) THEN
//Se Existir
IMG_matos=sFile
IMG_Unimatos=sFile
IMG_Nilsoftware=sFile
IMG_Rj=sFile
empresa_parametro_nfe.imagen_cupom_eletronico=IMG_matos
HModify(empresa_parametro_nfe)
//Regravando os dados parametro
END
END


http://windevdesenvolvimento.blogspot.com.br/2017/03/aula-1089-windev-imagen-002-guardar.html

https://www.youtube.com/watch?v=zZ4XRbAsBGg