EliasCesar

Na verdade essas propriedades são da 'synapse'... Verifique se os seus fontes estão atualizados, pois essa propriedade está em: "...\Fontes\Terceiros\synalist\" Tente reinstalar o ACBr utilizando a opção "Remover arquivos antigos do disco".

Acabei de fazer a conversão do demo para Delphi, Está disponível no SVN, Rev: 25773. Ainda estamos trabalhando nesse demo, mas já é possível testar e entender melhor como o componente funciona.

Olá @nildglan, Estou incluindo mais algumas funcionalidades no demo em Lazarus e ainda esta semana irei converter o demo para delphi. Caso se interesse, amanhã teremos um PapoProACBr focado no componente ACBrPIXCD. Onde estaremos explicando mais sobre o componente e tirando dúvidas da comunidade. Segue o link do evento para mais detalhes:

Olá @Dercide Alvarez, Muito obrigado pela contribuição, O problema já está resolvido e disponível no SVN, Rev: 25721.

Alteração enviada ao SVN Disponível na Rev: 25652 Agradecemos pela contribuição

Obrigado por reportar Tópico fechado.

Boa tarde, Enviei ao SVN uma possível correção do problema, disponível na Rev: 25423. @Andre Azeredo Vc poderia por gentileza baixar os fontes e efetuar um teste para verificar se a impressão ficou ok?

A aba NCM foi reincluída no ACBrMonitorPlus. A próxima versão disponibilizada contará com esse recurso novamente. Disponível no SVN, Rev: 25370.

Bom dia, Já está disponível o recurso no SVN, Rev: 25344. -- ACBrNCMs -- [+] Inclusão do evento 'OnGetJson', possibilitando que a aplicação informe um arquivo Json antes do componente realizar o download. [*] Inclusão das novas propriedades do objeto TACBrNCM no arquivo gerado pela função TACBrNCMsList.SaveToFile. Obrigado pela sugestão de melhoria @Vitor Cortinovis

Ok @Daniel Simoes, vou implementar dessa maneira. TK-2600

Boa tarde, A aba de NCM havia sido removida após o webservice antigo ser desativado. O componente foi reescrito utilizando um novo webservice, como vc pode ver em: Foi aberto um TK para reincluir essa aba no ACBrMonitor. TK-2583

Olá, A procedure ACBrETQ.ImprimirBarras() possui os parâmetros "Largura Barra Larga" e "Largura Barra Fina". Tente diminuir esses valores. Outro parâmetro que também pode influenciar na largura é o "TipoBarras"

Olá, Cada bloco de etiquetas precisa ser iniciado e finalizado. Veja que vc colocou um "IniciarEtiqueta", mas após desenhar a linha(3 etiquetas) não informou o comando "FinalizarEtiqueta". Talvez isso funcione: FDMemEtiquetas.First; while not FDMemEtiquetas.Eof do begin IniciarEtiqueta; ImprimirTexto(orNormal, 1, 1, 2,15, 2, FDMemEtiquetasDESCRICAO.Value, 0, false); ImprimirTexto(orNormal, 2, 1, 2, 2, 2, 'R$'); ImprimirTexto(orNormal, 2, 1, 2, 2, 6,FormatFloat('#0.00', FDMemEtiquetasPMC.value)); ImprimirTexto(orNormal, 1, 1, 2,10, 2,FDMemEtiquetasId_produto.Value, 0,false); FDMemEtiquetas.Next; if (not FDMemEtiquetas.Eof) then begin ImprimirTexto(orNormal, 1, 1, 2,15, 38, FDMemEtiquetasDESCRICAO.Value, 0, false); ImprimirTexto(orNormal, 2, 1, 2, 2, 40, 'R$'); ImprimirTexto(orNormal, 2, 1, 2, 2, 42,FormatFloat('#0.00', FDMemEtiquetasPMC.value)); ImprimirTexto(orNormal, 1, 1, 2,10, 38,FDMemEtiquetasId_produto.Value, 0,false); FDMemEtiquetas.Next; end; if (not FDMemEtiquetas.Eof) then begin ImprimirTexto(orNormal, 1, 1, 2,15,72, FDMemEtiquetasDESCRICAO.Value, 0, false); ImprimirTexto(orNormal, 2, 1, 2, 2,74, 'R$'); ImprimirTexto(orNormal, 2, 1, 2, 2,79,FormatFloat('#0.00', FDMemEtiquetasPMC.value)); ImprimirTexto(orNormal, 1, 1, 2,10,72,FDMemEtiquetasId_produto.Value, 0,false); FDMemEtiquetas.Next; end; FinalizarEtiqueta(1, 600); end; Imprimir(1, 600); Desativar;

Foi incluído um novo parâmetro chamado 'xPag' na função "FormaPagamentoToDescricao" da pcnConversao.pas. A declaração dessa função poderia ter esse parâmetro vazio como default ? Pois pode quebrar códigos que já usavam ela. A sugestão seria algo como: function FormaPagamentoToDescricao(const t: TpcnFormaPagamento; const xPag: String = ''): string; Verificado que a alteração foi devido ao caso: Realmente no problema descrito no tópico, o parâmetro se torna necessário, porém podem existir outros momentos em que a função é usada sem a necessidade de indicação do xPag.

Quem possuía esse comando de validar os arquivos era o webservice antigo do BlocoX. Porém foi desativado faz algum tempo. Esse é o webservice atual: http://webservices.sef.sc.gov.br/wsDfeSiv/BlocoX.asmx Você pode verificar mais informações sobre isso nesses tópicos:

Pelo erro, o certificado que você está usando não possui permissão de acesso ao recibo. As permissões funcionam da seguinte forma: - TransmitirArquivo: Apenas certificado digital do contribuinte; - ConsultarPendenciasDesenvolvedor: Apenas certificado digital do desenvolvedor PAF-ECF; - TODOS os outros comandos: Certificado digital do contribuinte ou do desenvolvedor PAF-ECF.

Qual comando exatamente vc está tentando utilizar? Pois o webservice não possui nenhum serviço para exclusão de arquivos. Anexei os comandos disponíveis.

Os serviços são acessíveis usando o certificado digital do contribuinte ou do desenvolvedor do PAF-ECF, com exceção do serviço TransmitirArquivo, que será acessível somente com o certificado digital do contribuinte, e do ConsultarPendenciasDesenvolvedor, com o certificado do desenvolvedor do PAF-ECF. Caso tente efetuar as rotinas com outro certificado, realmente será retornado esse tipo de erro.

Para resolver esse problema você precisa colocar uma condição que verifica se chegou no fim da lista após cada comando 'Next'. Exemplo: while (not tb_etiqtemp.eof) do begin // xtam:=Length(dm.tb_etiquetasCODIGO.Value); IniciarEtiqueta; ImprimirTexto(orNormal, '0', 20, 30, 2, 3, 'R$ '+ formatfloat('##,##0.00',tb_etiqtempPVENDA.Value)); ImprimirTexto(orNormal, '0', 20, 20, 6, 3, tb_etiqtempNOME.Value); ImprimirBarras(orNormal, barCODE128, 2, 4, 10, 3,tb_etiqtempCODIGO.Value, 8,becSIM); tb_etiqtemp.Next; if (not tb_etiqtemp.eof) then begin ImprimirTexto(orNormal, '0', 20, 30, 2, 37, 'R$ '+ formatfloat('##,##0.00',tb_etiqtempPVENDA.Value)); ImprimirTexto(orNormal, '0', 20, 20, 6, 37, tb_etiqtempNOME.Value); ImprimirBarras(orNormal, barCODE128, 2, 4, 10, 37,tb_etiqtempCODIGO.Value, 8,becSIM); tb_etiqtemp.Next; end; if (not tb_etiqtemp.eof) then begin ImprimirTexto(orNormal, '0', 20, 30, 2, 72, 'R$ '+formatfloat('##,##0.00',tb_etiqtempPVENDA.Value)); ImprimirTexto(orNormal, '0', 20, 20, 6, 72, tb_etiqtempNOME.Value); ImprimirBarras(orNormal, barCODE128, 2, 4, 10, 72,tb_etiqtempCODIGO.Value, 8,becSIM); tb_etiqtemp.Next; end; FinalizarEtiquetaComCopiasEAvanco; end;

Sim, é possível imprimir o tipo do código de barras de acordo com o tamanho. Aparentemente o seu código está correto, verifique se o conteúdo da variável 'xtam' é realmente um EAN13 válido. Uma sugestão para garantir isso seria algo como: if (xtam = 13) and (EAN13Valido(dm.tb_etiquetasCODIGO.Value)) then ImprimirBarras(orNormal, barEAN13, 2, 4, 10, 3,dm.tb_etiquetasCODIGO.Value, 8, becSIM) else ImprimirBarras(orNormal, barCODE128, 2, 4, 10, 3,dm.tb_etiquetasCODIGO.Value, 8, becSIM); (Obs: Para utilizar a função EAN13Valido() inclua a unit ACBrUtil.pas nas uses)

Olá Danilo, Só vi sua resposta agora... Segue anexo o exemplo do comando ReprocessarArquivo. Espero ter ajudado. _EnvelopeSoap_ReprocessarArquivo.xml

Você pode verificar os exemplos de utilização dos comandos com o ACBrBlocoXSign. Ele fica em: '...\trunk2\Projetos\ACBrBlocoXSign\' Anexei um modelo do comando ConsultarProcessamentoArquivo gerado pelo próprio ACBrBlocoXSign. _EnvelopeSoap.xml

Pelo manual da TLP-2844 ela utiliza o protocolo EPL2 https://www.zebra.com/content/dam/zebra/manuals/printers/desktop/legacy/tlp2844/tlp2844-ug-pt.pdf Tente alterar o Modelo no ACBrETQ para usar esse protocolo. (pela mudança nos protocolos, provavelmente serão necessários ajustes nos comandos de impressão para sair alinhado na etiqueta) Caso não funcione, tente efetuar um teste com o demo do ACBrETQ. Com ele vc pode testar todos os protocolos.

Olá, Foi efetuada uma alteração no Commit [r14281] Por favor, atualize os fontes e efetue um novo teste utilizando o parâmetro AvancoEtq = 600 novamente. (Caso ainda não funcione, anexe o log no caso )

Olá, Testando com o demo do ACBrETQ o problema ocorre? Se possível anexe o log do teste utilizando o demo. No Comando "Imprimir()" tente enviar o parâmetro AvancoEtq com o valor 600. Por exemplo: Imprimir(1, 600);