Windev21 Aulas,Estudos e Desenvolvimento

sábado, 27 de fevereiro de 2016

WM - Invocar as Configurações Wifi e GPS via java para o seu projeto Windev Mobile

//Funcionando abre janela para ajustar as configuracoes
import android.app.Activity;
import java.lang.*; 
import android.util.*;
import java.lang.Exception;
import android.util.Log;
import android.content.BroadcastReceiver;
import android.content.Context;
import android.content.Intent;
import android.os.Bundle;

PUBLIC static void HabilitaWifiGps( )
{
 Intent i = new
 Intent(android.provider.Settings.ACTION_LOCATION_SOURCE_SETTINGS);
 getActiviteEnCours().startActivity(i);
}

HabilitaWifiGps( )

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/989-invocar-configuracoes-wifi-gps-via-java-para-seu/read.awp

WM - Como saber se é Tablet ou Celular no Android com o Windev Mobile

// Returns True if the device that runs the application is a tablet
import android.content.res.Configuration;
PUBLIC static boolean isTablet(){
 RETURN (getApplicationContext().getResources().getConfiguration().screenLayout & Configuration.SCREENLAYOUT_SIZE_MASK) >= Configuration.SCREENLAYOUT_SIZE_LARGE;
}

isTablet()

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/990-como-saber-tablet-celular-android-com-windev-mobile/read.awp

WM - Como Simular o click na Tecla Home do Android

//Simula o click na Tecla Home do Android

import android.app.Activity;
import android.content.Intent;
import java.lang.*; 
import android.util.*;
import java.lang.Exception;
import android.util.Log;

PUBLIC static void KeyHome()
{
 Intent startMain = new Intent(Intent.ACTION_MAIN);
 startMain.addCategory(Intent.CATEGORY_HOME);
 startMain.setFlags(Intent.FLAG_ACTIVITY_NEW_TASK);
 getActiviteEnCours().startActivity(startMain);
}

KeyHome()

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/991-como-simular-click-tecla-home-android/read.awp

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