centuryinf

Nossa vou ter que fazer isso 132 vezes....

Bom dia amigos um cliente meu, pulou a numeraçao de 132.000 notas segundo o contador , a SEFAZ -SP autorizou a inutilizacao, mas quando tento faze-la da erro de limite de quantidade excedido. nao consegui achar nada a respeito disto, alguem sabe me informar a quantidade de notas que posso inutilizar de cada vez.. obrigado

realmente nao tem o path can pois e salvo na pasta eventos então qdo faço cancelamento mudo o path do eventos para a pasta do can em tempo de execução e e depois volto a pasta do eventos assim separo os cancelamentos

Ou utilize o fortesreport

Não sei se tem a ver com vcs, mas tive este problema, e era porque eu nao tinha alimentado o componente com qual tipo de danfe iria utilizar, inclusive tambem o path no danfe no caso do fastreport

Note que no exemplo do cep, voce deve configurar o webservice através de um combobox voce copiou o arquivo config.ini na pasta do programa??

Opcoçes de internet marcar TLS=1.0 VERIFICAR CERTIFICADO REVOGADO DESMARQUE este erro correu comigo algumas vezes, mas se tratava da velocidade da internet

Bom dia eu faço da seguinte forma ao criar o form LerConfiguracao; ex: edtemailpath.text:='c:\seu sistema'; edtpdf.text:=edtemailpath.text+'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\Pdf'; edtNFE.text:=edtemailpath.text+'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\NFE'; edtinu.text:=edtemailpath.text+'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\Inu'; edteve.text:=edtemailpath.text+'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\eventos'; //eve edtman.text:=edtemailpath.text+'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\Eventos\confirmacao'; edtcce.text:=edtemailpath.text+'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\Cce'; edtdepec.text:=edtemailpath.text+'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\Dpec'; edtpathlogs.text:=edtnfe.text; Dir := trim(edtpdf.Text); if not DirectoryExists(Dir) then BEGIN ForceDirectories(Dir); END; GravarConfiguracao; ///gravo os paths no INI a partir dos edits LerConfiguracao; //carrego os edits a partir do ini Espero que ajude

Bom dia utilizo assim table3CHAVE.Value:=trim(copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, (length(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44)+'-NFe.xml'); TABLE3NRPROT.value:=ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt; TABLE3recibo.value:=ACBrNFe1.WebServices.Retorno.NFeRetorno.nRec; Espero que ajude

Tive este problema em alguns clientes com provedores diferentes solução criei um email só para receber/enviar notas no R7 ex: [email protected] smtp.r7.com porta 465 resolvi o problema de todos os clientes

iDE.IndFinal:= cFconsumidorfinal; // CONSUMIDOR FINAL 0-nao 1-sim Dest.indIEDest:=inNaoContribuinte; //Nao contribuinte seria isto?

Bom dia Regys, sim eu utilizo um arquivo de configurações .INI como no exemplo do acbr, logo que abro a aplicação passo os parametros ao componente, tentei até mesmo na hora de gerar a NFE informando novamente a pasta, mas não resolveu, da mesma forma faço na NFe e não da problemas, apenas na NFCe. ja tentei assim acbrnfe1.configuracoes.arquivos.pathschemas:='c:\centcons\schemas\ve310'; também não acatou... criei um display para ver se o componente estava recebendo o path, e me mostrou o path normal.. utilizei os esquemas da pasta ...\exemplos\schemas\nfe como o Ítalo citou em outro topico o erro ocorre no fonte AcbrDfeSSL na linha 343 function TDFeSSL.Validar(const ConteudoXML: String; ArqSchema: String; out MsgErro: String): Boolean; begin if EstaVazio(ArqSchema) then raise EACBrDFeException.Create('Arquivo de Schema não especificado'); utilizo capicom, delphi7 e windows7 profissional original

Bom dia, Bem, vai ai acesse o site da sefaz /SAT menu--> acesso ao sistema de retaguarda-->contribuinte/desenvolvedor--->acesso ao acgrSat 1- entre em contribuinte e credencie a empresa com certificado digital proprio vincular o sistema para uso próprio 2 - entre em software house e vincule a softhouse com o cnpj e certificado da propria empresa citando que o sistema e de uso proprio após isto vá em ---> Gerenciar cód. de segurança gere o codigo CSC imprima tudo que puder, pois alguns dados são solicitados na ativação do SAT a partir do proprio programa que acompanha o SAT, efetue o credenciamento informando os dados que voce imprimiu RESUMINDO: a ativação é feita da mesma forma que se fosse uma softhouse, so muda ao cadastrar o sistema, informando o que e de uso proprio, o cnpj e certificado da propria empresa. Note que com o certificado da SEFAZ, eu tentei e não funcionou. Detalhe: optamos pela Nfce, por ser mais simples no momento da emissão, mas mesmo assim tivemos que ativar o sat, para efeito de contingencia. (estamos falando do abmbiente de Produção). baixe o manual passo a passo de ativação do SAT na sefaz. espero que ajude..

Boa tarde, Hoje migrei a NFCe para o trunk 2, mas estou com o problema do erro: Arquivo de schema não informado. ja defini no componente, informei em tempo de execução e nada, da o erro e não gera o xml. EX: acbrnfe1.Configuracoes.arquivos.Pathschemas:=edit_chemas.Text; Alguém tem alguma sugestão. Obrigado

Boa tarde, Hoje migrei a NFCe para o trunk 2, mas estou com o problema do erro: Arquivo de schema não informado. ja defini no componente, informei em tempo de execução e nada, da o erro e não gera o xml. EX: acbrnfe1.Configuracoes.arquivos.Pathschemas:=edtpathschemas.Text; Alguém tem alguma sugestão. Obrigado Desculpem fiz o post acima no local errado

Valeu foleyjf, resolvido...

Bom dia, não achei nenhum tópico ref. a este erro não mudei nada no sistema, e hoje ao emitir a primeira nota para Ginfes, apos digitar a senha do certificado A3 retorna o seguinte erro. Não foi possivela cessar a CRL do certificado. Já tentei todo tipo de configuração e não resolveu. Alguem já passou por issso

Bom dia, Wilson_jr Apos analizar o programa exemplo da Nfe, e o arquivo .INI , verifiquei que havido sido implementado alguns atributos no componente, os quais eu não estava configurando corretamente, após fazer estas correções, resolvi varios erros que estavam dando no meu sistema. EX: de erros Numero de copias não existem mais arquivos etc...

Bom dia estou tendo problemas com os 2, tanto no fast com o no forts, quando mando para a impressora occore isto.

Bom dia, Desculpem se dupliquei o tópico, mas efetuando pesquisas ha uma semana e tudo que achei ref. ao assunto não resolveu meu problema. formatei o PC, re-instalei win,delphhi7 ,acbr Trunk2 e ao utilizar o fast ou fortsreport da nfe, não respeita o nro de copias esta duplicando, se informo 1 imprime 2, se inf. 2 imprime 4.. etc... tentei usar um printdialogs mas não respeita também o nro de copias. informei em tempo de execução, mas também nao funcionou. utilei o preview , mas também não funcionou ex: if (edtimp.text='1') then begin //FORTSREPORT ACBrNFe1.DANFE:=ACBrNFEDANFERL1; ACBrNFEDANFERL1.NUMCopiAs := strtoint(nrcopias.TEXT); ACBrNFEDANFERL1.LOGO := EDTLOGOMARCA.TEXT; ACBrNFEDANFERL1.PATHPDF := EDTPDF.TEXT; end else begin //FASTREPORT ACBrNFe1.DANFE:=ACBrNFEDANFEFR1; ACBrNFEDANFEFR1.dmDanfe.frxReport.PrintOptions.Copies := strtoint(nrcopias.TEXT); ACBrNFEDANFEFR1.dmDanfe.frxReport.PrintOptions.ShowDialog := True; ACBrNFEDANFEFR1.FastFile := ExtractFileDir(application.ExeName) + '\Report\DANFERETRATONOVO.fr3'; ACBrNFEDANFEFR1.LOGO := EDTLOGOMARCA.TEXT; ACBrNFEDANFEFR1.PATHPDF := EDTPDF.TEXT; ACBrNFEDANFEFR1.NUMCOPIAS := strtoint(nrcopias.TEXT); end; Alguem ja passou por isto ???

Ola Dalton, eu consigui ativar o sat. cadastrei o sistema como uso próprio e ativei o SAT normalmente com o certificado da própria empresa.

Boa Tarde, apos varios testes com a partilha de icms, me deparei com um problema utilizei as valores mostrados na nt 2015;003 v1.40 formula Bsorig :=(valorproduto+frete)-desconto+ipi; Basedest :=BsOrig; PicmSufDest :=18.00-2.00; //2 fcp PicmsInter :=12.00; //% aliquota destino (normal) PicmsinterPart := 40.00; //40% 2016, 60% 2017 , 80% 2018 ,% 100 2019 bsorig :=bsorig/(1-(picmsinter/100)); //valor icms remetente Basedest :=Basedest/(1-(xperc/100)); //base destino VbcUfDest :=Basedest; //base destino Vfcpufdest :=(VbcUfDest*Pfcpufdest)/100; // valor icms pobreza VicmsUFDest :=((vbcufDest*Picmsufdest)/100); //icms destino //valor icms destino VicmsUFRemet :=(bsorig*Picmsinter)/100; //valor icms remetente resultado -<ICMSUFDest> <vBCUFDest>1219.51</vBCUFDest> <pFCPUFDest>2.0000</pFCPUFDest> <pICMSUFDest>16.0000</pICMSUFDest> <pICMSInter>12.00</pICMSInter> <pICMSInterPart>40.0000</pICMSInterPart> <vFCPUFDest>24.39</vFCPUFDest> <vICMSUFDest>195.12</vICMSUFDest> <vICMSUFRemet>136.36</vICMSUFRemet> </ICMSUFDest> DIFAL = R$ 83,15 JA SOMADO O FCP os cantadores estão contestando dizendo que o site abaixo utiliza outra formula e disponibilizou um simulador o qual da diferença do calculo anterior http://www.asseinfo.com.br/blog/difal-diferencial-de-aliquota-icms/ formula Bsorig :=(valorproduto+frete)-desconto+ipi; Basedest :=BsOrig; PicmSufDest :=18.00-2.00; //2 fcp PicmsInter :=12.00; //% aliquota destino (normal) PicmsinterPart := 40.00; //40% 2016, 60% 2017 , 80% 2018 ,% 100 2019 VbcUfDest :=Basedest; //base destino Vfcpufdest :=(VbcUfDest*(Pfcpufdest/100)); // valor icms pobreza xdifal :=bsorig*((xperc-picmsinter)/100); VicmsUFDest :=xdifal*(40.00/100); //icms destino //valor icms destino VicmsUFRemet :=xdifal*(60.00/100);; //valor icms remetente IcmPobre:=icmpobre+Vfcpufdest; Icmdest :=icmdest +VIcmsUFdest; //totais Icmremet:=icmremet+VIcmsUFremet; resultado -<ICMSUFDest> <vBCUFDest>1000.00</vBCUFDest> <pFCPUFDest>2.0000</pFCPUFDest> <pICMSUFDest>16.0000</pICMSUFDest> <pICMSInter>12.00</pICMSInter> <pICMSInterPart>40.0000</pICMSInterPart> <vFCPUFDest>20.00</vFCPUFDest> <vICMSUFDest>24.00</vICMSUFDest> <vICMSUFRemet>36.00</vICMSUFRemet> </ICMSUFDest> VALOR DIFAL R$ 44,00 JA SOMADO O FCP alguém tem alguma sugestão

Ola eu nao uso o preview, portanto defino o s paths a partir de edit´s //defino o path edtpdf.text:= ExtractFileDir(application.ExeName) +'\'+copy(datetostr(date),7,4)+copy(datetostr(date),4,2)+'\Pdf'; ex: no fastreport ACBrNFEDANFEFR1.FastFile := ExtractFileDir(application.ExeName) + '\Report\DANFERETRATONOVO.fr3'; ACBrNFEDANFEFR1.LOGO := EDTLOGOMARCA.TEXT; ACBrNFEDANFEFR1.PATHPDF := EDTPDF.TEXT; <<<------------------------- PRINTDIALOG1.EXECUTE; ACBrNFe1.NotasFiscais.Imprimir; ACBrNFe1.NotasFiscais.ImprimirPDF;

Bom dia Acredito que ele deve ser somado no DIFAL para emitir a guia

eu utilizo a base do demo do acbr ACBrNFe1.NotasFiscais.Clear; para:=trim(table3email.value); CC:=TstringList.Create; try CC.add(trim(edtCC.text)); assunto:='Nota Fiscal Eletronica'; arqemail:=' NFe - '+floattostr(table3fatura.value); edtemailassunto.text:=assunto+arqemail; xcomple:=trim(edtemailpath.Text)+'\'+copy(datetostr(table3data.value),7,4)+copy(datetostr(table3data.value),4,2)+'\nfe\'; ACBrNFe1.NotasFiscais.LoadFromFile(PathWithDelim(XCOMPLE)+trim(table3nfe.value)); ACBrMail1.Host := edtSmtpHost.Text; ACBrMail1.Port := edtSmtpPort.Text; ACBrMail1.Username := edtSmtpUser.Text; ACBrMail1.Password := edtSmtpPass.Text; ACBrMail1.From := edtSmtpUser.Text; ACBrMail1.SetSSL := cbEmailSSL.Checked; // SSL - Conexão Segura ACBrMail1.SetTLS := cbEmailSSL.Checked; // Auto TLS ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email ACBrMail1.UseThread := False; //Aguarda Envio do Email(não usa thread) ACBrMail1.FromName := edtemitrazao.text; ACBrNFe1.NotasFiscais.Items[0].EnviarEmail( Para, edtEmailAssunto.Text, mmEmailMsg.Lines , True // Enviar PDF junto , CC // Lista com emails que serão enviado cópias - TStrings , nil); // Lista de anexos - TStrings finally CC.Free; end; MemoResp.Lines.add(' '+floattostr(table3fatura.value)+' ---> '+trim(table3CLIENTE.value)); MemoResp.Lines.add(' Email Enviado...'); ACBrNFe1.NotasFiscais.Clear; acbrmail1.Clear; <--------- coloquei esta opção apos cada email , enviando 3 emails ,diminuiu para 1 minuto por email também tente usar a porta 465 end;