Leao

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

Olá Ricardo, rapaz abre o exemplo da nfe, basta referenciar no ACBrNF1 Leão

Agradeço Juliomar, Obrigado, Leão

Olá, estou terminando o desenvolvimento nfc-e, estudando o exemplo nfe, me veio uma dúvida a diferente entre ACBrNFeDANFCeFortes1 e ACBrNFeDANFCeFortesA41 trunk2, claro que ambos fortes, o último entendo papel A4 impressora jato tinta\laser, fiz pesquisa mas não completou... O usuário irá selecionar a impressora que irá trabalhar, nas quais não fiscais e outras. usarei também o ACBrNFeDANFeESCPOS1 mais uma dúvida quando usar o ACBrECFVirtualNFCe1? Obrigado, Leão

Olá, juntamente com o contador, estamos tendo dificuldade sefaz-MA, para obter código scs \idscs. Através da sefaz.net, a empresa(meu cliente), já foi credenciada. Veja abaixo, modifiquei número token por segurança onde conter "X", substitui: Lista de Token gerados Empresa Credenciada Token cnpj Data Revogação Revogação XXX13925160108053535XXXX XXX3925000XXX 08/01/2016 XX37767XXXX XXXXX925160108053645XXXX XXXX925000XXX 08/01/2016 XX37767XXXX Opção Manutenção de SCS Minha dúvida, não sei se os mesmo, é de homologação\produção? Outro detalhe o tamanho do código estar com 25 caracteres(token),conforme manual página 15, é 36 caracteres, versão 3.2

Olá, descobrir o erro: DDADOS_PERCURSOS.First; while not DDADOS_PERCURSOS.Eof do begin with Ide.infPercurso.Add do begin UFPer := DDADOS_PERCURSOS.UFPER.Conteudo; end; DDADOS_PERCURSOS.Next; end; estava investido. Obrigado, Leão

Olá, estou com problema mdfe, percuso: UF Saída=MA, Destino=RN Percurso=PI, PE, PB Conforme fonte abaixo, e usando showmessage, processa normalmente, porém no .xml gravar somente o último(PB), onde estou errado? // TpcnProcessoEmissao = (peAplicativoContribuinte, peAvulsaFisco, peAvulsaContribuinte, peContribuinteAplicativoFisco); if TabGlobal.DEMITENTE.PROCEMI.Conteudo='0' then Ide.procEmi := peAplicativoContribuinte else Ide.procEmi :=peContribuinteAplicativoFisco; Ide.verProc := TabGlobal.DEMITENTE.VERPROC.Conteudo; //'1.0'; Ide.UFIni := DDADOS.CUF.Conteudo; Ide.UFFim := DDADOS.UFFIM.Conteudo; DDADOS_CARREGAMENTOS.First; while not DDADOS_CARREGAMENTOS.Eof do begin with Ide.infMunCarrega.Add do begin cMunCarrega := StrToInt(DDADOS_CARREGAMENTOS.CMUNCARREGA.Conteudo); //3503208; xMunCarrega := DDADOS_CARREGAMENTOS.XMUNCARREGA.Conteudo; // 'ARARAQUARA'; end; DDADOS_CARREGAMENTOS.Next; end; // Percurso. if not DDADOS_PERCURSOS.IsEmpty then begin with Ide.infPercurso.Add do begin DDADOS_PERCURSOS.First; while not DDADOS_PERCURSOS.Eof do begin UFPer := DDADOS_PERCURSOS.UFPER.Conteudo; // DHINIVIAGEM ShowMessage('percuso...: '+DDADOS_PERCURSOS.UFPER.Conteudo); DDADOS_PERCURSOS.Next; end; end; end; // // Dados do Emitente // Emit.CNPJ := TabGlobal.DEMITENTE.CNPJ.Conteudo; Emit.IE := TabGlobal.DEMITENTE.IE.Conteudo; Emit.xNome := TabGlobal.DEMITENTE.XNOME.Conteudo; .xml em anexo. Obrigado, Leão 21160103376307000180580010000000141000000145-mdfe.xml

Modifique o código cst_ipi para 53, vai dar certo. Leão

Olá, acho que era o arquivo fiz novamente o download e agora funcionou, obrigado Régys\Delmar. Leão

Olá Régis, sim estou usando o IBExpert, o executor de scripts, sim o arquivo estar normal. Em anexo mensagem de erro e o script estrutura da tabela Obrigado, Leão scrpt_erro.sql erro_sql estrutura tabela.txt

Olá, estou tentando importar a tabela cest e ocorre seguinte erro: invalid token. Dynamic SQL Error. SQL error code = -104. Token unknown - line 5, column 1. INSERT. ==============\=========== firebird 2.1 CREATE TABLE TAB_CEST ( CEST VARCHAR(7), NCM VARCHAR(8), DESCRICAO VARCHAR(600) ); https://drive.google.com/file/d/0B8SGtKYIi0k0cUpfT2pJb2xyODg/view?usp=sharing. scrpt em anexo obrigado, Leão SQL_TABELA_CEST.sql

também estou na mesma situação Leão