Marcos Gerene

Bom dia a todos, desculpem o "flood", mas é que ainda não consegui uma solução... Alguém passou por isso ou tem alguma dica, vi erros parecidos em posts anteriores mas nestes casos usava-se um provedor "genérico" (para Ribeirão Preto-SP é o Ginfes). Obrigado, boa semana a todos

Boa tarde, Estou desenvolvendo o módulo de NFSe para Ribeirão Preto - SP, porém ao validar tenho recebo este erro: Falha na validação dos Dados da nota 12 Validate failed because the document does not contain exactly one root node. Antes desse erro, mesmo com o schemas na pasta (renomeado para SchemasNFSe) o sistema não encontrava o arquivo "servico_enviar_lote_rps_envio_v03.xsd", então fiz a seguinte alteração: NFSe.Configuracoes.Geral.PathSchemas := Diretorio + 'SchemasNFse\'+NFSe.Configuracoes.WebServices.xProvedor; Feito isso começou este novo erro (da imagem acima). O código de geração dos RPSs (e inclusão no lote) e o código da configuração do componente estão em anexo, o RPS 12 é o primeiro adicionado (é adicionado o RPS 12 e 13 ao lote). Anexei também os XMLs dos RPSs. Att, Marcos codigo_rps.txt configuração.txt 13.xml 12.xml

Boa tarde Ítalo, Deu certo, eu já tinha feito isso uma vez, acredito que tenha sido com o Ct-e, mas faz tanto tempo que nem lembrava, achei que era somente alguma propriedade... Muito obrigado

Boa tarde, Gostaria de saber como faço para aquela barra azul que aparece ao enviar uma NF-e (exemplo: Enviando dados, recebendo dados...) aparecer no envio do MDF-e. PS: Estou usando um ambiente de homologação, aparece mesmo assim? Obrigado, Marcos

Esta busca está dando TimedOut... Eu posso usar a consulta da NFS-e por RPS carregando a -nfse no LoadFromFile ao invés do -rps (que não existe mais neste caso)

Encontrei uma resposta no método "ConsultarNFSe()", mas para que serviria a data inicial e final se já passo como parâmetro o número da NFS-e? NFSe.ConsultarNFSe(NFSe.NotasFiscais.Items[0].NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj, NFSe.NotasFiscais.Items[0].NFSe.PrestadorServico.IdentificacaoPrestador.InscricaoMunicipal, incDay(NFSe.NotasFiscais.Items[0].NFSe.DataEmissao,-1), incDay(NFSe.NotasFiscais.Items[0].NFSe.DataEmissao, 1), NFSe.NotasFiscais.Items[0].NFSe.Numero); Uma busca no formato acima retornaria somente a nota em questão?

Bom dia a todos, Existe alguma forma de eu consultar a situação de uma NFSe pelo número da mesma? Depois de transmitido a nfse, o xml -rps "some" da pasta dando lugar ao -nfse. No caso da busca por lote, quando vão várias notas no mesmo lote, eu não entendo como faria pra ver se só a nota de número X, por exemplo, está cancelada... Obrigado, Marcos

Achei o erro Prestador.Cnpj := FrmPrincipal.QryConfigCONF_CNPJ_EMPRESA.AsString; Prestador.InscricaoMunicipal := FrmPrincipal.QryConfigCONF_INSCMUN.AsString; Prestador.Senha := FrmPrincipal.QryConfigCONF_NFSE_SENHA.AsString; Prestador.FraseSecreta := FrmPrincipal.QryConfigCONF_NFSE_FRASESCRETA.AsString; Prestador.cUF := getCodUF(FrmPrincipal.QryConfigCID_UF.AsString); // PrestadorServico.IdentificacaoPrestador := Prestador; -> Este é o problema (foi só comentar e funcionou) PrestadorServico.RazaoSocial := FrmPrincipal.QryConfigCONF_RAZAO_EMPRESA.AsString; PrestadorServico.NomeFantasia := FrmPrincipal.QryConfigCONF_NOME_EMPRESA.AsString; PrestadorServico.Endereco.TipoLogradouro := ''; //Acesso, Avenida, Rua... PrestadorServico.Endereco.Endereco := FrmPrincipal.QryConfigCONF_ENDERECO.AsString; PrestadorServico.Endereco.Numero := FrmPrincipal.QryConfigCONF_NUMERO.AsString; PrestadorServico.Endereco.Complemento := ''; PrestadorServico.Endereco.TipoBairro := ''; PrestadorServico.Endereco.Bairro := FrmPrincipal.QryConfigCONF_BAIRRO.AsString; PrestadorServico.Endereco.CodigoMunicipio := IntToStr(NFSe.Configuracoes.WebServices.CodigoMunicipio); PrestadorServico.Endereco.UF := FrmPrincipal.QryConfigCID_UF.AsString; PrestadorServico.Endereco.CEP := FrmPrincipal.QryConfigCONF_CEP.AsString; PrestadorServico.Endereco.xMunicipio := FrmPrincipal.QryConfigCID_DESCRICAO.AsString; PrestadorServico.Endereco.CodigoPais := 1058; PrestadorServico.Endereco.xPais := 'BRASIL'; PrestadorServico.Contato.Telefone := FrmPrincipal.QryConfigCONF_FONE.AsString; PrestadorServico.Contato.Email := FrmPrincipal.QryConfigCONF_EMAIL.AsString; Voltei o código do componente ao normal (sem fazer o if que o João disse) e buscando a maneira como estava preenchendo comentei a linha destacada acima e tudo funcionou perfeitamente Muito obrigado pela ajuda! Abraços

João, Em primeiro lugar muito obrigado e sim, funcionou perfeitamente. Eu tinha pensado em comentar a linha com o FIdentificacaoPrestador.Free, já que é chamada no destroy dos dados do prestador e teoricamente o FIdentificacaoPrestador já está destruído (para dar este erro) mas estou estranhando o fato de ter acontecido só comigo... O problema pode ser algo que fiz nas chamadas ao componente?

Ítalo, Eu dei um Ctrl C, Ctrl V do código do botão de gerar e transmitir do Demo, e pelo que vi do Demo ele executa esse .Clear quando clico no botão e quando chama a função "AlimentaComponente", ficando algo assim: evento click do botão: NFSe.NotasFiscais.Clear; funcao2 NFSe.NotasFiscais.Enviar(x); função 2: NFSe.NotasFiscais.Clear; NFSe.PropriedadesPai.PropriedadesFilho := Valor ... Ou seja, ele chama 2x seguidas o .Clear normalmente (isso no Demo, no meu software eu chamo esse .Clear apenas uma vez e já alimento o componente na mesma função, como descrevi no primeiro post)... Os objetos na tela copiei do Demo pro meu form também, para aproveitar alguma configuração já feita que evitasse isso... ----------------------- joaolenosi: Quando transmito, ele envia normal, imprime, gera o PDF, faz tudo, porém dá Acess Violation ao fechar o Form, mas debugando tenho esta resposta: Quando ele faz o NFSe.NotasFiscais.Clear; ao dar um F7 ele executa a destructor NotaFiscal.Destroy e a primeira linha desse destructor é FNFSe.Free; que chama o destructor TNFSe.Destroy; ai funciona até a linha FPrestadorServico.Free; que chama o destrutor destructor TDadosPrestador.Destroy; que logo na primeira linha chama o FIdentificacaoPrestador.Free; aonde mesmo com um F7 não entra, retorna o erro. Ou seja o erro ocorre no destructor TDadosPrestador.Destroy; na primeira linha que é FIdentificacaoPrestador.Free; da Unit pnfsNFSe ---------------------

NFSe.NotasFiscais.Clear; NFSe.NotasFiscais.NumeroLote := '1'; NFSe.NotasFiscais.Transacao := True; with NFSe.NotasFiscais.Add.NFSe do begin .... end; NFSe.Enviar('1'); Boa tarde Quando executo este código, ao fechar o form tenho um "invalid pointer operation", e se clico novamente me dá um Acess Vioalation ao executar o .Clear (primeira linha)... Alguma dica?

Boa tarde Ítalo, Eu que agradeço as diversas ajudas que recebo por parte da equipe do ACBr. Abraços, Marcos

Boa tarde Ítalo e André, Provedor: SimplISS Cidade: Dois Córregos - SP Código IBGE: 3514106 Cadastro para homolgação: http://homologacao.simplissweb.com.br/ URL Homologação: http://187.45.245.217/ws_nfse/nfseservice.svc?wsdl URL Produção: http://187.45.245.217/ws_nfse_dois_corregos/nfseservice.svc?wsdl Com isso eu tenho que fazer algum teste ou o SimplISS é "tudo igual" (os homologados pelo ACBr)? Sou eu que adiciono a cidade ou o ACBr (vocês) já adicionaria (pra um update no meu fonte posteriomente)? Obrigado novamente

O provedor quando procurei (no exemplo) retorna Nenhum. Para emitir as NFS-es pelo site da prefeitura hoje é usado o SimplISS. O IBGE da cidade é o 3514106 (Dois Córregos - SP). Partindo disso (que existe uma negativa do primeiro passo) e que existem outras cidades homologadas com o mesmo provedor (SimplISS), o que devo fazer para homologar? Obrigado desde já, Marcos

Boa tarde, Sou de Dois Córregos - SP, a minha cidade usa o SimplISS, porém ela não está na lista de cidades que podem ser usadas pelo ACBR. O que eu preciso fazer? Usar uma cidade que usa o SimplISS? É necessário homologar o software para a cidade? Att, Marcos

Bom dia, Existe alguma configuração para sair os dados da empresa (como sai na NF-e (DANFE) com a Razão, cnpj, etc) no DAMDFE?

Boa tarde a todos, Estou com uma dúvida sobre a busca do NCM na tabela do IBPT. Busquei no forum e até achei uma pergunta igual a minha em uma das postagens, porém ela não foi respondida... rs Supondo que eu sou de São Paulo e vendo para o Tocantins, devo usar as alíquotas de São Paulo ou de Tocantins? Obrigado e um feliz 2015 a todos!

Os meus pagamentos começaram a vir com 1 real a mais, reparei ao debugar a função GetSaldoRestante que quando pagava 10 reais no cartão vinha 11 no "TotalPagoENaoImpresso" quando vou pagar novamente ele me da que a operação tef deve-se limitar ao restante... enviei o Log para o V$Pague e me disseram que o 1 real a mais se dava pela tag transacao_valor_ajuste="1" que era enviado devido ao Premmia PS: no caso a variável desconto está com valor 1 function TACBrTEFDRespostasPendentes.GetSaldoRestante : Double; var I : Integer; TotalPagoENaoImpresso : Double ; begin TotalPagoENaoImpresso := 0 ; For I := 0 to Count-1 do begin with TACBrTEFDResp(Items[I]) do begin if OrdemPagamento = 0 then // Ainda nao imprimiu no ECF ? TotalPagoENaoImpresso := TotalPagoENaoImpresso + (ValorTotal - Saque + Desconto) ; end ; end; TotalPagoENaoImpresso := RoundTo( TotalPagoENaoImpresso, -2); Result := RoundTo( SaldoAPagar - TotalPagoENaoImpresso, -2) ; end;

Tá longe de ser a forma mais bonita, mas fiz assim quando precisei de algo parecido e funcionou, além de eu particularmente achar que fica mais fácil de dar manutenção quando é adicionado um novo campo por exemplo... Outra forma seria usar as próprias classes e listas do ACBR para SPED, mas se o Layout for diferente do padrão já complica um pouco...

Boa tarde, Eu tinha postado já em outro tópico, mas até então eu não tinha um teste mais bem feito da minha parte.. Eu tenho duas versões do V$PAgue instalados, em uma, a ClientSimulator, quando eu chamo o ADM o ACBRTEF chama o OnExibeMenu com as informações, tudo do jeito certinho, já quando faço a mesma requisição pelo Client isto não funciona, ou seja, ele não chama o OnExibeMenu, na verdade ele "não faz nada". Estou postando em anexo as duas requisições e resposta, das duas formas, pela resposta que obtive do Daniel o problema é com o VSPague visto que com o ClientSumulator abre, eu só gostaria de saber se alguém pode me dar uma luz de onde esta resposta está "errada" para não abrir o OnExibeMenu e eu poder pedir a mudança para o pessoal do V$PAgue... PS: Acredito que eu deveria fazer este post no mesmo tópico do outro, mas somente agora eu tenho as duas respostas bem feitas e uma pergunta mais clara então resolvi fazer aqui para ter uma ideias mais organizada e não confundir possíveis colaboradores... Obrigado e boa semana a todos client.txt simulador.txt

Olá novamente =) Reiniciei a máquina, parei o Client e voltei ele, mandei a requisição e meu retorno mudou: mas mesmo com este novo retorno o ADM não abre... só para eu entender o processo, ele vai abrir o OnExibeMenu quando o retorno estiver do jeito esperado?

Juliomar, tive a resposta hoje ao colocar o client comum ao invés do Simulador... Na verdade ele vinha 1 porque eu parcelei pela adminsitradora, entãoé em 2,3,4... mas eu recebo em uma única parcela =) Obrigado e bom final de semana

Bom dia Daniel, que patada... rs Concordo com você, a minha primeira busca por suporte foi com o suporte deles, mas ele me disse que a resposta da requisição está correta... a resposta é esta abaixo e o retorno é um porém quando debugo o retorno do componente é 0.. pela minha inexperiência no assunto não tenho condições de "brigar" com o suporte, por isso pedi ajuda de vocês... Obrigado e desculpa a ignorancia =)

Bom dia a todos, Eu estava usando o VSPagueClientSimulator e o adm funcionava perfeitamente, ai entrei em contato com o pessoal do VSPague e eles instalaram o client "normal" para gente testar, nisso o ADM parou de abrir, debuguei e na função adm, depois que chama o TrasmiteCmd o RespVS.Retorno vem 0... O modo de processamento é background... Alguma dica? log.txt

Entendi, mas neste caso mesmo sendo padrão de simulação ele me trouxe o valor correto, por isso achei estranho o número de parcelas... vou dar uma conversada com o pessoal do V$Pague então... obrigado =)