NFSe result LoadFromString

[Rodrigo Pachesen ApoioInf.]

Bom dia.

Iniciando o desenvolvimento da NFS-e, encontrei algumas diferenças em comparação ao ACBRNFe, sei que os projetos são diferentes mas se o comportamento dos objetos forem mais parecidos melhor para todos.

Na função LoadFromString do NFSe, em comparação com o NF-e, faltou um Result, este retorno é necessário para a função LoadFromFile  atribui nome do arquivo a novas notas inseridas. Tive este problema porque não retornava o nome do arquivo, acredito que realmente esteja faltando.

Também no mesmo .pas, a segunda sugestão é referente a função "Assinar", realizei uma alteração utilizando como exemplo os fontes do ACBRNFe, realizei vários teste e não tive problema, aguardo avaliação.

ACBrNFSeNotasFiscais.pas

[Juliomar Marchetti]

por que verifica se está vazio abaixo sendo que sempre vai ter algo no NomeArq??

if NomeArq = '' then
	NomeArq := NFSe.IdentificacaoRps.Numero + NFSe.IdentificacaoRps.Serie + '-rps.xml';
if Configuracoes.Arquivos.Salvar then
begin
	if NaoEstaVazio(NomeArq) then
		Gravar(NomeArq, FXMLAssinado)
	else
		Gravar(CalcularNomeArquivoCompleto(NomeArq,''), ifThen(Assina, FXMLAssinado, FXMLOriginal));
end;

 

[Rodrigo Pachesen ApoioInf.]

Ótima observação, acho que foi receio de criar algum problema. Melhor analisando o NomeArq = '' vai utilizar a função CalcularNomeArquivoCompleto, e nesta função vai criar o arquivo com o mesmo nome.

Retirar o comando abaixo.

if NomeArq = '' then
	NomeArq := NFSe.IdentificacaoRps.Numero + NFSe.IdentificacaoRps.Serie + '-rps.xml';

ACBrNFSeNotasFiscais.pas

[Juliomar Marchetti]

no svn a colaboração

favor testar

Obrigado