Jump to content
Fivewin Brasil

FiveWinBr

Membros
  • Posts

    421
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by FiveWinBr

  1. Boa tarde, Eu havia feito alguns ajustes para o Jackson relacionado a isso, acredito que pode te ajudar. https://github.com/JoseQuintas/sefazclass/blob/master/source/ze_sefazcapicom.prg Fiz a função para instalar e desinstalar o certificado. Voce pode personalizar para verficiar as datas tambem e remover o que estiver vencido etc. Att. Lailton Fernando Mariano https://www.harbour.com.br - <lailton@harbour.com.br>
  2. Eu montei uma versao do FiveWeb e estou usando a em varios projetos. Funciona 100%. No projeto uso RC ( crio as telas pelo Pelles ) Estou montando uma nova versao agora melhorada, breve terei mais informacoes. Tambem estou trabalhando em um projeto chamado "Mobile for Harbour" onde o mesmo codigo funciona tanto para Android/iOS O projeto ja esta em 90% Minha ideia é criar algo facil de trabalhar e compativel com todos os OS
  3. Boa noite, Conversei hoje com o Antonio Linares e já esta confirmado para o proximo encontro internacional ocorrer no brasil. Ainda não esta definido data nem local, mais ele estara falando com o Gilmer em breve. Comentem, qual a melhor cidade/estado para o evento, quais os temas? https://www.facebook.com/fivewin/ Tenho visto muitas pessoas falando sobre o fivetouch, fivewin entre outros, agora podemos falar com ele sobre os mesmos
  4. Sim, Código completo (PRG) sem dll.
  5. Oziel, Apartir da versao 2.6, Utilizo na versao 16.02. Vi que no seu post vc usa a 6.12 tambem é compativel Abraço.
  6. Demo: https://www.dropbox.com/s/7lgvuu5lkqkv76q/ribbon.rar?dl=0 Compativel com qualquer versao do fivewin.
  7. O demo foi feito usando FiveWin 14.2 / xHarbour / Bcc582. Custo do source 300,00. O mesmo pode ser alterado para consulta de CPF e CNPJ.
  8. Demo: https://www.dropbox.com/s/de2fz0nuonjtudn/ConsultaNFE.rar?dl=0
  9. Boa tarde, Estou em busca de trabalhos freelancer, se alguém precisa de algum tipo de rotina, ou qualquer trabalho voltado a programação web/desktop estou a disposição. E-mail/Skype: suporte@lailton.com.br Obrigado.
  10. Crisvam, Utilizo no harbour mais tem no xHarbour tambem
  11. SHA1 PROCEDURE Main() ? ">" + hb_SHA1( "hello" ) + "<" ? ">" + hb_SHA1( "hello", .F. ) + "<" ? ">" + hb_SHA1( "hello", .T. ) + "<" ? ">" + hb_HMAC_SHA1( "hello", "key" ) + "<" ? ">" + hb_HMAC_SHA1( "hello", "key", .F. ) + "<" ? ">" + hb_HMAC_SHA1( "hello", "key", .T. ) + "<" RETURN Exemplo 2 PROCEDURE Main() ? "SHA-2 FIPS 180-2 Validation tests" Test_SHA2() ? "HMAC-SHA-2 IETF Validation tests" Test_SHA2_HMAC() RETURN STATIC PROCEDURE Test_SHA2() LOCAL cMsg1 := "abc" LOCAL cMsg2a := "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq" LOCAL cMsg2b := "abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmnoijklmnopjklmnopqklmnopqrlmnopqrsmnopqrstnopqrstu" LOCAL cMsg3 := Replicate( "a", 1000000 ) LOCAL results := {; {; /* SHA-224 */ "23097d223405d8228642a477bda255b32aadbce4bda0b3f7e36c9da7" ,; "75388b16512776cc5dba5da1fd890150b0c6455cb4f58b1952522525" ,; "20794655980c91d8bbb4c1ea97618a4bf03f42581948b2ee4ee7ad67" },; {; /* SHA-256 */ "ba7816bf8f01cfea414140de5dae2223b00361a396177a9cb410ff61f20015ad" ,; "248d6a61d20638b8e5c026930c3e6039a33ce45964ff2167f6ecedd419db06c1" ,; "cdc76e5c9914fb9281a1c7e284d73e67f1809a48a497200e046d39ccc7112cd0" },; {; /* SHA-384 */ "cb00753f45a35e8bb5a03d699ac65007272c32ab0eded1631a8b605a43ff5bed8086072ba1e7cc2358baeca134c825a7" ,; "09330c33f71147e83d192fc782cd1b4753111b173b3b05d22fa08086e3b0f712fcc7c71a557e2db966c3e9fa91746039" ,; "9d0e1809716474cb086e834e310a4a1ced149e9c00f248527972cec5704c2a5b07b8b3dc38ecc4ebae97ddd87f3d8985" },; {; /* SHA-512 */ "ddaf35a193617abacc417349ae20413112e6fa4e89a97ea20a9eeee64b55d39a2192992a274fc1a836ba3c23a3feebbd454d4423643ce80e2a9ac94fa54ca49f" ,; "8e959b75dae313da8cf4f72814fc143f8f7779c6eb9f7fa17299aeadb6889018501d289e4900f7e4331b99dec4b5433ac7d329eeb6dd26545e96e55b874be909" ,; "e718483d0ce769644e2e42c7bc15b4638e1f98b13b2044285632a803afa973ebde0ff244877ea60a4cb0432ce577c31beb009c5c2c49aa2e4eadb217ad8cc09b" } } ? StrToHex( hb_SHA224( cMsg1 ) ) == results[ 1 ][ 1 ] ? StrToHex( hb_SHA224( cMsg2a ) ) == results[ 1 ][ 2 ] ? StrToHex( hb_SHA224( cMsg3 ) ) == results[ 1 ][ 3 ] ? StrToHex( hb_SHA256( cMsg1 ) ) == results[ 2 ][ 1 ] ? StrToHex( hb_SHA256( cMsg2a ) ) == results[ 2 ][ 2 ] ? StrToHex( hb_SHA256( cMsg3 ) ) == results[ 2 ][ 3 ] ? StrToHex( hb_SHA384( cMsg1 ) ) == results[ 3 ][ 1 ] ? StrToHex( hb_SHA384( cMsg2b ) ) == results[ 3 ][ 2 ] ? StrToHex( hb_SHA384( cMsg3 ) ) == results[ 3 ][ 3 ] ? StrToHex( hb_SHA512( cMsg1 ) ) == results[ 4 ][ 1 ] ? StrToHex( hb_SHA512( cMsg2b ) ) == results[ 4 ][ 2 ] ? StrToHex( hb_SHA512( cMsg3 ) ) == results[ 4 ][ 3 ] RETURN STATIC PROCEDURE Test_SHA2_HMAC() LOCAL aMsg := {; "Hi There",; "what do ya want for nothing?",; Replicate( hb_BChar( 0xdd ), 50 ),; Replicate( hb_BChar( 0xcd ), 50 ),; "Test With Truncation",; "Test Using Larger Than Block-Size Key - Hash Key First",; "This is a test using a larger than block-size key and a larger than block-size data. The key needs to be hashed before being used by the HMAC algorithm." } LOCAL results := {; "896fb1128abbdf196832107cd49df33f47b4b1169912ba4f53684b22",; /* HMAC-SHA-224 */ "a30e01098bc6dbbf45690f3a7e9e6d0f8bbea2a39e6148008fd05e44",; "7fb3cb3588c6c1f6ffa9694d7d6ad2649365b0c1f65d69d1ec8333ea",; "6c11506874013cac6a2abc1bb382627cec6a90d86efc012de7afec5a",; "0e2aea68a90c8d37c988bcdb9fca6fa8",; "95e9a0db962095adaebe9b2d6f0dbce2d499f112f2d2b7273fa6870e",; "3a854166ac5d9f023f54d517d0b39dbd946770db9c2b95c9f6f565d1",; "b0344c61d8db38535ca8afceaf0bf12b881dc200c9833da726e9376c2e32cff7",; /* HMAC-SHA-256 */ "5bdcc146bf60754e6a042426089575c75a003f089d2739839dec58b964ec3843",; "773ea91e36800e46854db8ebd09181a72959098b3ef8c122d9635514ced565fe",; "82558a389a443c0ea4cc819899f2083a85f0faa3e578f8077a2e3ff46729665b",; "a3b6167473100ee06e0c796c2955552b",; "60e431591ee0b67f0d8a26aacbf5b77f8e0bc6213728c5140546040f0ee37f54",; "9b09ffa71b942fcb27635fbcd5b0e944bfdc63644f0713938a7f51535c3a35e2",; "afd03944d84895626b0825f4ab46907f15f9dadbe4101ec682aa034c7cebc59cfaea9ea9076ede7f4af152e8b2fa9cb6",; /* HMAC-SHA-384 */ "af45d2e376484031617f78d2b58a6b1b9c7ef464f5a01b47e42ec3736322445e8e2240ca5e69e2c78b3239ecfab21649",; "88062608d3e6ad8a0aa2ace014c8a86f0aa635d947ac9febe83ef4e55966144b2a5ab39dc13814b94e3ab6e101a34f27",; "3e8a69b7783c25851933ab6290af6ca77a9981480850009cc5577c6e1f573b4e6801dd23c4a7d679ccf8a386c674cffb",; "3abf34c3503b2a23a46efc619baef897",; "4ece084485813e9088d2c63a041bc5b44f9ef1012a2b588f3cd11f05033ac4c60c2ef6ab4030fe8296248df163f44952",; "6617178e941f020d351e2f254e8fd32c602420feb0b8fb9adccebb82461e99c5a678cc31e799176d3860e6110c46523e",; "87aa7cdea5ef619d4ff0b4241a1d6cb02379f4e2ce4ec2787ad0b30545e17cdedaa833b7d6b8a702038b274eaea3f4e4be9d914eeb61f1702e696c203a126854",; /* HMAC-SHA-512 */ "164b7a7bfcf819e2e395fbe73b56e0a387bd64222e831fd610270cd7ea2505549758bf75c05a994a6d034f65f8f0e6fdcaeab1a34d4a6b4b636e070a38bce737",; "fa73b0089d56a284efb0f0756c890be9b1b5dbdd8ee81a3655f83e33b2279d39bf3e848279a722c806b485a47e67c807b946a337bee8942674278859e13292fb",; "b0ba465637458c6990e5a8c5f61d4af7e576d97ff94b872de76f8050361ee3dba91ca5c11aa25eb4d679275cc5788063a5f19741120c4f2de2adebeb10a298dd",; "415fad6271580a531d4179bc891d87a6",; "80b24263c7c1a3ebb71493c1dd7be8b49b46d1f41b4aeec1121b013783f8f3526b56d037e05f2598bd0fd2215d6a1e5295e64f73f63f0aec8b915a985d786598",; "e37b6a775dc87dbaa4dfa9f96e5e3ffddebd71f8867289865df5a32d20cdc944b6022cac3c4982b10d5eeb55c3e4de15134676fb6de0446065c97440fa8c6a58"} LOCAL keys := {; Replicate( hb_BChar( 0x0b ), 20 ),; "Jefe",; Replicate( hb_BChar( 0xaa ), 20 ),; "",; Replicate( hb_BChar( 0x0c ), 20 ),; Replicate( hb_BChar( 0xaa ), 131 ),; Replicate( hb_BChar( 0xaa ), 131 ) } LOCAL tmp FOR tmp := 1 TO 25 keys[ 4 ] += hb_BChar( tmp ) NEXT FOR tmp := 1 TO 7 IF tmp != 5 ? StrToHex( hb_HMAC_SHA224( aMsg[ tmp ], keys[ tmp ] ) ) == results[ tmp ] ? StrToHex( hb_HMAC_SHA256( aMsg[ tmp ], keys[ tmp ] ) ) == results[ tmp + 7 ] ? StrToHex( hb_HMAC_SHA384( aMsg[ tmp ], keys[ tmp ] ) ) == results[ tmp + 14 ] ? StrToHex( hb_HMAC_SHA512( aMsg[ tmp ], keys[ tmp ] ) ) == results[ tmp + 21 ] /* We don't support these MAC sizes */ /* ELSE mac_224_size = 128 / 8; mac_256_size = 128 / 8; mac_384_size = 128 / 8; mac_512_size = 128 / 8; */ ENDIF NEXT RETURN STATIC FUNCTION StrToHex( cString ) RETURN Lower( cString )
  12. Nao sei se é o seu problema, mais vai uma dica, certifique que a libmysql.dll que esta na pasta do seu aplicativo é a mesma que esta na pasta dll do tdolphin, se for outra versao da dll (MySQL) pode ocorrer de algumas funções nao funcionar e da debug fechando o sistema sem erro.
  13. Simula o CLICK em determinado objeto dentro do 'browse', no caso acima o botao consultar.
  14. Boa tarde, Esta errado isso aqui: * Função : Classe para efetuar o Download do Xml no Portal Nacional * Data : 20/03/2014 14:00:00 Por : Alain/Rancharia Esta class foi eu quem desenvolvi para fivewin. ao menos coloque o autor correto. E isso nao faz o download do arquivo, apenas baixa os dados da XML exibida no site, caso queira baixar o arquivo tera que usar a chave.
  15. http://www.4shared.com/zip/TCN3BUvIba/sped-contabil.html
  16. Eu tenho uma classe pronta funcionando com a sitef se tiver interesse entre em contato.
  17. Crisvam, Link para download. http://fivewin.com.br/index.php?/files/file/1101-sped-contabil/
  18. Boa tarde, Eu cheguei a fazer uma vez, vou ver se encontro o arquivo e posto para você verificar. No caso a 'class' montava e gerava o .txt e o contador so importava no sistema dele. tem varios layouts e cada contador segue um padrao, me lembro de ter feito varios layouts diferentes. vou procurar se achar posto.
  19. Boa Kleybao Aproveitando o embalo, de uma estudada na tdolphin e tente usar SQL nativo sem SQLLIB, você tera um desempenho muito superior Abraço
  20. Tenta com: MsgRun( 'MySQL Dump','Aguarde...',{||WINEXEC('CMD /C ' +cPathMysql+"\mysqldump -hservidor -uusuario -psenha bd tabela > c:\tabela.sql", 0 )})
  21. Oscar, Um ponto bacana tambem é que o Harbour não tem versão comercial, vejo um maior ganho em recursos nele, ja o xHarbour tem o free e o comercial, ai ele tem update muito pouco perto do harbour se você analisar. Ambos sao bons, eu uso harbour porque nao uso sqlrdd, e sim TDolphin que as SQL sao tudo nativo e facil migraçao Vale apena testar e tirar suas conclusoes, se nao depende do sqlrdd vai de harbour.
  22. Oscar, quanto ao hbmake vc vai ter o hbmk2 no harbour ainda mais facil de usar eu migrei do xharbour para harbour, ja desenvolvi varios app com ele, o resultado que tive foi aplicativo rodando mais rapido ( mais velocidade nao e; tudo pq nao e corrida xD ), menos consumo de recurso do pc ( memoria etc ). como deixei de usar o dbf e migrei a SQL ( usando a TDolphin ) fico muito massa. Vale apena fazer seus testes
  23. Utilizo fivewin com windows 8 normal, tanto 32 e 64 bits. Qual o problema você tem na compilacão ?
  24. Oscar, dentro da pasta: D:\xharbour\source\tip\encoding tem o base64.c e base64.h, compile junto com seu sistema que deve resolver.
×
×
  • Create New...