colmanetti

Eu Uso o FastReport, vai conseguir mudar para o FastReport tambem?

Uso o FastReport

Atualizei fiz testes, No fastReport não deu certo.

Vou verificar, obrigado.

Como Carregar para a impressão a Inscrição Estadual do Emitente? ACBrNFSeX1.NotasFiscais.Clear; ACBrNFSeX1.NotasFiscais.LoadFromFile(NomeArq) ACBrNFSeDANFSeRL1.Prefeitura:=edtPrefeitura.Text; ACBrNFSeDANFSeRL1.DetalharServico:=True; ACBrNFSeX1.Configuracoes.Geral.Emitente.CNPJ:=VO_NFE.Emitente.CNPJ; *********** O CNPJ DEU CERTO DESTA FORMA********** ACBrNFSeX1.Configuracoes.Geral.Emitente.DadosEmitente.InscricaoEstadual:=VO_NFE.Emitente.IE; ***********ESTOU TENTANDO ASSIM, MAS NÃO MOSTRA NA IMPRESSÃO********** ACBrNFSeX1.Configuracoes.Arquivos.PathNFSe:=VS_PathMensal;

Obrigado, Fiz desta forma.

Tenho uma impressão em Lote, mas as notas canceladas não mostra com a tarja "NFE CANCELADA" somente nas notas que estão canceladas ACBrNFe1.DANFE.Cancelada := True; é VALIDA PARA TODAS NOTAS ASSIM não consigo imprimir Existe alguma forma de fazer a impressão de Notas normais e canceladas em um lote? for cont:=0 to length(LoteNFE.NFE)-1 do begin NomeArq:=VS_NFE+LoteNFE.NFE[cont].Retorno.NomeArq_XML; LoteNFE.LblCliente.Caption:='Arquivo: '+ExtractFileName(NomeArq); if FileExists(NomeArq) then begin ACBrNFe1.NotasFiscais.LoadFromFile(NomeArq); ACBrNFe1.DANFE.Cancelada := false; ACBrNFe1.DANFE.Protocolo := ''; if trim(LoteNFE.NFE[CONT].Retorno.CANC_Protocolo)<>'' then begin ACBrNFe1.DANFE.Cancelada := True; ACBrNFe1.DANFE.Protocolo := LoteNFE.NFE[CONT].Retorno.CANC_Protocolo; end; end else begin infobox('Informação','Não Localizou XML.'+#13+ExtractFileName(NomeArq)+#13+'Pasta:'+ExtractFileDir(NomeArq)); end; LoteNFE.Prg.Position:=cont+1; LoteNFE.pnProg.Update; end;

Deu certo, era rodar como administrador. Não imaginava que podia ser isto. Tenho outros SAT´s e funciona sem ser administrador, primeiro EPSON que instalo. Obrigado,

Erro no computador que estou instalando. ERROR[5] OPEN SERIAL COM4 DLL atualizada na pasta SAT, mas não comunica. A porta no gerenciador de dispositivos está COM4. alguém pode me ajuadar?

fiz isto criei as pastas dentro do repositório e deu certo. Obrigado,

Renato, Obrigado. Deu certo.

Ja tenho Instalado o repositório no servidor e comunicando com o cliente e faço commit , update etc no Projeto "MEU_PROJETO" mas quero separar em pastas MEU_PROJETO\TRUNK MEU_PROJETO\BRANCHES achei alguns tutoriais na internet, mas não consegui.

consegui por um programa "Sublime Text" e converteu de XML de iso-8859-1 para UTF-8 e importou o arquivo. Mas, alguém sabe se tem como fazer esta conversão pelo Delphi?

Não resolveu. no debug mostra erro: 'Input is not proper UTF-8, indicate encoding ! Bytes: 0xBA 0x20 0x37 0x36 '

Na unit ACBrXmlDocument; loadedDoc := xmlParseDoc(PAnsiChar(ansistring(AXmlDocument))); loadedDoc fica como null, não lendo o arquivo XML, retirei todos acentos do arquivo, mas mesmo erro. Será que tem mais algum caractere inválido? conteúdo de AXmlDocument: '<CompNfse><Nfse><InfNfse><Numero>642</Numero><CodigoVerificacao>9E A3 3A</CodigoVerificacao><DataEmissao>2022-01-11T16:28:39</DataEmissao><NaturezaOperacao>1</NaturezaOperacao><RegimeEspecialTributacao>1</RegimeEspecialTributacao><OptanteSimplesNacional>2</OptanteSimplesNacional><IncentivadorCultural>2</IncentivadorCultural><Competencia>202201</Competencia><NfseSubstituida>626</NfseSubstituida><OutrasInformacoes>.</OutrasInformacoes><Servico><ItemListaServico>101</ItemListaServico><CodigoCnae>6202300</CodigoCnae><CodigoTributacaoMunicipio>10700</CodigoTributacaoMunicipio><Discriminacao>Suporte e atualizacao do sistema '#$D#$D'Total = R$ 7.841,00'#$D'Condicao de pagamento: 18/01/2022'#$D#$D'Valor aproximado dos tributos R$ 1.361,20 (17,36%) Fonte: IBPT'#$D#$D'I - DOCUMENTO EMITIDO POR ME OU EPP OPTANTE PELO SIMPLES NACIONAL"; e II - "NAO GERADIREITO A CREDITO FISCAL DE IPI."'#$D'Dispensada de retencao de IRRF de acordo com a (IN RFB nº 765/2007, c/c os artigos 181 a 184 do RIR/2018)'#$D'Dispensada de retencao de CSRF de acordo com a (IN SRF nº 459/2004, artigo 3º)</Discriminacao><MunicipioPrestacaoServico>3543402</MunicipioPrestacaoServico><Valores><ValorServicos>7841</ValorServicos><ValorDeducoes>0</ValorDeducoes><ValorPis>0</ValorPis><ValorCofins>0</ValorCofins><ValorInss>0</ValorInss><ValorIr>0</ValorIr><ValorCsll>0</ValorCsll><IssRetido>2</IssRetido><OutrasRetencoes>0</OutrasRetencoes><BaseCalculo>7841</BaseCalculo><Aliquota>2</Aliquota><ValorLiquidoNfse>7841</ValorLiquidoNfse><ValorIssRetido>0</ValorIssRetido><ValorIss>156.82</ValorIss><DescontoCondicionado>0</DescontoCondicionado><DescontoIncondicionado>0</DescontoIncondicionado></Valores></Servico><PrestadorServico><IdentificacaoPrestador><CpfCnpj><Cnpj>34785106000160</Cnpj></CpfCnpj><InscricaoMunicipal>20117602</InscricaoMunicipal></IdentificacaoPrestador><RazaoSocial>Idever Inteligencia Digital Ltda</RazaoSocial><Endereco><Endereco>Rua Jose Bianchi</Endereco><Numero>555</Numero><Complemento>- sala 150</Complemento><Bairro>Nova Ribeirania</Bairro><Cidade>3543402</Cidade><Estado>SP</Estado><Cep>14096730</Cep></Endereco><Contato><Telefone>1691038292</Telefone><Email>[email protected]</Email></Contato></PrestadorServico><TomadorServico><IdentificacaoTomador><CpfCnpj><Cnpj>53045266000893</Cnpj></CpfCnpj></IdentificacaoTomador><RazaoSocial>JAD ZOGHEIB &amp; CIA LTDA</RazaoSocial><Endereco><Endereco>Rua Campos Salles</Endereco><Numero>755</Numero><Bairro>Vila Falcao</Bairro><Cidade>3506003</Cidade><Estado>SP</Estado><Cep>17050000</Cep></Endereco><Contato /></TomadorServico><OrgaoGerador><CodigoMunicipio>3543402</CodigoMunicipio><Uf>SP</Uf></OrgaoGerador><ValorCredito>0</ValorCredito></InfNfse><Signature xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI="http://www.w3.org/TR/2000/REC-xhtml1-20000126/"><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>zUnWpOWI/ZLSvFkGuVgue+2ZPzE=</DigestValue></Reference></SignedInfo><SignatureValue></SignatureValue><KeyInfo><X509Data><X509Certificate></X509Certificate></X509Data></KeyInfo></Signature></Nfse></CompNfse>' 20117602_NotaFiscaldeServiçoEletrônicaNFSe_000642.xml

vi aqui esta mudança também não resolve, o nomeArquivo vem correto o nome FfrxPDFExport.FileName que está errado, não sei como atualizar este nome.

Quando mudo o nome do arquivo após exportar o 1.boleto, o nome não muda. uso desta forma qFat.First; while not qFat.Eof do begin ACBrBoleto1.ListadeBoletos.Clear; PassaDadosBoletosPara_ACBR(true); NumeroDoc:=ACBrBoleto1.ListadeBoletos[0].NumeroDocumento; NomeArquivoPDF:=Path_Arquivos+'COBRANCA\'+tCobrancaFILIAL.AsString+'\BOLETO_'+NumeroDoc+'.pdf'; ACBrBoletoFCFR1.NomeArquivo:=NomeArquivoPDF; ACBrBoleto1.GerarPDF; RegMail.Anexo.Add(NomeArquivoPDF); qFat.Next; end; Linha 416 da unit ACBrBoletoFCFR; O bloco 2 deve vir antes do 1 para resolver este problema?

Certificado A1, Tem como instalar em outro usuário em windows server, sem precisar fazer login na conta do usuário?

xmls NFS CAMPINAS.xml boa tarde em anexo

em anexo as units alteradas para corrigir as tags do provedor IssDSF para ler arquivo de notas fiscais. ACBrNFSeXNotasFiscais.pas ISSDSF.LerXml.pas

Não está funcionando. Estou vendo a codificação e tentando alterar. Posso mudar a unit pnfsNFSeR; e a function TNFSeR.LerNFSe_ISSDSF: Boolean; function TNFSeR.LerNFSe_ISSDSF: Boolean; var ok: Boolean; Item: Integer; sOperacao, sTributacao: String; begin Leitor.Grupo := Leitor.Arquivo; if (Pos('<Notas>', Leitor.Arquivo) > 0) or (Pos('<Nota>', Leitor.Arquivo) > 0) or (Pos('<ConsultaNFSe>', Leitor.Arquivo) > 0) or (Pos('<NOTA_FISCAL>', Leitor.Arquivo) > 0) then begin VersaoNFSe := ve100; // para este provedor usar padrão "1". FNFSe.Numero := Leitor.rCampo(tcStr, 'NumeroNota'); <--------------------------------------- POSSO TROCAR ESTA CHAVE DO 'NumeroNota' PARA 'NUM_NOTA' CONFORME O XML? OU DEVO ADICIONAR UM OR ? if (FNFSe.Numero = '') then FNFSe.Numero := Leitor.rCampo(tcStr, 'NumeroNFe'); conforme vou verificando

Deu Certo, Obrigado.

Neste XML tem os NSU e os cabeçalhos, mas o sistema deu um erro no processamento deste cabeçalho, assim o ultimo NSU fica o mesmo. se eu pular os 50 NSU que veio neste arquivo vai processar novamente o ACbrNFe1.DistribuicaoDFe, mas vai ficar faltando os 50 cabeçalhos deste arquivo. Não tem timer.

Já ocorreu comigo, desinstalei tudo do certificado, inclusive java e reinstalei, funcionou.

bom dia, depois de executar ACbrNFe1.DistribuicaoDFe com o ultimo NSU baixou o arquivo 20210108064325-dist-dfe.xml, mas no processo de gravação deu erro, se tento executar novamente ACbrNFe1.DistribuicaoDFe mostra erro de consumo indevido e pede o ultimo numero NSU. Como carrego o arquivo 20210108064325-dist-dfe.xml no componente novamente?