windsoft

Olá Amigos boa tarde! Após atualizar para trunk2 a consulta cadastro do CTe parou de funcionar, na NFe funciona normalmente, no CTe recebo a mensagem "Rejeição: Cabeçalho - Versão do arquivo XML não suportada". Percebi que na pasta Schemas do CTe existe apenas o arquivo consCad_v1.01.xsd isso fazia com que o componente gerasse o arquivo XML coma versão 1.01, achei que era este o problema e copiei o arquivo consCad_v2.00.xsd da pasta da NFe para o CTe e o componente começou a gerar o arquivo XML com a tag versaodados=2.00 mas o problema persiste. Não sei se estou no caminho certo, e o pior, não encontrei ninguém reclamando disso aqui no fórum, o que me faz concluir que o problema é "bambuzada" minha mesmo. Alguém poderia me dar uma ajuda por favor? Segue os arquivos XML da comunicação com o webservice. 20151104161926-cad-soap.xml 20151104161926-cad.xml 20151104161924-ped-cad-soap.xml 20151104161924-ped-cad.xml

Já tentou utilizar o evento OnGerarLog do componente?

Olá amigo não tenho este provedor para poder te ajudar, mas é fácil, abra o arquivo ACBrProvedorWebISS.pas da trunk1, (anexo) a partir da linha 92 tem todas as configurações que são pedidas no arquivo INI, pegue o arquivo INI de outro provedor salve-o com o nome WebISS.ini e altere as propriedades com atenção. Se der tudo certo, envie o arquivo aqui para ser disponibilizado pra todos. ACBrProvedorWebISS.pas

Realmente o problema estava no trecho de código que eu citei acima. Na trunk1 o código estava bem confuso, na trunk2 foi melhorado o código mas foi colocado um else onde não havia antes, ou seja, na trunk1 na leitura do XML eram lidos vários nodes do XML no mesmo procedimento, já na trunk2 como foi colocado um else, ou lê um nó ou lê outro, e isso estava causando o problema. @Juliomar Marchetti ou @Italo Jurisato Junior Segue anexo a alteração simples para correção do problema, favor disponibilizar pra todos. Abraços pnfsLerListaNFSe.pas

Corrigi um erro na impressão das duplicatas do DANFE em fastreport na trunk2. Foi modificada a função: CarregaDuplicatas da unit ACBRNFeDANFEFRDM, na trunk1 era assim: with cdsDuplicatas do begin Close; CreateDataSet; for i := 0 to NFe.Cobr.Dup.Count - 1 do begin ... Na trunk2 está assim: if Not ( fExibeCampoFatura and (FNFe.Ide.indPag = ipVista) ) then Begin with cdsDuplicatas do begin Close; CreateDataSet; for i := 0 to NFe.Cobr.Dup.Count - 1 do begin Append; ... O problema é que como o dataset "cdsDuplicatas" não é inicializado quando o pagamento é a vista, se antes de imprimir uma NF a vista você tiver imprimido uma NF a prazo, as duplicatas da NF a prazo são exibidas na NF a vista. A unit corrigida está anexo. Favor disponibilizar para todos. ACBrNFeDANFEFRDM.pas ACBrNFe-change-log.txt

Esse pessoal do Ginfes é são tudo nóia. hehe Até onde sei não é necessário fazer nenhum credenciamento, se você já emite as NFSe pelo site então já tem acesso ao webservice.

Aparentemente voce ainda esta usando a trunk1, somente na trunk2 é possível alternar entre OpenSSL e Capcom em RunTime, na trunk1 você precisa alterar o ACBr.inc

O problema já foi relatado no tópico http://www.projetoacbr.com.br/forum/topic/25486-danfse-fastreport-no-mesmo-padrão-do-fortesreport/ Estamos apenas aguardando o moderador incluir no SVN.

Verifique também se o seu arquivo ACBRWebServices.ini está correto. Pegue o arquivo mais recente nas pastas do ACBr.

@Italo Jurisato Junior Você acha que estou no caminho certo? Se puder me dar uma luz agradeço.

Não sei se entendi sua pergunta, mas desabilite a opção: ACBrNFe1.WebServices.Visualizar := False; Veja se é isso que você está procurando.

Eu fiz uma versão do DANFSe para fastreport com a mesma "cara" do DANFSe do FortesReport, pra isso eu tive que criar uns campos no DMDanfSe: cdsParametrosNaturezaOperacao: TStringField; cdsParametrosRegimeEspecialTributacao: TStringField; cdsParametrosOptanteSimplesNacional: TStringField; cdsParametrosIncentivadorCultural: TStringField; Você acha interessante disponibilizar isso pra todos? DANFSEPadrao.fr3 ACBrNFSeDANFSeFRDM.pas ACBrNFSeDANFSeFRDM.dfm ACBrNFSe-change-log.txt

Olá amigos bom dia! Estou testando o envio de NFSe na trunk2 e estou tendo problemas ao tentar enviar uma nota. Quando há algum erro o componente não está exibindo a mensagem de erro. Comparando com a trunk1 (depois de um dia todo quebrando a cabeça para entender o código hehe) percebi que o problema parece estar na função: function TRetornoNFSe.LerXml: boolean; Da unit pnfsLerListaNFSe.pas Na trunk1, ao ler o retorno, o componente entra em if (leitor.rExtrai(1, 'ListaMensagemRetorno') <> '') or Já na trunk2, ao ler o retorno, o componente entra em if (leitor.rExtrai(1, 'GerarNfseResposta') <> '') or (leitor.rExtrai(1, 'GerarNfseResponse') <> '') or (leitor.rExtrai(1, 'ConsultarLoteRpsResposta') <> '') or (leitor.rExtrai(1, 'ConsultarNfseRpsResposta') <> '') or .. Sendo que o if de cima está no else. Não tive segurança para fazer a alteração por não ter entendido bem o código até agora, mas para testar o problema faça o seguinte: Emita uma NFSe e depois tente enviar outra NFSe com o mesmo número de RPS (o objetivo aqui é levantar um erro). A mensagem de erro não é exibida, é exibido apenas um "Unknown". No trunk1 era exibido a mensagem informando que já existe RPS com o mesmo número para o CNPJ. Percebi que a mensagem de erro vem no XML que seria processado neste primeiro if, mas como ele não entra lá a mensagem não é capturada.

Na trunk2 as propriedades estão melhor organizadas, por exemplo: Tudo que se refere a certificados digitais estão em ACBrNFe1.SSL, Configurações de arquivos em ACBrNFe1.Configuracoes.Arquivos... e assim por diante.

Tenta postar o XML do CTe para análise. Abre este XML no IE por exemplo e veja se ele é aberto corretamente, se ele tiver truncado pode ser que tenha algum caractere inválido no arquivo.

Boa tarde Ítalo, obrigado pela atenção, estou continuando os testes aqui, mas ainda está um pouco instável, estou recebendo retorno "Unknown" no envio de NFSe (GINFES), as vezes vai as vezes retorna isso. Aproveitando a mensagem: Eu fiz uma versão do DANFSe para fastreport com a mesma "cara" do DANFSe do FortesReport, pra isso eu tive que criar uns campos no DMDanfSe: cdsParametrosNaturezaOperacao: TStringField; cdsParametrosRegimeEspecialTributacao: TStringField; cdsParametrosOptanteSimplesNacional: TStringField; cdsParametrosIncentivadorCultural: TStringField; Você acha interessante disponibilizar isso pra todos? Se sim coloco neste mesmo topico ou crio um novo pra lhe enviar?

Ola Ítalo bom dia! To debugando o código aqui mas tá difícil de encontrar onde ele está o problema. Vou colocar trechos do código aqui pra ver se você pode, com sua boa vontade, me ajudar. Primeiramente chamo: if not ( ACBrNFSe1.Enviar(iLote,False) ) then raise Exception.Create(ACBrNFSe1.WebServices.EnvioWebService.Msg); O componente chama o método: function TWebServices.Envia(ALote: String): Boolean; begin FEnviarLoteRPS.FNumeroLote := ALote; Result := FEnviarLoteRPS.Executar; ... if (TACBrNFSe(FACBrNFSe).Configuracoes.Geral.ConsultaLoteAposEnvio) and (Result) then begin if not (TACBrNFSe(FACBrNFSe).Configuracoes.Geral.Provedor in [proDigifred, proProdata, proVitoria, proPVH, profintelISS, proSaatri, proSisPMJP, proCoplan, proISSDigital, proISSDSF, proFiorilli, proFreire, proTecnos, proDBSeller]) then begin Result := FConsSitLoteRPS.Executar; if not (Result) then FConsSitLoteRPS.GerarException( FConsSitLoteRPS.Msg ); end; if TACBrNFSe(FACBrNFSe).Configuracoes.Geral.Provedor = proInfisc then Result := True else Result := FConsLote.Executar; if not (Result) then FConsLote.GerarException( FConsLote.Msg ); end; Neste trecho, o consultarloteaposenvio está false. Eu tenho que definir isso? (Na trunk1 não precisava). Outro detalhe no if que está em vermelho, não deveria ser um else if? (Eu já até tinha perguntado isso em outro tópico). Tentei enviar propositalmente um lote que já tinha sido recusado anteriormente, no trecho em azul, está me gerando a exceção "unknown" e FConsLote.Msg = '' Se não tiver erro nenhum na NF que está sendo enviada, eu consigo enviar normalmente.

Olá amigos bom dia! Estou testando a NFSe na trunk2 e tentando resolver algumas dificuldades. Debugando encontrei um possível erro na unit ACBrNFeWebServices.pas na função TWebServices.Envia No trecho de código: if (TACBrNFSe(FACBrNFSe).Configuracoes.Geral.ConsultaLoteAposEnvio) and (Result) then begin if not (TACBrNFSe(FACBrNFSe).Configuracoes.Geral.Provedor in [proDigifred, proProdata, proVitoria, proPVH, profintelISS, proSaatri, proSisPMJP, proCoplan, proISSDigital, proISSDSF, proFiorilli, proFreire, proTecnos, proDBSeller]) then begin Result := FConsSitLoteRPS.Executar; if not (Result) then FConsSitLoteRPS.GerarException( FConsSitLoteRPS.Msg ); end; if TACBrNFSe(FACBrNFSe).Configuracoes.Geral.Provedor = proInfisc then Result := True else Result := FConsLote.Executar; if not (Result) then FConsLote.GerarException( FConsLote.Msg ); end; Na parte destacada em vermelho, não seria um ELSE IF? Outra sugestão seria unificar a função Envia, pois existem 2 funções que fazem a mesma coisa e (pelo que percebi) a única diferença é que uma função recebe um Integer como parâmetro e outra uma String. Se eu estiver correto e desejarem que eu faça as modificações eu faço e envio por aqui, caso eu esteja errado, por favor, me esclareçam. Abraço e obrigado a todos.

Puta merda, não tinha percebido a cagada, tem hora que a cabeça dá um nó. Valeu @Juliomar Marchetti Não tem como corrigir o titulo mais, o que faço? Abro outro?

Não tenho certeza mas me parece o mesmo problema que estou tendo. Ao enviar a NFe para o provedor GINFES na trunk1, se a NF era recusada a função ACBrNFSe.Enviar( retornava false e eu conseguia pegar o erro que aconteceu, agora na trunk2 ela sempre retorna true e a nota não é confirmada, mas eu não consigo capturar o motivo da recusa.

@Italo Jurisato Junior bom dia! Chegou a ver esta mensagem?

Olá Amigos bom dia! Estou enviando anexo a correção para o problema no envio de e-mail do MDFe na trunk2 e fastreport. Eu já tinha relatado e corrigido este problema na trunk1 mas o problema voltou a acontecer na trunk2, o arquivo XML é salvo com o ID do MFFe + '-mdfe.xml' mas o PDF é salvo só com o ID + '.pdf' diferente do padrão que ocorre nos demais projetos (NFe, CTe). Segue anexo a unit corrigida bem como o patch para ser disponibilizado para todos. ACBrMDFeDAMDFEFR.pas ACBrMDFeDAMDFEFR.pas.patch

Esquece amigo, me desculpe, fiz um teste aqui mas acabei pegando uma nota antiga, (onde o cstat era atualizado no XML) e achei que tinha funcionado. Testando nas notas fiscais mais recentes não funcionou porque ao carregar a NFe para impressão, os eventos não são carregados. Até dá pra fazer mas acho que não vale o custo/benefício.

Olá @Juliomar Marchetti Bom dia! Fiz uma alteração na impressão do DANFE para FASTREPORT, onde ele verifica se nos eventos carregados no componente há um evento de cancelamento para a NFe, se houver a tarja de "CANCELADA" é exibida automaticamente. Também fiz uma pequena redução nos códigos que estavam duplicados. Por favor, analise se acha conveniente disponibilizar a alteração para todos, a Unit alterada e o Patch para aplicar as alterações estão anexo. ACBrNFeDANFEFRDM.pas.patch ACBrNFeDANFEFRDM.pas

Não seria legal você enviar o LOG para tentarmos te ajudar?