guimamonteiro

Boa tarde meu caro, POR ACASO o provedor proISSCampinas não aceita lote de 50 ???? Onde consigo essa informação por favor .... eu gerava lote de 50, tentei agora e ta falando de 'mais q 1', já imaginou mandar 1300 notas uma por uma ... Desde já agredecido

Bom diaaaa, resolvido meu problema, o provedor antigo aceitava 2 itens e agora não mais, por isso zerava a ListaItens. SUPER MEGA OBRIGADO A TODOS (Juliomar)

@@Patrick Knopf ainda não, me enrolei nesse tópico: Se puder, me chama no zap 19-99791-1907 pf

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

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

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

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'

Atualizei e instalei hoje de novo, o erro agora mudou, 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, com zeros à esquerda, à direita e deu a mesma coisa, sai '00.00' no XML Alguém consegue me ajudar por favor ... Desde já muito agradecido

Tentei tb passar com zeros à esquerda e deu mesmo erro ... Gratidã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

Bom diaaaaa .... nova NFSe de Campinas/SP começou a valer pra hoje e esta me retornando: Erro(s): Código : X001 Mensagem: Serviço não implementado pelo Provedor. Já emito essa NFSe há anos, atualizei os fontes da ACBr, Schemas ... Alguém me ajuda por favor Desde já agradecido

Aparentemente estão em dia, já reinstalei tudo ... vou fazer os testes ... Brigadão Mestre Julio

Boa tarde a todos, gostaria de saber dos moderadores sobre o envio de NFSe, se foi atualizado. Sou de Campinas/SP e soube q teremos mudanças no dia 16/03 ... os fontes foram atualizados com as mudanças ??? Desde já, muito agradecido, Guilherme

Não achei tb ... to passando isso pro Cliente, qq coisa volto aqui, brigadão Grande Mestre

Essa do Produto eu já preencho, e às vezes pode ter mais de uma cfop, vários produtos, o contador disse q tem q ter no cabeçalho a natureza de operação, igual na NFe (Ide.natOp := QryNotas.FieldByName('natureza_operacao').AsString;) e isso q não achei no SAT. Brigadão mais uma vez