quarta-feira, 11 de outubro de 2017

AULA 1270 STRING 045 NUMTROSTRING - 09-10-2017







Blog - WinDev - Curso String - 001/... - Zeros direita - Rigth
Blog - WinDev - Curso String - 002 - Retirar texto Bloco String
Blog - WinDev - Curso String - 003 - Tamanho das Strings - Length
Blog - WinDev - Curso String - 004 - Transformar String Base 654 Em pdf
Blog - WinDev - Curso String - 005 - Retirar Texto do Lado Esquerdo e Direito
Blog - WinDev - Curso String - 006 - Complet - Completar Strings - Remessa Banco
Blog - WinDev - Curso String - 007 - Contains - Contem
Blog - WinDev - Curso String - 008 - Tirar pontos Cnpj - Replace
Blog - WinDev - Curso String - 009 - String - Placa - LLL9999
Blog - WinDev - Curso String - 010 - StringBuild
Blog - WinDev - Curso String - 011 - StringFormat
Blog - WinDev - Curso String - 012 - StringIncrement
Blog - WinDev - Curso String - 013 - Tirando Enter Observação
Blog - WinDev - curso String - 014 - Rtf - Colorir String
Blog - WinDev - Curso String - 015 - Multilinhas Strings
Blog - WinDev - Curso String - 016 - Numeracao Campo Dim
Blog - WinDev - Curso String - 017 - Numeracao - Juntar Numeracao e Pares
Blog - WinDev - Curso String - 018 - RTF - Posicionar e Colorir
Blog - WinDev - Curso String - 019 - Array guadar e ler codigo/nome - Associative Array
Blog - WinDev - Curso String - 020 - Array - Ver Se Existe -: ..exists
Blog - WinDev - Curso String - 021 - Campo - Posicionar Campo no Final - Cursor - Setfocus
Blog - WinDev - Curso String - 022 - Cep Formatar
Blog - WinDev - Curso String - 023 - Rtf Somar Quantas Linhas
Blog - WinDev - Curso String - 024 - ExtracLine - Extrair Linha
Blog - WinDev - Curso String - 025 - Contains - Ver se Tem dentro String
Blog - WinDev - Curso String - 026 - NoSpace - Elimina Espacos
Blog - WinDev - Curso String - 027 - Lower - Minusculo
Blog - WinDev - Curso String - 028 - Replace - Substituir
Blog - WinDev - Curso String - 029 - Upper - Maiuscula
Blog - WinDev - Curso String - 030 - Middle
Blog - WinDev - Curso String - 031 - NoSpace
Blog - WinDev - Curso String - 032 - RepeatString
ChaîneDécoupe - Blog - WinDev - Curso String - 033 - Extrai String com Separador
Blog - WinDev - Curso String - 034 - NoCharacter
Blog - WinDev - Curso String - 035 - StringCount - Quantos tem na pesquisa
Caixa - Fazer uma Caixa - String 036/...
For Each - Separar texto com Cr - WinDev String 037/...
RETIRAR TEXTO - WINDEV STRING 038 - AULA 1226
PROCURAR TEXTO - POSITION - WINDEV STRING 039 - AULA 1227
ACENTUAÇÃO XML - StringToUTF8 - WINDEV STRING 040 - AULA 1228
EXTRAIR TEXTO - WINDEV STRING 041 - AULA 1246
MINUSCULA POR MAISUSCULA - UPPER - WINDEV STRING 042 AULA 1250
TIRA ESPACOS ENTRE PALAVRAS - STRING 043 - AULA 1263
PLACA CARRO - STRING 044 - AULA 1264

Pergunta do Ronaldo Silva

Bom dia.
Preciso pegar um número, 53 por exemplo e transformá-lo em 000000000000053, ou qualquer outro que não seja maior que 15 posições.
Agradeço pela ajuda.



EDT_RESULTADO_1=NumToString(EDT_VALOR*100,"015D")
        // 000000000001051
     
     
EDT_RESULTADO_2=NumToString(EDT_VALOR,"015.2f")
// 000000001051.00



VIDEO YOUTUBE



https://doc.windev.com/en-US/?3024024&name=NumToString






















Postado por às Nenhum comentário:
Marcadores:

quinta-feira, 5 de outubro de 2017

AULA 1269 COMANDOS 019 GOTO







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



http://doc.windev.com/en-US/?1510005&name=GOTO



IF EDT_Codigo_tomador<>0 THEN
HReadSeekFirst(empresa,id_empresa,gnEmpresaCodigo)
HReadSeekFirst(cliente,cliente.id_empresa_cliente,EDT_Codigo_tomador)
STC_NomeTomador=""
IF HFound(cliente) THEN
STC_NomeTomador = NoSpace(cliente.razao_social_nome)
STC_NomeTomador+=" - " + cliente.endereco_cidade +" - " + NoSpace(cliente.endereco_uf)
IF cliente.endereco_uf=empresa.endereco_uf THEN
EDT_Id_operacao=empresa_parametro_conhecimento.CFOP
EDT_NatOp=empresa_parametro_conhecimento.natOp
ELSE
EDT_Id_operacao=empresa_parametro_conhecimento.cfop_fora_estado
EDT_NatOp=empresa_parametro_conhecimento.natop_fora_Estado
END
COMBO_Termino_uf_fim=cliente.endereco_uf
ListSelectPlus(COMBO_Termino_uf_fim)
EDT_Termino_xmun_fim=cliente.endereco_cidade
EDT_Termino_cmun_fim=cliente.endereco_cmun
VERIFICA_TOMADOR()
ELSE
Info("Nao Existe Tomador")
ReturnToCapture(EDT_Codigo_tomador)
END
END

INTERNAL PROCEDURE VERIFICA_TOMADOR()

verificatomador:
SWITCH cliente.indicador_tomador
CASE 1,2,9
Info("CORRETO")
OTHER CASE
_indIEToma is string=""
s_texto is string=[
INFORMAR indIEToma
======================================================
Cliente: #cliente.razao_social_nome#
Cnpj: #cliente.cnpj_cpf#
Inscricao Estadual: #cliente.inscricao_estadual#
======================================================
Indicador do papel do tomador na prestação do serviço
1 – Contribuinte ICMS
2 – Contribuinte isento de inscrição
9 – Não Contribuinte
]
s_texto=Replace(s_texto,"#cliente.razao_social_nome#",cliente.razao_social_nome)
s_texto=Replace(s_texto,"#cliente.cnpj_cpf#",cliente.cnpj_cpf)
s_texto=Replace(s_texto,"#cliente.inscricao_estadual#",cliente.inscricao_estadual)
Input(s_texto,_indIEToma)
cliente.indicador_tomador=_indIEToma
HModify(cliente)

GOTO verificatomador

END


END



Windev Curso Comandos/1 ... Condição - If
Windev Curso Comandos/2 ... Condição - Switch
Windev Curso Comandos/3 ... Loop
Windev Curso Comandos/4 ... WHILE
Windev Curso Comandos/5 ... For
Windev Curso Comandos/6 ... For Tabelas
Windev Curso Comandos/7 ... For String
Windev Curso Comandos/8 ... For Table
Windev Curso Comandos/9 ... Stop 
Windev Curso Comandos/10 ... BrowserRunApp
Windev Curso Comandos/10 ... With
Windev Curso Comandos/11 ... Executecode
Procedure - Duas Maneiras - Comandos 12/...
PROCEDURES 2 MANEIRAS MANDAR INFORMACOES - COMANDOS 013 / AULA 1068
ARREDONDAMENTO - COMANDOS 014 / AULA 1193
MAIOR VALOR - MAX - COMANDOS 015 / AULA 1194
MINIMO VALOR - MIN - COMANDOS 016 / AULA 1195
RoundDown - ARREDONDAMENTO INFERIRO - COMANDOS 017 - AULA 1196
InTestMode - como Saber se estamos no teste - COMANDOS 018 - AULA 1267
GOTO - VA PARA - COMANDOS 019 - AULA 1269


















Postado por às Nenhum comentário:
Marcadores:

quarta-feira, 4 de outubro de 2017

AULA 1268 ARQUIVOS 022 LER aRQUIVOS DIRETORIO







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



https://doc.windev.com/en-US/?3036058&name=fListFile



EDT_DIRETORIO = fSelectDir("", "")

s_arquivos_todos is string=fListFile(EDT_DIRETORIO+"\*.*")

s_arquivo_individual is string=""

FOR EACH STRING s_arquivo_individual OF s_arquivos_todos SEPARATED BY CR
gs_manifestacao="NAO"
EDT_xml_nome=s_arquivo_individual
EDT_xml=""
s_xml_documento is string=s_arquivo_individual
s_meu_xml is string=fLoadText(s_xml_documento)
IF s_meu_xml<>"" THEN
EDT_xml=s_meu_xml
_710_001_levar_notas_ind()
_801_Gravar_nota()
END
END
gb_importar_varios_xml=False
Info("Finalizado Importação ")
















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 -





Postado por às Nenhum comentário:
Marcadores:

segunda-feira, 2 de outubro de 2017

AULA 1267 COMANDOS 018 InTestMode






Windev Curso Comandos/1 ... Condição - If
Windev Curso Comandos/2 ... Condição - Switch
Windev Curso Comandos/3 ... Loop
Windev Curso Comandos/4 ... WHILE
Windev Curso Comandos/5 ... For
Windev Curso Comandos/6 ... For Tabelas
Windev Curso Comandos/7 ... For String
Windev Curso Comandos/8 ... For Table
Windev Curso Comandos/9 ... Stop 
Windev Curso Comandos/10 ... BrowserRunApp
Windev Curso Comandos/10 ... With
Windev Curso Comandos/11 ... Executecode
Procedure - Duas Maneiras - Comandos 12/...
PROCEDURES 2 MANEIRAS MANDAR INFORMACOES - COMANDOS 013 / AULA 1068
ARREDONDAMENTO - COMANDOS 014 / AULA 1193
MAIOR VALOR - MAX - COMANDOS 015 / AULA 1194
MINIMO VALOR - MIN - COMANDOS 016 / AULA 1195
RoundDown - ARREDONDAMENTO INFERIRO - COMANDOS 017 - AULA 1196
InTestMode - como Saber se estamos no teste - COMANDOS 018 - AULA 1267
GOTO - VA PARA - COMANDOS 019 - AULA 1269



// VAMOS SUPOR QUE EU QUERO COLOCAR UM INFO PARA MOSTRAR ALGO, MAS SOMENTE QUANDO ESTOU TESTANDO
// E NAO NO EXECUTAVEL DO CLIENTE
// https://doc.windev.com/en-US/?3013011&name=InTestMode


IF InTestMode()=True THEN

Info("EDT_Codigo_remetente_112:"+CR+EDT_Codigo_remetente_112)

END



https://doc.windev.com/en-US/?3013011&name=InTestMode


video no Youtube sobre InTestMode





















Postado por às Nenhum comentário:
Marcadores:
Assinar: Postagens (Atom)

Teste

Teste
teste