Antonio Gomes

Segue exemplo BOLETO_2PP.fr3 BOLETO_3PP_CARNE.fr3 BOLETO_1PP.fr3

Eu uso ConsultarLoteRPs pra saber se o rps foi transmitido, ginfes tem de dar problema as vezes, timeout etc.. já o ConsultarSituacao, é quando vc sabe que seu fonte foi transmitido, ai tem os 4 numeros de retorno - ver manual. Nesses números tem a ação a tomar.

Ou voce pode enviar uma consulta baseado no numero do RPS, se nao voltar informacao, retransmita-a. Faço isso direto com essas internet perebentas de cliente, tem que ficar fazendo testes e mais testes se teve retorno na transmissão. Outra coisa, a nota com ginfes nem sempre é instantâneo o retorno com o numero da NFS-e, ja vi ficar o dia todo sem um retorno.

Então porque não testou apenas o provedor governa ? Se é só pra ele? E não deixar levantar excessão para o resto? Muito mais fácil resolver 1 problema que criar vários não ? Pensa.... Ou melhor, colocar um if exclusivo para o provedor = governa... Para piorar a coisa, gera uma nota em um provedor ai, coloca a alíquota errada, simulando um usuário com suas peripécias. Em seguida manda a consulta por RPS para ver se gerou a nota para você. Verá que não tem aqueles campos para preencher.... Você parece que olha sempre o melhor caso da transmissão, que sempre vai sair tudo certo, e na realidade não é bem assim. Mesmo assim mudei no meu fonte aqui para atender aqui.

Então pelo que entendi, ao chamar essa função tenho que ter carregado o RPS? Pois não faço isso, apenas chamo essa função afim de saber se a nota foi gerada. Eu chamo essa função antes de transmitir um RPS, pois tenho que detectar se o programa foi fechado pelo usuário, se não conseguiu desde a ultima transmissão.

Não sei te dizer, só sei que quando vai consultar uma nota pelo numero de RPS que não foi transmitida, não retorna nota, logo, não existe aquele vetor maior que zero. Não for isso que está tentando entender, explique novamente.

Apos efetuar a consulta, de NFS-e por RPS, retorna o erro list index is out of bounds (0) Para tanto, resolvi testando a lista de notas se tem alguma carregada, pois essa consulta não tem a nota ainda criada, apenas o RPS. Segue trecho com problema: // Necessário para o provedor Governa if TNFSeConsultarNfseRPS(Self).FNotasFiscais.Count > 0 then begin ChaveAcessoPrefeitura := TNFSeConsultarNfseRPS(Self).FNotasFiscais.Items[0].NFSe.Prestador.ChaveAcesso; CodVerificacaoRPS := TNFSeConsultarNfseRPS(Self).FNotasFiscais.Items[0].NFSe.CodigoVerificacao; end; Segue código fonte alterado. ACBrNFSeWebServices.pas

ok. Só estava não pensando no inconveniente de distribuir mais dlls. Acabei esquecendo isso marcado, quando cheguei no cliente faltou.

selecionar isso aqui: {.$DEFINE DFE_SEM_OPENSSL} ou isso {.$DEFINE DFE_SEM_CAPICOM} tirar o ponto antes de compilar e instalar os pacotes... Sobre o post anterior, cliquei no botao citar, por isso ficou repetido.

salve moderadores: Ao instalar o Trunc2 no XE8, gerou um erro na falta de namespace "VCL": São as units ACBrMDFeDAMDFEFRDM ACBrCTeDACTEFR ACBrSEF2_BlocoE ACBrNFeDANFEFR ACBrNFSeDANFSeFR Lista correta que atualiza. System;Xml;Data;Datasnap;Web;Soap;VCL Não sei se é colocado na instalação ou no dpk, se puder ser corrigido. Nota: Após eu adicionar via IDE o namespace vcl, funcionou o instalador. Porém, quando eu atualizar vai gerar o mesmo problema.

Realmente, quando foi passado o componente para modo criação manual, se não tiver sido copiado as propriedades de dentro do dfm, como estavam antes, realmente essa opcao de empacotar o fonte TFF dentro do pdf pode deixá-lo grande mesmo.

Daniel? porque no instalador não selecionar isso ? E o instalador ir lá e mexer no acbr.inc ?

Mantenedores: Na procedure abaixo, não existe o parametro para atender a função usada no final do procedimento, que é a FiltrarTextoXML(FOpcoes.FRetirarEspacos, ConteudoProcessado, FOpcoes.FRetirarAcentos) procedure wCampo(const Tipo: TpcnTipoCampo; ID, TAG: string; const min, max, ocorrencias: smallint; const valor: variant; const Descricao: string = ''; ParseTextoXML : Boolean = True; Atributo: String = ''); Essa função FiltrarTextoXML, a assinatura dela, tem um parâmetro default = True, que causa um salto de linha nas informações complementares no danfe - mesmo que eu não queira essas quebras.. Pergunta: Não seria interessante colocar esse parâmetro true no caso de informação complementar se eu quiser? *************************************************************************************************** minha resposta ***************** Solução encontrada por enquanto: (note que eu pus a minha quebra...) InfAdic.InfAdFisco := ''; ListaDeStrings.Text := IBDSPai.FieldByName('INF_COMPLEMENTAR_NF').AsWideString; for I := 0 to ListaDeStrings.Count - 1 do begin S := ListaDeStrings; S := S + ';'; ListaDeStrings := S; end; ListaDeStrings.Text := AcbrUtil.ChangeLineBreak(ListaDeStrings.Text, ' '); ListaDeStrings.Text := StringReplace(ListaDeStrings.Text, ' ', ' ', [rfReplaceAll]); InfAdic.InfCpl := ListaDeStrings.Text;

Eu hoje, 28/12/15, ao testar com um produto isento, não gerou as tags, devido o teste, pelo que consta no manual, o grupo deve quando: - Operação Interestadual (idDest=2) e - Operação com Consumidor Final (indFinal=1) e - Operação com Não Contribuinte (indIEDest=9) e - Não é operação de prestação de serviços (não existe tag “ISSQN”). Para mim se o estado exigir valores para o CST icms =41 seria um despautério (mais 1).

Mas CST=10 para consumidor final ? E com destaque de ST ? Sei lá, acho que ST é contribuinte apenas.... a partilha ao meu ver é uma ST camuflada... Depois de deparar com o erro: mudei para <indFinal>1</indFinal> e passou. é tanta tag redundante que as vezes esquecemos uma.

é justamente por isso ítalo, não sei quando o usuário cancelou um processo, ou computador desligou no ato da transmissão, ou pior, se ele foi no pacote de ida e não voltou, seja por motivo do mais simples, como a internet perder conexão na hora, então, ao tentar transmitir sempre verifico, se tem ele já ativo na sefaz, simplesmente gravo o protocolo e finalizo o processo ali mesmo, caso contrário aciono o envio do lote. é tudo uma questão de não confiar no usuário - trem danado para zicar as coisas. Lembre-se, ainda estou enebriado de internet ruim aqui.

Na verdade, acontece isso sempre, basta debugar (Meu cenário Rad Studio XE2). Não sei todos aqui tem o habito de antes de iniciar o envio de um lote de consultar se existe o recibo para a chave. Pois o envio no meu caso só vai se retornar 217 no status da consulta. É justamente nesse momento que ocorre o erro.

Alguém já deparou com esse erro? Na minha maquina funciona, a que desenvolvo, e outras 2 não: Segue erro: org.xml.sax.SAXParseException: The processing instruction target matching "[xX][mM][lL]" is not allowed. Isso acontece ao consultar NFS-e por RPS e no envio de lote. Problema resolvido: Ginfes.ini desatualizado: faltavam as linhas: [ConsNFSeRps] IncluiEncodingCab=0 IncluiEncodingDados=0

Quem fez uso desse artifício, com Trunk2 não mais precisa do evento frxPDFExport_NFSe_BeginExport. Faça o teste antes.

Ao debugar, identifiquei o problema no procedimento abaixo, olhe o trecho em vermelho. Segue trecho e código fonte alterado procedure NotaFiscal.Assinar(Assina: Boolean); var XMLStr: String; XMLUTF8: AnsiString; Leitor: TLeitor; CNPJEmitente, CNPJCertificado: String; begin // VErificando se pode assinar esse XML (O XML tem o mesmo CNPJ do Certificado ??) CNPJEmitente := OnlyNumber(NFSe.Prestador.CNPJ); CNPJCertificado := OnlyNumber(TACBrNFSe(TNotasFiscais(Collection).ACBrNFSe).SSL.CertCNPJ); // verificar somente os 8 primeiros digitos, para evitar problemas quando // a filial estiver utilizando o certificado da matriz {if Copy(CNPJEmitente, 1, 8) <> Copy(CNPJCertificado, 1, 8) then raise EACBrNFSeException.Create('Erro ao Assinar. O XML informado possui CNPJ diferente do Certificado Digital' );} // Gera novamente, para processar propriedades que podem ter sido modificadas XMLStr := GerarXML; // XML já deve estar em UTF8, para poder ser assinado // XMLUTF8 := ConverteXMLtoUTF8(XMLStr); FXMLOriginal := XMLUTF8; with TACBrNFSe(TNotasFiscais(Collection).ACBrNFSe) do begin if Assina then FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'Rps', Configuracoes.Geral.ConfigGeral.Prefixo3 + 'InfRps') else FXMLAssinado := FXMLOriginal; // FXMLOriginal := FXMLAssinado; Leitor := TLeitor.Create; try leitor.Grupo := FXMLAssinado; NFSe.signature.URI := Leitor.rAtributo('Reference URI='); NFSe.signature.DigestValue := Leitor.rCampo(tcStr, 'DigestValue'); NFSe.signature.SignatureValue := Leitor.rCampo(tcStr, 'SignatureValue'); NFSe.signature.X509Certificate := Leitor.rCampo(tcStr, 'X509Certificate'); finally Leitor.Free; end; if Configuracoes.Arquivos.Salvar then Gravar(CalcularNomeArquivoCompleto(), ifThen(Assina, FXMLAssinado, FXMLOriginal)); end; end; Outro ponto que do meu ponto de vista está com problema, trata-se do retorno da consulta, as variaveis i e ii foram usadas de forma indiscriminada, incrementou a variavel para um colletion, e usou em outro, com isso as vezes a consulta retorna erro de List of bounds (-1). Segue unit ACBrNFSeWebServices.pas devida apreciação do moderador ACBrNFSeNotasFiscais.pas ACBrNFSeWebServices.pas

O trecho da unit ACBrDFeCapicom, quando passa na função, XmlEstaAssinado() não deveria ter um exit ? Pois quando o xml já assinado é submetido novamente está gerando um erro desconhecido na linha: // Assinando com MSXML e CryptoLib // signedKey := xmldsig.sign(dsigKey, $00000002); << Erro aqui if (signedKey = nil) then raise EACBrDFeException.Create('Assinatura Falhou.'); Segue trecho do código para analise: function TDFeCapicom.Assinar(const ConteudoXML, docElement, infElement: String): String; var PosIni, PosFim: integer; URI, AXml, TagEndDocElement, XmlAss: String; xmldoc: IXMLDOMDocument3; xmldsig: IXMLDigitalSignature; dsigKey: IXMLDSigKey; signedKey: IXMLDSigKey; PrivateKey: IPrivateKey; begin CoInitialize(nil); try CarregarCertificadoSeNecessario; AXml := ConteudoXML; XmlAss := ''; if not XmlEstaAssinado(AXml) then begin URI := ExtraiURI(AXml); TagEndDocElement := '</' + docElement + '>'; AXml := copy(AXml, 1, PosLast(TagEndDocElement, AXml) - 1); AXml := AXml + SignatureElement(URI, False) + TagEndDocElement; end;

já temos 2 relatos do mesmo problema. Cartao A3 - conseguiu achar uma solucao ?

Juliomar: Segue unit com uma variavel que foi esquecida de colocar. Ao enviar o e-mail o pdf para anexar, com isso esqueci de colocar o NFSe.IdentificacaoRps.Serie somado do numero da NFS-e. ACBrNFSeDANFSeFR.pas

Juliomar: Mais um datamodule que necessita ser removido do projeto ACBr, senão vai ser essa dor de cabeça pelo resto da vida. E além de remover, tem que colocar o objeto sendo instanciado no carregar do componente, nada de ficar pregado na tela. Mesmo trabalho que enviei para vocês dias atrás da NFS-e....

Comecei fazer no meu software, o MDF-e, é mais um ponto a ser removido o Datamodule... Moderador, poderia eu mexer e enviar o código fonte alterado ?