Leao

Olá, nfc-e, usando impressora bematech, instalei drives e atualizei, ao imprimir danfe, sai somente o Nome e Fantasia da empresa, mudando para forte report, imprimi normal, alguém pode dar um parecer? Trunk2, atualizado usando EscPOS Obrigado, Leão

Olá Régys, rapaz não tinha percebido logo abaixo estava limpando infAdProd:='', tirei deu certo, desculpa o erro... Obrigado, Leão

Olá Régys, se o showmessage, visualiza a infAdProd, preenchida, sim estar entrando no if sim, vi em outro post programador informando assim, fica bem melhor para o usuário final, mas no final também informarei. Compila normal. Interessante se informo Prod. não traz infAdProd, mas informo simplesmente infAdProd e não ocorre nenhum erro. Somente não grava no .xml Se mais alguém quiser comentar, agradeço Obrigado, Leão

Preciso informar em cada produto infAdProd situação referente fcb, mas não imprimir(fortesreport), nem grava no xml, existe algum detalhe especifico? Parte do fonte assim: //Adicionando Produtos DNF_ITENS.First; while not DNF_ITENS.Eof do begin with Det.Add do begin vconte:=vconte + 1; Prod.nItem := vconte; //1; // Número sequencial, para cada item deve ser incrementado Prod.cProd := DNF_ITENS.COD_PRODUTO.ValorString; //'123456'; Prod.cEAN := DNF_ITENS.COD_BARRA.ValorString; //'1234567890123'; Prod.xProd := DNF_ITENS.NOME_PRODUTO.Conteudo+' '+ DNF_ITENS.NOME2.Conteudo; //'Descrição do Produto';tamanho ate 120 if DNF_ITENS.PICMSINTERPART.Conteudo > 0 then begin infAdProd := 'Conv.ICMS.93/2015: (FCP)UF Destino ' + FormatFloat('0.00', DNF_ITENS.VFCPUFDEST.Conteudo)+ ' '+ 'Int.p/UF Destino '+ FormatFloat('0.00', DNF_ITENS.VLCMSUFDEST.Conteudo)+ ' '+ 'Int.p/UF do Remetente '+ FormatFloat('0.00', DNF_ITENS.VLCMSUFREMET.Conteudo); ShowMessage('Informações Produtos...: '+infAdProd); //para testar aqui ele mostra corretamente preenchido. end; Prod.NCM := Trim(DNF_ITENS.NCM.Conteudo); //'12345678'; // Tabela NCM disponível em ... Essa informação deveria gravar no xml e não grava nem imprimir no danfe, uso fortes report, trunk2, atualizado... Obrigado, Leão

Olá estou tentando atualizar hoje(01/03/2016 as 11:05:00) pelo svn e ocorre seguinte erro: access to 'http://svn.code.sf.net/p/acbr/code/trunk2' forbidden Mudou alguma coisa? Obrigado, Leão

Olá Italo, agradeço muito, informe grupo do COFINS, outro detalhe também caractere na descrição do produto, agora estou usando uma rotina para tirar. O produto código 60. <cProd>60</cProd><cEAN/><xProd>MASSA DE POLIR N°2 BASE AGUA 1KG MAXI RUBBER</xProd><NCM>34053000</NCM><CEST>2804400</CEST><CFOP>5102</CFOP><uCom>UN</uCom><qCom>1.0000</qCom Deu certo, Muito obrigado Leão

Olá Italo, farei teste, depois informo aqui o resultado. Obrigado,

Olá Agnaldo, sim são os mesmos, inclusive atualizei novamente ocorre a mesma mensagem, o estranho que hoje foi emitida várias nfc-e. Alguém...

Hoje (05/02/2016) as 16:00, depois de emitir várias NFC-e, do nada ao emitir mais uma a mensagem "Rejeicao: Falha no Schema XML do lote de NFe" atualizei os mesmos, continua a mensagem. xml anexo. Obrigado, Leão 21160204913925000184650010000000351000000355-nfe.xml

Olá Marcio, faça o teste pelo gmail, lembrando que tem que fazer uma configuração na conta, veja essa configuração que existe aqui no fórum: Vale a pena ressaltar a configuração da conta de e-mail. No meu caso, uso o GMail, e para funcionar precisei liberar a opção "Acesso para aplicativos menos seguros" nas configurações de segurança da conta. Sem isso, não envia de jeito nenhum. Teste e comente eventual erro, vamos corrigir isso... Leão

Uso delphi7, e envio por e-mail nfe, nfc-e e boletos pelo ACBr, faça teste com o exemplo funciona normalmente... Leão

E sobre os componentes RDPrint, existe atualização no site deles deltree

Independentemente da exigência da ACBr, extinguir suporte ao delphi7, obrigatoriamente devemos acompanhar a evolução natural, vendemos serviços precisa ter qualidade, lembro de um cliente um dia disse assim: Olha vi em uma empresa uma tela ..., imediatamente lembrei que no d7, aquilo fica muito dificil complicado. Outro detalhe tive um professor da faculdade que nos dizia "olha procure se atualizar seus serviços, se não vão ter que ir vender apa- relho de rodar fita k7, na frente dos bancos...". Temos o famoso googles.... A primeira coisa a fazer é eliminar trocar ou ver se tem compatibilidade os famosos componentes... Na verdade essas bobas dificuldades irá nos aperfeiçoar, nossos clientes que paga o nosso pão de cada dia, também verá a diferença no resultado final e pagará satisfeito, agente ganha mais respeito, moral, outra coisa programador é programador e se for brasileiro coisa vai ter que andar... Obrigado, Leão

Olá Daniel, na verdade não utilizo Monitor, mas valeu a dica, agora estar dando certo, estou informando assim: if TabGlobal.DConf_nfce.CORTA_PAPEL.Conteudo='S' then ACBrNFeDANFeESCPOS1.PosPrinter.CortaPapel :=True else ACBrNFeDANFeESCPOS1.PosPrinter.CortaPapel :=False; porém existe também o CortarPapel, com esse não deu certo. Mas estar funcionando com a de cima, agradeço muito e Obrigado, Leão

Olá Daniel, talvez não tenha me expressado corretamente, no exemplo precisamente no botão Criar\Enviar da NFC-e do demo, estar assim: procedure TForm1.btnCriarEnviarNFCeClick(Sender: TObject); var vAux, vNumLote, vSincrono : String; Sincrono : boolean; begin if not(InputQuery('WebServices Enviar', 'Numero da Nota', vAux)) then exit; if not(InputQuery('WebServices Enviar', 'Numero do Lote', vNumLote)) then exit; vSincrono := '1'; if not(InputQuery('WebServices Enviar', 'Envio Síncrono(1=Sim, 0=Não)', vSincrono)) then exit; vNumLote := OnlyNumber(vNumLote); if Trim(vNumLote) = '' then begin MessageDlg('Número do Lote inválido.',mtError,[mbok],0); exit; end; if (Trim(vSincrono) <> '1') and (Trim(vSincrono) <> '0') then begin MessageDlg('Valor Inválido.',mtError,[mbok],0); exit; end; if (Trim(vSincrono) = '1') then Sincrono := True else Sincrono := False; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; GerarNFCe(vAux); ACBrNFe1.Enviar(vNumLote,True,Sincrono); if not Sincrono then begin MemoResp.Lines.Text := ACBrNFe1.WebServices.Retorno.RetWS; memoRespWS.Lines.Text := ACBrNFe1.WebServices.Retorno.RetornoWS; LoadXML(ACBrNFe1.WebServices.Retorno.RetWS, WBResposta); MemoDados.Lines.Add(''); MemoDados.Lines.Add('Envio NFCe'); MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb)); MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic); MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat)); MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF)); MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo); MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg)); MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg); MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo); MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo); end else begin MemoResp.Lines.Text := ACBrNFe1.WebServices.Enviar.RetWS; memoRespWS.Lines.Text := ACBrNFe1.WebServices.Enviar.RetornoWS; LoadXML(ACBrNFe1.WebServices.Enviar.RetWS, WBResposta); MemoDados.Lines.Add(''); MemoDados.Lines.Add('Envio NFCe'); MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Enviar.TpAmb)); MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Enviar.verAplic); MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Enviar.cStat)); MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Enviar.cUF)); MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Enviar.xMotivo); //MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Enviar.cMsg)); //MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Enviar.xMsg); MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Enviar.Recibo); //MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Enviar.Protocolo); end; ACBrNFe1.NotasFiscais.Clear; end; nesse exemplo onde colocaria o código? Leão

Olá Daniel, coloquei o código no botão Imprimir Danfer, e funcionou certinho, mas se for quando usar o botão Criar\Enviar, porque o retorno já começa imprimir, onde inserir o código: procedure TFormNFC_gerar.btnImprimirClick(Sender: TObject); begin OpenDialog1.Title := 'Selecione a NFC-e'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir :=TabGlobal.DConf_nfce.PATH_NFC.Conteudo; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName,False); ACBrNFe1.NotasFiscais.Imprimir; if (TabGlobal.DConf_nfce.IMPRESSORAS_SUPORTADAS.Conteudo='0') or //não fiscal (TabGlobal.DConf_nfce.IMPRESSORAS_SUPORTADAS.Conteudo='1') or //não fiscal (TabGlobal.DConf_nfce.IMPRESSORAS_SUPORTADAS.Conteudo='2') or //não fiscal (TabGlobal.DConf_nfce.IMPRESSORAS_SUPORTADAS.Conteudo='3') or //não fiscal (TabGlobal.DConf_nfce.IMPRESSORAS_SUPORTADAS.Conteudo='4') or //não fiscal (TabGlobal.DConf_nfce.IMPRESSORAS_SUPORTADAS.Conteudo='5') then //não fiscal begin if TabGlobal.DConf_nfce.CORTA_PAPEL.Conteudo='S' then ACBrPosPrinter1.ImprimirLinha('</corte_total>'); end; end; end; No botão Criar\Enviar, não tem a função Imprimir Obrigado, Leão

Olá Daniel, coloquei no botão Imprimir Danfe funcionou. (NFC-e) impressora TM T20 Epson não fiscal. Assim: if TabGlobal.DConf_nfce.CORTA_PAPEL.Conteudo='S' then ACBrPosPrinter1.ImprimirLinha('</corte_total>'); Mas quando for botão Criar\Enviar, onde coloco esse código? Obrigado, Leão

Isso mesmo Daniel, pesquisando encontrei o driver TMVirtualPortDriver840a.zip, e com ele cria o driver, estar funcionando. Muito obrigado, Leão

Olá pessoal, estou usando uma impressora epson tm t20 não fiscal, Modelo=ppEscEpson, para nfc-e, estar imprimindo normalmente, o detalhe é cortar o papel, não executa quando tento informar pelo componente ACBrNFeDANFeESCPOS1.PosPrinter.CortarPapel :=True; não aceita, conforme CortarPapel, existe parcial e total, mas como informar? Obrigado, Leão

Olá Daniel, estou testando impressora não fiscal epson tm t20, não fiscal, já configurei tudo certinho conforme o exemplo não imprimir nada, conforme acima acbrnfedanfescpos1.posprinter.device.porta:='COM1' só que a mesma usa porta usb trunk2, ACBrNFeDANFeESCPOS1 usando outro aplicativo imprimir normal. Obrigado, Leão

Olá Italo, funcionou perfeitamente, agradeço muito, Obrigado, Leão

Olá Fábio, como você resolveu isso?, estou com o mesmo problema. Obrigado, Leão

Olá, estou terminando a NFC-e, e conforme o exemplo, estou conseguindo criar enviar, preciso pega o retorno precisamente o cStar que é 100 ou 110. Na NFe, funciona normalmente. veja o xml retorno: { xml apos enviar <?xml version="1.0" encoding="UTF-8" ?> - <retEnviNFe versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe"> <tpAmb>1</tpAmb> <verAplic>SVRSnfce201601061826</verAplic> <cStat>104</cStat> <xMotivo>Lote processado</xMotivo> <cUF>21</cUF> <dhRecbto>2016-01-25T18:00:51-03:00</dhRecbto> - <protNFe versao="3.10"> - <infProt> <tpAmb>1</tpAmb> <verAplic>SVRSnfce201601061826</verAplic> <chNFe>21160104913925000184650010000000021000000024</chNFe> <dhRecbto>2016-01-25T18:00:51-03:00</dhRecbto> <nProt>321160000177125</nProt> <digVal>BN4yf8GGehUnRSgFw0BRGFiipYI=</digVal> <cStat>100</cStat> //veio como 100 <xMotivo>Autorizado o uso da NF-e</xMotivo> </infProt> </protNFe> </retEnviNFe> } no meu fonte informo: MemoResp.Lines.Text := ACBrNFe1.WebServices.Enviar.RetWS; memoRespWS2.Lines.Text := ACBrNFe1.WebServices.Enviar.RetornoWS; LoadXML(ACBrNFe1.WebServices.Enviar.RetWS, WBResposta); if (ACBrNFe1.WebServices.Retorno.cStat = 100) or (ACBrNFe1.WebServices.Retorno.cStat = 110) then // Autorizado o uso da NF-e ou denegada begin //aqui salvo informação como autorizada end; Agradeço Leão

Olá, conforme minha configuração, não estar modificando o componente: ACBrNFe1.DANFE ACBrNFeDANFCeFortesA41 Estar relacionado, fortes no onshow do formulario ACBrNFe1.DANFE.ImprimeDescAcrescItem:= iif(TabGlobal.DConf_nfce.IMPR_DESC_ACRES_POR_ITEM.Conteudo='S',True,False); ACBrNFe1.DANFE.CasasDecimais._qCom := strToInt(TabGlobal.DConf_nfce.DECIMAIS_QUANT.Conteudo); ACBrNFe1.DANFE.CasasDecimais._vUnCom:= strToInt(TabGlobal.DConf_nfce.DECIMAIS_PREC_UNIT.Conteudo); informe não imprime desc Acres Item, mas no danfe imprimi coluna Desconto e Acrescimo; casas decimais informo 3 e sai 2 na quantidade no danfe, mas no xml sai 4 resumindo não estar aceitando a configuração em homologação svn 10954, sábado 23/01/2016 21160105517740000113650010000000099000000095-nfe.xml

Olá Fernando, basta copiar da pasta D:\trunk2\DLLs para a pasta do seu programa. Leão