leywander
-
Total de ítens
19 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por leywander
-
-
Estou implantando a NFSe aqui num sistema, e aqui na Prefeitura utilizam o provedor DSF, blz! Só que me solicitaram um modelo de RPS, ops! Como se pra imprimir se preciso enviar um RPS e não estou cadstrado, mas beleza me virei aqui e fiz algumas alterações em Demo_ACBrNFSe, DANFSeNovo.fr3 e no fonte do componete no ACBrNFSeDANFSeFRDM.pas
Detalhes:
Minha versao do FR é 4.12, pra quem tiver problemas como erros na impressão seguir post anterior.
Criei no Demo uma opção para impressão de modelo para possível necessidade de homologação como a que ocorreu aqui.
Segue arquivos alterados em anexo.
-
Estava com o mesmo problema, basicamente o problema é gerado por que estava usando versão diferente do Fast Report da que foi utilizado para criar o DANFSeNovo.fr3.
Solução:
Abra o ACBrNFSeDANFSeFRDM com isso deve exibir alguns criticas do IDE com relação a ausência de algum parâmetros, ignore todos e salve a Unit, abra gerador do FastReport (Clicando 2 x no componete frxReport) o arquivo DANFSeNovo.fr3, salve o arquivo e faça testes.
OBS.: No meu caso as conexões com as tabelas estavam desativadas com isso o relatório ainda ficou com problema (Creio que isso por o meu estava com erro de class TDataSets), simples, foi só habilitar todas as conexoes com as tabelas.
-
2
-
-
Bom dia Regys!
Estava olhando post e acho que o trecho esta trocado a informação 'MG' e 'RJ':
ACBrECF1.InfoRodapeCupom.CupomMania := cbxUF.Text = 'MG';
ACBrECF1.InfoRodapeCupom.MinasLegal := cbxUF.Text = 'RJ';
seria:
ACBrECF1.InfoRodapeCupom.CupomMania := cbxUF.Text = 'RJ';
ACBrECF1.InfoRodapeCupom.MinasLegal := cbxUF.Text = 'MG';
-
Oi regys.silveira, entendi!
Realmente você esta certo, fica a cargo da softhouse fazer esse controle e passar para descrição da forma de pagamento. Mas de qual quer forma já ficam o pessoal avisado. Não tem graça o componente fazer tudo, né!
Esse PAF-ECF ainda vai deixar muita gente doido.
Obrigado pelo pronto atendimento.
-
Boa tarde regys.silveira!
Perfeitamente, mas quando o usuario escolhe uma forma de pagamento TEF, por exemplo "Cartao Credito", só que na operação com o GP escolhe Debito ai não vai ficar fiel a informação que será no relatório. Já que tenho meios de testar na aplicação se a operação TEF foi Credito ou Debido posso amarrar isso passando essa informação para o componente.
Exemplo como estou testando:
if (ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].TipoTransacao >= 10) and (ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].TipoTransacao <= 12) then TotalTipoPagamento.CartaoDebitoOuCredito := 'C'; if (ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].TipoTransacao >= 20) and (ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].TipoTransacao <= 25) then TotalTipoPagamento.CartaoDebitoOuCredito := 'D'; -
Boa pessoal!
Estou passando o Roteiro de Analise PAF-ECF Versao 1.8 - julho/2012 Aplicavel à versão 01.12 da ER-PAF-ECF, observado o ATO COTEPE ICMS 36, DE 4 DE SETEMBRO DE 2012 (ESPECIFICAÇÃO DE REQUISITOS DO PAF-ECF (ER-PAF-ECF)
VERSÃO 01.13).
Bem relacionado ao topico, estou passando o Teste 028 e observando o REQ XXX Item 1 alinea "b) a identificação do meio de pagamento e, quando for o caso de cartão, identificar se é crédito, débito ou similar;"
pude obsevar que a função ACBrECF.PafMF_RelMeiosPagamento não identifica se a forma de pagamento é Credito ou Debito, entao, fiz alguma alterações onde:
- Transações TEF serão acumulados precedidos do tipo de transação sendo, (D) para Debito e © Credito.
Para controlar esse tipo de TEF foi realizadas algumas alterações, seguem:
[+] - Adicionado
[*] - Alterado
Unit ACBrECFClass ;
{ Definindo novo tipo para armazenar as Formas de Pagamento } TACBrECFFormaPagamento = class private fsIndice: String; fsDescricao: String; fsPermiteVinculado: Boolean; fsTotal: Double; fsData: TDateTime; fsTipoDoc: String; fsDebitoCredito: string; //[+] public constructor create ; procedure Assign( AFormaPagamento : TACBrECFFormaPagamento ) ; property Indice : String read fsIndice write fsIndice ; property Descricao : String read fsDescricao write fsDescricao ; property PermiteVinculado : Boolean read fsPermiteVinculado write fsPermiteVinculado ; property Total : Double read fsTotal write fsTotal ; property Data: TDateTime read fsData write fsData; property TipoDoc: String read fsTipoDoc write fsTipoDoc; property DebitoCredito: string read fsDebitoCredito write fsDebitoCredito; // [+] end;Unit ACBrECF ;procedure TACBrECF.PafMF_RelMeiosPagamento( const AFormasPagamento: TACBrECFFormasPagamento; const ATituloRelatorio: String; const AIndiceRelatorio: Integer); var DataAtual: TDateTime; Relatorio: TStringList; I: Integer; TamLin: Integer; SubTotal: Double; FPAcumuladas: TACBrECFFormasPagamento; FPTotalizado: TACBrECFFormasPagamento; DC: string; // [+] function ProcurarFormaPagamento(const AFormaPagto: TACBrECFFormaPagamento; const AFormasPagamento: TACBrECFFormasPagamento; const AConsideraTipoDoc: Boolean = True) :TACBrECFFormaPagamento; var I: Integer; begin Result := nil; for I := 0 to AFormasPagamento.Count - 1 do begin if AConsideraTipoDoc then begin if (AFormaPagto.Data = AFormasPagamento[I].Data) and (AnsiUpperCase(AFormasPagamento[I].Descricao) = AnsiUpperCase(AFormaPagto.Descricao)) and (AnsiUpperCase(AFormasPagamento[I].TipoDoc) = AnsiUpperCase(AFormaPagto.TipoDoc)) and [color=#FF0040](AnsiUpperCase(AFormasPagamento[I].DebitoCredito) = AnsiUpperCase(AFormaPagto.DebitoCredito))[/color] then begin Result := AFormasPagamento[I]; Exit; end; end else begin if (AFormaPagto.Data = AFormasPagamento[I].Data) and (AnsiUpperCase(AFormasPagamento[I].Descricao) = AnsiUpperCase(AFormaPagto.Descricao)) and [color=#FF0040](AnsiUpperCase(AFormasPagamento[I].DebitoCredito) = AnsiUpperCase(AFormaPagto.DebitoCredito))[/color] then begin Result := AFormasPagamento[I]; Exit; end; end; end; end; procedure AcumularValorFP(const AFormaPagto: TACBrECFFormaPagamento; const AConsideraTipoDoc: Boolean; var ALista: TACBrECFFormasPagamento); var FP: TACBrECFFormaPagamento; begin FP := ProcurarFormaPagamento(AFormaPagto, ALista, AConsideraTipoDoc); if FP <> nil then FP.Total := FP.Total + AFormaPagto.Total else begin with ALista.New do begin Data := AFormaPagto.Data; Descricao := AFormaPagto.Descricao; Total := AFormaPagto.Total; TipoDoc := AFormaPagto.TipoDoc; DebitoCredito := AFormaPagto.DebitoCredito; end; end; end; procedure AddCabecalho(const AData: TDateTime); begin if AData > 0 then begin Relatorio.Add(''); Relatorio.Add(ACBrStr('DATA DE ACUMULAÇÃO: ' + FormatDateTime('dd/mm/yyyy', AData) + '')); end; Relatorio.Add(ACBrStr('Identificação Tipo Valor R$')); Relatorio.Add( padL('', 15, '-') + ' ' + padL('', 19, '-') + ' ' + padL('', 12, '-') ); end; procedure AddSubTotal; begin Relatorio.Add(''); Relatorio.Add(Format('Sub-Total %12.2n', [SubTotal])); Relatorio.Add(''); Relatorio.Add(''); SubTotal := 0.00; end; begin fsNumSerieCache := '' ; // Isso força a Leitura do Numero de Série DoVerificaValorGT ; TamLin := ECF.Colunas; // montagem do relatorio Relatorio := TStringList.Create; try Relatorio.Clear; Relatorio.Add(''); if AIndiceRelatorio <= 0 then begin Relatorio.Add(''); Relatorio.Add('MEIOS DE PAGAMENTO'); Relatorio.Add(''); Relatorio.Add(''); end; if Trim(ATituloRelatorio) <> '' then Relatorio.Add(PadC(ATituloRelatorio, TamLin)); // ************************************************************************* // impressão do relatório acumulando por data, descricao e tipo de documento // ************************************************************************* FPAcumuladas := TACBrECFFormasPagamento.Create; FPTotalizado := TACBrECFFormasPagamento.Create; try // acumular as formas por data, descricao e tipo de documento FPAcumuladas.Clear; AFormasPagamento.Ordenar; for I := 0 to AFormasPagamento.Count - 1 do AcumularValorFP(AFormasPagamento[I], True, FPAcumuladas); // gerar o relatório DataAtual := 0.0; FPAcumuladas.Ordenar; for I := 0 to FPAcumuladas.Count - 1 do begin if DataAtual <> FPAcumuladas[I].Data then begin // SUB-TOTAL if (DataAtual > 0) then AddSubTotal; // cabecalho DataAtual := FPAcumuladas[I].Data; AddCabecalho(DataAtual); end; // Atualiza informação de DC = (D)Debito ou (C)Credito // [+] if Trim(FPAcumuladas[I].DebitoCredito) <> '' then DC := '('+FPAcumuladas[I].DebitoCredito+')' else DC := ''; // dados dos pagamentos Relatorio.Add(Format('%s %s %s', [ padL(DC+FPAcumuladas[I].Descricao, 15), //[*] padL(FPAcumuladas[I].TipoDoc, 19), Format('%12.2n', [FPAcumuladas[I].Total]) ])); // acumuladores AcumularValorFP(FPAcumuladas[I], True, FPTotalizado); SubTotal := SubTotal + FPAcumuladas[I].Total; end; // sub-total do ultimo dia AddSubTotal; // *********************************************************************** // impressão do total geral // *********************************************************************** Relatorio.Add(''); Relatorio.Add(padC('TOTAL GERAL', TamLin)); if Trim(ATituloRelatorio) <> '' then Relatorio.Add(padC(ATituloRelatorio, TamLin)); Relatorio.Add(''); Relatorio.Add(ACBrStr('Identificação Valor R$')); Relatorio.Add( PadR('', 27, '-') + ' ' + PadR('', 20, '-') ); // acumular os valores totais das formas FPAcumuladas.Clear; FPTotalizado.Ordenar; for I := 0 to FPTotalizado.Count - 1 do begin FPTotalizado[I].Data := 0; AcumularValorFP(FPTotalizado[I], False, FPAcumuladas); end; // impressão das linhas de totalização SubTotal := 0.00; FPAcumuladas.Ordenar; for I := 0 to FPAcumuladas.Count - 1 do begin // Atualiza informação de DC = (D)Debito ou (C)Credito //[+] if Trim(FPAcumuladas[I].DebitoCredito) <> '' then DC := '('+FPAcumuladas[I].DebitoCredito+')' else DC := ''; Relatorio.Add(Format('%s %s', [ padL(DC+FPAcumuladas[I].Descricao, 27), //[*] Format('%20.2n', [FPAcumuladas[I].Total]) ])); SubTotal := SubTotal + FPAcumuladas[I].Total; end; // somatorio total Relatorio.Add(''); Relatorio.Add(Format('TOTAL %27.2n', [SubTotal])); Relatorio.Add(''); finally FreeAndNil(FPAcumuladas); FPTotalizado.Free; end; // impressão do relatório Self.RelatorioGerencial(Relatorio, 1, AIndiceRelatorio); finally Relatorio.Free; end; end;Então fica ai a disposição dos moderadores e colaboradores do fórum, se realmente eu estiver correto, poderão implementar no ACBr.
-
ok, EMBarbosa!
Reiniciei o reinstalei e deu ok, mas agora só aparece uma mensagem quando gerar o PDF.
OBS.: O PDF é gerado normalmente, mas o problema é só o inconveniente de ficar exibindo esta mensagem umas 3 vezes
-
Olá Daniel Simões, consegui gerar o PDF normalmente, mas com inconveniente de uma mensagem dizendo que "A versão do sistema é uma versão diferente do Fortes Report".
Mas de tentar usar as outras versões esta aparecendo na hora que tento instalar:
---------------------------
Embarcadero RAD Studio 2010
---------------------------
Package D:\Lib\D2010\FortesReport_bin_d2010vcl_3.71B\RLibWinD2010.bpl can't be installed because another package with the same base name is already loaded (RLibWinD2010.bpl)
---------------------------
OK
---------------------------
Já tinha Desintalado a Package Fortes Report da Lista.
-
Estava me habituando ao Fast Report e o QuickReport.
Tentei instalar o Fortes Report no D10, mas como disse, não esta compilando, causa erros citando ausência em arquivos *.DCU (O que lembro agora é QT.DCU, mas tem outros). Se vc souber onde posso pegar uma compilação do Fortes Report para o D10 posso usá-lo sem problemas.
-
Bom dia Daniel Simões,
Estou enviando o PDF em anexo.
Estou usando o Foxit Reader.
Estou usando o D10 e estou com problemas em usar o Fortes Report, esta causando erros em ausência de alguns *.DCU (QT.DCU e outros)....
-
Bom dia a todos,
Estou com um problema, quando gero o PDF, aparentemente esta tudo ok, mas quando tento abrir o arquivo o meu Foxit Reader avisa que não um arquivo PDF ou esta corrompido. Alguém tem uma sugestão para resolver o problema?
Estou usando o ACBRBoleto + ACBrBoletoFCQuick
Trabalho com D10 e Quick Report 5
-
Olha na verdade o que acontece é que a maioria dos estados não tem webservice proprio e neste caso usam o nacional que é o caso do PI, pelo menos é o que eu entendi... então mesmo para os estados que não tenham estes serviços é pra funcionar o ambiente de homologação e produção. O que acho mais estranho é que ja fiz uns testes em produção mesmo e passou normalmente. Mas não podemos fazer testes ou treinamento na produção né verdade...
Li o documento que fala do uso indevido dos WebService's, mas mesmo assim acho que não é o caso. tando que atualizei o ACBrNFe e já estavam feitas algumas melhorias para atender estas melhores praticas e nada.
Ainda estou estudando este problema e tentando resolver, se algum amigo tiver uma ideia do que ocorre com o ambiente homologação da NFe V2, podem postar ai....!
OBS: Minha estrutura é Windows 7 + Delphi 7 + ACBrNFe2
-
Olá pessoal, vi os posts relacionados a erros obtidos no ambiente de homologação... então as boas praticas que contem no documento "Consumo_Indevido_Aplicação_Cliente_v1.00.doc". Já fiz a atualização do ACBR e observei que foram removidos os codigos que faziam consultas de serviços desnecessário, que é mencionado no documento, mesmo assim ainda não tive bons resultados.
Exception recebido quando tento fazer uma simples verificação do status do servico:
---------------------------
Debugger Exception Notification
---------------------------
Project SAC.exe raised exception class ESOAPHTTPException with message ' - URL:https://hom.sefazvirtual.fazenda.gov.br/NfeStatusServico2/NfeStatusServico2.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2'.'>http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
Exception quando tento enviar uma nota:
---------------------------
Debugger Exception Notification
---------------------------
Project SAC.exe raised exception class ESOAPHTTPException with message 'rsion="1.0" encoding="utf-8"?>
-
Boa tarde Marcio,
Consegui a pouco tempo resolver o problema, na verdade a mensagem que me referia era o form frmStatus que não estava sendo exibido...
Acho que na atualização ou eu mesmo removi sem perceber no evento ACBrNFe1StatusChange tem um tratamento, olhei no exemplo e ja corrige isso, então ta blz
Obrigado.
-
Boa tarde a todos do grupo!
Bem estou o o seguinte problema, como diz o topico:
Todas as mensagens de retorno do ACBRNFe estão aparecendo somente em debug, já configurei a opção de Visualizar Mensages ( ACBrNFe1.Configuracoes.WebServices.Visualizar := ckVisualizar.Checked;) esta com TRUE.
O que poderá estar ocorrendo com o projeto.
Obs: estava usando o ACBrNFe1, estou atualizando e estou com este pequeno problema, mas importante pois dá erro e se nao exibe a mensagem não tem como o usuario saber qual o problema
-
Não, todas as vezes dá erro... só queria saber se é algu problema da SEFAZ ou do componente...
pq vai complicar quando for colocar em clientes para treinamento.
-
Estou usando o certificado A3
A minha empresa estava homologada na base de produtoção e homologação... creio que os dados seram transferidos sem a intervenção dos usuarios comuns.
Outra acho que o erro que nós é reportado é mais quanto ao endereço da URL que esta inativo
-
Boa tarde, alguém sabe por que não consigo testar a NFe2 no ambiente Homologação?
erro:
---------------------------Acbrnfe_demo
---------------------------
WebService Consulta Status serviço:
- Inativo ou Inoperante tente novamente.
- 20101205151918-sta.xml - URL:https://hom.sefazvirtual.fazenda.gov.br/NfeStatusServico2/NfeStatusServico2.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2.
---------------------------
OK
---------------------------
Cadatro Emitente:
Cidade: 5555 - Teresina
UF: PI
WEB Service
UF Destino: PI
Ambiente de Destino: Homologação
Observação: Em modo PRODUÇÃO, não aparece este erro!
Boleto - Detran "Intercalado 25"
em ACBrBoleto
Postado
Olá pessoal, estou tendo dificuldades em imprimir um codigo de barras para "padrao Detran's" não vi aqui no componente ACBr esse tipo de boleto, estou tentando criar direto no FastReport e para codigo de barras que deve ser Intercalado 2 de 5, está dando erro quando ler em aplicativos dos bancos: "...produto inválido...". Se eu ler o mesmo codigo com um Scanner manual e copiar os numeros para o App ele passa sem problema, mas se ler no APP ele nao consegue, sempre aparece mensagem.
Se alguem tiver alguma idéia, fico no aguardo, obrigado!