Alteração em ACBrNFSeWebServices (provedor Betha)

[geovanesilveira]

A modificação e o exemplo abaixo servem apenas para quem tem como provedor a Betha.

Após atualizar os fontes do ACBr, há um código em TNFSeWebService.InicializarGerarDadosMsg (unit ACBrNFSeWebServices) que cria um exception caso a Inscrição Municipal esteja vazia:

    if IM = '' then
      GerarException(ACBrStr('A I.M. não informada em: Configuracoes.Geral.Emitente.InscMun'));

Porém quem usa o provedor Betha, em ambiente de HOMOLOGAÇÃO, não se deve informar a IM.

Abaixo segue a linha corrigida e o anexo da unit:

    if (IM = '') and ((Provedor <> proBetha) or (FPConfiguracoes.WebServices.Ambiente = taProducao)) then
      GerarException(ACBrStr('A I.M. não informada em: Configuracoes.Geral.Emitente.InscMun'));

 

ACBrNFSeWebServices.pas

[Italo Giurizzato Junior]

Bom dia Geovane,

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

Favor atualizar os seus fontes, pois eles estão desatualizados.