Windev21 Aulas,Estudos e Desenvolvimento

sexta-feira, 14 de agosto de 2015

VIDEO - RELATORIO MANUAL - 1/...

TABELA PERCORRER E FILTAR

condicao_pagamento.id_condicao_pagamento=6

FOR EACH condicao_pagamento_parcela WHERE "condicao_pagamento_parcela.id_condicao_pagamento=" + condicao_pagamento.id_condicao_pagamento
Info(condicao_pagamento_parcela.id_parcela)
END

// for each sem condicao
FOR EACH viagem_detalhes WHERE "viagem_detalhes.data_emissao>="+d_data_inicial+" and viagem_detalhes.data_emissao<="+d_data_final
    // ver placa
    n_grava_array=0
    ArraySort(arr_lista,asAscending)
    FOR x=1 TO arr_lista..Occurrence // percorre todos os array
        IF arr_lista[x]=viagem_detalhes.placa THEN
            n_grava_array=1
            BREAK
        END
    END
    IF n_grava_array=0 THEN
        ArrayAddLine(arr_lista,viagem_detalhes.placa)
    END
END

Windev - Imprime Relatorio em Pdf, e Grava Diretorio Corrente

Vou Explicar como Gerar um Relatorio em Pdf, e Gravar ele no diretorio Corrente

Video - Windev - Imprime Relatorio em Pdf, e Grava Diretorio Corrente

Windev - Imprimir Em Pdf

Nessa dica, é para mostrar como gerar um Pdf em Cima dum relatorio

Simplesmente coloque iDestination(iPDF,"E:\DESTINO\NOME.PDF")

TABELA - PERCORRER TABELA

TABELA - PERCORRER TABELA

    FOR ALL ROW OF TABLE_itens_vendidos
        xProximo_orcamento_iten++
        HReset(pedido_iten)
        pedido_iten.id_pedido_item_geral=xProximo_orcamento_iten
        pedido_iten.id_pedido=EDT_Id_orcamento
        pedido_iten.sequencia_digitacao=TABLE_itens_vendidos.COL_Sequencia
        pedido_iten.referencia_material=TABLE_itens_vendidos.COL_REFERENCIA
        pedido_iten.id_material=TABLE_itens_vendidos.COL_CODIGO_MATERIAL
        pedido_iten.observacao=TABLE_itens_vendidos.COL_OBSERVACAO
        pedido_iten.quantidade=TABLE_itens_vendidos.COL_QUANTIDADE
        pedido_iten.valor_venda=TABLE_itens_vendidos.COL_VALOR_UNITARIO
        pedido_iten.valor_produtos=TABLE_itens_vendidos.COL_VALOR_PRODUTOS
        pedido_iten.valor_ipi_percentual=TABLE_itens_vendidos.COL_PERCENTUAL_IPI
        pedido_iten.valor_ipi=TABLE_itens_vendidos.COL_VALOR_IPI
        pedido_iten.valor_total=TABLE_itens_vendidos.COL_VALOR_TOTAL
        IF HAdd(pedido_iten) = False THEN
            Error("Nao Adicionou Pedido iten")
        END
    END
    Info("gravou Pedido Numero => " + pedido.id_pedido)

amarildo@matosinformatica.com.br

Imprimir Observacao, varias linhas

Imprimir Observacao, varias linhas

Para o campo ser impresso em varias linhas ate o final do conteudi,
ir em propriedades do campo observacao
Ir Gui
Marcar Multiline
Marcar Auto-sizable

WX - Roteiro para instalação dos produtos PcSoft

WX - Roteiro para instalação dos produtos PcSoft - Por Adriano Boller

WebDev - Curso - 5/... - Menu

Nessa aula , vou ensinar como Fazer Menus

Video - WebDev - Curso - 5/... - Menu

quinta-feira, 13 de agosto de 2015

WindevMobile Postgres WebService

WindevMobile Postgres WebService

Assistir Video Windev Mobile - Postgres Webservice

Abaixo vou colocar os passos que segui para funcionar ..no emulador, e no celular consultando postgres no servidor.

1. Fiz duas configuracoes, uma para emulador e outra para celular

Essa funciona no celular

no servidor tem de colocar o endereco http://....// que foi criado pelo webdev Application Server

http://5a8cwkszen isso ele fornece na instalacao do application server

o ip, tive de usar o ip interno do servidor

No emulador
o Servidor coloquei localhost
e o ip coloquei o ip do servidor

Aqui é a conexao
uso sqlconnectWs para conectar

Abaixo o emulador funcionando

=============================
Uma coisa muito importante é o passo do instalador, vou passar o que me lembro, pois fiz tantas coisas, e posso ter me passado em algo.
no diretorio C:\WinDev 19\Install\WDRServer
tem o programa
WX190PACKRSRV.exe
que tem de ser executado dentro do servidor.

Nesse passo somente instalo o webservice

aqui e

============
outra coisa importante que fiz, foi alterar no postgres no servidor duas configuracoes

No Postgressql.conf, que se encontra em
c:\postgres\versao\data
altere o seguinte:

listen_addresses = '*'

No pg_hba.conf
altere o seguinte:
acrescente :
host all all 0.0.0.0/0 trust
tatno no ipv4 como ipv6

Acho que ´e isso..

Ate Mais

Windev Email - Gmail - Terra

Assista ao Video Sobre Windev Email Gmail / terra

-------------------Fonte-----------------------------------------------------------------------------
//Configuração Gmail
    //EDT_Usuario="amarildo.matos@gmail.com"
    //EDT_senha="xxxx"
    //EDT_servidor_smtp="smtp.gmail.com"
    //EDT_porta=587
    //COMBO_tls=1 // 1=false 2=Nenhuma opção

//Configuração Terra
    //EDT_Usuario="matosi@terra.com.br"
    //EDT_senha="xxxx"
    //EDT_servidor_smtp="smtp.nho.terra.com.br"
    //EDT_porta=587
    //COMBO_tls=2 // 1=false 2=nenhuma opção

EmailSetTimeOut(30)
   //http://doc.windev.com/?3032001&lang=en-US&productversion=xxA190056s
   //Altera o valor do "time-out" para a conexão com os servidores SMTP, POP3 e IMAP mensagens.
   //O valor do "time-out" é definido como 10 minutos por padrão. Este valor é devolvido pelo
   // EmailGetTimeOut.
   //Lembrete : O tempo limite é a quantidade máxima de tempo permitido enquanto espera por uma resposta
   //do servidor de mensagens. Se o servidor não responder dentro desse tempo limite, a conexão falha.

HourGlass()
//http://doc.windev.com/?3071011&lang=en-US&productversion=xxA190056s
//Transforma o cursor do mouse em uma ampulheta (e vice-versa).

n_email_sessao is boolean
SWITCH COMBO_tls
    CASE 1
        n_email_sessao=EmailStartSMTPSession(EDT_Usuario,EDT_senha,EDT_servidor_smtp,EDT_porta,False,emailOptionSecuredTLS)
    CASE 2
        n_email_sessao=EmailStartSMTPSession(EDT_Usuario,EDT_senha,EDT_servidor_smtp,EDT_porta)
END

IF n_email_sessao=True THEN
    _minha_mensagem is Email // est un Email
    _minha_mensagem..Expediteur = EDT_Usuario
    Add(_minha_mensagem..Destinataire, EDT_destinatario) // Ajoute

    _minha_mensagem..Sujet = EDT_assunto
    _minha_mensagem..Message = EDT_mensagem
    _minha_mensagem..AccuséRéception = Vrai

    IF EDT_anexo <> "" AND Length(EDT_anexo) > 3 THEN
        EmailLoadAttachment(_minha_mensagem,EDT_anexo)
    END
    // Manda a mensagem
    IF EmailSendMessage(EDT_Usuario, _minha_mensagem) = False
        ToastDisplay(Error(),toastLong,vaMiddle,haCenter)
    ELSE
        ToastDisplay("Email enviado com sucesso!",toastLong,vaMiddle,haCenter)
    END
    EmailCloseSession(EDT_Usuario)
         // Fecha a Sessão
ELSE
    ToastDisplay(Error("Não é possível estabelecer conexão // ", ErrorInfo(), ...
    "Em caso de time-out, verificar os parâmetros da "+ ...
    """Firewall"" na porta usada (587)"),toastLong,vaMiddle,haCenter)
END
HourGlass(False)
-------------------Fonte-----------------------------------------------------------------------------
------------------- GMAIL NAO FUNCIONAVA ---------------------------------------------
Quando fui fazer teste meu gmail, nao funcionava, e foi descobrir, que na minha
configuração do Gmail, estava para nao aceitar servico de fora, ai desabilitei isso.
Somente descobriu isso, pois testei o gmail, de outro e funcionou.
------------------------------------------------------------------------------------------------------

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/2-boas-vindas-forum-oficial-comunidade-brasileira-primeiro-exemplo/read.awp

DATA SOMAR DIAS

DATA SOMAR DIAS

nDATA is int
nDATA = DateToInteger(EDT_data)
nDATA +=EDT_DIAS
EDT_data_nova = IntegerToDate(nDATA)

CRIAMOS UMA VARIAVEL INTEIRA,
FIZEMOS A CONVERSAO DA DATA PARA INTEIRO,
SOMAMOS OS DIAS,
E DEPOIS LEVAMOS PARA DATA NOVA CONVERTENDO PARA DATA

Páginas