quinta-feira, 29 de junho de 2017

AULA 1192 Windev Xml 11 - Descompactar String









Video no Youtube Se Gostou clique aqui para dar joinha




https://doc.windev.com/en-US/?3024009&name=Uncompress

https://doc.windev.com/en-US/?3024035&name=Uncrypt




Nessa aula de hoje
vou mostrar como descompactar uma string,
que veio no xml da manifestação da nota
do sefaz.
Para Resolver essa questão quero agradecer ao Willian Fernando,
que muito me ajudou nisso


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




EDT_auditoria="H4sIAAAAAAAEAIWRWU+DQBCA/4rh1cDOwrJYMt0XW2IvbKwa7RuFbSHhCmxLf75bqJrGByeTzJFvjp3FRrZhIO/ORV62/rlNxkaqVO0T0nWd1TlW1RyIDUDJx2q5iVNZRMYPnP0Pm1nZqqiMpXF3kk0bVWODWgDXHjf1ddWoKN9nbRzlVlburV1Dyr00BMapXlEwh3rAbY96Dx4HLZSB62oDfQDAe89xbeoiGWrwMVzPxW0Nkj6J57AqpAjewsls9bycIBkSOJsKph/h2SOHIdERJum0yIQN1DOBmzZ/pczXCswExwfdcABQ1WEgKJLe4ukSULAuwMXHJDu8R7ko5+y4XSxy9rS1F3QmE+UGu2Pc1fefY91qgPTMFxnvVPV3LHV+x14ZLNdNpQTtT6SFcz6iGhjSGG8ydbmGXu3bRTJ8vPgCEFZ3ZQECAAA="
bufAbc is Buffer=EDT_auditoria
bufAaa is Buffer = Uncrypt(bufAbc,"",compressNone,encodeBASE64)
EDT_descompactar=Uncompress(bufAaa)























terça-feira, 27 de junho de 2017

AULA 1190 WinDev Arquivos 021 Procurar Arquivo

TESTE







PROCURAR ARQUIVO - SELECT - Video no Youtube Se Gostou clique aqui para dar joinha




https://doc.windev.com/en-US/?3036053&name=fSelect




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




// VOU APENAS ESCREVER FSELECT E DEIXAR O WINDEV ME AJUDAR
// I WILL JUST WRITE FSELECT AND LET WINDEV HELP ME
// VOY SOLAMENTE ESCRIBIR FSELECT Y DEJAR EL WINDEV ME AYUDAR

sFile is string

// Opens the file picker
sFile = fSelect("", "", "Seleciona Um Arquivo Xml", "Xml" + TAB + "*.xml", "*.xml")

// PESSOAL, VEJAM COMO E´SIMPLES.. EU APENAS FUI SEGUINDO E ELE GEROU AS LINHAS,BACANA
// STAFF, SEE LIKE E'SIMPLES .. I JUST FOLLOWED AND HE GENERATED THE LINES, BACANA
// Y en el caso de que se trate de una persona,

EDT_auditoria=fLoadText(sFile)

// AGORA, ESTOU LENDO COM FLOADTEXT O ARQUIVO XML E MOSTRANDO NO CAMPO EDT AUDITORIA
// NOW, I'M READING WITH FLOADTEXT THE XML FILE AND SHOWING IN THE EDIT FIELD AUDIT
// AHORA, ESTOY LENDO CON FLOADTEXT EL ARCHIVO XML Y MOSTRANDO EN EL CAMPO EDT AUDITORÍA























segunda-feira, 26 de junho de 2017

AULA 1189 WinDev Arquivos 020 Separar Nome Arquivo









Video no Youtube Se Gostou clique aqui para dar joinha




https://doc.windev.com/en-US/?3036026&name=fExtractPath


Nessa aula de hoje

VAMOS SEPARAR O ARQUIVO




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




_descricao is string
_descricao =  fExtractPath(EDT_arquivo_txt,fDirectory)
Info("DIRETORIO:"+_descricao)
_descricao =  fExtractPath(EDT_arquivo_txt,fDrive)
Info("DRIVE"+_descricao)
_descricao =  fExtractPath(EDT_arquivo_txt,fExtension)
Info("EXTENSÃO"+_descricao)
_descricao =  fExtractPath(EDT_arquivo_txt,fFileName)
Info("NOME ARQUIVO"+_descricao)
_descricao =  fExtractPath(EDT_arquivo_txt,fFileName+fExtension)
Info("NOME ARQUIVO E EXTENSÃO"+_descricao)






















Teste

Teste
teste