quarta-feira, 10 de fevereiro de 2016

Windev - Socket central Telefônica IP










http://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/906-windev-socket-central-telefonica-922/read.awp






Curso WinDev - Datas - 003 - Transformar Data Texto Em Data Date


















Video Youtube



http://doc.windev.com/en-US/?3027026&name=DateSys
http://doc.pcsoft.fr/fr-FR/?3027026&name=datesys_fonction

http://doc.windev.com/en-US/?3027029&name=functions_for_managing_the_dates_and_times
http://doc.pcsoft.fr/fr-FR/?3027029&name=fonctions_gestion_des_dates_des_heures



Blog - WinDev - Curso Datas - 001/... - Diferença entre Datas - Duração
Blog - WinDev - Curso Datas - 002/... - Data - Função Dia da Semana 
Blog - WinDev - Curso Datas - 003/... - Transformar Data Texto em Data Date
Blog - WinDev - Curso Datas - 004/... - Transformar Data Date em Texto
Blog - WinDev - Curso Datas - 005/... - Date em Texto - "2016-02-15T12:10:00-3:00"
Blog - WinDev - Curso Datas - 006/... - Diferença entre Datas - DateDifference
Blog - WinDev - Curso Datas - 007/... - Saber o Ultimo Dia do Mes - LastDaOfMonth
Blog - WinDev - Curso Datas - 008/... - Mostra idade - Age
Blog - WinDev - Curso Datas - 009/... - Mes e Ano Corrente - CurrentMonth/CurrentYear
Blog - WinDev - Curso Datas - 010/... - Texto em Data - DateToString
Blog - WinDev - Curso Datas - 011/... - Inteiro Para Data - IntegerToDate
Blog - WinDev - Curso Datas - 012/... - Pegar Hora - Now
Blog - WinDev - Curso Datas - 013/... - Texto Para Data - StringtoDate

 
Nessa aula vou mostrar como pegar data texto e transformar para Date

This class will show you how to get text data and transform to Date

Cette classe va vous montrer comment obtenir des données de texte et de transformer à ce jour
 

//2016-02-08
//1234567890
_data is Date=""
_data..Day=SAI_data_texto[[9 TO 10]]
_data..Month=SAI_data_texto[[6 TO 7]]
_data..Year=SAI_data_texto[[1 TO 4]]
SAI_data=_data

//em frances
d_data_f est une Date=""
d_data_f..Jour=SAI_data_texto[[9 A 10]]
d_data_f..Mois=SAI_data_texto[[6 A 7]]
d_data_f..Année=SAI_data_texto[[1 A 4]]
SAI_data=d_data_f















segunda-feira, 8 de fevereiro de 2016

Curso WinDev - Arquivos - 001 - Listar Arquivos de um Diretório e Mostrar na Tabela









Video no youtube



http://doc.windev.com/en-US/?3036050&name=fSelectDir
http://doc.pcsoft.fr/fr-FR/?3036050&name=frepselecteur_fonction

http://doc.windev.com/en-US/?3036058&name=flistfile_function
http://doc.pcsoft.fr/fr-FR/?3036058&name=flistefichier_fonction

Nessa aula vou ensinar como listar os arquivos de um diretorio e mostrar na tabela

This class will teach you how to list the files in a directory and display the table

Cette classe va vous apprendre comment lister les fichiers dans un répertoire et afficher la table

WinDev  


//pesquisa diretorio
sRépertoire est une chaîne
sRépertoire = fRepSélecteur("", "")
SAI_DIRETORIO=sRépertoire

//ingles
//sRépertoire_ is string
//sRépertoire_ = fSelectDir("", "")
//SAI_DIRETORIO=sRépertoire_



PROCEDURE prd_VerificaPasta(PastaVerifica is string)
ADirectory is string
ListaArquivos is Structure
  caminho is string
END
Listagem is ListaArquivos
arrListaArquivos is array of ListaArquivos
ADirectory = ""
ADirectory = fListDirectory(PastaVerifica)
ArrayDeleteAll(arrListaArquivos)
FOR EACH STRING Listagem.caminho OF ADirectory SEPARATED BY CR
 ArrayAdd(arrListaArquivos,Listagem)
END

RESULT arrListaArquivos
//--------------------------------------------------------------------------
PROCEDURE prd_VerificaArquivo(_Caminhoarquivo is string)

sTipoArquivo  is string = fExtractPath(_Caminhoarquivo,fExtension);
_Caminho      is string = fExtractPath(_Caminhoarquivo,fDrive+fDirectory);
nomedoArquivo is string = fExtractPath(_Caminhoarquivo,fFileName);

LOOP
 IF fFileExist(_Caminhoarquivo) = True THEN
     BREAK;
 ELSE
  Info("Atenção","O Arquivo "+nomedoArquivo+" com a extensão "+Upper(sTipoArquivo)+" não foi localizado!","O Arquivo: "+nomedoArquivo+" deve está no seguinte local: "+_Caminho,"Deixe esta mensagem na tela e coloque-a na referida pasta");
 END
END


TableDeleteAll(TABLE_lista_arquivos)

s_arquivos_todos is string=fListFile(SAI_DIRETORIO+"*.*")
s_arquivo_individual is string=""
FOR EACH STRING s_arquivo_individual OF s_arquivos_todos SEPARATED BY CR
    s_nome_arquivo is string=fExtractPath(s_arquivo_individual,fFileName+fExtension)
    s_tamanho_arquivo is string=fSize(SAI_DIRETORIO+s_nome_arquivo)    dS_data_arquivo is Date=fDate(SAI_DIRETORIO+s_nome_arquivo)   
    hS_hora_arquivo is Time=fTime(SAI_DIRETORIO+s_nome_arquivo)        TableAddLine(TABLE_lista_arquivos,s_nome_arquivo,s_tamanho_arquivo,dS_data_arquivo,hS_hora_arquivo)   
END
TableSort(TABLE_lista_arquivos,"-TABLE_lista_arquivos.COL_Data","-TABLE_lista_arquivos.COL_Hora")


//em frances
TableSupprimeTout(TABLE_lista_arquivos)
s_arquivos_todos_f est chaîne=fListeFichier(SAI_DIRETORIO+"*.*")
s_arquivo_individual_f est chaîne=""
POUR EACH CHAÎNE s_arquivo_individual_f DE s_arquivos_todos_f SEPAREE PAR RC
    s_nome_arquivo est chaîne=fExtraitChemin(s_arquivo_individual_f,fFichier+fExtension)
    s_tamanho_arquivo est chaîne=fTaille(SAI_DIRETORIO+s_nome_arquivo)
    dS_data_arquivo est une Date=fDate(SAI_DIRETORIO+s_nome_arquivo)   
    hS_hora_arquivo est une Heure=fHeure(SAI_DIRETORIO+s_nome_arquivo)
    TableAjouteLigne(TABLE_lista_arquivos,s_nome_arquivo,s_tamanho_arquivo,dS_data_arquivo,hS_hora_arquivo)   
FIN
TableTrie(TABLE_lista_arquivos,"-TABLE_lista_arquivos.COL_Data","-TABLE_lista_arquivos.COL_Hora")


























WinDev - Arquivos - 001/... Lista Arquivos - fListFile
WinDev - Arquivos - 002/... Existe Diretório - Verificar Se Existe - fDirectoryExist
WinDev - Arquivos - 003/... Criar Diretorio - FmakeDir
WinDev - Arquivos - 004/... Extrair Dados Arquivos - Extrair Dados - Fextractpath
WinDev - Arquivos - 005/... Renomear Arquivos - FRename
WinDev - Arquivos - 006/... Existe Diretório - Verificar Se Existe - FDirExist
WinDev - Arquivos - 007/... Existe Arquivo - FFileExist
WinDev - Arquivos - 008/... Copiar Arquivos - FcopyFile - >
WinDev - Arquivos - 009/... Adicona Texto num arquivo - FAddText ( )
WinDev - Arquivos - 010/... Espaco Diretorio - FDirSize/ LengthtoString
WinDev - Arquivos - 011/... Informações hd - FDriveInfo -
WinDev - Arquivos - 012/... Elimina Arquivos - FDelete -
WinDev - Arquivos - 013/... Drive está Ok - FDriveReady -
WinDev - Arquivos - 014/... Imagen Procura - FImageSelect
WinDev - Arquivos - 015/... Abrir-Modificar-Gravar-Fechar fOpen/fReadLine/fClose/fSaveText
WinDev - Arquivos - 016/... Lista Discos - FListDisk
WinDev - Arquivos - 017/... Lista Diretorio - FListDirectory
WinDev - Arquivos - 018/... Ler Arquivo - FLoadText
WinDev - Arquivos - 019/... Ler Arquivo e Colocar Tabela - FLoadText
SEPARAR NOME ARQUIVO - - ARQUIVOS - 020 - AULA 1189
PROCURAR ARQUIVO - SELECT - ARQUIVO 021 - AULA 1190
DIRETORIO - LE ARQUIVOS - ARQUIVO 022- AULA 1268
Criar Diretorio - DICAS 1738 - PUBLICA - WINDEV ARQUIVOS 23 - FMakeDir - 
fDirectoryExist - DICAS 1740 - PUBLICA - WINDEV ARQUIVOS 24 - 


Curso WinDev - Xml - 001 - Criar Xml - Manifestação De















Video no Youtube



s_xml_cria is string=[
    <?xml version="1.0" encoding="UTF-8" ?>
    <consNFeDest versao="1.01" xmlns="http://www.portalfiscal.inf.br/nfe">
    <tpAmb>@tpAmb@</tpAmb>
    <xServ>@xServ@</xServ>
    </consNFeDest>   
]
s_tpAmb is string=NumToString(nfe_parametro_tpamb,"01d") // 1
s_xServ is string="CONSULTAR NFE DEST" // CONSULTAR NFE DEST

s_xml_cria=Replace(s_xml_cria,"@tpAmb@",s_tpAmb)
s_xml_cria=Replace(s_xml_cria,"@xServ@",s_xServ)

EDT_001_xml=s_xml_cria


Nessa aula vou mostrar como criar um arquivo xml

In this lecture I will show how to create an XML file

Dans cette conférence, je vais vous montrer comment créer un fichier XML
  
WinDev





















WinDev - Xml - 001/... Criar um Xml
WinDev - Xml - 002/... Ler Xml Aula 1/...
WinDev - Xml - 003/... Ler Xml Aula 2/...
WinDev - Xml - 004/... Ler Xml Aula 3
WinDev - Xml - 005/... XmlRead - Retirar Tag
WinDev - Xml - 006/... Sefaz Gratuito-Ler Xml Cliente/Gravar
WinDev - Xml - 007/... Utf8ToString
Ler Xml e Colocar Tabela - WinDev - Xml - 008/...
Ler Xml Nfe - WinDev - Xml 009
LER ITENS XML - DOCZIP MANIFESTACAO - XML 010 - AULA 1187
DESCOMPACTAR STRING - XML - MANIFESTACAO NOTA - XML 011 - AULA 1192
LER ITENS NFE XML - XML 12 - AULA 1240
RETIRAR ITEN XML - XML 15 - AULA 1255

Teste

Teste
teste