Unit Pnfscancnfseresposta

[Antonio Gomes]

As implementacoes abaixo, no codigo fonte sempre que atualizo vem vazio e ao aplicar o build all o codigo fonte para de compilar pois tenho um plugin instalado para nao parar continuar ao encontrar funcao sem retorno.

 

O retorno dela seria esse?? Se sim, poderiam arrumar no codigo fonte?

obrigado

 

isso está na linha: 174

function TNotasCanceladasCollection.GetItem(

  Index: Integer): TNotasCanceladasCollectionItem;

begin

   Result := Items[index];

end;

 

isso está na linha: 180

procedure TNotasCanceladasCollection.SetItem(Index: Integer;

  Value: TNotasCanceladasCollectionItem);

begin

   Items[index]:= Value;

end;

Editado 13 Novembro, 2013 por Antonio Gomes

[Italo Giurizzato Junior]

Boa tarde,

 

Favor atualizar os fontes e testar.

[Antonio Gomes]

Italo,

Não querendo ser chato, posso mandar outras funcoes que acusam falta de retorno pelo fato de ela ser toda retornada baseado em case end ?

 

unit ACBrProvedorProdata

 

function TProvedorProdata.GetAssinarXML(Acao: TnfseAcao): Boolean;

begin

 

end;

 

unit ACBrProvedorSpeedGov

function TProvedorSpeedGov.GetAssinarXML(Acao: TnfseAcao): Boolean;

begin

 

------------------------

 

unit ACBrProvedorSpeedGov

variavel perdida sem uso: 

function TProvedorSpeedGov.GetConfigURL(ACodCidade: Integer): TConfigURL;

var

 ConfigURL: TConfigURL;

 URL: String; <<------------------------------------ essa aqui

begin

 

...

unit ACBrProvedorLink3

function TProvedorLink3.GetAssinarXML(Acao: TnfseAcao): Boolean;

begin

 

 

unit ACBrNFSeWebServices, esse .Free sozinho sem teste, essa variavel nao poderia entrar sem ponteiro e no decorrer da execução gerar uma violacao de acesso?

 

procedure TWebServicesBase.LoadMsgEntrada;

begin

 FxProvedor := FConfiguracoes.WebServices.xProvedor;

 FProvedor  := FConfiguracoes.WebServices.Provedor;

 

 FProvedorClass.Free;

 

nessa mesma implementacao acusa pelo compilador um create abstrato,. ex: 

[DCC Warning] ACBrNFSeWebServices.pas(594): W1020 Constructing instance of 'TProvedorGinfesV3' containing abstract method 'TProvedorClass.GeraEnvelopeConsultarSequencialRps'

 

 

------------

Outra implementacao que vive parando é essa, sem retorno:

 

function TInfEvento.getcOrgao: integer;

//  (AC,AL,AP,AM,BA,CE,DF,ES,GO,MA,MT,MS,MG,PA,PB,PR,PE,PI,RJ,RN,RS,RO,RR,SC,SP,SE,TO);

//  (12,27,16,13,29,23,53,32,52,21,51,50,31,15,25,41,26,22,33,24,43,11,14,42,35,28,17);

begin

//  Result := StrToInt(copy(FChave, 1, 2));

 

  if FTpEvento = teEPEC then

  begin

    // Alterado por Italo em 28/10/2013

//    case Result of

    case StrToIntDef(copy(FChave, 1, 2), 0) of

      0,

     11, // Rondônia

     12, // Acre

     13, // Amazonas

     14, // Roraima

     15, // Pará

     16, // Amapá

     17, // Tocantins

     21, // Maranhão

     22, // Piauí

     23, // Ceará

     24, // Rio Grande do Norte

     25, // Paraibá

     27, // Alagoas

     28, // Sergipe

     29, // Bahia

     31, // Minas Gerais

     32, // Espirito Santo

     33, // Rio de Janeiro

     41, // Paraná

     42, // Santa Catarina

     43, // Rio Grande do Sul

     52, // Goiás

     53: // Distrito Federal

        Result := 35;

     26, // Pernanbuco

     35, // São Paulo

     50, // Mato Grosso do Sul

     51: // Mato Grosso

        Result := 43;

    end;

  end

  else begin

   // Alterado por Italo em 03/10/2013

   if FcOrgao <> 0 then

     Result := FcOrgao

   else

     Result := StrToIntDef(copy(FChave, 1, 2), 0);

 

   if Result = 0 then

     raise EventoException.Create('Campo cOrgao não informado.');

 

   // Estados que utilizam a SVAN: ES, MA, PA, PI, RN Devem utilizar 91

//   if Result in [32, 21, 15, 22, 24] then

//     Result := 91;

  end;

end;

 

Se na primeira linha da implementacao setasse o result para zero, o fato de ser case logo abaixo nao geraria o erro na linkedicao.

[Italo Giurizzato Junior]

Boa tarde,

 

Faça as alterações nos fontes e realize os testes, caso resolva os problemas, por favor zipa os fontes e post eles aqui no fórum como anexo.

[Antonio Gomes]

tá na mão os fontes

ACBr_AlteradoAcgubamg.zip

Editado 12 Novembro, 2013 por Antonio Gomes

[Italo Giurizzato Junior]

Boa tarde,

 

Os fontes alterados já estão disponiveis no SVN.

 

Muito obrigado pela colaboração.