--------------------------------------- Fonte ---------------------------------------------------------
//--------------------------------------//
//Excel Ler e Exportar Para Txt //
//Read and Excel Export To Txt //
//Lire et Excel exportation de txt //
//Lea y Excel Exportar a Txt //
//--------------------------------------//
// _nome_arquivo_excel // nUmero_linhas
// _name_excel_file // number lines
// _Nom_fichier_excel // droites numériques
// _Nombre_del_archivo de Excel // líneas de números
_nome_arquivo_excel is int
// nUmero_linhas
// number lines
// Nombre de lignes
// Las rectas numéricas
nUmero_linhas is int
_nome_arquivo_excel = xlsOpen("D:\amarildo\MAURICIO_PEREIRA\Lista Clientes.xls")
// Aqui estou abrindo o Arquivo Excel
// Here I am opening Excel File
// Ici, je suis l'ouverture du fichier Excel
// Aquí estoy abriendo Archivo Excel
IF _nome_arquivo_excel=-1 THEN
// Se o Arquivo excel for -1 é porque o arquivo nao foi encontrado
// If the excel file is -1 is because the file was not found
// Si le fichier Excel est -1 est parce que le fichier n'a pas été trouvé
// Si el archivo de Excel es -1 se debe a que no se encontró el archivo
Error(ErrorInfo())
ELSE
nUmero_linhas=xlsNbRow(_nome_arquivo_excel)
// Aqui eu verifico quantas linhas existe na planilha excel
// Here I check how many rows exist in excel spreadsheet
// Ici, je vérifie le nombre de lignes existent dans excel
// Aquí puedo comprobar cuántas filas existen en hoja de cálculo Excel
END
i is int = 0
FOR i = 3 TO nUmero_linhas
// comeco a ler o excel na linha 3 onde eu encontro informacoes e vou ate o numero final de linhas
// beginning to read excel in line 3 where I find informations and I will until the end number
// of lines
// commençant à lire exceller à la ligne 3 où je trouve des informations et je vais jusqu'à
// ce que le numéro de fin de lignes
// empezando a leer excel en la línea 3 donde encuentro informaciones y lo haré hasta que el
// número final de las líneas
fSaveText("D:\amarildo\MAURICIO_PEREIRA\clientes.txt",_monta_arquivo)
// Aqui estou salvando o Arquivo Texto Gerado
// Here I am saving the file generated text
// Ici, je suis d'enregistrer le fichier texte généré
// Aquí estoy ahorrando el texto del archivo generado
// Usando o Complete, ele vai deixar as colunas fixas
// Using complete, it will leave the fixed columns
// Utilisation complète, il laissera les colonnes fixes
// Utilizando completa, dejará las columnas fijas
//|90.200-290|(51)3086.6300 |Aborgama do Brasil Ltda. |Av.Indústrias,825-B.São João- POASimone compras@aborgamadobrasil.com.br |
//|90.050-240|(51)3211.4530 |Acel Ar Condicionado Ecológico Ltda. |Av.Loureiro da Silva,2001/407-Cidade Baixa-POAacel-rs@terra.com.br |
//|90.550-002|(51)3312.5533 |ACP Impressão Digital Ltda.ME |Av.Benjamin Constant,1460-B.São João-POA graficauniverso@terra.com.br |
//|93.490-315|51 35962309 8416.5120 |AD Indústria e Comércio de Embalagens Ltda. |Rua dos Carteiros,121-Lomba Grande- NH adembalagens@bol.com.br |
//|91.130-430|(51)3365-0050 |A4 Gráfica e Editora Ltda.
// Ele gerou mas sem colunas fixas, somente com separador
// He generated without fixed columns, only with WIN_TABELA
// Il généré sans colonnes fixes, uniquement avec onglet
// Generó sin columnas fijas, sólo con pestaña
//|90.200-290|(51)3086.6300|Aborgama do Brasil Ltda.|Av.Indústrias,825-B.São João- POASimone compras@aborgamadobrasil.com.br|
//|90.050-240|(51)3211.4530|Acel Ar Condicionado Ecológico Ltda.|Av.Loureiro da Silva,2001/407-Cidade Baixa-POAacel-rs@terra.com.br|
//|90.550-002|(51)3312.5533|ACP Impressão Digital Ltda.ME|Av.Benjamin Constant,1460-B.São João-POA graficauniverso@terra.com.br|
//|93.490-315|51 35962309 8416.5120|AD Indústria e Comércio de Embalagens Ltda.|Rua dos Carteiros,121-Lomba Grande- NH adembalagens@bol.com.br|
//-------------------------------------------------------------------------------------------
//RAZAO_SOCIAL // REASON SOCIAL// RAISON SOCIALE // RAZÓN SOCIAL
//ENDERECO // address // adresse // dirección
//CEP // zip code // code postal // código postal
//TELEFONE // PHONE // TÉLÉPHONE // TELÉFONO
//CNPJ //
gs_resultado is string = INIRead("ErpMatos", "empresa_nome", "", fCurrentDir()+"\erpmatos.ini")
gs_empresa_padrao is string = INIRead("ErpMatos","empresa_padrao","",fCurrentDir()+"\erpmatos.ini")
//Para gravar
// Agora vou gravar as alteracoes feitas
INIWrite("ErpMatos","empresa_nome",gsEmpresaNome,fCurrentDir()+"\erpmatos.ini")
INIWrite("ErpMatos","empresa_padrao",NumToString(gnEmpresaCodigo),fCurrentDir()+"\erpmatos.ini")
// Agora sempre que eu atualizar uma empresa, vai atualizar meu ini tambem
Nessa aula continuanando sobre pdf, faltou eu acrescentar um arquivo zip que veio
junto com o exemplo
//Click BTn_LerPdf
strMonpdf est une chaîne ="http://www.amarildomatos.com.br/clientes_arquivos/Contrato.pdf"
mostra_pdf("HTML1",strMonpdf,intModeSVG)
PROCEDURE mostra_pdf(s_nome_html is string,sNome_pdf is string,modeSVG=Vrai)
// recoloquei aqui
fDelete(CompleteDir(fRepExe())+"TMPPDF_*.pdf") //fSupprime(ComplèteRep(fRepExe())+"TMPPDF_*.pdf")
nomfic is string="TMPPDF_"+DateSys()+HeureSys()+sNome_pdf+".pdf"
tmpPDf is string=CompleteDir(fRepExe())+""+nomfic // est une chaîne
SI EnModeAndroid() ET PAS EnModeTest ALORS
//est-ce que les ressources de gestion pdf sont bien présentes ?
SI PAS fFichierExiste(ComplèteRep(fRepExe())+"viewersvg.html") OU PAS fFichierExiste(ComplèteRep(fRepExe())+"viewersvg.js") ALORS
fExtraitRessource("WD_pdfjs2.zip",fRepExe())
SI fFichierExiste(ComplèteRep(fRepExe())+"WD_pdfjs2.zip") ALORS
//decompactage de la ressource
myarch est un entier=zipOuvre("archpdf",ComplèteRep(fRepExe())+"WD_pdfjs2.zip")
SI myarch=0 ALORS
zipExtraitTout("archpdf",ComplèteRep(fRepExe()))
zipFerme("archpdf")
FIN
FIN
FIN
SI PAS fFichierExiste(ComplèteRep(fRepExe())+"viewersvg.html") OU PAS fFichierExiste(ComplèteRep(fRepExe())+"viewersvg.js") ALORS
//aucun display possible, les ressources sont absentes.
//retour
FIN
activerjavascript(s_nome_html)
FIN
SI Gauche(sNome_pdf,4)="http" ALORS
//1 recuperer le fichier en local avant ouverture
SI HTTPRequête(sNome_pdf) ALORS
fSauveTexte(tmpPDf,HTTPDonneRésultat(httpRésultat))
FIN
SINON
fCopieFichier(sNome_pdf,tmpPDf)
FIN
bLocalDebug est un booléen=Vrai
SI EnModeTest() ALORS
//{nomchamp,indchamp}=strMonpdf
//test avec localhost
// si localDebug alors
// fCopieFichier(ComplèteRep(fRepExe())+"web\viewersvg.html","c:\wamp\www\pdfjstest\web\viewersvg.html")
// fCopieFichier(ComplèteRep(fRepExe())+"web\viewersvg.js","c:\wamp\www\pdfjstest\web\viewersvg.js")
// nomfic est une chaine="test.pdf"+datesys+heuresys
//
// fCopieFichier(tmpPDf,"c:\wamp\www\pdfjstest\web\"+nomfic)
//
// testurl est une chaine="http://localhost/pdfjstest/"+"web/viewersvg.html?url="+"./"+nomfic+"&ti="+datesys+heuresys
// //{nomchamp,indChamp}=testurl
// LanceAppliAssociée(testurl)
{s_nome_html,indChamp}=sNome_pdf
SINON
myurl est une chaîne
SI modeSVG ALORS
myurl="file://"+ComplèteRep(fRepExe)+"viewersvg.html?url="+"./"+nomfic+"&ti="+DateSys+HeureSys
SINON
myurl="file://"+ComplèteRep(fRepExe)+"viewer.html?url="+"./"+nomfic+"&ti="+DateSys+HeureSys
FIN
{s_nome_html,indChamp}=myurl
FIN
//java Global procedure activerjavascript
import android.webkit.WebView;
public static void activerjavascript(String nomchamp)
{
WebView mywebview=(WebView) getView(nomchamp);
mywebview.getSettings().setJavaScriptEnabled(true);
}
