elrond

GigaInfo, De uma olhada na pagina anterior no primeiro post e compare o seu fonte com o que esta la.

dalitas, Creio que dessa forma esteje meio "errado", pois se houver o idToken 000002 em producao , nao ira funcionar o codigo, sendo que o idToken o Token é fornecido pelo Contador. if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then begin FIdToken := '000001'; end; if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then begin FToken := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 1, 8)+ IntToStr(YearOf(Now))+'0001'; end; if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taProducao) then begin // vidToken fornecido pelo contador FIdToken := FormatFloat('000000', vIdToken ); end; if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taProducao) then begin // vToken fornecido pelo contador // verificar com o contador sobre esse TOKEN FToken := Trim(vToken); end; em anexo tem como é gerado o Token , caso algum contador não souber, e da onde vem o id token e o token Tutorial_Cadastro_Token04.10.13.pdf

Elisana, você deve entrar em contato com o suporte do seu sistema, ja que você não é a desenvolvedora.

Boa tarde, Acabei de receber uma informação de um escritorio de contabilidade que recebeu uma nota emitida pelo meu sistema, onde Empresa= Simples Nacional CRT = 1 -<ICMS>- <ICMSSN500> <orig>0</orig> <CSOSN>500</CSOSN> </ICMSSN500> </ICMS> sendo utilizado o <CFOP>5405</CFOP> a principio é um produto Substituição. o escritorio informou que o 500 do csosn foi alterado no final do ano ou inicio desse ano ( nao soube dizer a data expecifica ) mudou de substiuicao para Tributado, sendo assim o CFOP a ser informado deveria ser 5102. A principio contestei ele , e me enviou os seguintes arquivos para "comprovar" ( em anexo). coisa que pra mim nao comprovou nada. pelo que eu vi ele esta olhando na faixa de CST 500 ( regime normal ) ... ai sim eh tributado. XML da nota em anexo Eu estou certo ou ele ?? Sem título 1.pdf tb587 (1).txt 35140167049932000108550010000014211000014213-NFe.xml Sem título 1.pdf tb587 (1).txt 35140167049932000108550010000014211000014213-NFe.xml

efetuei o processo descrito acima. mas nao deu certo...apresentou o seguinte erro apos jogar a DLL ( do win 8.0 ) na pasta do exe. tentei registrar ele mais nao obtive sucesso.

não, não efetuei este processo ainda. Acabei de instalar o win 8.0 para efetuar o teste, caso funcione, vou pegar a dll do win 8.0, jogar na pasta do exe , e tentar rodar no win 8.1 muito estranho rs...vou efetuar o teste.

Bom dia galera, Estou com um problema , ao executar o meu sistema no Windows 8.1, ele exibe a mensagem ( imagem anexa ) nas outras versoes do windows funciona de boa, winxp, win7, win severs, win 8.0, .... mas nao na 8.1, ja tentei copiar essa dll de outro lugar ... mas sem sucesso. alguem ja passou pro esse problema? e como resolver? ps : ja foi testado em varias maquinas.

Bom dia a todos, Consegui instalar o emulador, ativar, gerar a venda, enviar, tudo funcionando perfeitamente, porém não estou conseguindo imprimir o CFe. Aqui eu somente possuo os emuladores fiscais (inclusive o epson) que foi mencionado em outro tópico como um dos unicos que imprimiu o QRCode, e as impressoras que tenho aqui são portas paralelas. Gostaria de saber se alguém possui algum emular ou tem alguma sugestão de como posso estar utilizando essa parte de impressão do demo do ACBr. Obrigado pela atenção

Tem algum simulador que dê para utilizar para testar a parte de impressão ? Aqui só tenho emuladores de ecfs fiscais, teria alguma não fiscal?

EdsonAlves, tente somente mudar essa tag <vProd>900.00</vProd> para <vProd>999.00</vProd> o resto deixa igual ao post que vc postou

Edsonalves, tem um campo proprio na tag desconto onde vc informa item a item, AcbrNfe.Det.Add.Prod.vDesc := ( desconto total por item ) no seu caso o valor 99,00 deve ser informado aqui e nao subtraido dos campos vUnCom ou vUnTrib <cProd>000452</cProd> <cEAN/> <xProd>CONJ. ESTOF. 3X2 LUG MADRI (COR 11) MARROM CLARO</xProd> <NCM>94016100</NCM> <EXTIPI>23</EXTIPI> <CFOP>5102</CFOP> <uCom>UN</uCom> <qCom>1.0000</qCom> <vUnCom>999.0000000000</vUnCom> <vProd>999.00</vProd> <cEANTrib/> <uTrib>UN</uTrib> <qTrib>1.0000</qTrib> <vUnTrib>999.0000000000</vUnTrib> <indTot>1</indTot> <vDesc>99.00</vDesc>

Boa tarde, Eu fiz a impressao para esse modelo de impressora utilizando o componente do acbr vou mandar o codigo que utilizei procedure TFEtiquetas.AtivarACBrETQ ; begin with ACBrETQ do begin DPI := TACBrETQDPI(0);//0 - dpi203; 1 - dpi300; 2 - dpi600 Modelo := TACBrETQModelo(3) ;//0 - etqNenhuma; 1 - etqPpla; 2-etqPPlb; 3-etqZPLII; 4-etqEpl2 Porta := '\\localhost\ZDesigner';//cbPortaArgox.Text ; LimparMemoria := True ; Ativar ; end ; end ; Procedure TFEtiquetas.ImpressoraZebra; var Qual, i : integer; aux ,vQtde : string; begin AtivarACBrETQ; with ACBrETQ do begin if Modelo <> etqPPla then begin while not RMDAux2.EoF do begin ImprimirTexto(orNormal, 0, 0, 25, 35, 30, Copy(RMDAux2['desc01'], 1,30) ); // Linha 1 ImprimirTexto(orNormal, 0, 0, 25, 60, 30, Copy(RMDAux2['desc01'],31,30) ); // Linha 2 ImprimirBarras(orNormal, 'C', '2', '2', 80, 20, RMDAux2['codigo01'], 65, becSIM); If RMDAux2['Valor01'] <> Null then aux := 'A VISTA '+ FormatCurr('R$ ,0.00', RMDAux2['Valor01']) else aux:= ' '; ImprimirTexto(orNormal, 0, 0, 25, 170, 30, Aux ); //A PRAZO If RMDAux2['Valor01a'] <> Null then begin DivideParcelas ( StrToInt(CETotVezes.Text), RMDAux2['Valor01a']); RMDparcela.First; if RMDparcela.RecordCount=1 then begin aux := FloattoStr(CETotVezes.Value) +' X '+FormatFloat('R$ ,0.00', RMDparcela['valor']); ImprimirTexto(orNormal, 0, 0, 25, 195, 30, Aux ); end else begin aux := '1 X '+ FormatFloat('R$ ,0.00',RMDparcela['valor']); RMDparcela.Next; aux := aux +' + ' + FloattoStr(CETotVezes.Value - 1)+' X '+ FormatFloat('R$ ,0.00', RMDparcela['valor']); ImprimirTexto(orNormal, 0, 0, 25, 195, 30, Aux ); end; end else aux:= ' '; If RMDAux2['Valor01a'] <> Null then aux := 'TOTAL '+ FormatCurr('R$ ,0.00', RMDAux2['Valor01a']) else aux:= ' '; aux :=aux + ' C.E.T. '+ FormatFloat('0.00',(100 - ((RMDAux2['Valor01'] * 100) / RMDAux2['Valor01a'] ) ))+'%'; ImprimirTexto(orNormal, 0, 0, 25, 220, 30, Aux ); ImprimirTexto(orNormal, 0, 0, 25, 35, 450, Copy(RMDAux2['desc02'], 1,30) ); ImprimirTexto(orNormal, 0, 0, 25, 60, 450, Copy(RMDAux2['desc02'],31,30) ); ImprimirBarras(orNormal, 'C', '2', '2', 80, 450, RMDAux2['codigo02'], 65, becSIM); //ImprimirTexto(orNormal, 0, 0, 25, 170, 450, FormatFloat('R$ 0.00',RMDAux2['valor02'] )); If RMDAux2['Valor02'] <> Null then aux := 'A VISTA '+ FormatCurr('R$ ,0.00', RMDAux2['Valor02']) else aux:= ' '; ImprimirTexto(orNormal, 0, 0, 25, 170, 450, Aux ); // A_Prn_Text_TrueType(5, 27, 30, pchar('Arial'), 1, 400, 0, 0, 0, pchar('AC'), pchar(Aux), 1); //A PRAZO If RMDAux2['Valor02a'] <> Null then begin DivideParcelas ( StrToInt(CETotVezes.Text), RMDAux2['Valor02a']); RMDparcela.First; if RMDparcela.RecordCount=1 then begin aux := FloattoStr(CETotVezes.Value) +' X '+FormatFloat('R$ ,0.00', RMDparcela['valor']); ImprimirTexto(orNormal, 0, 0, 25, 195, 450, Aux ); end else begin aux := '1 X '+ FormatFloat('R$ ,0.00',RMDparcela['valor']); RMDparcela.Next; aux := aux +' + ' + FloattoStr(CETotVezes.Value - 1)+' X '+ FormatFloat('R$ ,0.00', RMDparcela['valor']); ImprimirTexto(orNormal, 0, 0, 25, 195, 450, Aux ); end; end else aux:= ' '; If RMDAux2['Valor02a'] <> Null then aux := 'TOTAL '+ FormatCurr('R$ ,0.00', RMDAux2['Valor02a']) else aux:= ' '; aux :=aux + ' C.E.T. '+ FormatFloat('0.00',(100 - ((RMDAux2['Valor02'] * 100) / RMDAux2['Valor02a'] ) ))+'%'; ImprimirTexto(orNormal, 0, 0, 25, 220, 450, Aux ); Imprimir(1, 600); RMDAux2.Next; end; end; Desativar; end; end; espero que ajude

Bom vc leu a respeito do servidor de MT, que esta com problema e deveria informar 2013, mais ja foi arrumado. Como vc esta utilizando servidor de AM, creio que este esteje ok. vou postar o meu fonte, apesar de ser Copia do pessoal ( credito a quem desenvolveu ) e que aqui esta funcionando corretamente, pelo menos para o MT esta blzinha. function TFNFCe.StringToHex(const S: String): string; begin SetLength(result, 2*Length(S)); BinToHex(@S[1], @result[1], Length(S)); end; function TFNFCe.GetSiteConsulta(UF: string; Ambiente: TpcnTipoAmbiente ): string; const site_uf_prod : array[0..6] of string = ('http://www.sefaznet.ac.gov.br/nfe/NFe.jsp?opc=3' 'http://sistemas.sefaz.am.gov.br/nfceweb/consultarNFCe.jsp' 'http://www.nfce.sefaz.ma.gov.br/portal/consultarNFCe.jsp' 'http://www.sefaz.mt.gov.br/nfe/portal/consultanfce' 'http://www.nfe.rn.gov.br/portal/consultarNFCe.jsp' 'https://www.sefaz.rs.gov.br/NFCE/NFCE-COM.aspx' 'http://www.nfe.se.gov.br/portal/consultarNFCe.jsp'); site_uf_hom : array[0..6] of string = ('http://hml.sefaznet.ac.gov.br' 'http://homnfe.sefaz.am.gov.br/nfceweb/consultarNFCe.jsp' 'http://www.hom.nfce.sefaz.ma.gov.br/portal/consultarNFCe.jsp' 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce' 'http://www.hom.nfe.rn.gov.br/portal/consultarNFCe.jsp' 'https://www.sefaz.rs.gov.br/NFCE/NFCE-COM.aspx' 'http://www.hom.nfe.se.gov.br/portal/consultarNFCe.jsp'); begin case Ambiente of taProducao: begin if UF = 'AC' then Result := site_uf_prod[0] else if UF = 'AM' then Result := site_uf_prod[1] else if UF = 'MA' then Result := site_uf_prod[2] else if UF = 'MT' then Result := site_uf_prod[3] else if UF = 'RN' then Result := site_uf_prod[4] else if UF = 'RS' then Result := site_uf_prod[5] else if UF = 'SE' then Result := site_uf_prod[6] end; taHomologacao: begin if UF = 'AC' then Result := site_uf_hom[0] else if UF = 'AM' then Result := site_uf_hom[1] else if UF = 'MA' then Result := site_uf_hom[2] else if UF = 'MT' then Result := site_uf_hom[3] else if UF = 'RN' then Result := site_uf_hom[4] else if UF = 'RS' then Result := site_uf_hom[5] else if UF = 'SE' then Result := site_uf_hom[6] end; end; end; procedure TFNFCe.GerarQrCode; var s_aux, dh_emi, s_hash: string; qrcode : TxpQrCode; begin dh_emi := GetUTC( CodigoParaUF(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF), StrToDateTime(FormatDateTime('dd/mm/yyyy',ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi)+' '+ FormatDateTime('hh:mm:ss', ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))); dh_emi := StringToHex( FormatDateTime('yyyy-mm-dd',ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi)+'T'+ FormatDateTime('hh:mm:ss', ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi)+dh_emi ); if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then begin FIdToken := '000001'; end; if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then begin FToken := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 1, 8)+ IntToStr(YearOf(Now))+'0001'; end; // '20130001';// s_aux :='chNFe=<chaveacesso>'+ '&nVersao=100'+ '&tpAmb=<ambiente>'+ IIf(ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF<>'', '&cDest=<cnpj_dest>', '')+ '&dhEmi=<data_hora>'+ '&vNF=<valor>'+ '&vICMS=<valor_icms>'+ '&digVal=<digito_val>'+ '&cIdToken=<id_token><token>'; s_aux := StringReplace(s_aux, '<chaveacesso>', SomenteNumeros(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID), []); s_aux := StringReplace(s_aux, '<ambiente>', TpAmbToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb), []); s_aux := StringReplace(s_aux, '<data_hora>', dh_emi, []); s_aux := StringReplace(s_aux, '<valor>', StringReplace(FormatFloat('##,##0.00',ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF),',','.',[]),[] ); s_aux := StringReplace(s_aux, '<valor_icms>', StringReplace(FormatFloat('##,##0.00',ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS),',','.',[]),[] ); s_aux := StringReplace(s_aux, '<digito_val>', StringToHex(ACBrNFe1.NotasFiscais.Items[0].NFe.signature.DigestValue), []); s_aux := StringReplace(s_aux, '<id_token>', FIdToken, []); s_aux := StringReplace(s_aux, '<cnpj_dest>', ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, []); with TACBrEAD.Create(nil) do try s_hash := StringReplace(s_aux,'<token>',FToken,[]); s_hash := CalcularHash(s_hash, dgstSHA1); finally Free; end; s_aux := StringReplace(s_aux,'<token>', '',[]) + '&cHashQRCode='+s_hash; s_aux := GetSiteConsulta( CodigoParaUF(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF), ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb ) +'?'+ s_aux; // MontarQrCode(s_aux); qrcode := TxpQrCode.Create; try if qrcode.GerarQrCode( s_aux ) then qrcode.QrCode.SaveToFile(ExtractFilePath(ParamStr(0))+'qrcode_temp.bmp'); finally qrcode.Free; end; end; essa foi gerada por esse codigo. Essa parte onde Monta o QrCode vc utiliza o comando direto para a impressora Daruma. sua nota ... peguei a url de consulta + chNFe + Hash sendo que .... no IdToken=000001 em vez de 0000010502279120140001 http://homnfce.sefaz.am.gov.br/nfceweb/consultarNFCe.jsp?chNFe=13140105022791000174650010000000341000000340&nVersao=100&tpAmb=2&dhEmi=323031342D30312D32315431333A32313A33382D30343A3030&vNF=20.00&vICMS=0.00&digVal=59423278536B3958554D5878514D654761587735694F3168324B4D3D&cIdToken=000001&cHashQRCode=A3F34BA07D3838A810D865A23B80DE0A77D3071C A Hash gerada na url de consulta ( no seu link do post acima esta ) : &cHashQRCode=41334633344241303744333833384138313044383635413233423830444530413737443330373143 ao inves de &cHashQRCode=A3F34BA07D3838A810D865A23B80DE0A77D3071C Bom creio que va resolver seu problema

Bom dia, tente alterar onde deixei negrito para 2014

Bom dia, Anexei o manual no post acima, a principio li, mas nao consegui compreender o negocio dos protocolos rs. alguem poderia me ajudar?

Boa tarde, Eu não entendo muito dessas coisas de protocolo de comunicação de leitura da porta COM. Gostaria de saber se alguém pode estar adicionado ao componente ACBRBal essa balança Alfa. Segue em anexo os documento: @Edit : Esqueci de clicar em anexar arquivo, desculpe site do fabricante http://www.alfainstrumentos.com.br/ Docs.rar

Pessoal venho a agradecer aqui a todos que postaram duvidas/resolucoes de problemas apresentado no desenvolvimento do NFC-e. baseando-se nisso consegui efetuar os testes em homologacao de primeira =D. agora estou efetuando as validacoes de campos e alguns detalhes, mais ja esta ok a NFC-e ( MT ) . Muito obrigado a todos.

Boa tarde Régys, descobri o que ocorreu, estou implementando o NFC-e, ele no caso é o mesmo componente do NF-e. Ao criar o form, ele joga o create desse form la na inicializacao do sistema, ao ele executar o programa estava carregando a nova tela do NFC-e(sendo que NAO TEM NADA NO OnCreate do form, somente no OnActivate), e a tela de NF-e é outra, que apos fazer a chamada carrega os parametros da nfe para poder utilizar o componete, e de alguma forma estava afetando a funcao de IMPRIMIRPDF do componente. eu removi o createform , e voltou a funcionar normalmente. bom foi isso que ocorreu, agora se tem algo a ver com essa interferencia nao sei dizer. PS : estou utlizando o RAVE ( arquivo .rav )

Estou com um problema agora o pq de gerar esse erro nao sei dizer, do nada começou a dar erro de Access Violation somente na hr de utilizar essa funcao. se eu somente mandar imprimir ele vai normal. o que podera ser? E outra...observei que ao executar esta aparecendo como se fosse efetuar a impressao, ( escolher a impressora )...ao clicar no PRINT que ocorre o erro de Access Violation

entao , a partir do delphi 2007 se nao me engano isso eh nativo, mais eu queria no delphi 7 rsrsrs

Topico antigo mais funcional, rs Algum desses acima ( CNPack, GExperts ) faz a criação do + - nas funcoes ... que seria para "minimizar" os codigos das funcoes. ou alguem sabe algum que efetua esse processo ? ( delphi 7 )

Bom dia, após atualização e reinstalação do componente atraves do instalador, o sistema apresenta o seguinte erro na hora de compilar: Vejam a imagem em anexo. O que será que está acontecendo? Solução: Voltei a versão do ACBRMDFe aparentemente a ultima está com problemas

Boa tarde, Desculpa se postei no local errado, Teria a ver com o ACBrBomba ( se alguem continuou a desenvolver )

Boa tarde, Alguem já efetuou essa homologacao em Delphi ? Homologar Fusion utilizando comunicação Companytec Caso sim...efetuamos todos os procedimentos possíveis para a homologação, e faltou somente a MUDANÇA DE PREÇO. alguem poderia me ajudar?

Olá, no caso estou informando aqui ReqResp := THTTPReqResp.Create(nil); ReqResp.UseUTF8InHeader := True; ReqResp.UserName := 'XXXXXX'; ReqResp.Password := 'XXXXXXX'; ReqResp.Execute(Texto, Resposta); esta certo?