Segue as alterações que tive que fazer para funcionar a NFS-e de Ponta Grossa.
Fonte: pnfsNFSe.pas
Alterações:
No itens de serviço da NFSe, "TItemServicoCollectionItem", adicionei os seguintes campos:
->FValorServicos: currency;
->FValorDeducoes: currency;
->FValorIss: currency;
->FAliquota: currency;
->FBaseCalculo: currency;
->FDescontoCondicionado: currency;
->FDescontoIncondicionado: currency;
->FDiscriminacao: string;
já que, para Ponta Grossa, são gerado vários serviços por RPS/NFS-e.
Fonte: pnfsNFSeW.pas
Alterações:
Na função “GerarServico”, quando for do provedor FintelISS, alterado para fazer um loop nos itens da NFS-e e adiciona-los no XML.
Fonte: pnfsNFSeR.pas
Alterações:
Adicionado mais duas funções:
RPS_ProvedorfintelISS;
NFSE_ProvedorfintelISS;
Alterado a função “LerXML” para ler pelas duas novas funções quando for NFS-e de Ponta Grossa.
Fonte: ACBrProvedorfintelISS.pas
Alterações:
Na função "GetAssinarXML", quando for cancelamento mudei para TRUE.
Na função "Gera_DAdoMsgCancelarNFSe", adicionei a tag "CpfCnpj" acima da tag "Cnpj" (antes so tinha a tag cnpj).
Fonte: ACBrNFSeUtil.pas
Alterações:
Na funcação "AssinarXML" tive que retirar a "FTagI" e a "FTagF" do "AXML",
já que quando for cancelamento de Ponta Grossa o “AXML” vem com elas e precisa ser assinado. E depois da assinatura adiciona as tag's de volta.
FONTES: NFSePontaGrossa.rar