Mais De Um Serviço Provedor Betha

[Leandro_Silva]

Boa noite, estou efetuando uns teste na nota de serviço, e quando coloco mais de um serviço sai errado na impressão

 

{[[Descricao=Manutencao Sistema

ERP][Quantidade=1,0000][ValorUnitario=190,0000][Aliquota=0,0000][Deducoes=0][DescontoCondicionado=0][DescontoIncondicionado=0]

]

[[Descricao=Manutencao Sistema

Associacao][Quantidade=1,0000][ValorUnitario=100,0000][Aliquota=0,0000][Deducoes=0][DescontoCondicionado=0][DescontoIncondicion

ado=0]]}

 

se eu entrar no ambiente da betha, ficou certo la.

 

Onde esta a branca ?

 

Grato Leandro.

[Juliomar Marchetti]

Boa noite

o componente atende ao modelo ABRASF

e no caso trata um único serviço na nota, já tem provedores que é esse o caso que aceita mais de um!

acho que esse é o porem

[Leandro_Silva]

Sim, a Betha Sistemas aceita mais de um serviço

 

segue o link: http://forum.betha.com.br/phpbb/viewtopic.php?f=93&t=6939

 

Outra situação que notei é o preechimento do campo

 

ANFSe.Servico.CodigoMunicipio := ANota.Cliente.Cep.Cidade.NumeroIBGE.ToString;

 

quando preencho a cidade do cliente a impressão fica vazia, porem se preencher a cidade da empresa o prestador do serviço

funciona, pelo que intendi esse campo é onde foi prestado o serviço, conforme o link

 

http://forum.betha.com.br/phpbb/viewtopic.php?f=93&t=19746

[Italo Giurizzato Junior]

Bom dia picyka,

 

Você tem os Schemas do provedor Betha que contempla uma lista de serviços em vez de apenas um?

 

Pois os Schemas que temos não contempla.

[Leandro_Silva]

Boa tarde Italo, não tenho os schemas atualizado, mais.... o problema do ocorre na impressão, a transmissao esta certa, tanto se entrar no sistema da betha

mostra certinho..

 

Outra situação que percebi é essa:

 

Outra situação que notei é o preechimento do campo

 

ANFSe.Servico.CodigoMunicipio := ANota.Cliente.Cep.Cidade.NumeroIBGE.ToString;

 

quando preencho a cidade do cliente a impressão fica vazia, porem se preencher a cidade da empresa o prestador do serviço

funciona, pelo que intendi esse campo é onde foi prestado o serviço, conforme o link

 

http://forum.betha.c...hp?f=93&t=19746

 

Obrigado pela atenção

 

Abraço e bom trabalho.

[Leandro_Silva]

Boa noite pessoal, estive olhando a fundo o fontes do acbr e descobri onde por que sai a impressão sem dados, porem nao sei se é erro meu

 

Unit pnfsNFSeR

 

function TNFSeR.LerNFSe: Boolean;

var

 ok  : Boolean;

 CM: String;

begin

 if (Leitor.rExtrai(1, 'OrgaoGerador') <> '')

  then begin

   CM:= Leitor.rCampo(tcStr, 'CodigoMunicipio');

   FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(CM, 0)));

  end;

 

 if CM = '' then

 begin

   if (Leitor.rExtrai(1, 'Servico') <> '') then

   begin

     CM:= Leitor.rCampo(tcStr, 'CodigoMunicipio');

     FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(CM, 0)));

   end

   else FProvedor := proNenhum;

 end;

 

 

bom mesmo preenchendo o campo: ANFSe.OrgaoGerador.CodigoMunicipio

 

não jogou esse valor pro xml, aiiii

 

ele cai nesse outra condicao

 

 if CM = '' then

 begin

   if (Leitor.rExtrai(1, 'Servico') <> '') then

   begin

     CM:= Leitor.rCampo(tcStr, 'CodigoMunicipio');

     FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(CM, 0)));

   end

   else FProvedor := proNenhum;

 end;

 

 

como o local da prestacao de serviço foi na cidade do cliente

ele nao consegue identificar o provedor

 

ai sai a impressao em limpa

 

 

 

alterado.pdf

alterado.xml

original.pdf

original.xml

[Italo Giurizzato Junior]

Bom dia,

 

Por favor atualize os fontes e teste novamente.

[Leandro_Silva]

-<Servico>

-<Valores>

   <ValorServicos>200</ValorServicos>

   <ValorDeducoes>0</ValorDeducoes>

  <IssRetido>2</IssRetido>

  <ValorIss>0</ValorIss>

  <BaseCalculo>200</BaseCalculo>

  <Aliquota>0.0000</Aliquota>

  <DescontoCondicionado>0</DescontoCondicionado>

  <DescontoIncondicionado>0</DescontoIncondicionado>

</Valores>

<ItemListaServico>0107</ItemListaServico>

<Discriminacao>Descricao: Manutencao Sistema ERP Valor: 200</Discriminacao>

<CodigoMunicipio>4218707</CodigoMunicipio>

</Servico>

 

 

<CodigoMunicipio>4218707</CodigoMunicipio>

 

nesse caso o codigo do municipio é diferente do prestador de serviço, e nao imprimiu tbm

 

nao tem como colocar mais campos no xml ?

 

34-nfse.xml

[Leandro_Silva]

To vendo aqui nem o xml baixando no site da betha tem os campos necessarios... nao deveria trabalhar com o campo setado

 

ACBrNFSe.Configuracoes.WebServices.CodigoMunicipio := lEmpresa.Cep.Cidade.NumeroIBGE;

 

por que é necessario aquelas condições no metodo (function TNFSeR.LerNFSe: Boolean;)

 

imprimir xml de mais de um prestador ?

[Leandro_Silva]

Sugestão:

 

pnfsNFSeR.pas

 

TNFSeR = class(TPersistent)

   property CodigoMunicipio : Integer read FCodigoMunicipio write SetCodigoMunicipio;

 

 

 

function TNotasFiscais.LoadFromFile(CaminhoArquivo: string): boolean;

 

case Tipo of

   1: begin

 

LocNFSeR.CodigoMunicipio := Self.Configuracoes.WebServices.CodigoMunicipio;

 

isso poderia ser o ultimo teste...

 

 

minha sugestão blza

[Italo Giurizzato Junior]

Bom dia,

 

Será que o código do município do prestador do serviço não esta sendo gerado no XML pelo Web Services, pelo simples fato de se tratar do ambiente de homologação?

 

O XML a ser enviado para o Web Service é do RPS e este possui uma estrutura definida e é validada ao submeter aos Schemas.

 

Se incluirmos mais TAGs, primeiro o validador do componente vai acusar a existência de TAGs inválidas, mesmo que você desabilite essa validação o Web Services vai rejeitar por conter essas TAGs.

[Leandro_Silva]

Bom dia, analisando um xml

baixado do sistema da betha em producao

 

na tag prestador de serviço tem o a tag:

 

<CodigoMunicipio>4201505</CodigoMunicipio>

 

seguindo essa logica deve funcionar, vou testar

 

e mais tarde retorno

 

Abraço e tenham um bom dia.