Jump to content

ftellini

Membros
  • Content Count

    29
  • Joined

  • Last visited

Community Reputation

3 Neutral

About ftellini

  • Rank
    Membro

Profile Information

  • Sexo
    Masculino
  • Localização
    Marilia - SP

Recent Profile Visitors

635 profile views
  1. Boa tarde. Fiz testes com Sweda ST120 e Bematech 2100.
  2. 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 }
  3. 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.
  4. Sim, estou usando aparelho de homologação. Vou tentar conseguir a série de um aparelho de algum cliente para fazer os testes. Obrigado.
  5. 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.
  6. 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.
  7. 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.
  8. 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
  9. 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.
  10. 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=
  11. 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;
  12. Boa tarde. A alteração foi na unit ACBRECFVirtualNFCe, função TACBrECFVirtualNFCeClass.CancelaItemVendidoVirtual.
  13. 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
  14. 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.
  15. 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.
×
×
  • Create New...