Elisângela Borato

Sim, comentando este trecho o comando ACBrNFe.ImprimirInutilizacaoPDF salva perfeito o pdf da inutilização. ------- Quanto ao comando ACBrNFe.ImprimirInutilizacao, ele esta perfeito, imprime corretamente, comentando ou não o trecho de código mencionado.

Boa tarde, Estou testando a impressão da inutilização para pdf através do Fortes. Observei que comando ACBrNFe.ImprimirInutilizacaoPDF esta gerando exceção de "Access Violation" ao passar bloco de código reproduzido abaixo (linhas 221 a 229 do arquivo ACBrNFeDAInutRL.pas, class procedure TfrmNFeDAInutRL.SavePDF): with RLPDFFilter1.DocumentInfo do begin Title := ACBrStr('Inutilização - Nota fiscal nº ' + FormatFloat('000,000,000', FNFe.Ide.nNF)); KeyWords := ACBrStr('Número:' + FormatFloat('000,000,000', FNFe.Ide.nNF) + '; Data de emissão: ' + FormatDateTime('dd/mm/yyyy', FNFe.Ide.dEmi) + '; Destinatário: ' + FNFe.Dest.xNome + '; CNPJ: ' + FNFe.Dest.CNPJCPF ); end; Pelo que entendi esta tentando carregar informações da nfe, no entanto carrego apenas dados do inutilização ( ACBrNFe.InutNFe.LerXML(lcPathFileName); ) Se comento o bloco de código mencionado, roda ok, sem exceções. Minha questão é se faltou eu setar algo antes de disparar o comando ImprimirInutilizacaoPDF ou se o trecho acima necessita de alguns ajustes. Agradeço pela atenção, Abraço.

Bom dia, Reporto ajustes no arquivo ACBrNFSeNotasFiscais para carga de informações do cancelamento da NFSe. Os testes foram realizados com o provedor SimplISS (não tenho conhecimento se aplica-se outros provedores) . O SimplISS retorna o xml no seguinte formato: <Nfse> ... dados da nfse </Nfse> <NfseCancelamento> ... dados do cancelamento </NfseCancelamento> Por virem em nó a parte, as informações de cancelamento não estavam sendo repassadas para a variável de leitura do xml (AXML). Para a variável AXML conter também os dados de cancelamento, ajustei da seguinte forma a function TNotasFiscais.LoadFromString: Na linha 814 inseri o código abaixo (linhas 814 a 819): //provedor SimplISS function PosNFSeCancelamento: Integer; begin TamTAG := 18; Result := Pos('</NfseCancelamento>', AXMLString); end; e na, agora, linha 862, inseri (linhas 862 a 869): //provedor SimplISS N:= PosNFSeCancelamento; if N > 0 then begin //copia tag NfseCancelamento AXML:= AXML + copy(AXMLString, 1, N + TamTAG); AXMLString := Trim(copy(AXMLString, N + TamTAG + 1, length(AXMLString))); end; Em anexo fonte alterado. Agradeço pela atenção, Abraço. ACBrNFSeNotasFiscais.pas

Bom dia, Tem razão, falha minha. Segue em anexo o fonte alterado. Grata. pnfsConversao.pas

Boa tarde, No arquivo pnfsConversao.pas, função nfseRegimeEspecialTributacaoDescricao (linha 18128), acrescentei 3 itens ao case (linhas de 18138 a 18140): //Código Original: function nfseRegimeEspecialTributacaoDescricao( const t: TnfseRegimeEspecialTributacao ): String; begin case t of retNenhum : Result := '0 - Nenhum'; retMicroempresaMunicipal : Result := '1 - Microempresa municipal'; retEstimativa : Result := '2 - Estimativa'; retSociedadeProfissionais : Result := '3 - Sociendade de profissionais'; retCooperativa : Result := '4 - Cooperativa'; retMicroempresarioIndividual : Result := '5 - Microempresário Individual (MEI)'; retMicroempresarioEmpresaPP : Result := '6 - Microempresário e Empresa de Pequeno Porte (ME EPP)'; end; end; //Código Alterado: function nfseRegimeEspecialTributacaoDescricao( const t: TnfseRegimeEspecialTributacao ): String; begin case t of retNenhum : Result := '0 - Nenhum'; retMicroempresaMunicipal : Result := '1 - Microempresa municipal'; retEstimativa : Result := '2 - Estimativa'; retSociedadeProfissionais : Result := '3 - Sociendade de profissionais'; retCooperativa : Result := '4 - Cooperativa'; retMicroempresarioIndividual : Result := '5 - Microempresário Individual (MEI)'; retMicroempresarioEmpresaPP : Result := '6 - Microempresário e Empresa de Pequeno Porte (ME EPP)'; retLucroReal : Result := '7 - Lucro Real'; retLucroPresumido : Result := '8 - Lucro Presumido'; retSimplesNacional : Result := '9 - Simples Nacional'; end; end; Segue fonte em anexo. pnfsConversao.pas

Update: Com base no post do colega Roger, ajustei o leitor NFSe para quando o provedor SimpISS, carregar a listagem ItemServico. Alterações no arquivo pnfsNFSeR.pas, function TNFSeR.LerNFSe_ABRASF_V1: Boolean, inseridas linhas 1086 a 1100: //Provedor SimplISS permite varios itens servico if FProvedor = proSimplISS then begin i := 1; while (Leitor.rExtrai(4, 'ItensServico', 'ItensServico', i) <> '') do begin with NFSe.Servico.ItemServico.Add do begin Descricao := Leitor.rCampo(tcStr, 'Descricao'); Quantidade := Leitor.rCampo(tcInt, 'Quantidade'); ValorUnitario := Leitor.rCampo(tcDe2, 'ValorUnitario'); end; i := i + 1; end; end; Segue em anexo o arquivo alterado. pnfsNFSeR.pas

Bom dia, Abri os fontes do Fortes e verifiquei que no dataset correspondente aos itens esta sendo alimentado com a discriminação do serviço: cdsItens.Append; cdsItens.FieldByName('DISCRIMINACAO').AsString := FNFSe.Servico.Discriminacao; cdsItens.Post; Modifiquei a estrutura do dataset e alimentação dos dados para efetivamente pegar informações dos itens: for i:=0 to FNFSe.Servico.ItemServico.Count-1 do begin cdsItens.Append; cdsItens.FieldByName('ITEM').AsString := FNFSe.Servico.ItemServico.Items[i].Descricao; if FNFSe.Servico.ItemServico.Items[i].Tributavel = snSim then cdsItens.FieldByName('TRIBUTAVEL').AsString := 'Sim' else cdsItens.FieldByName('TRIBUTAVEL').AsString := 'Não'; cdsItens.FieldByName('QUANTIDADE').AsString := FormatFloat(',0.00', FNFSe.Servico.ItemServico.Items[i].Quantidade); cdsItens.FieldByName('UNITARIO').AsString := FormatFloat(',0.0000', FNFSe.Servico.ItemServico.Items[i].ValorUnitario); cdsItens.FieldByName('TOTAL').AsString := FormatFloat(',0.00', FNFSe.Servico.ItemServico.Items[i].ValorTotal); cdsItens.Post; end; No entanto a listagem ItemServico esta vindo vazia ( FNFSe.Servico.ItemServico.Count = 0 ). Aparentemente o componente ACBrNFSe não esta carregando os dados referentes ao itens de serviço (tag "ItensServico"), visto que após a carga do xml de nfse a listagem ItemServico permanece zerada: ACBrNFSe1.NotasFiscais.LoadFromFile(lcPathFileName); lnTeste:= ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.ItemServico.Count; O teste foi realizado com o provedor SimplISS e o xml esta em anexo. Agradeço caso alguém possa me dizer se me esqueci de algo ou se posso acessar estes dados de outra forma ou ainda por onde melhorar o código caso seja algo a ser ajustado no ACBrNFSe. Abraço. 00_000_000000044-nfse.xml

Atualizando: O pessoal do SimplISS me retornou. Sobre o ambiente de produção o erro era por conta da senha de usuário do ws que continha carácter &. Alterei para uma senha somente com números e aparentemente esta Ok (transmiti um lote, recebi o protocolo e consultei o lote pelo protocolo (comandos "gerar e enviar lote RPS" e "consultar situação do Lote"). Sobre o homologação, também alterei a senha para somente números, mas continuo sem sucesso, obtendo os mesmo retornos de antes... segundo o SimplISS a OS 16185 continua em andamento. Agradeço Italo por dizer q outros conseguiram. Informo qualquer novidade sobre o homologação.

Acrescento que realizei os mesmos testes* no ws de produção ( http://wssaojoao.simplissweb.com.br/nfseservice.svc ) e obtive idênticos retornos. <?xml version="1.0" encoding="UTF-8"?> <s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"> <s:Body> <s:Fault> <faultcode xmlns:a="http://schemas.microsoft.com/net/2005/12/windowscommunicationfoundation/dispatcher"> a:InternalServiceFault </faultcode> <faultstring xml:lang="pt-BR"> The server was unable to process the request due to an internal error. For more information about the error, either turn on IncludeExceptionDetailInFaults (either from ServiceBehaviorAttribute or from the &lt;serviceDebug&gt; configuration behavior) on the server in order to send the exception information back to the client, or turn on tracing as per the Microsoft .NET Framework SDK documentation and inspect the server trace logs. </faultstring> </s:Fault> </s:Body> </s:Envelope> *testes realizados: comando "gerar e enviar lote rps" e comando "consultar nfse por período" (consultei informando apenas período e também informando numero e demais dados de uma nfse que emiti pelo site). Notifiquei o SimplISS sobre. Pergunto: alguém já conseguiu implementar e usa o serviço com o provedor SimplISS? Grata. 62-env-lot.xml 2016030620160306-lista-nfse-soap.xml 62-rec-soap.xml

Olá, João. Entrei em contato com o suporte do SimplISS também, na sexta feira... a resposta foi a mesma que a sua (inclusive o numero da OS): "Bom dia, Foi aberta a Ordem de Serviço 16185 para verificar e corrigir o problema apresentado. Assim que finalizada entraremos em contato." Ontem no final do dia contatei novamente pedindo posicionamento, se os servidores deles realmente estão com problemas (estes erros podem ser por eu ter deixado de ajustar algo) e a resposta persiste: "Boa tarde! A ordem de serviço 16185 ainda está em andamento e assim que finalizada entraremos em contato!" Abri este tópico para entender se eu deixei de ajustar, setar algo... mas pelo visto o problema é com o SimplISS mesmo... Tendo algum retorno do provedor informo também. Agradeço pela atenção, Abraço!

Italo, Atualizei, mas persiste (arquivos anexo). Detalhe: não setei certificado. Por o provedor Simpliiss não usar muitos dos meus clientes nem tem certificado. Mais uma vez agradeço, Abraço. 34-rec-soap.xml 34-env-lot-soap.xml

Bom dia, Italo. Sim, acontece o mesmo. Em anexo os xmls gerados em um teste no "Demo ACBrNFSe", comando "Gerar e enviar Lote RPS". Agradeço pela sua atenção. 26-env-lot.xml 26-rec.xml

Boa tarde, Por favor, alguém já implementou o serviço de NFS-e para o município de São João da Boa Vista/SP, Provedor Simpliss? Estou fazendo testes com Demo ACBrNFSe sem sucesso. Em anexo as telas retornadas, na sequencia (teste do comando "Consultar NFSe por Período") Debugando o código, interceptei o seguinte xml de retorno: <s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"> <s:Body> <s:Fault> <faultcode xmlns:a="http://schemas.microsoft.com/net/2005/12/windowscommunicationfoundation/dispatcher"> a:InternalServiceFault </faultcode> <faultstring xml:lang="pt-BR">The server was unable to process the request due to an internal error. For more information about the error, either turn on IncludeExceptionDetailInFaults (either from ServiceBehaviorAttribute or from the &lt;serviceDebug&gt; configuration behavior) on the server in order to send the exception information back to the client, or turn on tracing as per the Microsoft .NET Framework SDK documentation and inspect the server trace logs. </faultstring> </s:Fault> </s:Body> </s:Envelope> Fiz os testes de consulta no servidor de homologação ( http://wshomologacao.simplissweb.com.br/nfseservice.svc ) e também no de produção ( http://wssaojoao.simplissweb.com.br/nfseservice.svc ), retornando o mesmo resultado. Alguém já passou por esta situação ou tem ideia do que faltou eu ajustar? Desde já agradeço, Abraço!

Boa tarde, A URL do webservice para São João Boa Vista/SP(SimplISS) mudou: Produção: http://wssaojoao.simplissweb.com.br/nfseservice.svc Homologação: http://wshomologacao.simplissweb.com.br/nfseservice.svc [ ]'s

Olá, Agradeço por responder. Você conhece alguém que registrou, que já esteja em operação? Meu contato é [email protected] , fico a disposição no q puder ajudar.

Boa tarde, Estamos usando o monitor em conjunto com nosso aplicativo comercial de frente de caixa. Vamos realizar o registro junto a sefaz para iniciar operações. Nossa dúvida é quais programas devemos registrar na sefaz: só o frente de caixa, só o monitor ou os dois. Grata

Ola Daniel, estou fazendo do seguinte modo: 0. Botão "Inicializar" 1. Menu "Venda" \ "Gerar Venda" 2. Menu "Venda" \ "Enviar Venda" 3. Menu "Cancelamento" \ "Gerar XML Cancelamento" 3.1. Seleciono o xml do cupom recém emitido. 4. Menu "Cancelamento" \ "Enviar Cancelamento" Neste ponto aparece o erro da imagem anexa 001. Se continuo (F9), no emulador dá mensagem "Cancelado com Sucesso", imagem 002. Coloquei em anexo os arquivos gerados, visando facilitar a reprodução do que aqui ocorre. Agradeço a sua atenção. ACBrSATlog.txt SATTeste.ini unit1.pas 20150219121702-533302-cfe-env.xml CFe35150211111111111111591234567890000132634958.xml CFe35150211111111111111591234567890000132634958-can.xml CFe35150211111111111111591234567890000132634958-can-env.xml

Apresentou o mesmo comportamento nos dois modelos, "satDinamico_cdecl" e "satDinamico_stdcall".

Olá, Estou fazendo testes usando o emulador v.2.8.3 e o SATTeste.exe Gero o XML do cancelamento de cupom recém emitido e na sequencia mando enviar, porém após passar pela linha transcrita abaixo dá o erro mostrado na imagem anexa. ACBrSAT1.CancelarUltimaVenda( edChaveCancelamento.Text, mCancelamentoEnviar.Lines.Text ); Alguém passou por isso? sabe dizer o porquê desse erro? Desde já agradeço.