Antonio Gomes

Mantenedores: Alguns fontes foram alterados do ACBrNFS-e, porém, para o provedor versa, se faz necessário manter o arquivo versatecnologia.ini como: UseCertificado=0 segue anexo arquivo corrigido. VersaTecnologia.ini

sim eu sei... por isso comentei... essa do fonte gerar numero de carteira.. furada..

Eu costumo gerar um bordero dentro do sistema, para facilitar a vida do usuario nisso, automatizar isso não achei boa coisa, ainda mais que o usuario emite boleto o dia todo e deixar por conta dele achei a melhor opção. Se foi errado o titulo, alguém foi lá e marcou para enviar. Pondere o que pensa ser automatizado.. o arquivo de remessa? Várias no mesmo dia?

Aos mantenedores do projeto boleto, não seria legal isso de gerar a carteira ser uma property para o programador se virar? Ao inves de fazer o componente gerar essas pogs que os bancos inventam? Com isso o componente ficaria a cargo de gerar apenas o txt para remessa.

o pagamento foi feito via internet ou via caixa físico ?

Ao tentar assinar um lote de RPS, o erro de exceção está sendo levantada.. Quando a função GerarLote é chamada: function TWebServices.GeraLote(ALote: String): Boolean; begin FGerarLoteRPS.FNumeroLote := ALote; Result := GerarLoteRPS.Executar; if not (Result) then GerarLoteRPS.GerarException( GerarLoteRPS.Msg ); end; Ela espera um result, que na função GerarLoteRPS.Executar não existe, pois a função está desse formato no trunk2 revisão 12298. Como está: function TNFSeGerarLoteRPS.Executar: Boolean; begin SalvarEnvio; end; Como penso que deveria estar: function TNFSeGerarLoteRPS.Executar: Boolean; begin SalvarEnvio; Result:= True; end; Agora vem uma coisa que alguns vão ser incrédulos, o motivo de o rad studio não ter avisado que a function estava sem retorno. Algumas versões isso é mostrado, como warning Se algum mantenedor puder corrigir isso, adicionado o Result:= True no fonte...

voce ja baixou os pacotes todos ? Mexeu no unit scope name do dpk ou do projeto ? no meu caso: value for all 32: Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde value for all platform: Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win No caso, botao direito no nome projeto, Options...delphi compiler

Efetuado a correção da leitura da data de emissao da NFS-e gerada pelo provedor, a mesma retorna como data + hora. Foi alterado a linha: 950 da unit pnfsNFSeR if FProvedor = proVersaTecnologia then NFSe.dhRecebimento := Leitor.rCampo(tcDatHor, 'DataEmissao'); pnfsNFSeR.pas

você usa .Value ou .AsVariant ? Observe se seu campo tem a precisão de 2 decimais, se tiver mais que isso, pode ser que lá no banco esteja assim: 92,52555566

Porque nao coloca as instrucoes na primeira propriedade?

Mas voce nao tem esse digito no seu programa? Quando voce cadastra a conta, acho legal ter esses campos separados, usuario sempre mexe e coloca errado... pode ser que eu esteja errado também. Da maneira que mexeu no fonte agora, passa para o componente a responsabilidade de calcula-lo.

voce deve consumir o webservice sincrono. ao inves do tradicional. saindo do ginfes, a recepcao do lote e situacao do lote são as unicas funcoes a trocar. A da situacao do lote, anteriormente no ginfes, era preciso 2 funcoes, nesse agora so precisa de uma, já volta a situacao do lote.

respondido no post anterior, mas... http://homologacaouba.versatecnologia.com.br/manuais/NFSe_ManualDeIntegracao.pdf http://homologacaouba.versatecnologia.com.br/site/

está sim. Schema aqui: http://nfe.uba.mg.gov.br/schema/ Segue anexo, respondendo já aquele questionamento so dos fontes alterados. De antemão, não usei o formatsource do delphi, logo, se você precisar fazer merge ou comparar, fique a vontade. ACBrNFSe.zip com relação ao arquivo ini, nessa mensagem anterior, segue 2 modos, pois não mexi no componente para aceitar os 2 modos, pois esse provedor tem endereço distinto. Isso vai de encontro aquela duvida que comentei com você em private. Outro problema que vi, e se preciso for, eu mexo no fonte, que é o namespace ficar travado sempre no endereco daqui da minha cidade. ubá penso que se aquele parse de url_h e url_p fosse aplicado também no namespace, resolveria viu. Com relação do namespace do xml, é um problema similar. Para quem precisar usar isso em cliente, seja homologação e produção, pode optar por enviar o arquivo ini correto. Na ocasiao eu fiz desse jeito, mando os ini dentro de recursos, e de acordo com a configuração do usuario (homologacao/producao) eu extraio esses recursos e troco na pasta do executável. o namespace do schema também varia de acordo com o ambiente.

ao ler esse parametro do INI, no provedor versa tecnologia, o mesmo tem diferença para homologação e produção, como eu poderia colocar isso no codigo fonte ou dentro do ini. segue ini alterado para producao, na duvida de como colocar o grupo xml - namespace e o xmlns dos xmls de recepcao / consulta etc.. Versa.INI

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?