Marcos Gerene

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 =)

Boa tarde Juliomar, Desculpa, não consegui captar o problema... rs Na quantidade de parcelas não deveria vir "2" neste caso?

Boa tarde Juliomar Li sim, na verdade algumas vezes tentei anexar .txt e não conseguia, falava que não era válido ou algo assim e "acustumei" dessa forma... vou ficar mais atento a isto e obrigado pela dica =)

Boa tarde a todos, Estou com um probleminha no final do TEF.. quando faço parcelado no cartão de crédito, o meu vinculado sai em uma única parcela, mesmo quando faço em duas... Vinculado vinculado.txt No log do V$Pague tenho isso: vspague.txt Pelo que entendi do Log a resposta está dois mesmo... tem algo que posso fazer no imprimir transações pendentes para resolver?

Boa tarde {$IFNDEF RAVE50VCL} //JuaumKiko-Teste dmDanfe.RvSystem1.SystemPrinter.Collate:=true; {$ENDIF} No DanfeRave do ACBR depois do ultimo update essa linha do collate começou a dar problema, simplesmente comentei ela (ocorre em dois lugares) e rodou, só estou postando porque vi um comentário "//JuaumKiko-Teste" e não sei se esqueceram de algo e se esqueceram de tirar, sei la.. rs Obrigado e boa semana a todos

Bom dia Barbosa, obrigado =D bem, hoje o meu software já vende confirma e imprime os vinculados eu tenho que cancelar a transação do cartão somente se eu cancelar o cupom ainda não fechado ou se eu resolver cancelar a ultima venda eu tenho que cancelar também as transações dela (que já foram confirmadas)?

Sim, na verdade ele até imprimia quando eu estava testando sem multiplos cartões... No meu caso eu desativei o AutoFinalizarCupom e faço a rotina que falei acima: AbreCupom() VendeItem() SubTotalizaCupom() CRT() ConfirmaTransacoesPendentes() FinalizarCupom() Em que momento ele chamaria o vinculado? O problema era na rotina, eu fiz assim agora: AbreCupom() VendeItem() SubTotalizaCupom() CRT() ImprimeTransacoesPendente() O próprio imprimetransacoesPendentes() finaliza o cupom, imprime o vinculado e confirma as transações pendentes... PS: Eu abro o meu trabalho (Inicializo) Pago e confirmo as transações, eu não "Desinicializo" ao terminar... é necessário chamar o Desinicializar?

Bom dia a todos, Eu posso usar uma rotina assim? AbreCupom() VendeItem() VendeItem() SubTotalizaCupom() Tef.CRT() Tef.CRT() Tef.ConfirmarTransacoesPendentes() Tef.FinalizarCupom() Eu fiz isso e funcionou quase tudo que eu queria, ele só não fechou o cupom fui ver o porque e ele não fechou quando eu chamei o finalizarCupom() e vi que só imprimiu a segunda transação na impressora, porque o meu OnInfoECF, na operação opeImprimePagaementos é chamado apenas uma vez e eu só mandei um efetuarPagamento, não fiz nenhum loop para mandar todos os meu CRTs... PS: Sobre subtotalizar não usarei o Premia, meu sistema é para supermercados... A rotina deu certinho, agora para o vinculado, existe alguma forma de o meu vinculado já pegar as informações que viria quando eu deixo o ACBr finalizar o cupom, ou seja, já puxar tudo certinho fazer o corte... ou a programação tem que ser na unha mesmo?