Jump to content
Fivewin Brasil

gilmer

Administrador
  • Posts

    3,036
  • Joined

  • Last visited

  • Days Won

    34

Reputation Activity

  1. Like
    gilmer got a reaction from rochinha in dashboard   
    Bom Dia,
        Aqui fizemos umas classes novas para dashboard 
     
      




  2. Like
    gilmer got a reaction from vailtom in PIX - QR CODE   
    Bom Dia,
    Segue abaixo arrumado 
    #pragma BEGINDUMP
    #include <Windows.h>
    #include <hbapi.h>

    #ifndef DEF_LIBCRC_CHECKSUM_H
    #define DEF_LIBCRC_CHECKSUM_H
    #define     CRC_POLY_CCITT    0x1021
    #define     CRC_START_CCITT_FFFF 0xFFFF
    uint16_t    crc_ccitt_ffff(    const unsigned char *input_str, size_t num_bytes       );
    #endif  // DEF_LIBCRC_CHECKSUM_H

    static uint16_t      crc_ccitt_generic( const unsigned char *input_str, size_t num_bytes, uint16_t start_value );
    static void             init_crcccitt_tab( void );
    static BOOL             crc_tabccitt_init       = FALSE;
    static uint16_t         crc_tabccitt[256];
    static BOOL    crc_tab_init      = FALSE;
    static uint16_t      crc_tab[256];
    /*
        * uint16_t crc_ccitt_ffff( const unsigned char *input_str, size_t num_bytes );
        *
        * The function crc_ccitt_ffff() performs a one-pass calculation of the CCITT
        * CRC for a byte string that has been passed as a parameter. The initial value
        * 0xffff is used for the CRC.
        */
    uint16_t crc_ccitt_ffff( const unsigned char *input_str, size_t num_bytes ) {
        return crc_ccitt_generic( input_str, num_bytes, CRC_START_CCITT_FFFF );
    }  /* crc_ccitt_ffff */
    /*
        * static uint16_t crc_ccitt_generic( const unsigned char *input_str, size_t num_bytes, uint16_t start_value );
        *
        * The function crc_ccitt_generic() is a generic implementation of the CCITT
        * algorithm for a one-pass calculation of the CRC for a byte string. The
        * function accepts an initial start value for the crc.
        */
    static uint16_t crc_ccitt_generic( const unsigned char *input_str, size_t num_bytes, uint16_t start_value ) {
        uint16_t crc;
        uint16_t tmp;
        uint16_t short_c;
        const unsigned char *ptr;
        size_t a;
        if ( ! crc_tabccitt_init ) init_crcccitt_tab();
        crc = start_value;
        ptr = input_str;
        if ( ptr != NULL ) for (a=0; a<num_bytes; a++) {
            short_c = 0x00ff & (unsigned short) *ptr;
            tmp     = (crc >> 8) ^ short_c;
            crc     = (crc << 8) ^ crc_tabccitt[tmp];
            ptr++;
        }
        return crc;
    }  /* crc_ccitt_generic */
    /*
        * static void init_crcccitt_tab( void );
        *
        * For optimal performance, the routine to calculate the CRC-CCITT uses a
        * lookup table with pre-compiled values that can be directly applied in the
        * XOR action. This table is created at the first call of the function by the
        * init_crcccitt_tab() routine.
        */
    static void init_crcccitt_tab( void ) {
        uint16_t i;
        uint16_t j;
        uint16_t crc;
        uint16_t c;
        for (i=0; i<256; i++) {
            crc = 0;
            c   = i << 8;
            for (j=0; j<8; j++) {
                if ( (crc ^ c) & 0x8000 ) crc = ( crc << 1 ) ^ CRC_POLY_CCITT;
                else                      crc =   crc << 1;
                c = c << 1;
            }
            crc_tabccitt = crc;
        }
        crc_tabccitt_init = TRUE;
    }
    // ========================================================================
    HB_FUNC( C_EMTCRC_CCITT_FFFF ) // cText --> nTextCRC
    {
        hb_retnl( crc_ccitt_ffff( ( unsigned char *  ) hb_parc( 1 ), hb_parclen( 1 ) ) );
    }
    #pragma ENDDUMP
      
  3. Like
    gilmer got a reaction from rochinha in Nota de Falecimento   
    Comunicamos o falecimento do Elias Abrão Júnior nada data 20/09/2017,  membro antigo desta comunidade.
    Lamentamos o ocorrido e oferecemos aos familiares nossas condolências, bem como nossos mais estimados préstimos.
  4. Like
    gilmer got a reaction from rochinha in Nota de Falecimento.   
    Esta doença é lamentável! certamente descansou!
     
  5. Like
    gilmer got a reaction from kapiaba in Para Gilmer e Edvaldo:   
    Olá,
    Não precisa alterar a classe tget, veja o exemplo testget3.prg e veja as propriedades:
    oGet:lDisColors := .f. // desativa a cor de desativado
    oGet:nClrTextDis := CLR_WHITE // cor do texto quando estiver desativado o GET
    oGet:nClrPaneDis := CLR_BLUE // cor do fundo quando estiver desativado o GET
    Obs. isto é para as versões mais recentes do FiveWin
    e-mail: gilmer@fivewin.com.br
    msn: fivewinbrasil@hotmail.com
  6. Like
    gilmer got a reaction from Jmsilva in Diferença entre Embarcadero 32-bit BCC 7.30 e Borland 32-bit BCC 5.8.2   
    Bom Dia, 
         Na verdade o BCC é um produto pago, mas acredito ser possível encontrar esta informação no site deles ou enviando um e-mail para uma futura compra passem os release notes.
     
     
     
  7. Like
    gilmer got a reaction from kapiaba in Xharbour 64 bits Windows   
    Sim! 
  8. Like
    gilmer got a reaction from frkiko in Erro 999 (Resolvido)   
    Bom Dia,
        Exite a vonfeutil2g.log que pode ser analisado e também na pasta nfe_util da dll tem uma pasta que a dll gera log. 
     
  9. Like
    gilmer got a reaction from jfaguiar in Contrib PGSQL   
    http://www.xharbour.org/
     
  10. Like
    gilmer got a reaction from rochinha in DICA INTERESSANTÍSSIMA   
    Rochinha! Você falou tudo! 
    Com isto gera outros reflexos, no meu caso, as empresas estão precisando também sair da zona de conforto e começam a investir em consultorias, como isto gera uma demanda de novas necessidades e inclusive novas parcerias, imagine tudo isto junto! 
    Infelizmente este é o Brasil!
     
  11. Like
    gilmer got a reaction from crisvam in Erro 5002 NFE 4.0   
    Execute o windows update, até a ultima atualização que existir, irá resolver seu problema.
     
  12. Like
    gilmer got a reaction from kapiaba in Erro 5002 NFE 4.0   
    Execute o windows update, até a ultima atualização que existir, irá resolver seu problema.
     
  13. Like
    gilmer got a reaction from crisvam in Duvida sobre NFe 4.0   
    Já é permitido! A NFCe já entrou em produção a 4.0 e em outubro desativa a versão anterior 
  14. Like
    gilmer got a reaction from kapiaba in VoNfeUtil2G Nfe 4.0 Atualização   
    Boa Tarde,
    Amanha estarei disponibilizando outra.
     
     
  15. Like
    gilmer got a reaction from jfaguiar in Cancelamento de NFe.   
    A Flexdocs tem o cancelamento por evento
    http://www.flexdocs.com.br/guianfe/WS.canc.cancelaEvento.html
    este permite passar a diferença de fuso, quando não enviado ela passa o padrão (windows).
     
     
     
     
  16. Like
    gilmer got a reaction from Luiz Fernando in Method EnviaEmail (Classe do Gilmer)   
    Que eu saiba a flexdocs não mudou nada, passe o parâmetro tipo 1 que irá usar o recurso da flexdocs
    Caso não passe no New, default será 1, neste caso terá que abrir um chamado na flexdocs
     
     
  17. Like
    gilmer got a reaction from Luiz Fernando in NFE 4.0 devolução   
    Não é assim que usa
    oRef:=TVoNfeRefNf()
    oRef:mod:="2D"
     oRef:nEcf:="001"
    oRef:nCOO:="0001" 
    oNfe:AddItem(oRef)
    // Para cada modelo usa as tags necessárias 
     
  18. Like
    gilmer got a reaction from Valdir in Cancelamento de NFe.   
    A Flexdocs tem o cancelamento por evento
    http://www.flexdocs.com.br/guianfe/WS.canc.cancelaEvento.html
    este permite passar a diferença de fuso, quando não enviado ela passa o padrão (windows).
     
     
     
     
  19. Like
    gilmer got a reaction from Valdir in NFe - Certficado Digital.   
    Verifique se na classe, não esta passando a chave do certificado de forma fixa, mesmo você selecionando.
     
  20. Like
    gilmer got a reaction from JUDSON ROSA in VoNfeUtil2G Nfe 4.0 Atualização   
    Bom Dia,
     
          Em anexo uma nova atualização.
    vonfeutil2g_v4_3.zip
  21. Like
    gilmer got a reaction from kapiaba in VoNfeUtil2G Nfe 4.0 Atualização   
    Na rotina ele já ira apresentar uma mensagem com o MsgStop que teve erro, já esta dentro da rotina.
    Eu sugiro usar apenas uma vez antes de iniciar o processo de transmissão de nota, ou seja, na primeira vez da criação do objeto TVoNfeUtil2G
     
     
  22. Like
    gilmer got a reaction from sistem in VoNfeUtil2G Nfe 4.0   
    Bom Dia,
       Ele não deve estar encontrando o XML ao usar o BUSCANFE, apresentando este erro.
     
     
  23. Like
    gilmer got a reaction from KennethTymnLY in Configurando e Usando o Fivewin (Demo)   
    Este tópico é reservado para comentários e discussões que envolvam o artigo Configurando e Usando o Fivewin (Demo):
    Este artigo ensina a configurar e a usar o Fivewin (Demo).
  24. Like
    gilmer got a reaction from Ronaldbuch in Configurando e Usando o Fivewin (Demo)   
    Este tópico é reservado para comentários e discussões que envolvam o artigo Configurando e Usando o Fivewin (Demo):
    Este artigo ensina a configurar e a usar o Fivewin (Demo).
  25. Like
    gilmer got a reaction from GeraldLole in Como criar as classes ?   
    Olá,
    Você não vai achar nada exclusivo para FW, basta ver os exemplos em C/C++ que será muito próximo do FW as funções da API, só que na postagem vc falou de classe e não de funções da API do Windows.
    e-mail: gilmer@fivewin.com.br
    msn: fivewinbrasil@hotmail.com
×
×
  • Create New...