Windev21 Aulas,Estudos e Desenvolvimento

sábado, 7 de março de 2015

Configurando múltiplos sites no IIS 7.0 e 7.5

1

https://iisbrasil.wordpress.com/2011/07/22/configurando-multiplos-sites-no-iis-7-0-e-7-5/

sexta-feira, 6 de março de 2015

Tabela - For Each Bairro - Percorrer

quinta-feira, 5 de março de 2015

Windev - De TXT a FIC

VIDEO SOBRE TXT PARA HYPERFILE - DE Serival Informatica

Manuseio das String

Manuseio das String

http://doc.windev.com/?3024020

[WX] Trabalhando com datas, horas, verificando diferenças entre elas e somando minutos

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/149-trabalhando-com-datas-horas-verificando-diferencas-entre-elas/read.awp

adrianoboller

Membro registado
761 mensagems

Publicado em março, 04 2015 - 10:50 PM

###############################################################

Trabalhando com datas, horas, verificando diferenças entre elas e somando minutos

###############################################################

Procedure ws_verifica_hora_servidor(DataHoraMobile)

Q is int = 0

ok, DataHoraValida, OkConn is boolean = False

Resultado is string= ""

dsQryDataHora is Data Source

DataHoraServidor is string = ""

OkConn = HOpenConnection(ConnNativa)

//Valida intervalo valido

DataHoraServidorMaior, DataHoraServidorMenor, DataHoraMobileCompara is DateTime

//Data e Hora do Servidor

IF OkConn = True AND DataHoraMobile <> "" AND DataHoraMobile <> Null THEN

//Ex.: 20150304154034447

ok = HExecuteSQLQuery(dsQryDataHora, ConnNativa, hQueryWithoutCorrection,"Select CURRENT_TIMESTAMP as datahoraatual")

IF ok = True THEN

FOR EACH dsQryDataHora

DataHoraServidor = dsQryDataHora.datahoraatual

END

END

//Tamanho padrao

IF Length(DataHoraMobile) < 17 THEN

Q = 17 - Length(DataHoraMobile)

DataHoraMobile = DataHoraMobile + RepeatString("0", Q)

END

IF Length(DataHoraServidor) < 17 THEN

Q = 17 - Length(DataHoraServidor)

DataHoraServidor = DataHoraServidor + RepeatString("0", Q)

END

//Ex.: 20150304154034000

//     12345678901234567

DataHoraServidorMaior..Year    = Middle(DataHoraServidor,01,04)

DataHoraServidorMaior..Month   = Middle(DataHoraServidor,05,02)

DataHoraServidorMaior..Day     = Middle(DataHoraServidor,07,02)

DataHoraServidorMaior..Hour    = Middle(DataHoraServidor,09,02)

DataHoraServidorMaior..Minute  = Middle(DataHoraServidor,11,02)

DataHoraServidorMaior..Minute += 30 //+30 min 

//Ex.: 20150304154034000

//     12345678901234567

DataHoraServidorMenor..Year    = Middle(DataHoraServidor,01,04)

DataHoraServidorMenor..Month   = Middle(DataHoraServidor,05,02)

DataHoraServidorMenor..Day     = Middle(DataHoraServidor,07,02)

DataHoraServidorMenor..Hour    = Middle(DataHoraServidor,09,02)

DataHoraServidorMenor..Minute  = Middle(DataHoraServidor,11,02)

DataHoraServidorMenor..Minute -= 30 //-30 min

//Ex.: 20150304154034000

//     12345678901234567

DataHoraMobileCompara..Year    = Middle(DataHoraMobile,01,04)

DataHoraMobileCompara..Month   = Middle(DataHoraMobile,05,02)

DataHoraMobileCompara..Day     = Middle(DataHoraMobile,07,02)

DataHoraMobileCompara..Hour    = Middle(DataHoraMobile,09,02)

DataHoraMobileCompara..Minute  = Middle(DataHoraMobile,11,02)

// 20150304154034447 >= 20150304161034447     20150304154034447 <= 20150304151034447

IF Val(DataHoraMobileCompara) >= Val(DataHoraServidorMaior) OR Val(DataHoraMobileCompara) <= Val(DataHoraServidorMenor) THEN

DataHoraValida = False

ELSE

DataHoraValida = True

END

END

Resultado += "<Xml><Retorno>" 

Resultado += "<AbriuConnexao>" + OkConn + "</AbriuConnexao>"

Resultado += "<DataHoraServidor>" + DataHoraServidor + "</DataHoraServidor>"

Resultado += "<DataHoraValida>" + DataHoraValida + "</DataHoraValida>"

IF OkConn = True

Resultado += ws_conexao_sucesso("Tabelas")

ELSE

Resultado += ws_conexao_falha("Tabelas")

END

OkConn = HCloseConnection(ConnNativa)

Resultado += "<FechouConnexao>" + OkConn + "</FechouConnexao>"

Resultado += "</Retorno></Xml>" 

RESULT(Resultado)

Representante Filtro Empresa

Representante Filtro Empresa

IF gnEmpresaCodigo=0 THEN
gnEmpresaCodigo=1
END
TableEnableFilter(TABLE_representante.COL_Id_empresa,filterStartsWith,gnEmpresaCodigo)

                    //representante
                    HReset(representante)
                    HReadSeekFirst(representante,representante.chave_empresa_representante,[cliente.id_empresa,cliente.id_representante_empresa])
                    IF HFound(representante) THEN
                        cliente.id_representante=representante.id_representante
                    ELSE
                        cliente.id_representante=cliente.id_representante_empresa
                    END
                    //representante

Valor Fazer ficar 000.000.500

Sistema Novo em Windev - orcamento e Pedidos

Sistema Novo em windev Matos Informatica

www.matosinformatica.com.br

Sistema Matos Sendo Desenvolvido em WebDev

terça-feira, 3 de março de 2015

Windev Edit - Calendario

Video Sobre Windev Sobre Calendario

BLOG E VIDEO SOBRE CALCULADORA E CALENDARIO

http://doc.windev.com/en-US/?1013145&name=edit_control

Colocar Calendario no Controle Edit
Nas Propriedades do Edit - Va na Guia General - Marque ( DISPLAY A CALENDAR BUTTON )
-----------------------------------------

Calculadora Form

BLOG E VIDEO SOBRE CALCULADORA E CALENDARIO

Calculadora Form

segunda-feira, 2 de março de 2015

Windev PopupMenu

VIDEO - MENU POPUP

------------------------ INDICE POPUP

Windev PopupMenu

DICAS 3245 - WINDEV - PERGUNTAS E RESPOSTAS 7 - COMO SAIR OU NAO NO POPUP

DICAS 3262 - WEBDEV - USAR POPUP PAGINA - NOVIDADES DA VERSAO 26 - INDICE 31

// Coloca Manualmente no botao o menu Popup
BTN_menu3..PopupMenu="menu_menu2"

//Usado para desativar a exibição de todos os menus pop-up
// (incluindo os menus pop-up do sistema ou os menus pop-up para a moeda Euro + controles de edição).
WIN_Menu_popup..PopupMenu=PopupMenuDisabled

// Código de inicialização do controle de edição
// Adiciona o menu Popup1 após o menu de contexto do sistema do controle
// Popup1 é um menu pop-up existente

//MySelf..PopupMenu = "menu_menu1"
// ou com + na frente ele vai adicionar
MySelf..PopupMenu = "+menu_menu1"

Blog Oficial Windev Brasil - http://forum.pcsoft.fr
PopupMenu (Property) - http://doc.windev.com
Functions for managing the menus - http://doc.windev.com