elrond

Ok Rafael Dias vou efetuar o teste com esse componente obrigado, depois eu posto se deu certo

Boa tarde, Estou com ie11 na maquina instalado, so que ele carrega o TWebBrowser como se fosse o ie6. se eu efetuar o teste direto no navegador ... nao da erro algum, mas se eu faço a chamada no webbrowser começa a pipoca erro de java script.

Boa tarde, Uma divida, e ver se tem outro modo de fazer esta chamada. Estou utilizando o componente webbrowser do delphi para fazer a chamada de um link com passagem de parametro por Post. esta dessa forma : wbNavegador.Navigate('site', EmptyParam, EmptyParam, PostData, Headers); onde a variavel PostData são os parametros. ate entao ta funcionando. so que tem algumas funcoes do java script que começa a dar erros, pois o "navegador" equivale ao ie6 ( delphi 7 ) teria como atualizar este componente para chamar um ie mais atual ou algum componente ou outro modo de efetuar esta chamada ??

Boa tarde, Informo que a cidade de Presidente Venceslau - SP, ocorreu a mudança de provedor de NFS-e, mudando do GovBR ( padrão Abrasf ) , para o ASSESSOR PUBLICO, que nao obedece o padrão Abrasf, eles estao com projeto de efetuar a criação , mas sem prazo estimado. bom como o componente obedece o leiaute abrasf nao ser mais possivel a transmissao. desculpa o incoveniente. Abaixo segue onde ocorreu a alteração.

Boa tarde, Junin sou da cidade de Presidente Venceslau, e no momento esta ocorrendo a mudança do provedor da cidade para o mesmo da cidade de Dracena. Acabei de conversar com o Analista que se encontra no momento na prefeitura, e o mesmo me informou que a principio o leiaute NÃO é ABRASF. Mas esta em desenvolvimento esse padrao, sem prazo estipulado. se quiser estou com o material que me forneceu, a principio não começei a desenvolver nada. me envie o email [email protected]

Boa tarde, Aproveitando o topico tbm sobre cancelamento, em um cliente apos o cancelamento a impressao do danfe nao imprime a msg de "CANCELADO NFE" em vermelho no corpo da nota. - Impressao pelo RAVE esta desatualizado o arquivo? ou é algum retorno ? ou nao vai mais imprimir essa tarja ?

Boa tarde, Meu cliente a empresa localizada no estado de SP. Só que o transporte ele vai efetuar o inicio na cidade Origem Londrina - PR e transportar para cidade destino Curitiba - PR

Boa tarde, Estou com um cliente no Estado de SP, e ele esta prestando serviço no estado do PR, Origem Londrina - PR Destino Curitiba - PR estou com o manual 2.0 do CTE onde "2. WebService – Recepção: Validação do CFOP Verificar o CFOP informado considerando a seguinte matriz: Para CT-e do tipo Normal, Complementar ou Substituição: Se UF de início da prestação = UF de fim de prestação (e UF fim <> EX) CFOP deve iniciar por 5 Se UF de início da prestação <> UF de fim da prestação (e UF fim <> EX) CFOP deve iniciar por 6 Se UF fim de prestação = EX CFOP deve iniciar por 7 Datas de Implantação: Ambiente de Homologação: 15/12/2013 Ambiente de Produção: a partir de 15/12/2013 até 10/03/2014 conforme SEFAZ Autorizadora" onde a partir de hoje começou a validar os CFOPs utilizado. Ve se estou correto. Nao importa o estado que a Empresa ( Dona da Transportadora ) se localiza, mas sim o Estado de Origem e o Estado de Destino que ira ocorrer o servico correto ? Entao nesse caso ele utilizara CFOP começado com 6. O contador diz que como é "fora do estado" ele deve utilizar o CFOP começado com 5, sendo que esta ocorrendo essa validacao a cima e esta insistindo ... oque falar para ele?

Bom dia Larissa, Você esta conseguindo fazer as impressões do SAT? Se sim, poderia me dizer qual impressora ou emulador que esta usando, e como esta fazendo, estou tendo dificuldades com a parte de impressão ?

Boa tarde, tenta utilizar infEvento.cOrgao := cNfe.Configuracoes.WebServices.UFCodigo;

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?