Windev Grafico - Coloca Percentual Dentro do Grafico

Windev Grafico - Coloca Percentual Dentro do Grafico

Windev Pedido Memoria + Grafico

Windev Pedido Memoria + Grafico

Nesses passos vou mostrar como se faz um cadastro de pedido em memoria com tabela  para ir mostrando os itens do pedido e mais um grafico no final de cada digitacao.

Crie uma window

Dentro da window , crie uma Table (Tabela)

Table
   Fill the table control by programming

   Marque Editable table para poder alterar
 
      Altere as colunas com o seguinte:
        Codigo,Descricao,Quantidade,Unitario,Total

Nome tabela sera : table_pedido

Coloque em cima da tabela os campos que serao digitados, no caso dos edt e coloque os nomes neles

Criar uma Procedure para somar os valores da tabela num totalValor

Procedure
   SOMATABELAVALOR
=====================================
PROCEDURE SomaTabelaValor()
// zera total
EDT_TotalVenda=0
//Percorre toda tabela para somar totais
FOR ALL ROW OF TABLE_PEDIDO
   EDT_TotalVenda+=TABLE_PEDIDO.COL_total
END

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

No campo em que digite o valor unitario, botao direito e code

================== digite abaixo====

//Calcula Total

EDT_TOTAL=EDT_QUANTIDADE*EDT_UNITARIO 

// Adiciona na Tabela

TableAddLine(TABLE_PEDIDO,EDT_CODIGO,EDT_DESCRICAO,EDT_QUANTIDADE,EDT_UNITARIO,EDT_TOTAL) 

//Limpar Campos

EDT_CODIGO=0

EDT_DESCRICAO=""

EDT_QUANTIDADE=0

EDT_TOTAL=0

EDT_UNITARIO=0

// Busca procedure para somar

SomaTabelaValor()

grDraw(CHART_pedido)   // Mostra pedido

ReturnToCapture(EDT_CODIGO)

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

crie um botao excluir e coloque o seguinte

=====

TableDelete(TABLE_PEDIDO)

SomaTabelaValor()

===========

crie um bota altere e coloque o seguinte:

====

EDT_CODIGO=TABLE_PEDIDO.COL_codigo

EDT_DESCRICAO=TABLE_PEDIDO.COL_descricao

EDT_QUANTIDADE=TABLE_PEDIDO.COL_quantidade

EDT_UNITARIO=TABLE_PEDIDO.COL_valor_venda

EDT_TOTAL=TABLE_PEDIDO.COL_total

TableDelete(TABLE_PEDIDO)

SomaTabelaValor()

ReturnToCapture(EDT_CODIGO)

====

vamos criar o grafico agora

va em creation

   chart

      escolha o grafico

        sera por tabela

         escolha descricao e valor total 

===

Pronto abaixo as telas de como eu fiz

==

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"

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