Inclusão De Cidade Tupi Paulista Sp

[Adriano Teodorico]

Boa tarde, por favor incluir a cidade de Tupi Paulista /SP no 4R.

Segue aonde eu alterei para funcionar:

 

UNIT pnfsNFSeW

         //Gerador.wCampo(tcDe2, '#33c', 'ValorUnitario', 01, 015, 1, NFSe.Servico.ItemServico.ValorUnitario, '');  //tem que colocar tcDe4

 

UNIT pnfsConversao

     // function CodCidadeToProvedor(const ACodigo: Integer): string;

 

        //  3127701, // Governador Valadares/MG

            3500105, // Adamantina/SP

            3510203, // Capão Bonito/SP

            3522109, // Itanhaem/SP

            3523503, // Itatinga/SP

            3554003,  // Tatui/SP

            3555109   //Tupi Paulista/SP   foi adicionada esta nova cidade

                        : Provedor := '4R';

 

UNIT acbrProvedor4R

     function TProvedor4R.GetConfigURL(ACodCidade: Integer): TConfigURL; //adicionado tupi paulista

 

         3555109: begin

                ConfigURL.ProNomeCidade := 'tupipaulista';

               ConfigURL.HomNomeCidade := 'tupipaulista';

         end;

 

 

 

Obrigado

Atte.

 

Adriano Teodorico dos Santos.

[Italo Giurizzato Junior]

Boa tarde Adriano,

 

Não entendi a primeira alteração na uni pnfsNFSeW.

 

Você apenas comentou a linha?

[Adriano Teodorico]

Bom Dia Italo, desculpe a demora,

na UNIT pnfsNFSeW

         na linha ->Gerador.wCampo(tcDe2, '#33c', 'ValorUnitario', 01, 015, 1, NFSe.Servico.ItemServico.ValorUnitario, '');//valor unitario esta somente 2 casas  

                             tem que colocar tcDe4.

Resultado: Gerador.wCampo(tcDe4, '#33c', 'ValorUnitario', 01, 015, 1, NFSe.Servico.ItemServico.ValorUnitario, '');//o correto é 4 casas.

 

Outra mudança que tive que fazer foi no Schema do Provedor 4R, quando uso o codigo de serviço 07.02 tem que incluir o código da Obra, mas não é obrigatório incluir valores na tag ART.

Exemplo: -

<ConstrucaoCivil>

       <CodigoObra>1311</CodigoObra>

       <Art/> no Schema esta Obrigando a ter valor aqui e não é necessário

</ConstrucaoCivil>

 

Fiz ja a modificação no Schema, ja esta em ANEXO.

 

Muito Obrigado Italo.

Abraço.

Adriano Teodorico dos Santos.

Schemas 4R - nfse.zip

 

 

Schemas 4R - nfse.zip

[Adriano Teodorico]

Ha, desculpe, faltou também na hora de gerar o Link.

UNIT ACBRProvedor4R

 

function TProvedor4R.GetLinkNFSe(ACodMunicipio, ANumeroNFSe: Integer;

  ACodVerificacao, AInscricaoM: String; AAmbiente: Integer): String;

var

 NomeMunicipio: String;

begin

 case ACodMunicipio of

   3127701: NomeMunicipio := 'valadares';

   3500105: NomeMunicipio := 'adamantina';

   3510203: NomeMunicipio := 'capaobonito';

   3522109: NomeMunicipio := 'itanhaem';

   3523503: NomeMunicipio := 'itatinga';

   3554003: NomeMunicipio := 'tatui';

   3555109: NomeMunicipio := 'tupipaulista';

 else

   NomeMunicipio := '';

 end;

 

 if AAmbiente = 1 then

   Result := 'https://' + NomeMunicipio + '.sistemas4r.com.br/CS/Em_Impressao_Nfe.aspx?id=' + ACodVerificacao

 else

   Result := 'https://' + NomeMunicipio + '.sistemas4r.com.br/CS/Em_Impressao_NfeHomologa.aspx?id=' + ACodVerificacao;

 

end;

 

 

Obrigado.

[Italo Giurizzato Junior]

Bom dia Adriano,

 

No meu entendimento não podemos alterar o schema (XSD) e sim solicitar ao provedor uma nova versão do mesmo, caso tenha sofrido alterações.

 

Outra coisa é fazer com que a sua aplicação exija a informação para passar para o componente e assim gerar a TAG que o provedor exige.

[Adriano Teodorico]

Boa tarde Italo, vou entrar em contato com o provedor para discutir o assunto então, inclusive eles tiveram que fazer vários ajustes na aplicação deles, pois estava com falhas. Irei relatar esta alteração no Schema e caso mude mesmo, estarei disponibilizando aqui o schema atualizado.

 

Muito Obrigado Italo.

 

 

Forte Abraço.