Windev21 Aulas,Estudos e Desenvolvimento

quarta-feira, 25 de janeiro de 2017

Aula 1047 - Dicas 15/... - Clone Tabela - Meses com Varios Anos -

Video no Youtube Se Gostou clique aqui para dar joinha

Help1

Backup e Restore Projeto Windev - 001
Dicionario e Supecontrole - 002
Cd - CdEject CdList - Abre e Lista CD - 003
Dicionario e SuperControle - 004
Cnpj - Formatar com Pontos Barra Ifen - 005
Controlfindhighlight - Pesquizar Palavras entre edts - 006
Som - Emitir - Beep - 007
Valor Minimo e Maximo - MinValue / MaxValue - Dicas - 008
Vazio - Empty - Ver se combox,tabela,ou etc Esta Vazio - 009 - Dicas
Pdf - Ler Pdf com Active X - 010
Baixar Titulos Contas Receber - Dica - 011
Saldo Anterior Caixa - Como Calcular - Dica - 012
Anos - Mostrar Anos Pagamentos Recebimentos - Dica - 013
Mes Por Extenso - MonthNumberInAlpha - Dicas - 014
Clone Tabela - Meses com Varios Anos - Dicas - 015
Tecla Atalho - Control + Alt + Espaco - WinDev - dicas - 016/...

Aula 1047 - Dicas 15/... - Clone Tabela - Meses com Varios Anos -

// Nessa aula vou ensinar como fazer uma tabela com meses, e no
// Lado varios anos de valores acumulados

// Qry_clone_dados_ano_dup_rec
// Select com Valores Acumulados por Anos

SELECT
    LEFT(duplicata_receber.data_vencimento,4) AS ano,
    SUBSTR(duplicata_receber.data_vencimento,5,2) AS mes,
    SUM(duplicata_receber.valor_titulo) AS sum_valor_titulo,
    duplicata_receber.id_empresa AS id_empresa
FROM
    duplicata_receber
WHERE
    LEFT(duplicata_receber.data_vencimento,4) IN ({Param_ano})
    AND    duplicata_receber.id_empresa = {Param_id_empresa}
GROUP BY
    LEFT(duplicata_receber.data_vencimento,4),
    SUBSTR(duplicata_receber.data_vencimento,5,2),
    duplicata_receber.id_empresa
ORDER BY
    ano ASC,
    mes ASC

// Qry_Clone_Dup_Receber
// Mostra Somente os anos

SELECT DISTINCT
LEFT(duplicata_receber.data_pagamento,4) AS ano
FROM duplicata_receber
WHERE duplicata_receber.id_empresa={PARAM_ID_EMPRESA}
ORDER BY ano ASC

//Codigo da Janela
//Recebimentos
//Ver os Anos que Existem

QRY_Clone_Dup_Receber.PARAM_ID_EMPRESA=gnEmpresaCodigo // Que Sera igual a 1
TableDisplay(TABLE_QRY_Clone_Dup_Receber,taReExecuteQuery) // Vou Mostrar conteudo Tabela

segunda-feira, 23 de janeiro de 2017

Aula 1046 - Dicas 14/... - Mes Por Extenso - MonthNumberInAlpha

Video no Youtube Se Gostou clique aqui para dar joinha

//Nessa aula vou ensinar como pegar o mes por extenso

//Percorrer do 1 até o 12
FOR n_mes=1 TO 12
    s_mes_extenso is string=MonthNumberInAlpha(n_mes)
    //Estou Colocando o mes por extenso
    TableAddLine(TABLE_Mes,n_mes,s_mes_extenso)
END

http://doc.windev.com/en-US/?1000019907&name=monthnumberinalpha_function

Anos - Mostrar Anos Pagamentos Recebimentos - Dica - 013
Backup e Restore Projeto Windev - 001
Baixar Titulos Contas Receber - Dica - 011
Cd - CdEject CdList - Abre e Lista CD - 003
Clone Tabela - Meses com Varios Anos - Dicas - 015
Cnpj - Formatar com Pontos Barra Ifen - 005 Controlfindhighlight Pesquizar Palavras entre edts 006
Dicionario e Supecontrole - 002
Dicionario e SuperControle - 004
Mes Por Extenso - MonthNumberInAlpha - Dicas - 014
Pdf - Ler Pdf com Active X - 010
Saldo Anterior Caixa - Como Calcular - Dica - 012
Som - Emitir - Beep - 007
Valor Minimo e Maximo - MinValue / MaxValue
Vazio - Empty - Ver se combox,tabela,ou etc Esta Vazio - 009 - Dicas

Aula 1045 - Dicas 13/... - Mostrar Anos Pagamentos Recebimentos

Video no Youtube Se Gostou clique aqui para dar joinha

//Nessa aula vou Mostrar como Mostrar
//Somente os anos dos Recebimentos e Pagamentos

// QRY_Clone_Dup_Receber

SELECT DISTINCT
LEFT(duplicata_receber.data_pagamento,4) AS ano
FROM duplicata_receber
WHERE duplicata_receber.id_empresa={PARAM_ID_EMPRESA}
ORDER BY ano DESC

// QRY_Clone_Dup_Pagar

SELECT DISTINCT
LEFT(duplicata_pagar.data_pagamento,4) AS ano
FROM duplicata_pagar
WHERE duplicata_pagar.id_empresa={PARAM_ID_EMPRESA}
ORDER BY ano DESC

//Codigo da Janela

//Recebimentos
QRY_Clone_Dup_Receber.PARAM_ID_EMPRESA=gnEmpresaCodigo // Que Sera igual a 1
TableDisplay(TABLE_QRY_Clone_Dup_Receber,taReExecuteQuery) // Vou Mostrar conteudo Tabela

//Pagamentos
QRY_Clone_Dup_Pagar.PARAM_ID_EMPRESA=gnEmpresaCodigo
TableDisplay(TABLE_QRY_Clone_Dup_Pagar,taReExecuteQuery)

sábado, 21 de janeiro de 2017

Aula 1044 - Xml - 7/... - UTF8ToString

Video no Youtube Se Gostou clique aqui para dar joinha

WinDev - Xml - 001/... Criar um Xml
WinDev - Xml - 002/... Ler Xml Aula 1/...
WinDev - Xml - 003/... Ler Xml Aula 2/...
WinDev - Xml - 004/... Ler Xml Aula 3
WinDev - Xml - 005/... XmlRead - Retirar Tag
WinDev - Xml - 006/... Sefaz Gratuito-Ler Xml Cliente/Gravar
WinDev - Xml - 007/... Utf8ToString
Ler Xml e Colocar Tabela - WinDev - Xml - 008/...

WinDev - Xml - 001/... Criar um Xml WinDev - Xml - 002/... Ler Xml Aula 1/...
WinDev - Xml - 003/... Ler Xml Aula 2/...
WinDev - Xml - 004/... Ler Xml Aula 3
Ler Xml e Colocar Tabela - WinDev - Xml - 008/...
Sefaz Gratuito-Ler Xml Cliente/Gravar - WinDev - Xml - 006/...
Tag Retirar - XmlRead - WinDev - Xml - 005/...
WinDev - Xml - 007/... Utf8ToString

Aula 1044 - Xml - 7/... - UTF8ToString

// Nessa aula vou mostrar como usar o Utf8toString
// quando recebo um xml com caractereres especiais

//<?xml version="1.0" encoding="UTF-8"?>
//<sistema xmlns="http://www.portalfiscal.inf.br/cte" versao="1.04">
// <cliente>
//    <CNPJ>08689024000292</CNPJ>
//    <ie>0010532400151</ie>
//    <xNome>VALLOUREC & SUMTOMO TUBOS DO BRASIL LTDA</xNome>
//    <xLgr>DT INDUSTRIAL</xLgr>
//    <nro>S/N</nro>
//    <xBairro>DTO INDUSTRIAL</xBairro>
//    <cMun>3135407</cMun>
//    <xMun>Jeceaba</xMun>
//    <uf>MG</uf>
//    <cep>35498000</cep>
//    <cPais>1058</cPais>
//    <xPais>BRASIL</xPais>
//    <fone>3121416563</fone>
// </cliente>
//</sistema>

EDT_xml=UTF8ToString(fLoadText("D:\amarildo\pedrosa\xml.xml"))

http://doc.windev.com/en-US/?3024043&name=utf8tostring_function

http://forum.pcsoft.fr/fr-FR/pcsoft.fr.windev/151029-wd17-xml-code-utf/read.awp

Aula 1043 - WebService - 006 - Consumir WebService - Ler Xml Colocar Tabela-

Video no Youtube Se Gostou clique aqui para dar joinha

Help1

Criar Projeto WebService - Lista Site - - WebService - 001/...
Deploy - Gerando WebService/Levando Servidor/Instalar/Mostrar - WebService - 002/...
Instalando SoapUI - Testar WebService - Aula 1040 - WebService - 003/...
Ajustando Xml Lista Site WebService - WebService - 004/...
Consumir WebService - WebService - 005
Xml - Consumir Ler Xml e colocar Tabela - WebService - 006
Dolar - Consumir WebService - Cotação Dolar - 007

Aula 1043 - WebService - 004 - Consumir WebService - Ler Xml Colocar Tabela-

1. Mostrar como Importar um WebService no WebDev22
2. Consumir o Servico Do Site
3. Colocar xml na TAbela

Fazer a Aula

PROCEDURE busca_site_webService()

SAI_retorno_xml = matos_webservice.Lista_Sites() //Aqui Vai retornar o Xml da Relação de Site

TableDeleteAll(TABLE_Site_WebService)//Limpar Conteudo Tabela
XMLDocument("XML",SAI_retorno_xml) //Abrindo Documento Xml
//SAI_retorno_xml=XMLRead("XML","/xml/retorno/empresa")
s_nome_tag is string=""
s_titulo is string=""
s_link is string=""
s_nome_atributo is string=""
s_id is string="" //Criando Variaveis que vou utilizar
XMLFind("XML",Null,XMLElément+XMLChildItem,XMLStartWith)
WHILE XMLFound("XML")
    SWITCH XMLElementType("XML")
        CASE XMLTag :
            s_nome_tag = XMLElementName("XML")
            IF s_nome_tag="titulo" THEN
                s_titulo=XMLData("XML")
            END
            IF s_nome_tag="titulo_link" THEN
                s_link=XMLData("XML")
            END
        CASE XMLAttribute :
            s_nome_atributo = XMLElementName("XML")
            IF s_nome_atributo="id" THEN
                s_id=XMLData("XML")
            END
        OTHER CASE
    END
    IF s_link<>"" THEN
        TableAddLine(TABLE_Site_WebService,s_id,s_titulo,s_link)        //Caso chegar no link, vamos criar a linha da tabela
        s_titulo=""
        s_link=""
        s_id=""
    END
    XMLNext("XML")
END
XMLClose("XML")

//Percorrer o Xml

//<xml>
//<retorno>
//<empresa>Amarildo de Matos</empresa>
//<site_uteis id="00001">
//<titulo>Matos Informatica</titulo>
//<titulo_link>www.matosinformatica.com.br</titulo_link>
//</site_uteis>
//<site_uteis id="00002">
//<titulo>Google</titulo>
//<titulo_link>https://www.google.com.br/?gws_rd=ssl</titulo_link>
//</site_uteis>
//</retorno>
//</xml>