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

CADASTRO_GERAL LER

CADASTRO_GERAL LER

        HReadSeekFirst(cadastro_geral,cadastro_geral.id_cadastro_geral,gdsQry.cli_id_cadastro_geral)
        IF HFound(cadastro_geral) THEN
            sNome_empresa=cadastro_geral.id_razao_social_nome
        ELSE
            sNome_empresa=gdsQry.cli_fantasia // Nao existe no cadastro geral
        END

HORA - PEGAR HORA,MINUTOS,SEGUNDOS

HORA - PEGAR HORA,MINUTOS,SEGUNDOS

//EDT_HORA = NOW()
tHORA_ATUAL is Time
tHORA_ATUAL=EDT_HORA
EDT_RESULTADO = tHORA_ATUAL..Hour + " HORAS "
EDT_RESULTADO = EDT_RESULTADO + tHORA_ATUAL..Minute + " MINUTOS "
EDT_RESULTADO = EDT_RESULTADO + tHORA_ATUAL..Second + " SEGUNDOS "

Ler Empresa_parametro_iss

Ler Empresa_parametro_iss

HReadSeekFirst(empresa_parametro_iss,empresa_parametro_iss.id_empresa, ...
                           TABLE_empresas.COL_id_empresa)
IF HFound(empresa_parametro_iss) THEN
ELSE
END

LISTBOX

LISTBOX

1. Criar Variavel
       gnPrimeiravez_fornecedores is int

2.  Inicializacao tabela
     gnPrimeiravez_fornecedores=0

    Selecting a row Tabela

 IF gnPrimeiravez_fornecedores=0 THEN
   gnPrimeiravez_fornecedores=1
ELSE
   gnProcura_lista = ListSeek(LIST_fornecedores,TABLE_QRY_relatorio_fornecedor.COL_Id_fornecedor)
   IF gnProcura_lista=-1 THEN // nao achou grava
        ListAdd(LIST_fornecedores,TABLE_QRY_relatorio_fornecedor.COL_Id_fornecedor)
    ELSE
        ListDelete(LIST_fornecedores,gnProcura_lista)
    END
END
3. botao de seleciona

FOR ALL SELECTED ROW OF TABLE_QRY_relatorio_fornecedor
    gnProcura_lista = ListSeek(LIST_fornecedores,TABLE_QRY_relatorio_fornecedor.COL_Id_fornecedor)   
    IF gnProcura_lista=-1 THEN // nao achou grava
        ListAdd(LIST_fornecedores,TABLE_QRY_relatorio_fornecedor.COL_Id_fornecedor)
    END
END

4. antes de listar para selecionar
gsFiltro_fornecedor=""

i_quantos is int=0
i_quantos=ListCount(LIST_fornecedores) // numero de elementos

i is int=0
FOR i =1 TO i_quantos
    ListSelectPlus(LIST_fornecedores,i)      // marcando para selecionar
END
FOR ALL SELECTED ROW OF LIST_fornecedores
    gsFiltro_fornecedor+=[","]+LIST_fornecedores..DisplayedValue          
END

ARRAY

ARRAY

RELATORIO QUERY - DATA SOURCE

RELATORIO QUERY - DATA SOURCE

Relatorio Query

Relatorio Query

Menu Max

Menu Max

Para fazer esse menu, clique em Style
  Em max

Dll Terceiros Daruma

Dll Terceiros Daruma

http://189.113.6.131/w_pedroso

Numero 47

Strings de Conexao

Strings de Conexao

Video aula pedrosao 76 75

http://189.113.6.131/w_pedroso

Numero 76
75
 58
53

List Box

List Box

//criar listbox
ListAdd(LIST_BOX,"JAN")
ListAdd(LIST_BOX,"FEV")
ListAdd(LIST_BOX,"MAR")
ListAdd(LIST_BOX,"ABR")
ListAdd(LIST_BOX,"MAIO")
ListModify(LIST_BOX,"JAN MODIFICOU",1)
ListDelete(LIST_BOX,2)

//BUSCA UMA SELECAO
nINDEX is int
sRESULTADO is string
nINDEX = ListSelect(LIST_BOX) // INFO(nINDEX) // MOSTRA O NUMERO ONDE ESCOLHEU , NO CASO 2
sRESULTADO=LIST_BOX[nINDEX] // INFO(sRESULTADO) // MOSTRA O RESULTADO DO ESCOLHIDO NO CASO MAR
//BUSCA UMA SELECAO

//BUSCAR VARIOS
nINDEXTODOS is int
nRank is int // rank da selecao
nRank=1
//choice é um vetor de strings contendo as selecoes
arrEscolhas is array of 12 numeric
sFiltro is string

FOR ALL SELECTED ROW OF LIST_BOX
    sFiltro+=[";"]+LIST_BOX..DisplayedValue
END
Info(sFiltro)
//BUSCA

SqlExec

SqlExec

HexecuteQuery - Percorrer

HexecuteQuery - Percorrer

HexecuteQuery - Insert / Delete

HexecuteQuery - Insert / Delete

Combox ListAdd - Popular

Combox ListAdd - Popular
---------------------------------------------------------------------------------------------------------------
Combox - Editavel
Combox - Ensinando
Combox - Estado Grava Uf
Combox - Limpar informações
Combox - Popular Manualmente
Combox - Selecionar
---------------------------------------------------------------------------------------------------------------

ComBox Selecionar

ComBox
---------------------------------------------------------------------------------------------------------------
Combox - Editavel
Combox - Ensinando
Combox - Estado Grava Uf
Combox - Limpar informações
Combox - Popular Manualmente
Combox - Selecionar
---------------------------------------------------------------------------------------------------------------

HExecuteQuery - Proximo Codigo

HExecuteQuery- Proximo Codigo

QRY_PROXIMO_CAD_GERAL

SELECT
    MAX(cadastro_geral.id_cadastro_geral) AS maximum_id_cadastro_geral
FROM
    cadastro_geral

========================================================================
PROCEDURE proximo_codigo_cadastro_geral()
HExecuteQuery(QRY_proximo_cad_geral,hQueryDefault)
HReadFirst(QRY_proximo_cad_geral)
WHILE NOT HOut
    HReadNext(QRY_proximo_cad_geral)
    RESULT = QRY_proximo_cad_geral.maximum_id_cadastro_geral + 1
END

========================================================================
 ScreenToFile()

// If it's a new record
IF cadastro_geral..NewRecord = True THEN
    cadastro_geral.id_cadastro_geral=proximo_codigo_cadastro_geral()
    HAdd(cadastro_geral)
ELSE
    // Modify it
    HModify(cadastro_geral)
END

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

HexecuteSqlQuery

HexecuteSqlQuery


// If it's a new record
IF cadastro_geral..NewRecord = True THEN
   
    nProximo_codigo is numeric
    nGnNumeroconexao is int = SQLConnect("localhost","postgres","matos","matos","PostgreSQL")
    ds is Data Source
    sQuery is string = [
        SELECT Max(id_cadastro_geral) FROM cadastro_geral
    ]  
    SQLExec(sQuery,ds)
    WHILE SQLFetch(ds) =  0
        nProximo_codigo=SQLGetCol(ds,1)
    END
    nProximo_// Read the information entered
ScreenToFile()
codigo++
    cadastro_geral.id_cadastro_geral=nProximo_codigo
   
    HAdd(cadastro_geral)
ELSE
    // Modify it
    HModify(cadastro_geral)
END

// Return value of the window
MyWindow..ReturnedValue = True

Tabela - Form - Alterar ou Excluir

Tabela - Form - Alterar ou Excluir

Caso eu fazer uma tabela por programacao, ou por query
na hora de modificar ou excluir o cadastro tenho de fazer o seguinte:

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

IF TableSelect(TABLE_cliente)=-1 THEN RETURN

HReset(cliente)
HReadSeekFirst(cliente,id_cliente,TABLE_cliente.COL_IdCliente)
IF HFound(cliente) THEN
    // Open the form of cliente file in modification mode
    Open(WIN_Form_cliente)
    // Refresh the table
    TableDisplay(TABLE_cliente,taCurrentSelection)
END

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

HReset(cliente)
HReadSeekFirst(cliente,id_cliente,WIN_Table_cliente.COL_IdCliente)
IF HFound(cliente) THEN
   
END

Tabela Manual

Tabela Manual

c is Control
IF ControlExist("TABELA") THEN ControlDelete("TABELA")
c <- ControlCreate("TABELA",typTable,EDT_A,EDT_B,MyWindow..Width-EDT_C,MyWindow..Height-EDT_D)
c..Anchor = anchorHeight + anchorWidth
c..Opacity=95
//MOSTRA OS DADOS DO ARQUIVO EM TABELA
//BuildBrowsingTable("TABELA",cliente,taFillTable+taItemCaption)
QRY_RECEBER_VENCIDAS.Param_id_empresa=1//gnEmpresaCodigo
QRY_RECEBER_VENCIDAS.Param_data_hoje=dAta_hoje
HExecuteQuery(QRY_RECEBER_VENCIDAS)
BuildBrowsingTable("TABELA",QRY_RECEBER_VENCIDAS,taFillTable+taItemCaption)
cySoma is currency = 0
TableSort("TABELA","-_COL2")
{"TABELA"}..TotalsEnabled = True
FOR EACH ROW OF {"TABELA"}
    cySoma += {"_COL3"}..Value   
END
TableAddLine(c,"Total->","",cySoma)