sexta-feira, 26 de dezembro de 2014

Windev Moblie Inclui e Atualiza

Windev Moblie Inclui e Atualiza

SWITCH YesNo("Gravar as Inforrmações")
    CASE Yes
        IF EDT_id_empresa="" THEN
            Error("voce nao digitou codigo da empresa")
            RETURN           
        END
        IF EDT_id_empresa_tecnico="" THEN
            Error("voce nao digitou codigo do tecnico")
            RETURN           
        END
        IF EDT_nome="" THEN
            Error("voce nao digitou nome do técnico")
            RETURN           
        END
       
        ScreenToFile() // As Informações sao Lidas
       
        IF tecnico..NewRecord=True THEN // se for inclusão
            //Adiciona
            tecnico.id_tecnico=EDT_id_empresa_tecnico
            tecnico.id_empresa=EDT_id_empresa
            tecnico.id_empresa_tecnico=EDT_id_empresa_tecnico
            tecnico.nome=EDT_nome
            HAdd(tecnico)
        ELSE
            // Altera
            HModify(tecnico)
        END
      
        LooperDisplay(win_tecnico_lista.Looper_tecnico,taCurrentFirst) // Atualiza o Looper ou tabela
       
        Close()
    OTHER CASE
        Close()
END





Windev Mobile Cancelar Fechar

Windev Mobile Cancelar Fechar





Teste

Teste
teste