Windev21 Aulas,Estudos e Desenvolvimento

quinta-feira, 4 de agosto de 2016

WX - Como capturar click no titulo de uma Tablelist Listbox e dar outro evento necessário para a sua aplicação?

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/1567-como-capturar-click-titulo-uma-tablelist-listbox-dar/read.awp

Prezados,

Para capturar click no titulo de uma Tablelist Listbox e dar outro evento necessário para a sua aplicação, segue abaixo exemplo:

Em uma tabela com colunas: Número, Nome e Apelido, você gostaria de reorganizar a coluna.

----------------------------------
Número | Nome | Apelido (s)
----------------------------------
0000001 | Marc | Marc
0000002 | Adriano | Boller
0000003 | Emmanuel | Emmanuel
0000004 | Lorelei | Lore
----------------------------------

Digamos que você queira autorizar o filtro das outras colunas, mas manter a numeração das linhas diferentes?

É algo anormal, mas você precisa, então "No init da tabela", você vai por esse código:

Evénement(NovoEventoClickTableList, "TABLEH_LesRevuesCommerciales", 1529)

Crie uma nova procedure local ou global em seu projeto com o mesmo nome usado na linha de código acima:

Procedure NovoEventoClickTableList()
sSens est une chaîne = ""
SI _EVE.wParam <> 0 ALORS //N° de colonne sur laquelle le clic est effectué
//Annuler le tri auto
_EVE.Retour = 0
//Détection du sens du tri
SI PAS _EVE.lParam ALORS sSens = "-"
//Trier sur la colonne
TableTrie(TABLEH_LesRevuesCommerciales, sSens + TableEnumèreColonne(TABLEH_LesRevuesCommerciales, _EVE.wParam), sSens + "COL_Periode")
//Traitement à effectuer "Après chaque tri"
FIN

WX - API para controlar um leitor de RFID

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/1568-api-para-controlar-leitor-rfid/read.awp

Publicado em agosto, 04 2016 - 9:22 AM

Prezados,

Segue exemplo de como trabalhar com RFID (Identificação por radiofrequência ou RFID (do inglês "Radio-Frequency IDentification" ) é um método de identificação automática através de sinais de rádio).

Uma etiqueta ou tag RFID é um transponder, pequeno objeto que pode ser colocado em uma pessoa, animal, equipamento, embalagem ou produto, dentre outros. Contém chips de silício e antenas que lhe permite responder aos sinais de rádio enviados por uma base transmissora. Além das etiquetas passivas, que respondem ao sinal enviado pela base transmissora, existem ainda as etiquetas semipassivas e as ativas, dotadas de bateria, que lhes permite enviar o próprio sinal. São bem mais caras que do que as etiquetas passivas.

RFID: utiliza transponders ( os quais podem ser apenas lidos ou lidos e escritos) nos produtos, como uma alternativa aos códigos de barras, de modo a permitir a identificação do produto de alguma distância do scanner ou independente, fora de posicionamento. Tecnologia que viabiliza a comunicação de dados através de etiquetas com chips ou transponders que transmitem a informação a partir da passagem por um campo de indução. (ex: muito usado em pedágio "sem parar").

https://pt.wikipedia.org/wiki/Identifica%C3%A7%C3%A3o_por_radiofrequ%C3%AAncia

Definição da API para controlar um leitor de RFID, com os seus parametros e seu retorno:

int CV_GetSerialNum ( int DeviceAddress , int & CurrentAddress , Char * SerialNum )

Em WL:

tabCurrentAdd est un tableau de 1 entier sur 1 octet
tabSzSerialnum est un tableau de 9 entier sur 1 octet
nSserialnumber est une entier
nSserialnumber = API(sDllname,"CV_GetSerialNum",0,&tabCurrentAdd,&tabSzSerialnum)
SAI_Texte1 = "serialnum status"+nSserialnumber+RC+SAI_Texte1
SAI_Texte1 ="serialnumber:"+ChaîneRécupère(&tabSzSerialnum,crAdresseASCIIZ)+RC+SAI_Texte1

Em C#:

PRIVATE void btnGetSerialNumber_Click(object sender, EventArgs e)
{
int[] CurrentAdd = new int[1];
byte[] SerialNUM = new byte[9];
for (int i = 0; i < 9; i++)
SerialNUM[i] = 0x00;
string aSN = "";
IF (0 == CV_GetSerialNum(0, CurrentAdd, SerialNUM))
{
SerialNUM[8] = 0x00;
IF (SerialNUM[0] == 0xFF)
aSN = "FFFFFFFF";
ELSE
{
for (int i = 0; i < 64; i++)
{
IF (0 == SerialNUM[i])
BREAK;
ELSE aSN += Convert.ToString(Convert.ToChar(SerialNUM[i]));
}
}
tbSerial.Text = aSN;
}
}

WX - Json X httprequest + httpgetresult

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/1569-json-httprequest-httpgetresult/read.awp

Publicado em agosto, 04 2016 - 9:39 AM

Bonjour,

Endereço: http: // server / ao ar livre / Serviço / api / login

Conteúdo do JSON contendo o usuário e a senha: { "username", "user", "password", "*****"}

A função, em seguida, retorna uma permissão de sessão que será usado para autenticar futuro consultas.

O ticket token é: TICKET_b1ea7f2a00253859999dc27be19faccf6c3c89f7

Para qualquer pedido futuro, você deve então fazer algo parecido com isto:

//Example
CommandeAlfresco est un HTTPRequête
ReponseAlfresco est un httpRéponse
CommandeAlfresco.Utilisateur="ROLE_TICKET"
CommandeAlfresco.MotDePasse="TICKET_b1ea7f2a00253859999dc27be19faccf6c3c89f7"
CommandeAlfresco.ContentType="application/json"
CommandeAlfresco.Méthode=httpPost
CommandeAlfresco.URL="http://serveur/alfresco/service/api/sites" //pour lister les sites présent
ReponseAlfresco = HTTPEnvoie(CommandeAlfresco)

Curso WinDev - Multimdia - 001 - MultimediaOpen/Play/Pause/Close

Video Youtube

Nessa aula vou mostrar como abrir,comecar,pausar,terminar video multimidia

In this lecture I will show how to open, start, pause, end multimedia video

Dans cette conférence, je vais vous montrer comment ouvrir, démarrer, mettre en pause, fin vidéo multimédia

sFile is string
sFile = fSelect("", "", "Select a file...", "Video" + TAB + "*.avi", "*.avi")
EDT_nome_video=sFile
//
MultimediaOpen(MM_video,EDT_nome_video)
MultimediaPlay(MM_video)
MultimediaPause(MM_video)
MultimediaClose(MM_video)
//

sFile est chaîne
sFile = fSélecteur("", "", "Select a file...", "Video" + TAB + "*.avi", "*.avi")
EDT_nome_video=sFile
//
MultimédiaOuvre(MM_video,EDT_nome_video)
MultimédiaJoue(MM_video)
MultimediaPause(MM_video)
MultimédiaFerme(MM_video)
//

http://doc.windev.com/en-US/?1000015005
http://doc.pcsoft.fr/fr-FR/?1000015005&name=fonctions_multimedia

---------------------- indice multimidia

WinDev - Multimidia - 001/... MultimediaOpen/Play/Pause/Close
DICAS 1983 - WINDEV - MULTIMIDIA 2 - OPEN PLAY PAUSE CLOSE

DICAS 3365 - WINDEV WEBDEV MOBILE - executar video no formato wmv com MultimediaPlay- Curso Multimida 3

quarta-feira, 3 de agosto de 2016

Curso WinDev - Combox - 007 - ComboxOpen/ComboxClose

Video Youtube

Nessa aula vou mostrar como abrir e fechar uma combo

This lesson will show how to open and close a combo

Cette leçon va vous montrer comment ouvrir et fermer un combo

ComboOpen(COMBO_Bancos)
ComboClose(COMBO_Bancos)

http://doc.windev.com/en-US/?3026002&name=functions_for_handling_the_combo_box_controls
http://doc.pcsoft.fr/fr-FR/?3026002&name=fonctions_manipulation_des_champs_combo

WinDev - Combox - 001/... Preencher Manualmente e Eliminar
WinDev - Combox - 002/... Selecionar Combox
WinDev - Combox - 003/... Combox Editavel
WinDev - Combox - 004/... Combox - Ordem/Sort
WinDev - Combox - 005/... Combox Glink
WinDev - Combox - 006/... Selecione Linha Automatico - custom row
WinDev - Combox - 007/... ComboOpen e ComboClose
Adiciona Combox Manualmente - Combox 008 AULA 1258

terça-feira, 2 de agosto de 2016

Windev - Curso Relatorio - 28/... - Iprint - Relatorio Manual

Video Youtube

Nessa aula vou mostrar como fazer relatorio Manual com Iprint

This lesson will show you how to report Manual with iPrint

Cette leçon va vous montrer comment faire rapport manuel avec iPrint

http://doc.windev.com/en-US/?3046031&name=iPrint

http://doc.pcsoft.fr/fr-FR/?3046031&name=iimprime_fonction

//http://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/1200-trabalhando-com-registro-windows-ter-lista-impressoras-impressora-1210/read.awp

/http://doc.windev.com/en-US/?3046031&name=iPrint
iDestination(iPDF)
iPrint("Relatorio de Bancos")
iPrint("")
iPrint(iXPos(1) + "Codigo" + iXPos(18) +"Nome")
iPrint("")
FOR EACH bancos
iPrint(iXPos(1)+ NumToString(bancos.id_bancos,"06d") + iXPos(18) + bancos.nome)
END
iEndPrinting()
ShellExecute(iLastFile())

iDestination(iPDF)
iPrint("Relatorio de Bancos")
iPrint("")
iPrint(iXPos(1) + "Codigo" + iXPos(18) +"Nome")
iPrint("")
FOR EACH bancos
iPrint(iXPos(1)+ NumToString(bancos.id_bancos,"06d") + iXPos(18) + bancos.nome)
END
iEndPrinting()
ShellExecute(iLastFile())

// Blog com Video e Exemplo
http://windevdesenvolvimento.blogspot.com.br/2016/08/windev-curso-relatorio-26-iprint.html
https://www.youtube.com/watch?v=0Rw1D_yCKjg

Páginas

quinta-feira, 4 de agosto de 2016

WX - Como capturar click no titulo de uma Tablelist Listbox e dar outro evento necessário para a sua aplicação?

WX - API para controlar um leitor de RFID

WX - Json X httprequest + httpgetresult

Curso WinDev - Multimdia - 001 - MultimediaOpen/Play/Pause/Close

quarta-feira, 3 de agosto de 2016

Curso WinDev - Combox - 007 - ComboxOpen/ComboxClose

terça-feira, 2 de agosto de 2016

Windev - Curso Relatorio - 28/... - Iprint - Relatorio Manual

Teste

Marcadores