sábado, 21 de fevereiro de 2015

Windev Funções para Tabelas

VIDEO - FUNCOES PARA TABELAS





----------------------------------------------------------------------------------------------------------------------
Functions for managing the Table controls - http://doc.windev.com

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


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

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







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






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









----------------------------------------------------------------------------------------------------------------------
// Cria Tabela
BuildBrowsingTable(TABLE_manual,fornecedor,taWithAutoId)

----------------------------------------------------------------------------------------------------------------------
//Cria Tabela usando Qry - Queue
BuildBrowsingTable(TABLE_manual,QRY_tabela_fornecedor,taFillTable)

----------------------------------------------------------------------------------------------------------------------
//Cria Tabela usando SQLQuery Manual
//------------------------------------------------//
//     Colocar essas variavel no Projeto Code     //
//              GLOBAL                            //
//                    gdsQry is data source       //
//                    gsSQL is string             //
//------------------------------------------------//


gsSQL = [
    SELECT
    fornecedor.id_fornecedor AS Id_Fornecedor,   
    fornecedor.nome_fantasia AS Razao_Social
    FROM
    fornecedor
    WHERE
    fornecedor.id_empresa = 1
    and fornecedor.id_fornecedor<1814
]

IF HExecuteSQLQuery(gdsQry,hQueryDefault,gsSQL) THEN
    BuildBrowsingTable(TABLE_manual,gdsQry,taFillTable)
    HFreeQuery(gdsQry)     
END


----------------------------------------------------------------------------------------------------------------------
//Ajuste Tabela
//TABLE_manual.COL_NoName1..BrushColor=DarkGreen
{ "TABLE_manual._COL1"}..Width=60
{ "TABLE_manual._COL1"}..Caption="Codigo"
{ "TABLE_manual._COL1"}..Color=DarkBlue

{ "TABLE_manual._COL2"}..Width=300
{ "TABLE_manual._COL2"}..Caption="Nome"
{ "TABLE_manual._COL2"}..BrushColor=DarkGreen

----------------------------------------------------------------------------------------------------------------------
//Acrescentar Linha Manual
IF EDT_codigo<>0 THEN
    TableAdd(TABLE_manual,EDT_codigo+TAB+EDT_Nome)   
    EDT_codigo=0
    EDT_Nome=""
END
SetFocus(EDT_codigo)

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

WM - Exemplo de como ler um arquivo txt no Windev Mobile

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/81-exemplo-como-ler-arquivo-txt-windev-mobile/read.awp




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

PROCEDURE ReadFile(ArquivoTxt is string, sTipoUnicodeToAnsi is string)

//Le arquivo texto
Info(TimeSys())

// Declare the variables
PathFile is string = ArquivoTxt
IdFile, ResCloseFile, FileID, NumeroLinha is int
Line is string

NextTitle("Atencao")

IF fFileExist(ArquivoTxt) = True
   
    // Open the file
    FileID = fOpen(PathFile,foReadWrite)
    IF IdFile = -1 THEN
        Error(ErrorInfo(errMessage))
    ELSE
       
        IF TipoAnsiUnicode = "UnicodeToAnsi"
            //Converte de Unicode para Ansi
            Line = UnicodeToAnsi(fReadLine(FileID))
        ELSE
            Line = fReadLine(FileID)
        END
       
        //Linha 1
        NumeroLinha = 1
        /// ----COLOQUE AQUI O PROGRESS BAR = 1
        //Info("Linha:" + NumeroLinha, Line) ///----------------- LINHA LIDA
        //Inclua aqui a SUB Procedure de importacao dos dados
       
        WHILE Line <> EOT AND Line <> ""
           
            //Proxima linha
            NumeroLinha += 1
            /// ----COLOQUE AQUI O PROGRESS BAR + 1
            Line = fReadLine(FileID)
            //Info("Linha:" + NumeroLinha, Line) ///----------------- LINHA LIDA
            //Inclua aqui a SUB Procedure de importacao dos dados
        END
        IF Line = "" THEN Error(ErrorInfo(errMessage))
        IF Line = EOT THEN Info("Final do Arquivo.")
        ResCloseFile = fClose(IdFile)
        IF ResCloseFile = -1 THEN
            //Error(ErrorInfo(errMessage))
        END
       
    END
   
ELSE
    Info("Arquivo não encontrado!")
END

Info(NumeroLinha,TimeSys())

WebDev - Retornar Lista Todas Pages - Dica Agostinho Barbosa





Comunidad Windev en Facebook

Comunidad Windev en Facebook


Hola a tod@s,

Somos distribuidores de Pcsoft en España.
Hemos creado un grupo en Facebook para la comunidad Windev, estáis invitados a uniros.

¡Únete!:
Puedes entrar a través de este link:
https://www.facebook.com/groups/463317133806320/…
O buscándonos como: Windev ¡Desarrolle 10 veces más rápido!

--
Salvador Soler.
María Soler.
Distribuidores de PcSoft en España.
www.windeveloper.es
s.soler@serival.es



Teste

Teste
teste