Ajuste Impressão Nfse Quickreport Ipatinga Mg

[Anderson Luis]

Bom dia,

 

Estou desenvolvendo NFS-e para a cidade de Ipatinga-MG que utiliza o provedor ACTCON Nota Fácil.

 

Foi necessário um ajuste simples no fonte do relatório para que o valor do ISS fosse impresso corretamente.

 

 // Checar os provedores que retornam a Aliquota dividida por 100
 // e multiplicar por 100 para que seja apresentada no formado x.xx %
 if FProvedor in [proThema, proWebISS, proActCon]
  then qrlAliquota.Caption := DFeUtil.FormatFloat( FNFSe.Servico.Valores.Aliquota * 100, ',0.00' )
  else qrlAliquota.Caption := DFeUtil.FormatFloat( FNFSe.Servico.Valores.Aliquota, ',0.00' );

Agradeço se os responsáveis puderem avaliar a alteração e disponibilizar no projeto oficial.

 

Abraços.

ACBrNFSeDANFSeQRRetrato.zip

Editado 26 Agosto, 2014 por Anderson Luis

[Italo Giurizzato Junior]

Boa tarde Anderson,

 

Muito obrigado pela colaboração.

A Alteração realizada e disponibilizada.

[Anderson Luis]

Boa tarde Anderson,

 

Muito obrigado pela colaboração.

A Alteração realizada e disponibilizada.

 

Boa Tarde Italo,

 

Precisei fazer outro ajuste na unit "ACBrNFSeWebServices.pas" para a NFS-e desse provedor ACTCON funcionar:

procedure TWebServicesBase.OnBeforePost(const HTTPReqResp: THTTPReqResp;
  Data: Pointer);

function GetLastErrorText: string;
var
 aMsg: String;
begin
 case GetLastError of
  12030: aMsg := 'A conexão com o servidor foi finalizada.';
  12044: aMsg := 'O Servidor está solicitando autenticação do cliente.';
  12046: aMsg := 'Autorização do cliente não está configurado neste computador.';
  else aMsg := IntToStr(GetLastError);
 end;
 Result := aMsg;
end;

var
 Cert         : ICertificate2;
 CertContext  : ICertContext;
 PCertContext : Pointer;
 ContentHeader: string;
begin
 if DFeUtil.EstaVazio( FConfiguracoes.Certificados.NumeroSerie )
  then Exit;

 Cert        := FConfiguracoes.Certificados.GetCertificado;
 CertContext := Cert as ICertContext;
 CertContext.Get_CertContext(Integer(PCertContext));

 if not (FProvedor in [proGovBr, proSimplISS, proAbaco, proISSNet, pro4R, proIssDSF,  // proIssDSF incluido por Ailton Branco 16/07/2014
                       proFiorilli, proProdata, proCoplan, proThema, proVirtual,
                       proPVH, proFreire, proTecnos, proPronim, proPublica, proEgoverneISS, proActcon])
  then begin

Adicionei o provedor na condição acima pois estava apresentando erro sem sentido.

 

Também agradeço se puderem disponibilizar no projeto oficial.

 

Obrigado.

[Italo Giurizzato Junior]

Boa tarde Anderson,

 

Muito obrigado pela colaboração, já esta disponível a alteração.