-
Posts
3,036 -
Joined
-
Last visited
-
Days Won
34
Reputation Activity
-
-
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
-
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.
-
gilmer got a reaction from rochinha in Nota de Falecimento.
Esta doença é lamentável! certamente descansou!
-
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
-
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.
-
-
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.
-
-
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!
-
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.
-
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.
-
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
-
gilmer got a reaction from kapiaba in VoNfeUtil2G Nfe 4.0 Atualização
Boa Tarde,
Amanha estarei disponibilizando outra.
-
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).
-
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
-
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
-
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).
-
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.
-
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
-
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
-
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.
-
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).
-
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).
-
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