Código Fonte. Novas Cidades Incluida Provedor Betha

[julio_cld]

Boa tarde!

 

Segue unit alterada, inclusão das cidades abaixo, provedor betha.

 

 4204806, // Curitibanos (SC)
 4210035, // Luzerna (SC)
 4217501, // Seara (SC)
 4218509  // Treze Tilias (sc)
 

pnfsConversao.pas

[Italo Giurizzato Junior]

Boa tarde Julio,

 

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

[Dangelo2010]

Estou tento muitos problemas referente a inclusão dos Novos Códigos, então fiz algumas mudanças no meu sistema pegando os dados do município do meu cadastro de município onde lá também se encontra o código do município e também no ACBR, usando passagem de parâmetros.

 

 

Por Favor se possível subir para o SVN.

 

ACBrNFSeDANFSeClass.pas

ACBrNFSeDANFSeRL.pas

ACBrNFSeDANFSeRLClass.pas

ACBrNFSeDANFSeRLRetrato.pas

[Dangelo2010]

Foi feito uma mudanca sem pensar nas situações, eu lembro que pensei nisso certinho sobre o codigo fonte abaxo, so que o astrogildo fez mudancas radicais sem pensar que nem todas as prefeitura vem o valor do iss retido, pesso por gentileza a verificação e a mudanca se possivel.

 

 rllValorIssRetido.Caption      := DFeUtil.FormatFloat( FNFSe.Servico.Valores.ValorIssRetido );//Astrogildo em 13/12/12

 rllValorLiquido.Caption := DFeUtil.FormatFloat( FNFSe.Servico.Valores.ValorLiquidoNfse );//Astrogildo em 13/12/12
 
 {
 If FNFSe.Servico.Valores.ValorIssRetido > 0 Then Begin

   rllValorIssRetido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorIssRetido);

   rllValorLiquido.Caption   := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse -
                                                    FNFSe.Servico.Valores.ValorIssRetido);
 End Else Begin

   Case FNFSe.Servico.Valores.IssRetido Of
   stRetencao     : Begin

                      rllValorIssRetido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorIss);

                      rllValorLiquido.Caption   := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse -
                                                                       FNFSe.Servico.Valores.ValorIss);
                    End;

   stNormal       : Begin

                      rllValorIssRetido.Caption := DFeUtil.FormatFloat(0);

                      rllValorLiquido.Caption   := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse);
                    End;

   stSubstituicao : Begin

                      rllValorIssRetido.Caption := DFeUtil.FormatFloat(0);

                      rllValorLiquido.Caption   := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse);
                    End;
   end;
 End;
 

[Juliana Tamizou]

Boa tarde.

Tópico está sendo fechado por ser antigo, caso haja necessidade, favor criar novo tópico.

Att.