paiaka2012
-
Total de ítens
23 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por paiaka2012
-
-
-
Digifred, Ibirubá-RS. Primeiro tive problemas com cancelamento, depois atualizei e agora da erro na emissão também.
-
-
Bom dia. Então como diria o Junior, para contribuir com a comunidade, segue a solução para a seiko DPU-S445.
Imprimindo código de barras padrão ITF (interleaved 2 of 5). Impressora não imprimia nada pois o código de barras era muito grande (48 posições) e as configurações de largura e etc estavam erradas, em algumas impressoras imprime alguma coisa mesmo assim, mas nesse caso não imprime nada se ultrapassar a margem da folha definida na impressora, oq me deixou as cegas por um bom tempo.
if (FSocket <> nil) and (FSocket.Connected) then
begin
FSocket.SendData(TEncoding.UTF8.GetBytes(chr(27) + chr(64)));FSocket.SendData(TEncoding.UTF8.GetBytes(chr(27) + chr(33) + chr(0)));
FSocket.SendData(TEncoding.UTF8.GetBytes(chr( 29 ) + chr( 119 ) + chr(0) + chr(0))); // GS 'w' n1 n2 Set Width of Bar Code
FSocket.SendData(TEncoding.UTF8.GetBytes(chr( 29 ) + chr( 80 ) + CHR(0))); //(GS P n) Bar Position
FSocket.SendData(TEncoding.UTF8.GetBytes(chr( 29 ) + chr( 104 ) + chr(100))); //(GS h n) Bar Height altura do código de Barras
FSocket.SendData(TEncoding.UTF8.GetBytes(chr( 29 ) + chr( 72 ) + chr(1))); // (GS H n) HRI Character Print Position 0 sem 1 acima 2 abaixo
FSocket.SendData(TEncoding.UTF8.GetBytes(chr( 29 ) + chr( 102 ) + chr(1))); // (GS f n) Storings Font Size
FSocket.SendData(TEncoding.UTF8.GetBytes(chr( 29 ) + chr( 110 ) + chr(3))); // (GS n n) Nominal Fine Element WidthFSocket.SendData(TEncoding.UTF8.GetBytes(chr(29) + chr(107) + chr(5) + edit1.Text + chr(0))); //GS 'k' n {DATA} Print Bar Code
end; -
2 horas atrás, paiaka2012 disse:
Estou fazendo isso também, mas na impressora SEIKO DPU-S445 mas não tem jeito de imprimir o código de barras, no meu caso é código de barras de fatura de energia. Para começar só existem 7 opções de tipo de código de barras 0 UPC-A, 1 UPC-E, 2 JAN13(EAN), 3 JAN8, 4 CODE39, 5 ITF, 6 CODABAR, 7 CODE128 e a função é (GS 'k' n {DATA}) sendo n o tipo e data o código de barras.
CODE128 :Input a start code as 103 to 105, and input arbitrary number as 0 to 102,
then input a stop code as 103 or larger. Já tentei todo o possível e nada -
Em 13/04/2018 at 15:48, juniorguillen disse:
Boa tarde, para contribuir com a comunidade, segue a procedure que uso para imprimir o código.
procedure TfrmPrincipal.Imprime_CodBarras(chave:string); begin FSocket.SendData(TEncoding.UTF8.GetBytes( chr(32) + chr(32) + // 2 espaços chr(29) + chr(104) + chr(80) + // atribui a altura do Codigo de Barras sendo n de 1 a 40 chr(29) + chr(119) + chr(0) + chr(2) + // (GS w n) atribui a largura do Codigo de Barras sendo n de 1 a 4 chr(29) + chr(72) + chr(0) + // (GS H n) atribui o HRI que sao os numeros abaixo do código 0 sem 1 acima 2 abaixo chr(29) + chr(107) + chr(73) + chr(24) + // (GS K m n)atribui o tipo e comprimento do codigo 128C=73(49hex) e 22 posicoes (18 hex) chr(123)+ chr(67) + // atribui que o padrão do CB 128 é tipo C // chave char(StrToInt(Copy(chave,1,2))) + chr(StrToInt(Copy(chave,3,2))) + chr(StrToInt(Copy(chave,5,2))) + chr(StrToInt(Copy(chave,7,2))) + chr(StrToInt(Copy(chave,9,2))) + chr(StrToInt(Copy(chave,11,2))) + chr(StrToInt(Copy(chave,13,2))) + chr(StrToInt(Copy(chave,15,2))) + chr(StrToInt(Copy(chave,17,2))) + chr(StrToInt(Copy(chave,19,2))) + chr(StrToInt(Copy(chave,21,2))) + chr(StrToInt(Copy(chave,23,2))) + chr(StrToInt(Copy(chave,25,2))) + chr(StrToInt(Copy(chave,27,2))) + chr(StrToInt(Copy(chave,29,2))) + chr(StrToInt(Copy(chave,31,2))) + chr(StrToInt(Copy(chave,33,2))) + chr(StrToInt(Copy(chave,35,2))) + chr(StrToInt(Copy(chave,37,2))) + chr(StrToInt(Copy(chave,39,2))) + chr(StrToInt(Copy(chave,41,2))) + chr(StrToInt(Copy(chave,43,2))) + // chave chr(32) + chr(10)+ chr(13))); // espaço e enter; end;
Estou fazendo isso também, mas na impressora SEIKO DPU-S445 mas não tem jeito de imprimir o código de barras, no meu caso é código de barras de fatura de energia. Para começar só existem 7 opções de tipo de código de barras 0 UPC-A, 1 UPC-E, 2 JAN13(EAN), 3 JAN8, 4 CODE39, 5 ITF, 6 CODABAR, 7 CODE128 e a função é (GS 'k' n {DATA}) sendo n o tipo e data o código de barras.
-
55 minutos atrás, BigWings disse:
Após atualizar o Fortes você fez a instalação do mesmo?
Tente marcar a opção de excluir arquivos antigos ao instalar o ACBr.
Instalei a versão do fortes que disponibilizaram mais acima para download e então funcionou. Mas atualizando pelo SVN não deu certo.
-
Atualizei fortes e ACBR via SVN e continua dando o erro.
-
Alguma novidade sobre remessa cnab 400 SIGCB da caixa ?
-
Não tem jeito. Removi e instalei o fortes e ACBR várias vezes, não tem mais nada de versão antiga na máquina, instalei fortes na pasta de instalação do delphi 7, já tentei desmarcar a opção do fortes para NFSe e boleto para instalar o ACBR e depois tentar instalar esses pacotes manualmente e o erro de compilação por dentro do delphi eh o mesmo. Já fiquei sem ideias. Erro continua sendo o mesmo que meu colega postou ai para cima no log.
-
Soh complementando, estou usando o evento OnMailProcess para tratar os eventos acontecem durante o envio, consigo descobrir qdo ocorre erro através do status, mas não consigo saber qual erro ocorreu.
-
Existe uma forma de tratar se o email foi enviado com sucesso? Com try except não funciona.
-
Olá juliomar. Obrigado pela resposta, consegui instalar. Abraço
-
Olá. Como instalo o ACBRMail? Não encontro ele aqui nem no instalador.
-
up. Alguém?
-
Bom dia.
Para formação do nosso numero dos boletos para sicredi está sendo fixado o código do responsável pela geração do nosso numero como 2.
Conforme manual do sicredi o nosso numero é composto por:
AA = Ano da geração do titulo
b = Geração do nosso numero
1 - cooperativa cedente
2 a 9 - Cedente
Nnnnn = Numero sequencial
d = digito verificador
Esse parâmetro b está sendo fixado como 2, temos casos que esse numero precisa ser diferente de 2, esse número deveria ser passado por parâmetro.
function TACBrBancoSicredi.MontarCampoNossoNumero (const ACBrTitulo: TACBrTitulo ) : String;varaNossoNumero: String;beginACBrTitulo.NossoNumero:=FormatDateTime('yy',ACBrTitulo.DataDocumento)+'2'+copy(ACBrTitulo.NossoNumero,4,6);Result:= copy(ACBrTitulo.NossoNumero,1,2) + '/' +copy(ACBrTitulo.NossoNumero,3,6) + '-' +CalcularDigitoVerificador(ACBrTitulo);end; -
Tinha parado no tempo em relação a novas versões do delphi, sabem como é, sempre correndo contra o tempo. Resolvi baixar uma versão para testes do xe3 tempos atrás para alguns testes com Intraweb e etc. Depois baixei o xe5 para testar desenvolvimento para smartphones, não fui muito feliz pois não consegui fazer o firedac funcionar com firebird, vasculhei a internet e descobri q era um bug do xe5. Estou agora baixando o 6 para ver se funcionam meus testes. Abs
-
Olá. Não consegui resolver completamente os problemas de validação de XML´s de terceiros ainda.
Na época alterei os fontes do ACBR e resolveu algumas coisas, problema que não lembro nem o programa e muito menos oq alterei.
Hoje ainda ocorrem alguns erros, principalmente de assinatura, mas não em todas as notas. Oq percebi é que nos XML´s que da erro, a assinatura e certificado não tem quebras de linha visualizando o arquivo pelo IE. Como se fosse formatação do arquivo, de EOL das linhas, não sei.
Alguém encontrou alguma solução para validação de estrutura, autorização e assinatura dos XML´s de terceiros ?
Obrigado
-
Passo pelo mesmo problema. Alguém tem solução ?
-
Alterei manualmente todo o bloc enderEmit do XML que anexei acima e então o componente conseguiu validar a nota, o estranho é que todas as informações no bloco enderEmit estão certos e no site da SEFAZ a nota valida normalmente.
-
Bom dia. Desenvolvi uma rotina de importação de XML´s usando como base o exemplo do ACBR e preciso muito validar o XML, tanto estrutura como assinatura e autorização das notas recebidas dos fornecedores.
.
Usando o exemplo de validação do ACBR até valida algumas notas, mas em outras ocorre um erro de restrição [0-9]{14} como se CNPJ estivesse errado, mas validando o mesmo XML no site da sefaz nada acusa, olhando no XML os CNPJ´s estão certos.
.
Como valido notas de terceiros? Abs
.
.
.
Em anexo XML que não consigo validar
-
Bom dia. Desenvolvi uma rotina de importação de XML´s usando como base o exemplo do ACBR e preciso muito validar o XML, tanto estrutura como assinatura e autorização das notas recebidas dos fornecedores.
.
Usando o exemplo de validação do ACBR até valida algumas notas, mas em outras ocorre um erro de restrição [0-9]{14} como se CNPJ estivesse errado, mas validando o mesmo XML no site da sefaz nada acusa, olhando no XML os CNPJ´s estão certos.
.
Como valido notas de terceiros? Abs
ACBR Mail e GMAIL - Retorno Ok caindo em exceção
em ACBrTCP
Postado
Usando conta do gmail, yahoo e particular.
Gmail já configurei toda parte de segurança, usei porta 587 ativando TLS e desativando SSL (erro ready to start TLS), já desativei TLS e ativei SSL usando porta 465 (Gmail manda email avisando sobre conexão não segura), já deixei ambos ativados e usei ambas as portas e sempre o mesmo erro de login.
Outras contas sempre erro de login, não importa como configure.