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
sFile is string
sFile = fImageSelect("", "", "Seleciona Uma Imagen", "Jpg" + TAB + "*.jpg" + CR + "bmp" + TAB + "*.bmp" + CR + "png" + TAB + "*.png")
IF sFile<>"" THEN
IMG_Imagen_cupom_eletronico=sFile
END
inicializa_frente_caixa()
IF empresa_parametro_nfe.imagen_cupom_eletronico<>"" THEN
IMG_matos..Visible=True
IMG_matos=empresa_parametro_nfe.imagen_cupom_eletronico
ELSE
SWITCH empresa.suporte
CASE 1
IMG_matos..Visible=True
CASE 2
CASE 3
IMG_Rj..Visible=True
CASE 4
IMG_Unimatos..Visible=True
CASE 5
IMG_Nilsoftware..Visible=True
OTHER CASE
END
END
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)
IF HFound(empresa_parametro_nfe) THEN
IMG_matos=sFile
IMG_Unimatos=sFile
IMG_Nilsoftware=sFile
IMG_Rj=sFile
empresa_parametro_nfe.imagen_cupom_eletronico=IMG_matos
HModify(empresa_parametro_nfe)
END
END
http://windevdesenvolvimento.blogspot.com.br/2017/03/aula-1089-windev-imagen-002-guardar.html
https://www.youtube.com/watch?v=zZ4XRbAsBGg