Windev21 Aulas,Estudos e Desenvolvimento

quinta-feira, 2 de abril de 2015

Pane - MyWindow..Plane=3 = WIN_menu_financeiro_matos..Plane=1

Pane

WIN_menu_financeiro_matos..Plane=1

MyWindow..Plane=3

Alterar a Foto no forum Oficial Windev

VIDEO SOBRE ALTERAR FOTO

http://forum.pcsoft.fr/pt-BR/

Windev20 - Saiba como Criar uma plania em 3 minutos

---------------------------------------------------------------------------------------------------------------
Excel - ler Excel e Grava Tabela e Lista
Excel - Ler e Exportar Para Txt
Excel - Excel e Array
Excel - Ler Tabela e Coloca Excel
Excel - Como Criar Planilha 3 Minutos - Windev 20
----------------------------------------------------------------------------------------------------------------

Excel Le e Gravar Array Numero Crescente

Excel Le e Gravar Array Numero Crescente

Idarquivoexcel is int
nUmerolinhas is int
Listanumeros is array of 0 int
jogo_num is int
Idarquivoexcel = xlsOpen("D:\aleva\LOTO\loto.xls")
IF Idarquivoexcel<>-1 THEN
    nUmerolinhas=xlsNbRow(Idarquivoexcel)
ELSE
    Error(ErrorInfo())
END
i is int = 0
FOR i = 3 TO nUmerolinhas
    ArrayDeleteAll(Listanumeros)
    FOR c = 1 TO 20
        ArrayAddLine(Listanumeros,xlsData(Idarquivoexcel,i,c))
    END
    ArraySort(Listanumeros,asAscending)
    jogo_num=xlsData(Idarquivoexcel,i,1)
    HReadSeekFirst(resultado,resultado.numero_jogo,jogo_num)
    IF HFound(resultado) THEN
    ELSE
        HAdd(resultado)
    END
    resultado.num_01=Listanumeros[1]
    HModify(resultado)
END
// caso eu quisesse fazer um loop no array de numeros
//    FOR x =1 to ArrayCount(Listanumeros)
//        Info(Listanumeros[x])
//    END

Excel Ler Linha/Coluna

Excel Ler Linha/Coluna

Idarquivoexcel is int
nUmerolinhas is int

Idarquivoexcel = xlsOpen("D:\aleva\LOTO\loto.xls")
IF Idarquivoexcel<>-1 THEN
    nUmerolinhas=xlsNbRow(Idarquivoexcel)
    Info(nUmerolinhas)

ELSE
    Error(ErrorInfo())
END
i is int = 0
FOR i = 3 TO nUmerolinhas
    Info(xlsData(Idarquivoexcel,i,1))
    Info(xlsData(Idarquivoexcel,i,2))
END

Excel

Windev Tabela Excel

Windev Tabela Excel

Fonte :Video Aula Pedrosao
Aula 112
Quase no final do video

Windev - Le Excel , Monta e Mostra Tabela e Lista

Assista ao Video Sobre Windev Le Excel Monta e mostra Tabela e Lista

----------------------------------------------------------------------------------------------------------------------
//--------------------------------------
// Excel Ler e Mostrar Tabela
// Excel Read and Show Table
// Lire et Excel Voir les tableaux
// Excel Leer y Mostrar tabla
//--------------------------------------
CAM_NoName1..Visible=False
_nome_arquivo_excel is int
    // nUmero_linhas
    // number lines
    // Nombre de lignes
    // Las rectas numéricas
nUmero_linhas is int
_nome_arquivo_excel = xlsOpen("D:\amarildo\MAURICIO_PEREIRA\Lista Clientes.xls")
    // Aqui estou abrindo o Arquivo Excel
    // Here I am opening Excel File
    // Ici, je suis l'ouverture du fichier Excel
    // Aquí estoy abriendo Archivo Excel
nUmero_linhas=xlsNbRow(_nome_arquivo_excel)
i is int = 3
    // Aqui eu verifico quantas linhas existe na planilha excel
    // Here I check how many rows exist in excel spreadsheet
    // Ici, je vérifie le nombre de lignes existent dans excel
    // Aquí puedo comprobar cuántas filas existen en hoja de cálculo Excel
FOR i = 3 TO nUmero_linhas
    // comeco a ler o excel na linha 3 onde eu encontro informacoes e vou ate o numero final de linhas
    // beginning to read excel in line 3 where I find informations and I will until the end number
    //                                                    of lines
    // commençant à lire exceller à la ligne 3 où je trouve des informations et je vais jusqu'à
    //                                                    ce que le numéro de fin de lignes
    // empezando a leer excel en la línea 3 donde encuentro informaciones y lo haré hasta que el
    //                                                           número final de las líneas
    TableAddLine(TABLE_excel,xlsData(_nome_arquivo_excel,i,1,Vrai), ...
                               xlsData(_nome_arquivo_excel,i,2,Vrai), ...
                               xlsData(_nome_arquivo_excel,i,3,Vrai), ...
                               xlsData(_nome_arquivo_excel,i,4,Vrai))
END

CAM_NoName1..Visible=True
----------------------------------------------------------------------------------------------------------------------

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

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

Mais informações »

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

Páginas

quinta-feira, 2 de abril de 2015

WindevMobile - SQLConnectWS WM(19) e Apache (Windows) - Willian Fernando

WindevMobile - SQLConnectWS WM(19) e Apache (Windows) - Willian Fernando

Pdf da Explicação SqlConnectWs Por Willian Fernando

SqlConnectWs - http://doc.pcsoft.fr/en-US

Pane - MyWindow..Plane=3 = WIN_menu_financeiro_matos..Plane=1

Diretorio Lista Arquivos

Delete Arquivo

Alterar a Foto no forum Oficial Windev

VIDEO SOBRE ALTERAR FOTO

Windev Exemplo Adriano/Angelo

Tabelas Exemplos

Windev20 - Saiba como Criar uma plania em 3 minutos

Excel Le e Gravar Array Numero Crescente

Excel Ler Linha/Coluna

Excel

Windev Tabela Excel

Windev - Le Excel , Monta e Mostra Tabela e Lista

Assista ao Video Sobre Windev Le Excel Monta e mostra Tabela e Lista

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

Tabela Generica

Tabela Visao

segunda-feira, 30 de março de 2015

Botao Trocar Configuracoes

Windev Nivel Descricao Operacao

WebDev OOP - de Siltar

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

Windev Classe

amarildo@matosinformatica.com.br

Teste

Marcadores