SysIconAdd - Bandeja

VIDEO - SysIconAdd - BANDEJA

-------------------------------------------------------------------------------------------------------------------------
http://doc.windev.com/en-US/?3010005&name=Constants_for_object_visibility

WIN_bandeja_exemplo_1..State=Invisible

Acrescentando esse comando , ai a aplicação ficara invisivel , aparecendo somente na bandeja,
dica do Adriano booler, de pegou dica de Marco Roberto

-------------------------------------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------------------------------------

SysIconAdd - http://doc.windev.com
SysIconAdd - Exemplo - http://doc.windev.com
-------------------------------------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------------------------------------
SysIconAdd - http://doc.windev.com

-------------------------------------------------------------------------------------------------------------------------
 SysIconAdd - Exemplo - http://doc.windev.com

-------------------------------------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------------------------------------
PROCEDURE WIN_bandeja_exemplo_1()
// bandeja // // Inicializar Janela // // Initialize the AddIcon window
CONSTANT
    WM_LBUTTONDBLCLK = 513  // botao direito mouse // right mouse button
END
SysIconAdd("C:\matwin13\matosinf.ico","menu_bandeja","Abrir Pop Menu Manuais","AbreArquivo")
// Menu_bandeja
      // Foi criado um Menu popup
      // A popup menu has been created
// Abrir Pop Menu Manuais
     //  O que vai Aparecer da descricao do Icone
// AbreArquivo
      // é a procedures que criamos
      // is the procedures that we have created
Iconize(WIN_bandeja_exemplo_1) // Miniza Janela

//WIN_bandeja_exemplo_1..Modified=True
//Os diferentes tipos de operações para o mouse são:
//The different types of operations for the mouse are:

//Esquerda clique duplo     - Left double click
// WM_LBUTTONDBLCLK = 515
//Esquerda botão para baixo - Left button down
// WM_LBUTTONDOWN = 513
//Botão esquerdo up         - Left button up
// WM_LBUTTONUP = 514
//Duplo clique Oriente      - Middle double click
// WM_MBUTTONDBLCLK = 521
//Botão do meio para baixo  - Middle button down
// WM_MBUTTONDOWN = 519
//Botão do meio para cima   - Middle button up
// WM_MBUTTONUP = 520
//Direito duplo clique      - Right double click
// WM_RBUTTONDBLCLK = 518
//Direito botão para baixo  - Right button down
// WM_RBUTTONDOWN = 516
//Botão direito do mouse para cima - Right button up
// WM_RBUTTONUP = 517


//Os diferentes tipos de operações para a stylus são:
//The different types of operations FOR the stylus are:

//Clique duas vezes  - double click
// WM_LBUTTONDBLCLK = 515
//Botão para baixo   - Button down
// WM_LBUTTONDOWN = 513
//Botão up           - Button up
// WM_LBUTTONUP = 514


// Adicionar um ícone na barra de tarefas
// Add an icon into the taskbar
-------------------------------------------------------------------------------------------------------------------------
PROCEDURE AbreArquivo(StylusMessage)
IF StylusMessage = WM_LBUTTONDBLCLK THEN
    // Caso eu nao tivesse colocado o MenuPop,
    // poderia colocar aqui o comando para abrir
   
    // colocar aqui comandos caso precise
     //ShellExecute("C:\My projects\_SistemaMatosWindev\erpmatos\erpmatos\Exe\manuais_matos\0100_orcamento_pedido_001.pdf")
END

Scanner - Digitalizar

Twain Funcions http://doc.windev.com

EDT_scaner="D:\aleva\teste.pdf"
Info(EDT_scaner)
IF TwainToPDF(EDT_scaner) THEN
    Info("documento Digitalizado")
ELSE
    Info("documento Nao Digitalizado")
END

Windev Combo Box

Assistir Video Windev Mobile - Combo Box

Assistir Video Windev Mobile - Combo Box: Programação

Assistir Video Windev Mobile - Combo Box: Tabela

---------------------------------------------------------------------------------------------------------------
Combox - Editavel
Combox - Ensinando
Combox - Estado Grava Uf
Combox - Limpar informações
Combox - Popular Manualmente
Combox - Selecionar
---------------------------------------------------------------------------------------------------------------


 http://doc.windev.com/en-US/?1013023&name=combo_box_control

1. Combo box Automatico

==============================================================
2. Combo Box Programacao

    Coloca Dados Agenda

   // Limpa Conteudo Combox
ListDeleteAll(COMBO_programação) 
  // Mostra Id e Nome da Agenda
gsSQL = [
    SELECT
        sq_agenda.id_agenda as age_id,
        sq_agenda.nome as age_nome
    FROM
            sq_agenda
]
     // Posso acrescentar na lista do combox
ListAdd(COMBO_programação,"Todos Grupos"+TAB+gLink("Todos"))       
    // Ler Todos itens Retornados Pelo Select
IF HExecuteSQLQuery(gdsQry,hQueryDefault,gsSQL) THEN
    HReadFirst(gdsQry)
    WHILE NOT HOut()
          // Adiciona cada Iten no combox
        ListAdd(COMBO_programação,gdsQry.age_nome+TAB+gLink(gdsQry.age_id))       
        HReadNext(gdsQry)
    END
    HFreeQuery(gdsQry)     
END
//COMBO_programação..Sorted=True


---------------------------------------------
 Seleciona um item combox

COMBO_programação = "Todos"
ListSelectPlus(COMBO_programação)

---------------------------------------------

 

=========================================================

3. Combox Tabela                                                         

Matos Função - Cpf Validar

VIDEO - PROCEDURE CPF PARA VALIDAR

Aqui vou mostrar com fazer uma rotina/procedure para validar um cpf
e usar isso em outros programas apenas chamando a funcao

------------------------------------------------------------------------------------------------------------------
IF matos_f_cpf_validar(EDT_Id_inscricao_cnpj_cpf)=0 THEN
            Info("Cpf Invalido")
            SetFocus(EDT_Id_inscricao_cnpj_cpf)
        ELSE
            SetFocus(EDT_CAD_Id_razao_social_nome)
        END 

------------------------------------------------------------------------------------------------------------------
PROCEDURE matos_f_cpf_validar(pCPF is string)
_CPF    is string
_Peso     is 2-byte unsigned int
_Resto     is 1-byte int
_Digito is 1-byte int
FOR i=1 _TO_ Length(pCPF)
    IF 47 < Asc(pCPF[[i]]) < 58 THEN
        _CPF+=pCPF[[i]]
    END
END
IF Length(_CPF) <> 11 THEN RESULT False
FOR i=1 TO 10
    _Peso = _Peso + (Asc(_CPF[[1 TO 10]][[i]]) -48)  * (10-i+2)
END
_Resto = modulo(_Peso,11)
IF _Resto < 2 THEN
    _Digito = 0
ELSE
    _Digito = 11 - _Resto
END
//Trace(pCPF)   // Trace Para Conferencia
//Trace("Val(tmpCPF[[11]])["+_CPF[[11]]+"]")
//Trace("tmpDigito9["+_Digito+"]")
IF Val(_CPF[[11]]) <> _Digito THEN
    RESULT False
ELSE
    RESULT True
END

 ------------------------------------------------------------------------------------------------------------------

Usb Funcoes Windev