FabioTellini

Bom dia Juliomar. Fiz o teste com a SwedaSTX, mas ocorre a mesma situação. Tentei com outras velocidades de porta, mudar o timeout, mas sempre ocorre o erro de falha de envio de comando. ATIVAR - 19/09/17 08:18:24:860 - Modelo: SwedaSTX - Porta: COM1 - TimeOut: 3 Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE=DTR/DSR MAXBANDWIDTH=0 SENDBYTESCOUNT=0 SENDBYTESINTERVAL=0 -------------------------------------------------------------------------------- -- 19/09 08:18:26:860 RetornaInfoECF(I1) -- 19/09 08:18:27:517 TX -> [STX]+34|I1[ETX][141] -- 19/09 08:18:29:220 RX <- -- 19/09 08:18:29:220 ----------------- ERRO ----------------- Erro ao enviar comandos para a Impressora SwedaSTX ---------------------------------------- ECFTeste Trunk1, mesmo ambiente. -------------------------------------------------------------------------------- ATIVAR - 19/09/17 08:20:59:716 - Modelo: Sweda - Porta: COM1 - TimeOut: 1 Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE=DTR/DSR MAXBANDWIDTH=0 -------------------------------------------------------------------------------- -- 08:21:02:028 TX -> [ESC].271} 08:21:03:637 RX <- .+C00113108170285CN000000000052969090002002400000000678300000000000000000002000000003990000000000000000000000000279300170141I } -- 08:21:03:637 TX -> [ESC].27G} 08:21:05:169 RX <- .+C001G000000000005000500001.000000000005290126000000000000000000000000000000000000000000000000000000000000 } -- 08:21:05:169 TX -> [ESC].27H} 08:21:06:794 RX <- .+C001H00000000000000000001 01.00.01 00050024000017000018000141000000000285000000000000000200000000000529690900000000006783 } -- 08:21:06:794 Estado TX -> [ESC].28} 08:21:08:403 RX <- .+0001000CLEIT. X 13F000000000000000000000000!1909170821N 001NN000000000000000000000000SFNN0 } -- 08:21:08:403 Estado TX -> [ESC].28} 08:21:09:965 RX <- .+0001000CLEIT. X 13F000000000000000000000000!1909170821N 001NN000000000000000000000000SFNN0 }

Boa tarde. Estou fazendo testes com ECF em um ambiente onde aplicação e banco de dados são remotos, mas está dando erro ao enviar comandos para impressora. Testes com o ECFTeste do Trunk1 funciona perfeitamente, com o ECFTeste Trunk2 retorna o erro "Erro ao enviar comandos para a impressora Sweda". Fiz testes com impressora Bematech, porém o erro foi o mesmo. Analisando o log, percebi que o comando é enviado para a impressora fiscal, mas não está tendo retorno. -------------------------------------------------------------------------------- ATIVAR - 18/09/17 17:27:54:140 - Modelo: Sweda - Porta: COM1 - TimeOut: 3 Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE=DTR/DSR MAXBANDWIDTH=0 SENDBYTESCOUNT=0 SENDBYTESINTERVAL=0 -------------------------------------------------------------------------------- -- 18/09 17:27:56:249 -- 18/09 17:27:56:733 TX -> [ESC].271} -- 18/09 17:28:13:655 RX <- -- 18/09 17:28:13:655 ----------------- ERRO ----------------- Erro ao enviar comandos para a Impressora Sweda ---------------------------------------- Outro teste que fiz foi a impressão da LeituraX, o comando é enviado e a leitura é impressa, mas o comando está sendo disparado 10 vezes, e está sendo impressas 10 leituraX. No log só registrou um envio de comando. -- 18/09 16:40:26:583 -- Ativando a porta: COM1 -- 18/09 16:40:28:552 LeituraX -- 18/09 16:40:29:052 TX -> [ESC].13N} -- 18/09 16:40:30:755 RX <- -- 18/09 16:40:30:755 ----------------- ERRO ----------------- Erro ao enviar comandos para a Impressora Sweda ---------------------------------------- No Trunk1 funciona todos os comandos.

Sim, estou usando aparelho de homologação. Vou tentar conseguir a série de um aparelho de algum cliente para fazer os testes. Obrigado.

Bom dia. Estou tentando usar o ACBrSATWS para fazer download dos CFes, mas tanto pelo meu aplicativo quanto pelo Demo ocorre o mesmo problema. Rejeição: Falha no Schema XML. Alguém sabe o que posso estar fazendo de errado ? Os parâmetros de entrada são: Serie do SAT 900003065 Data Inicial 01/08/2017 00:00:01 Data Final 31/08/2017 23:59:59 Chave de segurança a116qwer-fdsv-4548-rrrr-olkdfem25ce3 Obrigado.

Bom dia. Estou tentando usar o ACBrSATWS para fazer download dos CFes, mas tanto pelo meu aplicativo quanto pelo Demo ocorre o mesmo problema. Rejeição: Falha no Schema XML. Alguém sabe o que posso estar fazendo de errado ? Os parâmetros de entrada são: Serie do SAT 000020585 Data Inicial 01/08/2017 00:00:01 Data Final 31/08/2017 23:59:59 Chave de segurança a116qwer-fdsv-4548-rrrr-olkdfem25ce3 Obrigado.

Comecei a fazer alguns testes enviando comandos direto para a impressora da seguinte forma: Nesse primeiro teste não importa o valor que eu passava no espaçamento, nada mudava na impressão. Write(impressora,#$1B'@'); //Reseta Impressora Write(impressora,#$1B+'3d'); //Aumenta espaço entre linhas para 100 Write(impressora, ' LINHA 1'+sLineBreak); Write(impressora, ' LINHA 2'+sLineBreak); Write(impressora, ' LINHA 3'+sLineBreak); Write(impressora, ' LINHA 4'+sLineBreak); Já nesse segundo teste, da LINHA 1 até a LINHA 3 o espaçamento foi aplicado, já a LINHA 4 ficou próximo a LINHA 3. Veja que o comando para resetar a impressora está depois da LINHA 4. Write(impressora,#$1B+'3d'); Write(impressora, ' LINHA 1'+sLineBreak); Write(impressora, ' LINHA 2'+sLineBreak); Write(impressora, ' LINHA 3'+sLineBreak); Write(impressora, ' LINHA 4'+sLineBreak); Write(impressora,#$1B'@'); Em conversa com o suporte da Daruma, a informação que me foi passada é que um comando estava "atropelando" o outro, e com isso não está sendo aplicado o comando de espaçamento. O suporte me pediu para fazer o teste com um sleep(200) entre os comandos #$1B'@' e #$1B+'3d', com o sleep entre as linhas funcionou corretamente. Expliquei que na impressão do extrato do SAT é enviado apenas uma string de impressão (#$1B'j'#0#$F'002 7 TESTE PRODUTO SAT....) com todos os comandos e que não tinha como colocar um sleep entre os comandos. Não conseguimos chegar a nenhuma solução. Para testes, comentei a linha FBuffer.Add('</zera></ce></logo>'); da procedure GerarCabecalho da unit ACBrSATExtratoESCPOS, sem essa linha o espaçamento entre linhas passou a ser aplicado. Entendo que a impressora deva ser resetada a cada inicio de impressão e essa linha não poderá sair do código, mas pensando em uma solução, será que o comando de resetar a impressora não poderia ser enviado separado da string que é montada no FBuffer ? Talvez na TACBrSATExtratoESCPOS.ImprimirCopias, antes do FOR já seria RESETADA a impressora, na sequência seria impresso o Buffer. Obrigado.

Bom dia Fiz alguns testes, mas não muda o espaço entre as linhas. As propriedades LinhasEntreCupons, ConfigBarras.LarguraLinha, ConfigBarras.Altura e ConfigQRCode.LarguraModulo estão sendo respeitadas de acordo com os valores informados, somente a propriedade EspacoEntreLinhas que não muda na impressão. Debugando a montagem das Tags, vi que a tag de espaço é adicionada (#$1B'3È) conforme o valor que informei, mas mesmo assim não muda nada na impressão. #$1B'@'#$1B'3È</ce></logo>'#$D#$A'<n>Estabelecimento Fantasia 2</n>'#$D#$A'<c>Estabelecimento de Teste 2'#$D#$A'rua das flores 1005 frente centro-Sao Paulo-00000-000'#$D#$A'</ae><c>CNPJ:11.111.111/1111-11 IE:111111111111 IM:102030'#$D#$A'</linha_simples>'#$D#$A'</fn></ce><n>Extrato No. 000000'#$D#$A'CUPOM FISCAL ELETRâNICO - SAT</n>'#$D#$A' '#$D#$A' = T E S T E ='#$D#$A' '#$D#$A'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>'#$D#$A'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>'#$D#$A'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>'#$D#$A'</linha_simples>'#$D#$A'</ae><c>CPF/CNPJ do Consumidor: CONSUMIDOR NÇO IDENTIFICADO'#$D#$A'RazÆo Social/Nome: CONSUMIDOR'#$D#$A'</ae><c></linha_simples>'#$D#$A'# COD DESC QTD UN VL UN R$ (VLTR R$)* VL ITEM R$'#$D#$A'</linha_simples>'#$D#$A'</ae><c>001 7 TESTE PRODUTO SAT 7 1 UN X 20,000 20,00'#$D#$A

Daniel, boa tarde. Estou tentando usar o PosPrinter.EspacoEntreLinhas na impressão do SAT com uma Daruma DR700, mas o espaço entre as linhas não estão mudando. Fiz testes pelo SATTeste e também não mudou o espaço entre as linhas. Minha rotina que configura a impressão está da seguinte forma: DM.PosPrinter.Desativar; DM.PosPrinter.Porta := 'COM'+ IntToStr(DMP.TBESTACAOPORTA_ECF.AsInteger+1); DM.PosPrinter.Device.Baud := DMP.TBESTACAOVELOCIDADEPORTACOM.AsInteger; DM.PosPrinter.Modelo := TACBrPosPrinterModelo(DMP.TBESTACAOMARCAIMPRESSORATERMICASAT.AsInteger); DM.PosPrinter.LinhasBuffer := 20; //parametro DM.PosPrinter.EspacoEntreLinhas := 20; //parametro DM.PosPrinter.PaginaDeCodigo := pc850; DM.PosPrinter.ControlePorta := True; DM.PosPrinter.LinhasEntreCupons := DMP.TBESTACAOLINHAENTRECUPOMSAT.AsInteger; DM.PosPrinter.CortaPapel := True; DM.ACBrSATExtratoESCPOS.ImprimeQRCode := True; DM.ACBrSATExtratoESCPOS.ImprimeEmUmaLinha := True; DM.PosPrinter.Ativar; Usando da forma DM.PosPrinter.Imprimir(Linhas) o espaço é aplicado, mas no extrato do SAT não estou conseguindo. Sabe me dizer o que eu posso estar fazendo de errado ? Uso o ACBrECFVirtualSAT e o extrato é impresso quando chamo a função DM.ECF.FechaCupom(); Obrigado.

Boa tarde. Fiz alguns testes consultando uma chave do Estado da Bahia e a consulta foi normal, retornando todos os dados. você está com os Schemas atualizados ? http://www.nfe.fazenda.gov.br/portal/listaConteudo.aspx?tipoConteudo=/fwLvLUSmU8=

Bom dia. Tenho a NFCe desenvolvida usando ACBrECFVirtualNFCe e recentemente comecei a desenvolver a NFCe Offline. Estou tendo problema na impressão. Olhando o fonte do componente, vi que na rotina "FechaCupomVirtual" tem o trecho de código "if NotasFiscais.Items[0].Confirmada then NotasFiscais.Items[0].Imprimir;". A Propriedade "Confirmada" só recebe True caso cStat seja 100, 110, 150, 301, 302, 303. Mas por ser OffLine, o cStat sempre é igual a 0, por isso não está sendo impresso. O if que está sendo feito, não poderia ficar da forma abaixo ? if (NotasFiscais.Items[0].Confirmada) or (NotasFiscais.Items[0].NFe.Ide.tpEmis = teOffLine) then NotasFiscais.Items[0].Imprimir;

Boa tarde. A alteração foi na unit ACBRECFVirtualNFCe, função TACBrECFVirtualNFCeClass.CancelaItemVendidoVirtual.

Bom dia. Adicionei duas novas funções na unit ACBrTEFDCliSiTef para a coleta do CPF ou CNPJ pelo pinpad. As funções são as seguintes: - ACBrTEF.TEFCliSiTef.CapturaCpfPinPad; -ACBrTEF.TEFCliSiTef.CapturarCnpjPinPad. Na chamada das funções deverão ser passados dois parâmetros Identificador e ChavePersonalizada. - IDENTIFICADOR: CNPJ liberado pela Software Express para uso da biblioteca de coleta dos dados; - CHAVEPERSONALIZADA: Chave de 280 caracteres gerada pela Software Express. Observação: Em contato com o pessoal da Software Express sobre dúvidas na captura do CNPJ, fui informado que por limitação na quantidade de dígitos que a biblioteca suporta, o CNPJ deverá ser coletado em duas etapas, informando 8 dígitos e após a confirmação, será solicitado os outros 6 dígitos. O CPF será coletado de uma única vez. Em anexo a unit. ACBrTEFDCliSiTef.pas

Giquieu, boa tarde. Fiz as alterações de acordo com o que você sugeriu no link citado acima, mas ainda continuou com o problema. Fazendo a venda na sequência que eu citei acima, o item que deveria ser excluído do XML do segundo cancelamento seria o item 4, mas foi excluído o último item, no caso o item 5. Seguindo a sua lógica, fiz a alteração da seguinte forma: for I := 0 to NotasFiscais.Items[0].NFe.Det.Count -1 do begin if (NotasFiscais.Items[0].NFe.Det.Items.Prod.nItem = NumItem) then begin NotasFiscais.Items[0].NFe.Det.Delete(I); Break; end; end; Dessa maneira, comparando o NumItem com o Prod.nItem deu certo todos os cancelamentos. Obrigado.

Bom dia. Desenvolvi NFC-e usando ECFVirtual. Nas vendas, impressões está funcionando tudo corretamente, mas estou com problemas na hora de cancelar item. O problema ocorre se eu cancelar mais de um item, exemplo da venda: Vendi item 1; Vendi item 2; Cancelei item 2; Vendi item 3; Vendi item 4; Vendi item 5; Cancelei o item 4 Finalizando essa venda, o item 2 foi cancelado corretamente e removido do xml, mas o item 4 continua no xml e o item 5 foi excluído do xml. Debugando o componente, na unit ACBrECFVirtual, procedure CancelaItemVendido, o parâmetro NumItem está chegando exatamente o item que está sendo cancelado, na Unit ACBrECFVirtualNFCe, procedure CancelaItemVendidoVirtual o parâmetro NumItem também está chegando corretamente. Não consegui encontrar o possível problema, alguém passou por essa situação ? Pesquisando no fórum encontrei só o link abaixo, mas mesmo assim não consegui resolver o problema. Obrigado.

Estou com esse mesmo problema. O segundo item que é cancelado continua no xml, e um outro item é excluído. Com isso a NFCe não é validada por diferenças no total da nota.

Ainda não tive tempo de olhar o trunk2, mas tive esse mesmo problema no trunk1 com o QRCode cortado. Estava usando uma Daruma DR700 e a melhor impressão foi configurando a propriedade LinhasEntreCupons do ACBrSATExtratoESCPOS com o valor 3, já na Epson TH-T20 o QRCode estava sendo cortado ao meio. Consegui resolver o problema para Epson TH-T20 deixando o valor padrão da propriedade (valor = 16). Isso usando o trunk1.

Boa tarde. Estou tendo o mesmo problema com impressora Epson, o QRCode está sendo cortado no meio. Mas ainda não estou usando o trunk2. Alguém sabe o que pode ser ? Obrigado.

Bom dia Italo. Obrigado pela informação. Não tenho o Quick Report, estou tentando imprimir o QR Code pelo ACBrNFeDANFEFR e pelo ACBrNFeDANFERaveCB, mas não está sendo impresso o QR Code em nenhum dos dois. O componente já faz a impressão automaticamente ou preciso marcar alguma propriedade ? Tentei configurar a propriedade "TipoDANFE" = tiNFCeA4, mas mesmo assim não foi impresso. Obrigado.

Boa tarde. Estou desenvolvendo a NFC-e no PAF, alguém sabe me dizer se é possível imprimir o QR Code usando o ACBrNFeDANFEFR ou ACBrNFeDANFERaveCB ? Obrigado.

Na verdade problema não está na LFilll, o NUM_CONT está sendo convertido para Currency na função IfThen. Percebi que na atualização 8573 existia a unit Math no uses e na 8574 foi removido do uses, com isso o IfThen que está sendo executado é da unit ACBrTXTUtils.

Boa tarde. Estou tendo problemas na geração do Registro R05 (Registros PAF-ECF), no campo NUM_CONT está sendo adicionado 2 casas decimais. Ex: CCF = 6777, no arquivo está saindo 000677700. Debugando o componente, percebi que até na linha LFill( IfThen(NUM_CONT=-1, RegR04.NUM_CONT, NUM_CONT), 9) da unit ACBrPAF_R_Class o valor da NUM_CONT é 6777, mas ao passar pela função LFill, está sendo adicionado as casas decimais. Estou passando o campo como Integer, mas na unit ACBrTXTClass está sendo executado a função LFill(Value: Extended;... e não a LFill(Value: Integer; No Registro R04 fica certo, 000006777. Alguém pode me ajudar ? Obrigado.

Também estou com o mesmo problema, tanto na minha aplicação quanto no ACBrNFe Demo. Versão Layout : 3.10 Ambiente : 2 Versão Aplicativo : SP_NFCE_PL_008 Status Código : 402 Status Descrição : Rejeição: XML da área de dados com codificação diferente de UTF-8 UF : SP Recibo : Recebimento : 09/04/2015 11:34:20 Tempo Médio : 0 ERRO: Rejeição: XML da área de dados com codificação diferente de UTF-8

Ok. Obrigado.

Boa tarde. Estou com algumas dúvidas de como seria o comportamento da função CNC. Um Cliente quer que as transações do TEF sejam canceladas no momento em que ele cancelar o Cupom, sem ter que usar o menu ADM. Pesquisando aqui no Fórum vi que tem a função CNC, e fiz a rotina de acordo com TEFDemo. Quando cancelo o cupom as transações são cancelas corretamente, mas minha dúvida é a seguinte, quando chamo a função TEF.CNC eu passo os parâmetros OPERADORA, DOC, DATA e VALOR, é exibido a tela do ADM onde tenho que inserir o cartão no PINPAD e informar os dados novamente, os mesmo dados que foram passados para a função por parâmetro. É dessa forma mesmo que deve ser ou existe alguma outra forma onde o cancelamento seria feito sem eu ter que informar os dados novamente ? Obrigado.

Bom dia.. Fiz os testes novamente e deu certo. Obrigado.