Windev21 Aulas,Estudos e Desenvolvimento

quarta-feira, 8 de junho de 2016

Windev - Curso Relatorio - 24/... - Relatorio - Imprimir Tabela com - TablePrint

Nessa aula vou mostrar como imprimir uma tabela com comando TablePrint

This lesson will show how to print a table with TablePrint command

Cette leçon va vous montrer comment imprimer une table avec commande TableImprime

http://doc.windev.com/en-US/?1000017237&name=TablePrint

http://doc.pcsoft.fr/fr-FR/?1000017237&name=tableimprime_fonction

//Vou Imprimir Tabela Sem gerar nenhum Relatorio

TablePrint(TABLE_tecnico)

//simples assim

WX - Trabalhando com arquivos Json

Forum.pcsoft.fr/fr-FR/pcsoft.br.windev/1172-trabalhando-com-arquivos-json/read.awp

Wx - Trabalhando com DLL de Terceiros

http://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/621-trabalhando-com-dll-terceiros/read.awp

http://help.windev.com/en-US/?3014006&name=LoadDLL
http://help.windev.com/en-US/?3014003&name=CallDLL32
http://help.windev.com/en-US/?3014009&name=FreeDLL

//OBS.:

//Inicialmente registre por dos comando: regsvr32.exe

//Nao sei se alguem precisa mais ai vai a solução:

//StringRetrieve(retornomemoria , srUNICODEAddress ) 

//alterei de 

//srASCIIZAddress para srUNICODEAddress

//ficou assim: 

retornomemoria is int = CallDLL32("spdNfeLib.dll","StatusDoServico",Caminhoini,1) 

xmlretorno is string = StringRetrieve ( retornomemoria , srUNICODEAddress )

Info (xmlretorno)

//Sobre o calldll32 retorna somente inteiro ai para ler o retorno string precisei fazer dessa forma:

hInst is int = LoadDLL("nfe.dll")

//hInst = LoadDLL("spdNfeLib.dll")

IF hInst = 0 THEN

Error(ErrorInfo())

ELSE

nAddrASCIIZString    is    int = CallDLL32("nfe.dll", "VLK_ConsultaStatusWS", Caminhoini,1) 

sStringContent   is   string = StringRetrieve ( nAddrASCIIZString , srASCIIZAddress ) 

Info(sStringContent) 

//sRetorno is string = sString is string CallDLL32("nfe.dll","VLK_ConsultaStatusWS",caminhoini,1)

//CallDLL32("spdNfeLib.dll","StatusDoServico",caminhoini,1)

FreeDLL(hInst)

END

//O stringretrieve que converte de int para string

//Vejamos o seguinte exemplo:

//EM CLARION:

PUBLIC  *CLASTRING   FastQRCode(*CLASTRING,*CLASTRING)

//Obs.: é com ponteiro

//Não é uma simples string

//é um ponteiro de string

//com endereçamento de memoria

//Voce em que tomar cuidado para não mandar um caminhao entrar numa garagem de um fusca

//ai não da certo, a tipagem de campos algo bem sério para a questão da prototipação de Dlls de terceiros.

//em seu sistema, pois uma vez mal feito vai gerar excessoes, exceptions GPFs em seu sistema.

//A Dll deve ser encaixada corretamente em seu sistema

//A variavel do tipo VARIANT aceita qualquer coisa bem como a BUFFER na maioria dos casos

Posté le 17 septembre 2015 - 17:16

Principal noção:

A) Carrega uma Dll na memória com LoadDLL (Function)

http://help.windev.com/en-US/?3014006&name=LoadDLL

<Result> = LoadDLL(<DLL Name>)
Ex.:
hInst is int
hInst = LoadDLL("MyDLL.DLL")
IF hInst = 0 THEN
Error(ErrorInfo())
ELSE
Info("DLL loaded")
FreeDLL(hInst)
END

Executa um metodo interno de uma DLL com CallDLL32 (Function)

http://help.windev.com/en-US/?3014003&name=CallDLL32

<Result> = CallDLL32(<DLL Name>, <Function Number> [, <Parameter 1> [, <Parameter 2> [, ... ]]])
Ex.;
CallDLL32("USER32", "SendMessageA", hWnd, wMsg, lParam1, lParam2)

C) Libera uma DLL com FreeDLL (Function)

http://help.windev.com/en-US/?3014009&name=FreeDLL

Ex.:
hInst = LoadDLL("MyDLL.DLL")
IF hInst = 0 THEN
Error("Error during the unload operation")
ELSE
CallDLL32("MyDLL", "FunctionA", par1, par2)
CallDLL32("MyDLL", "FunctionB", par1)
FreeDLL(hInst)
END

Posté le 17 septembre 2015 - 17:21

Outros links:

Selecting_the_libraries // Selecionando As Bibliotecas
http://help.windev.com/en-US/?3515004&name=Selecting_the_libraries
http://help.windev.com/en-US/?2025009&name=Standalone_executable
http://help.windev.com/en-US/?2025002

*
Returns the list of libraries (".DLL" files) used by one of the applications currently run. This application can correspond to a WinDev application, a WinDev Mobile application or another application.

Retorna a lista de bibliotecas (arquivos ".dll") utilizados por um dos aplicativos em execução. Esta aplicação pode corresponder a uma aplicação WINDEV, uma aplicação WINDEV móvel ou outra aplicação.
http://help.windev.com/en-US/?3035009&name=ExeListDLL

The list of libraries (".DLL" files) used by the current WinDev or WinDev Mobile application or by the current WebDev site. Only the libraries loaded in memory are listed.

A lista de bibliotecas (arquivos ".dll") utilizados pelo WINDEV atual ou WINDEV aplicação móvel ou pelo site WebDev atual. Somente as bibliotecas carregadas na memória são listados.

http://help.windev.com/en-US/?3064006&name=ListDLL

API do Windows
http://help.windev.com/en-US/?3014005&name=API
e
http://help.windev.com/en-US/?1000019149&name=API_description
Ex.:
API("USER32", "SendMessageA", hWnd, wMsg, lParam1, lParam2)
<Result> = API(<DLL Name> , <Function Name> [, <Parameter 1> [, <Parameter 2> [, ...]]])

Código 34 é um erro de DLL
http://help.windev.com/en-US/?2425&name=ERR_NO_DLLEXE
Unable to load the <DLL_NAME> DLL. ERR_NO_DLLEXE (34)
http://help.windev.com/en-US/?2526&name=ERR_BAD_DLLEXE
The <DLL_NAME> DLL is not compatible with this version of WEBDEV. ERR_BAD_DLLEXE

--
Adriano Jose Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
______________________________________________

terça-feira, 7 de junho de 2016

Windev - Curso Relatorio - 23/... - Relatorio - Pular Pagina - iPageEnd()

Video Youtube

Nessa aula vou mostrar como Fazer pulo da Página

In this lecture I will show how to make jump page

Dans cette conférence, je vais vous montrer comment faire de saut de page

doc.windev.com/en-US/?3046038&name=iPageEnd
doc.pcsoft.fr/fr-FR/?3046038&name=iterminepage_fonction

//Chamar Relatorio
iPreview(ipvZoom100) // Mostrar Relatorio Tela
iPrintReport(ETAT_pedido1) //chama Relatorio

//Na Impreesao do Pedido
//Fazer pula linha depois da quebra
iPageEnd()

segunda-feira, 6 de junho de 2016

Windev Grafico 3/.. - Alterar Tipo De Gráfico, via programação

Video Youtube

Nessa aula, vou mostrar como alterar o tipo de gráfico

In this lesson, I will show how to change the chart type

Dans cette leçon, je vais vous montrer comment changer le type de graphique

doc.windev.com/en-US/?3042062&name=grtype_function
doc.pcsoft.fr/fr-FR/?3042062&name=grtype_fonction

Funcoes - doc.windev.com/en-US/?3042003&name=Chart_functions
Funccoes - doc.pcsoft.fr/fr-FR/?3042003&name=fonctions_gestion_des_graphes

WinDev - Grafico - 001/... Criar Grafico e Listar
WinDev - Grafico - 002/... Alterar tabela e Atualizar Grafico
WinDev - Grafico - 003/... Alterar Tipo de Gráfico Via Programação - GrType
WinDev - Grafico - 004/... Criar Grafico Com Tabela

//Varios tipos de gráfico
//Trocado via programação
grType(CHART_Tecnico,gr3DSAreaStacked)
grDraw(CHART_Tecnico)
//Vou Fazer os outros para saberem todos os tipos
//que existem
grType(CHART_Tecnico,gr3DSAreaDepth)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,gr3DSLine)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,gr3DSCylinderColStacked)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,gr3DSCylinderColClustered)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,gr3DSCylinderColDepth)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,gr3DSColumnStacked)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,gr3DSColumnClustered)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,gr3DSColumnDepth)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,gr3DSMinMax)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,gr3DSScatter)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,gr3DSPie)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grArea)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grBarCharts)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grCandleStick)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grCurve)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grDonut)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grFunnel)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grBubbleChart)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grHeatMap)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grSemiCircular)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grColumn)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grColumnStacked)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grMinMax)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grScatter)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grRadar)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grPie)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grSunburst)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grSurface)
grDraw(CHART_Tecnico)
grType(CHART_Tecnico,grWaterfall)
grDraw(CHART_Tecnico)

sexta-feira, 3 de junho de 2016

Curso WinDev - Funções Exe Windows - 006 - ExeRunning

Video youtube

Nessa aula vou mostrar como abrir documentos/internet

In this lecture I will show how to open documents / internet

Dans cette conférence, je vais vous montrer comment ouvrir des documents / Internet

Doc.windev.com/en-US/?3035003&name=ExeRunning
Doc.pcsoft.fr/fr-FR/?3035003&name=exelance_fonction

Blog - WinDev - Funções Exe Windows - 010/... - SysListScreen_SysListVideoCard_SysNumberScreen - Monitores - Quantidade

Blog - WinDev - Funções Exe Windows - 011/... - Nome Usuario Windows - NetWorkUser

//Verificar se Este programa está Aberto
IF ExeRunning(ExeInfo(exeName))>1 THEN
   Info("Este Programa já está aberto ")
   EndProgram(True) // Fechar Programa
END

//Verificar se o programa uninfe.exe está aberto
n_executa is int=0
n_executa=ExeRunning("E:\_2014_SSD\Programas\UniNFe\uninfe.exe")
IF n_executa>0 THEN
   Info("Uninfe já Aberto")
ELSE
   Info("Uninfe não aberto - vou abrir")
   ExeRun("E:\_2014_SSD\Programas\UniNFe\uninfe.exe")
END