Dashboard

Dashboard

http://www.thenextage.com/wordpress/uncle-petes-corner-windev-dashboards/#more-2354

For

For

Ajax

Ajax

http://www.thenextage.com/wordpress/uncle-petes-corner-a-couple-of-webdev-tips/

String Html

String Html

Timer

Timer

Deletar item e Vários

Deletar item e Vários

facebook, gmail, twitter

facebook, gmail, twitter

la LST 92 esta explicado como integrar con facebook, gmail, twitter

HReadSeek

HReadSeek

Looper

Looper

LOOPER
[05/12/2014 15:28:40] trionika: este codigo te ayudara. gnRecClie = LooperSelect(LOOP_Clientes)
HReadSeekFirst(clientes,cod_cliente,LOOP_Clientes[gnRecClie].EDT_CodClie)
[05/12/2014 15:29:21] trionika: es asi como vas a obtener la posicion (registro) dentro del LOOPER para tomar un campo de èl

Enter - Trocar Tab Por Enter Windev

Enter - Trocar Tab Por Enter Windev

Para trocar Tab por Enter

Entre nas Propriedades do Botal Gravar

Na Guia Gui

Type

Troque de Validate para Normal

TIMERSYS

TIMERSYS

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

 TimerSys("matos_timer",100)

    // CHAMA A PROCEDURE MATOS_TIMER
   //  E EXECUTA DE TANTO EM TANTO TEMPO

=============================================
PROCEDURE matos_timer()

xml_arquivo is string = "c:\importa\964-env-loterps-ret.xml"
IF fLoadText(xml_arquivo)="" THEN
    EDT_criaXml="Aguarde....."
    // CASO NAO ACHAR O ARQUIVO, AGUARDAR
ELSE
    EDT_criaXml=fLoadText(xml_arquivo)
    EndTimerSys()
   // CASO ACHO OU ARQUIVO TERMINE O PROCESSO , TIMER
END

cliente consulta

cliente consulta

PROCEDURE matos_consulta_cliente()
gsSQL = [
    select
    cliente.id_cliente as cli_id_cliente,
    cadastro_geral.id_razao_social_nome as cad_razao_social,
    cliente.id_cliente,
    cliente.nome_fantasia as cli_nome_fantasia,
    cliente.id_representante as cli_id_representante,
    representante.nome_fantasia as rep_nome_fantasia
    from
    cliente
    INNER JOIN cadastro_geral on (cliente.id_cadastro_geral=cadastro_geral.id_cadastro_geral)                     
    INNER JOIN representante on (representante.id_representante=cliente.id_representante)                     
    where
    cliente.id_empresa=%1
]
gsSQL = StringBuild(gsSQL,gnEmpresaCodigo)
//info(gsSQL)
TableDeleteAll(TABLE_CONSULTA_CLIENTE)
IF HExecuteSQLQuery(gdsQry,hQueryDefault,gsSQL) THEN
    HReadFirst(gdsQry)
    WHILE NOT HOut()
        TableAddLine(TABLE_CONSULTA_CLIENTE,gdsQry.cli_id_cliente,gdsQry.cad_razao_social,gdsQry.cli_id_representante,gdsQry.rep_nome_fantasia)
        HReadNext(gdsQry)
    END
    HFreeQuery(gdsQry)     
END
TableDisplay(TABLE_CONSULTA_CLIENTE)

//
//sCnpj is string
//
//TableDeleteAll(TABLE_cliente)
//QRY_tab_cliente.Param_id_empresa=gnEmpresaCodigo
//HExecuteQuery(QRY_tab_cliente)
//FOR EACH QRY_tab_cliente
//    IF QRY_tab_cliente.juridica_fisica=1 THEN
//        sCnpj = Left(QRY_tab_cliente.id_inscricao_cnpj_cpf,2) + "." + Middle(QRY_tab_cliente.id_inscricao_cnpj_cpf,3,3) + "." + Middle(QRY_tab_cliente.id_inscricao_cnpj_cpf,6,3) + "." + Middle(QRY_tab_cliente.id_inscricao_cnpj_cpf,9,4) + "-" + Middle(QRY_tab_cliente.id_inscricao_cnpj_cpf,13,2)
//    ELSE
//        sCnpj = QRY_tab_cliente.id_inscricao_cnpj_cpf
//    END

MATERIAL LER

MATERIAL LER

    HReadSeekFirst(material,material.id_material,codigo_material)

 Material ler chave

    HReadSeekFirst(material,material.chave_empresa_material,[empresa,cod_material])

Proximo Codigo

Proximo Codigo

gsSQL = [
    SELECT
    Max(material.id_material) AS ultimo
    FROM
    material
]
EDT_Id_material=1
IF HExecuteSQLQuery(gdsQry,hQueryDefault,gsSQL) THEN
    HReadFirst(gdsQry)
    EDT_Id_material=gdsQry.ultimo+1
END
gsSQL = [
    SELECT
    Max(material.id_empresa_material) AS ultimo
    FROM
    material
    where id_Empresa=%1
]
gsSQL = StringBuild(gsSQL,gnEmpresaCodigo)
EDT_Id_empresa_material=1
IF HExecuteSQLQuery(gdsQry,hQueryDefault,gsSQL) THEN
    HReadFirst(gdsQry)
    EDT_Id_empresa_material=gdsQry.ultimo+1
END

CLIENTE LER

CLIENTE LER

//ler cliente
HReadSeekFirst(cliente,cliente.id_cliente,TABLE_cliente.COL_Id_cliente)
IF HFound(cliente) THEN
    Open(WIN_Form_cliente)
END