terça-feira, 31 de março de 2015

Tabela Generica

Tabela Generica

Criando uma tabela com uma coluna, pode ser mostrada qualquer tabela com select
ele vai colocar as colunas automaticamente




dsQry is Data Source
sQl is string

sQl = "select id_empresa as Codigo,suporte as suporte,fantasia as Nome,id_Cadastro_geral as Id from empresa "


IF HExecuteSQLQuery(dsQry,hQueryDefault,sQl) THEN
    TABLE_generica..BrowsedFile = dsQry
END


BuildBrowsingTable(TABLE_generica,dsQry,taFillTable)
TableDisplay(TABLE_generica,taInit)


Tabela Visao

Tabela Visao


MyView is Data Source

IF HCreateView(MyView,cliente,"id_cliente,nome_fantasia,valor_contrato ","valor_contrato","id_empresa=1",hViewDefault) THEN
    IF HReadSeekFirst(MyView,id_cliente,3) THEN
        MyView.nome_fantasia = "teste"
        HModify(MyView)           
    END
    BuildBrowsingTable(TABLE_visao,MyView,taByLogicalOrder+taFillTable)
END


segunda-feira, 30 de março de 2015

Botao Trocar Configuracoes

Botao Trocar Configuracoes

Windev Nivel Descricao Operacao

Windev  Nivel Descricao Operacao


IF TABLE_operacao.COL_Nivel=1 THEN
   TABLE_operacao[CurrentSubscript()]..Color = LightRed
END
IF TABLE_operacao.COL_Nivel=2 THEN
   TABLE_operacao[CurrentSubscript()]..Color = LightBlue
END
TABLE_operacao.COL_Nome = RepeatString(" ", TABLE_operacao.COL_Nivel * 2) + TABLE_operacao.COL_Nome



WebDev OOP - de Siltar

VIDEO - http://screencast.com/t/w9xyfi9bwlW






Windev Classe


Nesse 2 video e blog , mostro como iniciar a fazer uma classe.
Vou Pegar a Inclusao/Alteracao/Exclusao, e fazer delas uma classe.3,4
Vou mostrar como instanciar uma classe e usala










amarildo@matosinformatica.com.br





sábado, 28 de março de 2015

Windev Tabela Multiselecao Via Programacao

Windev Tabela Multiselecao Via Programacao

TABLE_Tecnico..Multiselection = True



Windev Grafico - Criar baseado numa tabela

Windev Grafico - Criar baseado numa tabela

Para Criar um Grafico em cima duma tabela faça o seguinte:

No lado da tabela Criada

crie um grafico

  Creater
       chart
          Escolha um grafico

 Creating a Char Control
   Source
     Escolha Table Column

   Data
     Escolha o campo que sera mostrado legenda

Source Files
  Adicione
    Source
      mude para table Column

   Data
    escolha o campo que sera para o grafico

   Esta pronto é so rodar o programa









Compartilhar na rede usb Windev/Webdev/WindevMobile

Para compartilhar
instale server, e escolhe usb que quer compartilhar
no outro computador instale client, e compartilhe



http://www.incentivespro.com/usb-redirector.html#quick-start - server
http://www.incentivespro.com/helps/usb-redirector-client/





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
==




































Teste

Teste
teste