Pdvlopes Sistemas

Tenho uma impressora 9220L e já consegui realizar a impressão utilizando ETQ TSPL pelo ACBrETQ. Porém estou enfrentando um problema no avanço da etiqueta: mesmo programando o avanço após a impressão, a impressora não avança automaticamente para a próxima etiqueta. Parece que ela não está reconhecendo o final da etiqueta pelo sensor (GAP) ao concluir a impressão. A etiqueta é impressa corretamente, mas o posicionamento só fica correto se eu pressionar manualmente o botão de avanço (FEED) na impressora após imprimir. Alguém já passou por esse problema com esse modelo de impressora? Segue abaixo o código implementado, além de fotos mostrando: como a etiqueta está sendo impressa atualmente; como deveria sair corretamente alinhada. AtivarACBrETQ; with ACBrETQ do begin IniciarEtiqueta; ImprimirTexto(orNormal, 2, 1, 2, 0, 7, DMDados.CDSEMITENTEEMITENTE.Text); ImprimirTexto(orNormal, 2, 1, 1, 5, 7, DMDados.CDSEMITENTELOGADOURO.Text); ImprimirTexto(orNormal, 2, 1, 1, 7, 7, DMDados.CDSEMITENTEBAIRRO.Text); ImprimirTexto(orNormal, 2, 1, 1, 9, 7, DMDados.CDSEMITENTECIDADE.Text + '/' + DMDados.CDSEMITENTEUF.Text); ImprimirTexto(orNormal, 2, 1, 1, 11, 7, 'Telefone: ' + DMDados.CDSEMITENTEFONE.Text); ImprimirTexto(orNormal, 2, 1, 2, 16, 7, prod.Text + ' ' + tamanho.Text + ' ' + cor.Text); ImprimirTexto(orNormal, 2, 1, 2, 27, 7, prod.Text + ' ' + tamanho.Text + ' ' + cor.Text); ImprimirTexto(orNormal, 2, 1, 1, 33, 7, 'R$' + venda.Text); ImprimirBarras(orNormal, barEAN13, 2, 2, 36, 7, barras.Text, 10); // segunda etiqueta ImprimirTexto(orNormal, 2, 1, 2, 0, 56, DMDados.CDSEMITENTEEMITENTE.Text); ImprimirTexto(orNormal, 2, 1, 1, 5, 56, DMDados.CDSEMITENTELOGADOURO.Text); ImprimirTexto(orNormal, 2, 1, 1, 7, 56, DMDados.CDSEMITENTEBAIRRO.Text); ImprimirTexto(orNormal, 2, 1, 1, 9, 56, DMDados.CDSEMITENTECIDADE.Text + '/' + DMDados.CDSEMITENTEUF.Text); ImprimirTexto(orNormal, 2, 1, 1, 11, 56, 'Telefone: ' + DMDados.CDSEMITENTEFONE.Text); ImprimirTexto(orNormal, 2, 1, 2, 16, 56, prod.Text + ' ' + tamanho.Text + ' ' + cor.Text); ImprimirTexto(orNormal, 2, 1, 2, 27, 56, prod.Text + ' ' + tamanho.Text + ' ' + cor.Text); ImprimirTexto(orNormal, 2, 1, 1, 33, 56, 'R$' + venda.Text); ImprimirBarras(orNormal, barEAN13, 2, 2, 36, 56, barras.Text, 10); FinalizarEtiqueta; Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text)); Desativar;

Boa tarde! Resolvi esta memso problema adicionando ao uses ACBrDFe.Conversao.

Resolvido, após a assinatura do xml removia a tag '<?xml version="1.0" encoding="UTF-8"?>' fiz a concatenação junto dele já assinado e conseguir emitir a NFS-e.

Alguém já teve esse erro no envio da DPS? O status retornado é o 400, já fiz verificações e o xml esta no padrão UTF-8 e não possuí nenhum acento na composição do xml. {"tipoAmbiente":1,"versaoAplicativo":"SefinNacional_1.0.0","dataHoraProcessamento":"2024-07-05T12:20:31.5989514-03:00","idDPS":"DPS330490421337559300011200900000000000000003","erros":[{"Parametros":null,"Codigo":"E6154","Descricao":"Xml não está utilizando codificação UTF-8."}]}

Para quem precisar , segue envio e captira de eventos no modo sincrono: Envio: dmdados.ACBrNFe1.Enviar(edtnumlote.text, False,True);. Retorno: achavenfe :=dmdados.ACBrNFe1.NotasFiscais[0].NFe.procNFe.chNFe; aprotocolo :=dmdados.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt; arecibo :=dmdados.ACBrNFe1.WebServices.Enviar.Recibo; xmotivo:= dmdados.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo; xCSTAT:= IntToStr(dmdados.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat);