NFSe Campinas/SP - ItemListaServico

guimamonteiro · 19 Março

Bom dia senhores, eu passava antes: Servico.ItemListaServico := '10.05';

ai deu: Erro(s):
Código : X800
Mensagem: Erro de Validação: --> 1824 - Element 'ItemListaServico': '00.00' is not a valid value of the atomic type 'tsItemListaServico'.

Tentei passar sem o ponto e deu a mesma coisa

Alguém consegue me ajudar por favor ...

Desde já muito agradecido

guimamonteiro · 19 Março

Tentei tb passar com zeros à esquerda e deu mesmo erro ...

Gratidão

Juliomar Marchetti · 19 Março

Verifica senão está usando WITH e esse está apontando para luga errado

remova todos que tem em seu código e dai revise pois ao que parece não está informando nada ao campo que deveria

guimamonteiro · 19 Março

Obrigado pela ajude meu caro ...

Uso With igual do exemplo da ACBR

with NotasFiscais.New.NFSe do
begin
Servico.ItemListaServico := '10.05';

Mas mesmo assim sai '00.00'

Juliomar Marchetti · 19 Março

2 horas atrás, guimamonteiro disse:

Obrigado pela ajude meu caro ...

Uso With igual do exemplo da ACBR

with NotasFiscais.New.NFSe do
begin
Servico.ItemListaServico := '10.05';

Mas mesmo assim sai '00.00'

Remove todos os withs

depois que remover e conseguir compilar dai vamos ver

guimamonteiro · 19 Março

Tirei todos Withs como vc sugeriu ... da um erro como se eu tivesse enviado 99 imóveis, e só passou uma vez pela rotina ... em anexo esta o erro dado, a rotina, o upload não foi, vou por aqui embaixo.

//with ACBrNFSeX1 do
//begin
ACBrNFSeX1.NotasFiscais.NumeroLote := Lote;
ACBrNFSeX1.NotasFiscais.Transacao := True;

Somas := soma(Locador);
if Somas > 0.1 then // era < 10, mudei em 01/06/2022 Pri
begin
DM.QryLocador.SQL.Clear;
DM.QryLocador.SQL.Add('select nome,endereco,cidade,cnpj,cpf,im,ie,tipo_logradouro,tipo_bairro,numero,bairro,complemento,estado,cep,email,iss,ir_nfse');
DM.QryLocador.SQL.Add('from locadores where codigo='+QuotedStr(QryLocs.FieldByName('locador').AsString));
DM.QryLocador.Close;
DM.QryLocador.Open;

//with NotasFiscais.New.NFSe do
//begin
if ACBrNFSeX1.Configuracoes.Geral.Provedor in [proISSCampinas, proISSDSF, proSiat] then
ACBrNFSeX1.NotasFiscais.New.NFSe.SeriePrestacao := '99'
else
ACBrNFSeX1.NotasFiscais.New.NFSe.SeriePrestacao := '1';

ACBrNFSeX1.NotasFiscais.New.NFSe.IdentificacaoRps.Numero := FormatFloat('#########0', RPS ); //NumNFSe
ACBrNFSeX1.NotasFiscais.New.NFSe.IdentificacaoRps.Serie := 'NF';
ACBrNFSeX1.NotasFiscais.New.NFSe.IdentificacaoRps.Tipo := trRPS;
ACBrNFSeX1.NotasFiscais.New.NFSe.DataEmissao := Now;
ACBrNFSeX1.NotasFiscais.New.NFSe.DataEmissaoRps := Now;
ACBrNFSeX1.NotasFiscais.New.NFSe.Competencia := Now;
ACBrNFSeX1.NotasFiscais.New.NFSe.DataEmissaoRPS := Now;
ACBrNFSeX1.NotasFiscais.New.NFSe.NaturezaOperacao := no1;

ACBrNFSeX1.NotasFiscais.New.NFSe.RegimeEspecialTributacao := retNenhum;
ACBrNFSeX1.NotasFiscais.New.NFSe.OptanteSimplesNacional := snNao;
ACBrNFSeX1.NotasFiscais.New.NFSe.IncentivadorCultural := snNao;
ACBrNFSeX1.NotasFiscais.New.NFSe.Producao := snSim;
ACBrNFSeX1.NotasFiscais.New.NFSe.StatusRps := srNormal;

if (Somas >= 666.67) and (DM.QryLocador.FieldByName('Cnpj').AsString <> '') and
(DM.QryLocador.FieldByName('ir_nfse').AsString = 'S') then
begin
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorServicos := Somas;
if (somas * 0.015) > 9.99 then
begin
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.AliquotaIr := 1.5;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorIr := (somas * 0.015);
end
else
begin
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.AliquotaIr := 0;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorIr := 0;
end;
end
else
begin
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorServicos := Somas;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.AliquotaIr := 0;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorIr := 0;
end;

if DM.QryLocador.FieldByName('Cnpj').AsString = '' then
begin
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorDeducoes := 0.00;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorPis := 0;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.AliquotaPis := 0;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorCofins := 0;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.AliquotaCofins := 0;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorCsll := 0;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.AliquotaCsll := 0;
end
else
begin
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorDeducoes := 0.00;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorPis := 0;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.AliquotaPis := 0;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorCofins := 0;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.AliquotaCofins := 0;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorCsll := 0;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.AliquotaCsll := 0;
// a pedido do Cledson em 16/03/2022 - deveria ser, acima de 215,05 + ser PJ
// Servico.Valores.ValorDeducoes := 0.00;
// Servico.Valores.ValorPis := (somas * 0.0065);
// Servico.Valores.AliquotaPis := 0.65;
// Servico.Valores.ValorCofins := (somas * 0.03);
// Servico.Valores.AliquotaCofins := 3;
// Servico.Valores.ValorCsll := (somas * 0.01);
// Servico.Valores.AliquotaCsll := 1;
end;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorIss := RoundTo5(ValorISS, -2);
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorInss := 0;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.AliquotaInss := 0;

ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.IssRetido := stNormal;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorIssRetido := 0.00;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.OutrasRetencoes := 0.00;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.DescontoIncondicionado := 0.00;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.DescontoCondicionado := 0.00;

ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.BaseCalculo := ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorServicos -
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorDeducoes -
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.DescontoIncondicionado;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.Aliquota := 5;

ValorISS := ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.BaseCalculo * ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.Aliquota / 100;

ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorLiquidoNfse := ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorServicos -
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorPis - ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorCofins -
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorInss - ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorIr -
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorCsll - ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.OutrasRetencoes -
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorIssRetido - ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.DescontoIncondicionado -
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.DescontoCondicionado;

// TnfseResponsavelRetencao = ( ptTomador, rtPrestador );
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.ResponsavelRetencao := rtPrestador;

// ItemListaServico Locação: 10.05 Condominio: 17.12
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.ItemListaServico := '10.05';
// tag nova Servico.CodigoNBS := '';
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.CodigoCnae := '682260000';
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.CodigoTributacaoMunicipio := '63194'; //0901
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Tributacao := ttTributavel;

{Marcelo Mendes: Fala meu amigo, tudo bem?
Marcelo Mendes: Dá uma analisada no seu código
ResponsavelRetencao := ptTomador;
então também SituacaoTrib := tsTibutadaNoTomador

Em resumo, se é o tomador que vai fazer a retenção dos
devidos impostos a tributação ocorre lá...
Marcelo Mendes: só reforça com contador essa informação e segue os ajustes..}
ACBrNFSeX1.NotasFiscais.New.NFSe.SituacaoTrib := tsTributadaNoPrestador;//tsTibutadaNoTomador;//

if DM.QryLocador.FieldByName('iss').AsString = 'N' then
begin
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.IssRetido := stNormal;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorIssRetido := 0.00;
ACBrNFSeX1.NotasFiscais.New.NFSe.TipoRecolhimento := '1';//'stNormal'
end
else
begin
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.IssRetido := stRetencao;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.Valores.ValorIssRetido := 0.00;
ACBrNFSeX1.NotasFiscais.New.NFSe.TipoRecolhimento := '2';//'stRetencao';
end;

ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.CodigoMunicipio := IntToStr(PegaCodigoSiafi('CAMPINAS'));
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.UFPrestacao := 'SP';
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.ExigibilidadeISS := exiExigivel;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.MunicipioIncidencia := StrToIntDef(IntToStr(PegaCodigoSiafi('CAMPINAS')), 0);

Valor_Ibpt := Somas * (17.48/100);
ACBrNFSeX1.NotasFiscais.New.NFSe.OutrasInformacoes := 'COMISSOES ENTRE '+EDataI.Text+' E '+EDataF.Text+
' Valor Aproximado dos Tributos: R$ '+FloatToStrF(Valor_Ibpt, ffNumber, 12, 2)+' (17,48%) Fonte IBPT' ;

ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.ItemServico.Add.Descricao := 'COMISSOES ENTRE '+EDataI.Text+' E '+EDataF.Text;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.ItemServico.Add.Quantidade := 1;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.ItemServico.Add.ValorUnitario := Somas;
ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.ItemServico.Add.ValorTotal := Somas;
// Somente o provedor SimplISS permite infomar mais de 1 serviço
// with ACBrNFSeX1.NotasFiscais.New.NFSe.Servico.ItemServico.Add do
// begin
// Descricao := 'COMISSOES ENTRE '+EDataI.Text+' E '+EDataF.Text;
// Quantidade := 1;
// ValorUnitario := Somas;
// ValorTotal := 1 * (Somas);
// end;

{$REGION 'PRESTADOR'}
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.IdentificacaoPrestador.CNPJ := '52360229000130';
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.IdentificacaoPrestador.InscricaoMunicipal := '0233811';
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.RazaoSocial := 'CMB IMOVEIS E ADMINISTRACAO CONDOMINIAL LTDA';
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.cUF := UFtoCUF('SP');
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.Endereco.CodigoMunicipio := IntToStr(PegaCodigoSiafi('CAMPINAS'));
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.Endereco.Endereco := 'AVENIDA FRANCISCO GLICERIO';
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.Endereco.Numero := '1713';
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.Endereco.Bairro := 'CENTRO';
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.Endereco.CodigoMunicipio := IntToStr(PegaCodigoSiafi('CAMPINAS'));;
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.Endereco.xMunicipio := 'CAMPINAS';//CodIBGEToCidade(StrToIntDef(IntToStr(PegaCodigoSiafi('CAMPINAS')), 0));
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.Endereco.UF := 'SP';
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.Endereco.CodigoPais := 1058;
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.Endereco.xPais := 'BRASIL';
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.Endereco.CEP := '13012000';
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.Contato.Telefone := '192129790';
ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.Contato.Email := '[email protected]';
{$ENDREGION 'PRESTADOR'}

{$REGION 'TOMADOR'}
if DM.QryLocador.FieldByName('Cnpj').AsString <> '' then
CPFCNPJTomador := ToNumber(DM.QryLocador.FieldByName('Cnpj').AsString)
else
CPFCNPJTomador := ToNumber(DM.QryLocador.FieldByName('Cpf').AsString);
ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.IdentificacaoTomador.CpfCnpj := CPFCNPJTomador;
if DM.QryLocador.FieldByName('iss').AsString = 'N' then
ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.IdentificacaoTomador.InscricaoMunicipal := ToNumber('000000000')
else
ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.IdentificacaoTomador.InscricaoMunicipal := ToNumber(DM.QryLocador.FieldByName('Im').AsString);

ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.RazaoSocial := RetiraAcentos(DM.QryLocador.FieldByName('Nome').AsString);
ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.Endereco.Endereco := Copy(DM.QryLocador.FieldByName('Tipo_Logradouro').AsString+' '+
RetiraAcentos(DM.QryLocador.FieldByName('Endereco').AsString),1,50);
ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.Endereco.Numero := DM.QryLocador.FieldByName('Numero').AsString;
ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.Endereco.Complemento := RetiraAcentos(DM.QryLocador.FieldByName('Complemento').AsString);
ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.Endereco.Bairro := DM.QryLocador.FieldByName('Tipo_Bairro').AsString+' '+
RetiraAcentos(DM.QryLocador.FieldByName('Bairro').AsString);
ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.Endereco.CodigoMunicipio := IntToStr(PegaCodigoSiafi(RetiraAcentos(DM.QryLocador.FieldByName('Cidade').AsString)));
ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.Endereco.UF := 'SP';
ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.Endereco.CodigoPais := 1058;
ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.Endereco.CEP := ToNumber(DM.QryLocador.FieldByName('Cep').AsString);
ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.Endereco.xPais := 'BRASIL';
//Tomador.IdentificacaoTomador.InscricaoEstadual := ToNumber(DM.QryLocador.FieldByName('ie').AsString);
ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.Contato.Email := DM.QryLocador.FieldByName('Email').AsString;
ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.AtualizaTomador := snNao;
ACBrNFSeX1.NotasFiscais.New.NFSe.Tomador.TomadorExterior := snNao;
{$ENDREGION 'TOMADOR'}

//end;
end;
//end;

Erro Envio.txt

Juliomar Marchetti · 19 Março

Quando precisar postar trechos de codigo anexe a não poste

o problema é que pra cada linha tu tem um New

        ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.Endereco.CEP                               := '13012000';
        ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.Contato.Telefone                           := '192129790';
        ACBrNFSeX1.NotasFiscais.New.NFSe.Prestador.Contato.Email                              := '[email protected]';
        {$ENDREGION 'PRESTADOR'}

olhe. tu tem que tratar.

guimamonteiro · 19 Março

Boa tarde a todos ... Atualizei de novo ACBR ... conferi o código linha por linha "ENVIAR LOTE RPS SÍNCRONO" esta do mesmo jeito, mas eu seto direto Servico.ItemListaServico := '10.05'; e ele sai '00.00' no xml, retornando erro abaixo.

Erro(s):
Código : X800
Mensagem: Erro de Validação: --> 1824 - Element 'ItemListaServico': '00.00' is not a valid value of the atomic type 'tsItemListaServico'.

Eu to usando SCHEMA ISSCAMPINAS 2.03, copiei arquivo ''TabServicos.txt'' para a pasta do exe, troquei objeto direto pelo exemplo da ACBr, mudei as configurações dele tb ...

Creio eu q esta faltando setar alguma tag ou falta algum arquivo, pq eu seto e ele muda ...

Obrigado mais uma vez

guimamonteiro · 20 Março

Bom dia a todos ... eu creio q esteja faltando alguma configuração ou algum arquivo pq debugando ele passa na linha e todas as outras tags são preenchidas, menos essa, e o método esta igual ao exemplo da ACBr.

<Valores>
<ValorServicos>1540.00</ValorServicos>
</Valores>
<IssRetido>2</IssRetido>
<ItemListaServico>00.00</ItemListaServico>
<CodigoCnae>682260000</CodigoCnae>
<CodigoTributacaoMunicipio>63194</CodigoTributacaoMunicipio>
<Discriminacao>{[[Descricao=COMISSOES ENTRE 01/03/2025 E 31/03/2025][ItemServico=][Quantidade=1][ValorUnitario=1540][ValorServico=1540][ValorBaseCalculo=0][Aliquota=0][DescontoIncondicionado=0]]}</Discriminacao>
<CodigoMunicipio>6291</CodigoMunicipio>
<ExigibilidadeISS>1</ExigibilidadeISS>
<MunicipioIncidencia>0006291</MunicipioIncidencia>

Desculpem a encheção, mas realmente não estou sabendo arrumar isso, não achei tópicos iguais na internet ...

Mais uma vez, muito obrigado

Juliomar Marchetti · 20 Março

primeiro tem que ver qual tu deve usar conforme o provedor

dai ver se o provedor deixa ter N serviços

ou somente um

Juliomar Marchetti · 20 Março

bom vamos seguir um só lugar

Entrar

Sobre nós...

NFSe Campinas/SP - ItemListaServico

Recommended Posts

guimamonteiro

guimamonteiro

Juliomar Marchetti

guimamonteiro

Juliomar Marchetti

guimamonteiro

Juliomar Marchetti

guimamonteiro

guimamonteiro

Juliomar Marchetti

Juliomar Marchetti

Links Rápidos

Links Rápidos

Parcerias

Clube Pro

SOBRE

Sobre nós...

Informação Importante

	Juliomar Marchetti	skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br