sábado, 11 de março de 2017

Aula 1089 - WinDev Imagen 002/... - Guardar Imagen









Video no Youtube Se Gostou clique aqui para dar joinha



http://doc.windev.com/en-US/?2510034&name=Image


Salvar Imagen String - 001 - WinDev - Imagen - Encode / Décode - 
Guardar Imagen - 002 - WinDev Imagens
Tirar Foto e Colocar Imagen WinDev - Imagen - 003/...
Fundo Janela - Colocar Imagen - Windev Imagen - 004



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
// Search image and place in the image field
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
















Teste

Teste
teste