Antonio Gomes

Segue unit com pequena correção do valor do issqn. Quando retencao. pnfsNFSeR.pas

Só para relatar: Esse problema acontece partindo da versão 4 para 5. Conforme relatos: https://github.com/GabrielF7/ACBrTrunk2/blob/master/Fontes/ACBrDFe/ACBrMDFe/DAMDFE/Fast/ACBrMDFeDAMDFEFRDM.dfm https://www.fast-report.com/en/forum/index.php?s=bd87d127579da20e840b46f423ca1a4d&showtopic=12796 http://qiita.com/7of9/items/ffde0c38af4bf1211229

Segue units alteradas para não gerar mais isso, se puder incorporar ao código fonte. ACBrMDFeDAMDFEFRDM.pas ACBrMDFeDAMDFEFRDM.dfm

enviado componente:

Prezados mantenedores do fonte. Segue pacote com arquivos alterados para suprir provedor versa tecnologia da cidade 3169901. Até dia 25/05/2016, o provedor não contava com retorno correto na recepção de lote normal, então fui orientado usar o webservice sincrono. Se precisarem de algo, ou se surgir duvida, estou a disposição. ACBr_2_NFSe_ComVersaTecnologia.zip

jorge, está mexendo no seu sistema para portar o versa tecnologia? Estou com um problema no retorno do webservice de recepcao de lote. saca só o retorno: detalhe, no final vem o mesmo xml que eu enviei <pre>LoteRps Object ( [DataRecebimento:LoteRps:private] => [ListaNfse:LoteRps:private] => [ListaRps:LoteRps:private] => Array ( [0] => Rps Object ( [Id:Rps:private] => [Competencia:Rps:private] => 2016-05-24 [DataEmissao:Rps:private] => 2016-05-24 [Status:Rps:private] => 1 [IncentivoFiscal:Rps:private] => 2 [OptanteSimplesNacional:Rps:private] => 1 [RegimeEspecialTributacao:Rps:private] => 6 [IdentificacaoRps:Rps:private] => IdentificacaoRps Object ( [Numero:IdentificacaoRps:private] => 201600000000546 [Serie:IdentificacaoRps:private] => 001 [Tipo:IdentificacaoRps:private] => 1 ) [RpsSubstituido:Rps:private] => [Servico:Rps:private] => Servico Object ( [Aliquota:Servico:private] => 0.0500 [CodigoCnae:Servico:private] => [CodigoMunicipio:Servico:private] => 3169901 [CodigoPais:Servico:private] => 0000 [CodigoTributacaoMunicipio:Servico:private] => 6203100 [DescontoCondicionado:Servico:private] => 0.00 [DescontoIncondicionado:Servico:private] => 0.00 [Discriminacao:Servico:private] => PROCESSAMENTO DE DADOS [ExigibilidadeISS:Servico:private] => 1 [IssRetido:Servico:private] => 2 [ItemListaServico:Servico:private] => 01.04 [MunicipioIncidencia:Servico:private] => [NumeroProcesso:Servico:private] => [OutrasRetencoes:Servico:private] => 0.00 [ResponsavelRetencao:Servico:private] => 1 [ValorCofins:Servico:private] => 0.00 [ValorCsll:Servico:private] => 0.00 [ValorDeducoes:Servico:private] => 0.00 [ValorInss:Servico:private] => 0.00 [ValorIr:Servico:private] => 0.00 [ValorIss:Servico:private] => 0.25 [ValorPis:Servico:private] => 0.00 [ValorServicos:Servico:private] => 5.00 ) [Prestador:Rps:private] => Prestador Object ( [Contato:Prestador:private] => [Endereco:Prestador:private] => [IdentificacaoPrestador:Prestador:private] => IdentificacaoPessoa Object ( [CpfCnpj:IdentificacaoPessoa:private] => CpfCnpj Object ( [Cnpj:CpfCnpj:private] => 000000000 [Cpf:CpfCnpj:private] => ) [InscricaoMunicipal:IdentificacaoPessoa:private] => 0000000 ) [NomeFantasia:Prestador:private] => [RazaoSocial:Prestador:private] => ) [TomadorServico:Rps:private] => TomadorServico Object ( [Contato:TomadorServico:private] => Contato Object ( [Email:Contato:private] => [Telefone:Contato:private] => ) [Endereco:TomadorServico:private] => Endereco Object ( [Bairro:Endereco:private] => PONTE PRETA [Cep:Endereco:private] => 36500000 [CodigoMunicipio:Endereco:private] => 3169901 [CodigoPais:Endereco:private] => [Complemento:Endereco:private] => APTO 2 [Endereco:Endereco:private] => RUA CECILIA BUSATO MARCOS [Numero:Endereco:private] => 329 [Uf:Endereco:private] => MG ) [IdentificacaoTomador:TomadorServico:private] => IdentificacaoPessoa Object ( [CpfCnpj:IdentificacaoPessoa:private] => CpfCnpj Object ( [Cnpj:CpfCnpj:private] => [Cpf:CpfCnpj:private] => 77144449672 ) [InscricaoMunicipal:IdentificacaoPessoa:private] => ) [RazaoSocial:TomadorServico:private] => ANTONIO CRISTOVAO GOMES ) [Intermediario:Rps:private] => Intermediario Object ( [IdentificacaoIntermediario:Intermediario:private] => IdentificacaoPessoa Object ( [CpfCnpj:IdentificacaoPessoa:private] => CpfCnpj Object ( [Cnpj:CpfCnpj:private] => [Cpf:CpfCnpj:private] => ) [InscricaoMunicipal:IdentificacaoPessoa:private] => ) [RazaoSocial:Intermediario:private] => ) [ConstrucaoCivil:Rps:private] => ConstrucaoCivil Object ( [CodigoObra:ConstrucaoCivil:private] => [Art:ConstrucaoCivil:private] => ) ) ) [NumeroLote:LoteRps:private] => 1 [Prestador:LoteRps:private] => [Protocolo:LoteRps:private] => [QuantidadeRps:LoteRps:private] => 1 [Situacao:LoteRps:private] => [ListaMensagemRetorno:LoteRps:private] => Array ( ) [ListaMensagemAlertaRetorno:LoteRps:private] => Array ( ) [ListaMensagemRetornoLote:LoteRps:private] => Array ( )

Conseguiu olhar a documentação? Se sim, só para confirmar se estou no caminho certo, olhando identifiquei que é similar ao provedor SystemPro

Pelo que apurei, é abrasf v2 mesmo. vou trocar dentro do cidades.ini e testar.

chegou aviso aqui na tek system também hj, e tenho um projeto particular também. Vou pegar para trocar a cidade e testar de acordo com o provedor ginfes.. criar um ini novo, inverter a cidade 3169901. Pensei até que fosse padrão ABRASFv2. Se tiver novidades aqui, posto aqui para você.

Está entrando agora dia 31/05/2016 na cidade 3169901 - ubá, e ja atende outros locais. Dados que o suporte mandou: Ambiente de Homologação WebService : http://homologacaouba.versatecnologia.com.br/webservice/servicos WSDL : http://homologacaouba.versatecnologia.com.br/webservice/nfse.wsdl XSD : http://homologacaouba.versatecnologia.com.br/schema/nfse_v201.xsd Exemplos : http://homologacaouba.versatecnologia.com.br/xmlTeste/ Site da empresa: http://www.versatecnologia.com.br/portal/portfolio/ Inclusive tem outras prefeituras. Acredito ser parecido com o ginfes, pelo comando xml de exemplo. está preparando sistema para cidade de Ubá também?

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.