Windev21 Aulas,Estudos e Desenvolvimento

sábado, 27 de fevereiro de 2016

Wx - Como interagir com o gráfico em sua aplicação Wx (Windev, Webdev e Windev Mobile)

CODIGO PARA FAZER GRAFICO VIA CODIGO

// Summary: Fills the initial chart
// Syntax:
//FillChart ()
//
// Parameters:
// None
// Return value:
// None
//
Procedure ExibeGrafico()

// Delete the data from the previous chart
grDeleteSeries(CHART_Chart)

// Define the colors
grWaterfallColor(CHART_Chart, grTotal, RGB(83,129,179))
grWaterfallColor(CHART_Chart, grSubTotal, RGB(83,129,179))
grWaterfallColor(CHART_Chart, grPositive, RGB(115,179,83))
grWaterfallColor(CHART_Chart, grNegative, RGB(179,84,92))

// TO 2012
grAddData(CHART_Chart, 1, 1, 298)
grCategoryLabel(CHART_Chart, 1, "TO 2011")
//grWaterfallCategoryType(CHART_Chart, 1, grTotal)

// Add the profits
grAddData(CHART_Chart, 1, 2, 420)
grCategoryLabel(CHART_Chart, 2, "Profits"+CR+"products")
grAddData(CHART_Chart, 1, 3, 210)
grCategoryLabel(CHART_Chart, 3, "Profits"+CR+"services")

// Costs
grAddData(CHART_Chart, 1, 4, -170)
grCategoryLabel(CHART_Chart, 4, "Costs"+ CR +"fixed")
grAddData(CHART_Chart, 1, 5, -140)
grCategoryLabel(CHART_Chart, 5, "Costs" + CR + "variables")

// TO 2013
grAddData(CHART_Chart, 1, 6, 0)
grCategoryLabel(CHART_Chart, 6, "TO 2012")
grWaterfallCategoryType(CHART_Chart, 6, grTotal)

gnNbCategories = 6

// Draw the chart in the Chart control
grDraw(CHART_Chart)

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/992-como-interagir-com-grafico-sua-aplicacao-windev-webdev/read.awp

WX - Trabalhando com Tabela Struct em Memória (QUEUE)

EXEMPLO DE TABELA DE MEMORIA - STRUCT - QUEUE
STDadosDaFrete is structure
bDadosatualizados is boolean
bDadosValidos is boolean
sStatusFrete is string
sDataHoraAceite is string
sDataHoraCancelamento is string
nMatricula is int
sNomeCarroceiro is string
nNumCarroca is int
nNumCarroca is int
sPlaca is string
sMarca is string
sModelo is string
pPosicaoCarroca is geoPosition
sMsgCarroca is string
END

FreteAtualtemp is STDadosDaFrete

IF XML_Retorno <> ""
FreteAtualtemp.sStatusFrete = Busca_Tag_Xml(XML_Retorno,"Situacao")
FreteAtualtemp.nNumRt = Busca_Tag_Xml(XML_Retorno,"NumCarroca")
FreteAtualtemp.nNumAt = Busca_Tag_Xml(XML_Retorno,"NumCarroceiro")
FreteAtualtemp.sPlaca = Busca_Tag_Xml(XML_Retorno,"PlacaCarroca")
FreteAtualtemp.nMatricula = Busca_Tag_Xml(XML_Retorno,"Matricula")
FreteAtualtemp.sNomeCarroceiro = Busca_Tag_Xml(XML_Retorno,"Nome")
FreteAtualtemp.sDataHoraAceite = Busca_Tag_Xml(XML_Retorno,"DataAceite")
FreteAtualtemp.sDataHoraCancelamento = Busca_Tag_Xml(XML_Retorno,"DataCancelamento")
FreteAtualtemp.sMsgTaxi = Busca_Tag_Xml(XML_Retorno,"Mensagem")
FreteAtualtemp.pPosicaoRT.Latitude = Busca_Tag_Xml(XML_Retorno,"Latitude")
FreteAtualtemp.pPosicaoRT.Longitude = Busca_Tag_Xml(XML_Retorno,"Longitude")
FreteAtualtemp.pPosicaoRT.Speed = Busca_Tag_Xml(XML_Retorno,"VelocidadeCarroca")
FreteAtualtemp.bDadosValidos = True

END

RESULT(FreteAtualtemp)

ST_CarrocasLogados is structure
ST_ID is string // id do Carroca
ST_Latitude is real // latitude onde esta o Carroca
ST_Longitude is real // longitude onde esta o Carroca
ST_Situacao is string // status se esta disponivel ou nao
END

arr_CarrocasLogados is associative array (ccIgnoreCase + ccIgnorePonctuationAndSpace) of ST_CarrocasLogados

FOR EACH LocSt_CarrocasLogados OF arr_CarrocasLogados

IF LocSt_CarrocasLogados.ST_Situacao > 0 THEN

nContador += 1
MarcadorCarrocas(LocSt_CarrocasLogados.ST_ID,
LocSt_CarrocasLogados.ST_Latitude,
LocSt_CarrocasLogados.ST_Longitude,
LocSt_CarrocasLogados.ST_Situacao)

END

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/993-trabalhando-com-tabela-struct-memoria-queue/read.awp

sexta-feira, 26 de fevereiro de 2016

Windev - Curso Relatorio - 20/... - Relatorio - Gerar Pdf

Video youtube

Nessa aula vou mostrar como criar e abrir um pdf do relatorio

This lesson will show how to create and open a PDF report

Cette leçon va vous montrer comment créer et ouvrir un rapport PDF

http://doc.windev.com/en-US/?3046074&name=iDestination

http://doc.pcsoft.fr/fr-FR/?3046074&name=idestination_fonction

//pergunta se quer relatorio
IF CBOX_GeraPdf=True THEN
    iDestination(iPDF,"Relatorio_Nome.pdf")
ELSE
    iPreview(ipvZoomPageWidth)
END
//pergunta se quer relatorio
filtro_data_inicial = EDT_data_inicial
filtro_data_final = EDT_data_Final
IF CBOX_Relatorio_Grafico = 1 THEN // Imprime com gráfico
    iPrintReport(RPT_Material_Relatorio_Curva_ABC,filtro_data_inicial,filtro_data_final,1)
ELSE // Imprime sem gráfico
    iPrintReport(RPT_Material_Relatorio_Curva_ABC,filtro_data_inicial,filtro_data_final)
END
//Abrir pdf
IF CBOX_GeraPdf=True THEN
    IF YesNo("Deseja Abrir Relatorio") THEN
        ShellExecute("Relatorio_Nome.pdf")
    END
END
//Abrir pdf

//EM FRANCES
SI CBOX_GeraPdf=Vrai ALORS
    iDestination(iPDF,"Relatorio_Nome.pdf")
SINON
    iAperçu(iapZoomLargeurPage)
FIN
//pergunta se quer relatorio
filtro_data_inicial = EDT_data_inicial
filtro_data_final = EDT_data_Final
SI CBOX_Relatorio_Grafico = 1 ALORS // Imprime com gráfico
    iImprimeEtat(RPT_Material_Relatorio_Curva_ABC,filtro_data_inicial,filtro_data_final,1)
SINON // Imprime sem gráfico
    iImprimeEtat(RPT_Material_Relatorio_Curva_ABC,filtro_data_inicial,filtro_data_final)
FIN
//Abrir pdf
SI CBOX_GeraPdf=Vrai ALORS
    SI OuiNon("Deseja Abrir Relatorio") ALORS
        LanceAppliAssociée("Relatorio_Nome.pdf")
    FIN
FIN

quinta-feira, 25 de fevereiro de 2016

Curso WinDev - String - 003 - Tamanho das Strings - Length

Video Youtube

Nessa aula vou ensinar como pegar o tamanho dos campos

This class will teach you how to get the size of the fields

Cette classe va vous apprendre comment obtenir la taille des champs

http://doc.windev.com/en-US/?3024031&name=Length

http://doc.pcsoft.fr/fr-FR/?3024031&name=taille_fonction

SAI_resultado=Length(SAI_texto)

//FRANCES
SAI_resultado=Taille(SAI_texto)

quarta-feira, 24 de fevereiro de 2016

Curso WinDev - String - 002 - Pegar Determinas Posicao/Inicio/Fim

https://www.youtube.com/watch?v=M24CSANnELw

Nessa aula vou mostrar como pegar de dentro uma string a posicao inicial e final

Cette leçon va vous montrer comment obtenir à l'intérieur d'une chaîne, la position initiale et finale

This lesson will show you how to get inside a string the initial and final position