fladimir
Membros-
Posts
364 -
Joined
-
Last visited
-
Days Won
12
Everything posted by fladimir
-
Tenho o Skype... lailtonfernandomariano
-
Funcao para mostar erros, avisos, informaçoes, ao usuario
fladimir replied to marcioe's topic in Programação
A ideia é ótima Marcio, mas não seria melhor já ir informando e o usuário vai corrigindo a medida q vai preenchendo a nota... exemplo escolheu o destinatário faltou o endereço já abre pra alterar e já fica corrigido etc.. faltou NCM já abre pra preencher e já fica corrigido na ficha do produto e vai continuando, ou seja, já vai apresentando os problemas e corrigindo de forma definitiva. Pq desta forma q apresentou ao meu ver o usuário terá q sair e arrumar tudo pra voltar a emissão ou entendi errado? []´s -
E ai galera salve salve... eu sofri um bom tempo com isto... Já fiz de várias formas... hj faço semelhante ao Samir... Ana do jeito q vc faz, se entendi bem, é a forma q eu fazia antes, mas experimente o seguinte coloque itens de maior valor primeiro e no final 1 item de menor valor... exemplo Item A..... qtd 2 unitario 50,00 total 100,00 Item B qtd 1 unitario 80,00 total 80,00 Item C Qtd 20 unitario 0,12 total 2,40 Depois de um desconto de 10%... Eu não lembro exatamente, mas tem uma forma q deixando pra tirar a diferença do último fura... tive problemas com isto, não sei se é a forma q vc faz, eu queria lembrar exatamente pra vc testar ai pra ver se da certo, lembro q é itens de maior valor em cima e um de pequeno valor por ultimo... []´s
-
SP ou PR pra mim tanto faz... farei o máximo pra estar... quero muito participar... nunca fui em encontros de programação xBase etc..
-
Estarei em SP em Setembro se for por essa data já estarei lá, se for depois me programo aki e vou. []´s
-
Tentei entender mas não consegui chegar... pensei em algo tipo o código abaixo mas na parte dos negativos não dá. func main aBase := {4,6,4} aNova := {} while len(aBase) > 1 aNova := array(len(aBase)-1) for i:=len(aBase) to 2 STEP -1 nResultado := aBase[i] - aBase[i-1] aNova[i-1] := nresultado next aBase := aNova end return Agora fiquei curioso... alguém conseguiu montar uma formula pra resolver? []´s
-
BETWEEN tem em SQL, talvez outras linguagens... agora em Harbour desconheço se bem q da pra fazer um #translate
-
Se teu Windows for 64 usa o Firebird 64, pode ser isto..
-
Tem sim.... Nunca fiz mas já li a respeito... poderia ser um HD espelhado... ou até um outro micro espelhado... ai parou 1 o outro assume (agora não sei se esse outro assume como seria)
-
Ele baixa o XML tb ou apenas a consulta?
-
Tem o ACBr e o projeto hbNFe tb
-
A Classe TReg32() não resolveria? No forum fivetech tem alguns exemplos.
-
Link quebrado... alguém teria?
-
CEST - Obrigatoriedade será prorrogada novamente. Confirma?
fladimir replied to Ariston Santos's topic in Programação
Nova data OFICIAL é 1º de OUTUBRO / 2016 -
No projeto hbNFe tem um método para consultar e baixar os xmls e decodificar com esta função.
-
Quando baixa xml do site do governo via webservice (baixa com certificado) Consulta NFe Destinadas vem tb criptografado ai tem q descriptografar.
-
Eita.... Q coisa... Vou esperar algum contador falar comigo pq pelo q vi tem alguns estados q não tem isso definido, no próprio link q vc mandou tem estados q clicamos q não dá.
-
Não to sabendo.... O q teremos q fazer então?
-
Legal a dica Leonardo... vlw
-
Isso já foi discutido aki no fórum Fivewin se não me engano e o Leonardo (Sygecom) usa ou usou o AppInventor para questões mobile Android e pelo me lembro é recomendável no caso dos Androids + BD MySQL por exemplo. Se alguém puder confirmar...
-
Parabéns muito útil...
-
Pra extrair o captcha da chave encriptada da pra fazer assim: // cHTML Conteudo da Pagina HTML carregada. nTotLin := MlCount(cHTML, 255) For i:=0 to nTotLin cLinha := Memoline(cHTML, 50000,i) //-- pegar base64 salvar imagem e mostrar if 'data:image/png;base64,' $ cLinha cKeyEncodeBase64 := SubStr(cLinha, At('base64,',cLinha) + 7) cKeyEncodeBase64 := SubStr(cKeyEncodeBase64, 1, RAt( '" border', cKeyEncodeBase64) -1) FErase('c:\teste.png') hb_MemoWrit('c:\teste.png', hb_base64Decode( cKeyEncodeBase64 )) endif NEXT
-
Com relação ao captcha descobri algo q talvez possa ajudar, quem sabe até alguém aki já saiba, em todo caso eu não sabia e achei interessante vamos lá... Estudando esses negócios de Shell.Explorer / Internet.Aplication etc... no intuito de manipular as paginas pra ter os resultados q almejamos (tem vários exemplos aki no fórum) mas como bons programadores gostamos de "fuçar" kkk... Ai o q eu fiz foi carregar a pagina do portal nacional de consulta a NFe e salvar o html e estudar ele um pouco... percebi q o Captcha é uma imagem criptografada em Base64 (ohhh eu não sabia....) então o q eu fiz foi pesquisar como DECODIFICAR esse Base64, o máximo q consegui foi pegar a string da criptografica Base64 e gerar a imagem novamente... Ou seja, qdo carrego a pagina do portal nacional o captcha esta na seguinte linha: src="data:image/png;base64, aki vem um código gigantesco q é a imagem criptografada em BASE64... " border="0" /> Ai se pegamos esse string criptografada e decodificamos e salvamos temos o arquivo da imagem do Captcha q podemos carregar pra mostrar bonitinho como vemos na aplicação de alguns colegas. Pra mim foi uma descoberta muito legal e quem sabe tb a partir dai possamos ir além.... []´s