Tabela Grupo

Tabela Grupo
====
TableEnableFilter(TABLE_material_grupo.COL_Id_empresa,filterStartsWith,1) // gnEmpresaCodigo)
TableSort(TABLE_material_grupo,"TABLE_material_grupo.COL_Mascara_grupo")
==

IF TABLE_material_grupo.COL_Nivel=1 THEN
    TABLE_material_grupo[CurrentSubscript()]..Color = LightRed
END
IF TABLE_material_grupo.COL_Nivel=3 THEN
    TABLE_material_grupo[CurrentSubscript()]..Color = LightBlue
END
TABLE_material_grupo.COL_Nome  = RepeatString(" ",TABLE_material_grupo.COL_Nivel * 2) + TABLE_material_grupo.COL_Nome
//TABLE_CADASTRO.COL_DESCRICAO = RepeatString(" ",TABLE_CADASTRO.COL_NIVEL         * 2) + TABLE_CADASTRO.COL_DES
==== niveis
                    nProximo_codigo++
                    material_grupo.id_material_grupo=nProximo_codigo
                    material_grupo.id_empresa = ExtractString(sLinha,nextRank,"|") // 2          
                    nGrande_grupo = ExtractString(sLinha,nextRank,"|") // 3
                    nSub_grupo = ExtractString(sLinha,nextRank,"|") // 4
                    nTipo = ExtractString(sLinha,nextRank,"|") // 5
                    nCodigo = ExtractString(sLinha,nextRank,"|") // 6
                    material_grupo.id_codigo_grupo_antigo=nCodigo
                    material_grupo.nome  = ExtractString(sLinha,nextRank,"|") // 7
                    IF sFimarquivo="MATERIAL-GRUPO" THEN
                        material_grupo.mascara_grupo=NumToString(nCodigo,"03d")
                        material_grupo.nivel = 1
                        HAdd(material_grupo)
                    ELSE
                        IF sFimarquivo="SUB-GRUPO" THEN
                            material_grupo.mascara_grupo=NumToString(nGrande_grupo,"03d")+"."+NumToString(nCodigo,"03d")
                            material_grupo.nivel = 2
                            HAdd(material_grupo)
                        ELSE
                            IF sFimarquivo="TIPO_MATERIAL" THEN
                                material_grupo.mascara_grupo=NumToString(nGrande_grupo,"03d")+"."+NumToString(nSub_grupo,"03d")+"."+NumToString(nCodigo,"03d")
                                material_grupo.nivel = 3
                                HAdd(material_grupo)
                            END                              
                        END                  
                    END                  

Tabela Fluxo - Filtros

Tabela Fluxo


TableEnableFilter(TABLE_fluxo.COL_Empresa,filterStartsWith,gnEmpresaCodigo)
TableSort(TABLE_fluxo,"COL_id_centro_custo")

==== displaying a row of table_fluxo

IF TABLE_fluxo.COL_nivel=1 THEN
   TABLE_fluxo[CurrentSubscript()]..Color = LightRed
END
IF TABLE_fluxo.COL_nivel=2 THEN
    TABLE_fluxo[CurrentSubscript()]..Color = LightBlue
END
TABLE_fluxo.COL_Descricao = RepeatString(" ", TABLE_fluxo.COL_nivel * 2) + TABLE_fluxo.COL_Descricao

Amarildo Ficando Forte Windev20

Windev Tabela Criar Query

Windev Tabela Criar Query

Clicar com o botao direito em

Query

New Query

Escolha o Arquivo e com a setinha coloque para o lado

Para criar uma condicao, clique na ultima coluna em nome e crie condicao

e coloque parametro nessa condicao

=== Depois coloque codigo para gerar tabela ===

QRY_tecnico_nome.Param1=EDT_nome
HExecuteQuery(QRY_tecnico_nome)
TABLE_Tecnico..BrowsedFile=""
TABLE_Tecnico..FileLink = "QRY_tecnico_nome.nome"
TABLE_Tecnico..FileLink = "QRY_tecnico_nome.IdTecnico"
TABLE_Tecnico..BrowsedItem="-nome"
TABLE_Tecnico..BrowsedFile="QRY_tecnico_nome"

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

WebDev - Mudar Template Pagina

VIDEO - COMO MUDAR TEMPLATE NA PAGINA

Restaurar WINDEV 20 com as configurações de fábrica.

Quando tive problema que nao aparecia o relatorio como se fosse windev20


My suggestion for you is to delete the registry entry :
HKEY_CURRENT_USER\Software\PC SOFT\WinDev\20.0

This will restore WINDEV 20 with the factory settings.
We wish you great success developing with our products.

Minha sugestão para você é para excluir a entrada de registo:

HKEY_CURRENT_USER \ Software \ PC SOFT \ WinDev \ 20.0

Isso irá restaurar WINDEV 20 com as configurações de fábrica.

Desejamos-lhe muito sucesso em desenvolvimento com os nossos produtos.

WebDev - IIS Configuracao

WebDev - IIS Configuracao

iis/erro-iis-o-arquivo-ja-esta-sendo-usado-por-outro-processo-0x80070020/
desinstalar-apache-windows-como_7459/

No meu desktop tinha dado certo a instacao, no not-book nao tinha dado certo, pois
tinha outro servico na porta 80 que era o apache, e que foi desinstalado

Atalho Iss : C:\Windows\System32\inetsrv\InetMgr.exe

Servicos --- Mudar Para Reinizilzar 

-==== alteracoes feitas no not-book

--------------- Servicos --- Mudar Para Reinizilzar

Lancamento Sistema Matos Windev 2016

Recebimento Curso Neri WebDev

VIDEO SOBRE RECEBIMENTO CD CURSO NERI WEBDEV

Amarildo Mais Forte Para Programar em Windev

Windev Bloqueio Campo EnumControl

VIDEO - ENUMCONTROL

 

---

---

---

EnumControl (Function) - http://doc.windev.com
Exemplo - http://doc.windev.com

Tambem quero agradecer Jose JOrge Matos

---

PROCEDURE matos_f_formulario_consulta_desabilitar_campos(_nome_tab)

MyWindow..Title="Consulta"
i is int = 1 //Bloqueia os Controles
nBloqueia is int = 0
_controle is string = EnumControl(MyWindow,i)
WHILE _controle<>""
    i++       
    nBloqueia=0
    IF _controle=_nome_tab THEN nBloqueia=1  // Se Controle for Tab Nao Bloqueia
    IF _controle="BTN_Cancel" THEN nBloqueia=1 // Se controle for Botao Cancela nao Bloqueia
    IF nBloqueia=0 THEN {_controle}..State = Grayed     // Bloquear esses controle
    _controle=EnumControl(MyWindow,i)   
END
i=0 // bloqueia tudo o que esta dentro do controle
_controle=""
j is int
NbPane is int = {_nome_tab}..Occurrence
TabNum is int = 0
FOR i = 1 TO NbPane
    j = 1
    _controle = Upper(EnumControl({_nome_tab}[i],j))
    WHILE _controle <> ""
        j++
        nBloqueia=0
        IF Left(_controle,11)="BTN_PROXIMO" THEN nBloqueia=1 // Se controle for Botao Cancela nao Bloqueia
        IF Left(_controle,12)="BTN_ANTERIOR" THEN nBloqueia=1 // Se controle for Botao Cancela nao Bloqueia
        IF nBloqueia=0 THEN
            {_controle}..State=DisplayOnly
            {_controle}..Color=LightBlue
        END
        _controle = Upper(EnumControl({_nome_tab}[i],j))       
    END
END
//exemplo
//http://doc.windev.com/en-US/?1000003025005&name=enumcontrol_function
//http://doc.windev.com/en-US/?3025005&name=EnumControl#wlanguage_error_ELTPARAGRAPHE000259

---------------------------------------------------------------------
GLOBAL
    gn_Tipo_inc_alt_exc is int  // 1=inclusao //2=alteracao //3-exclusao //4-consulta
---------------------------------------------------------------------
 Na tabela , no botao consulta

// Is a row selected?
IF TableSelect(TABLE_cadastro_geral)=-1 THEN RETURN
gn_Tipo_inc_alt_exc=4
// Open the form of cadastro_geral file in modification mode
Open(WIN_Form_cadastro_geral)

// Refresh the table
TableDisplay(TABLE_cadastro_geral,taCurrentSelection)

---------------------------------------------------------------------
no formulario

IF gn_Tipo_inc_alt_exc =4 THEN matos_f_formulario_consulta_desabilitar_campos("TAB_NoName1")

---