tiagopassarella

Bom Dia pessoal... espero que vcs possam me ajudar pois eu ja nao sei mais o que fazer.. estou com um problemão que é o seguinte... eu tenho um cliente que é Simples Nacional... e usa o SAT Bematech, agora ele mudou para lucro presumido, eu ja mudei no sistema para regime normal... alimento no componente conforme abaixo para regime normal... porem o xml e criado com a tag cregtrib=1 sendo que eu estou passando = 3.. o que pode ser isso ? ACBrSAT.Config.emit_cRegTrib := RTRegimeNormal; Emit.cRegTrib := RTRegimeNormal; Emit.cRegTribISSQN := RTISSMicroempresaMunicipal; fico no aguardo de uma posição e desde ja agradeço pela ajuda...

vou testar essa unit porem so pra retificar... o 2 nao é intermediario... eu estou passando pelo ACBR a seguinte opção Servico.Valores.IssRetido := stRetencao; Servico.ResponsavelRetencao := rtPrestador; é assim qe estou informando no acbr...

sim eu sei mas talvez vc nao tenha entendido... isso foi depois que tive de entrar na versao do webiss 2.02 e a prefeitura aki so valida nessa versao... entao nao tem como eu voltar a versao e isso tbm nao é uma solução ne.... solução e´resolver o problema... vc nao consegue me ajudar com o material que passei ai ?

alguem poderia me ajudar ?? nao sei amis o qeu fazer e estou com 6 clientes que a mao na minha garganta ja..kkkkkkkkkkkkk antes saia de boa... depois que mudou a versao ficou assim... fico no aguardo..

testei retendo os impostos olha o retorno que sai... 10223-rec-soap.xml 10223-rec.xml 10223-env-lot-soap.xml 10223-env-lot.xml segue os xmls em anexo...

sim eu ja faço isso porem sem a alteração a cima nao da certo...

juliomar conseguiu ver alguma coisa ? estou precisando atualizar os fontes e precisava ver isso... att Tiago Passarella

Pessoal bom dia... ve se vcs conseguem me ajudar pois nao to sabendo mais como fazer... na minha cidade EXTREMA / MG eu uso anfse webiss versao 2.02. valida e sai de boa... porem tem alguns casos em que da uma mensagem de erro... e nao consigo validar, eu faço retenção de inss, coloco como substituto tributario em fim tudo que eu posso eu faço e nao vai... sai a seguinte mensagem... responsavel/retentor nao informado. onde é essa tag de aliemtnação do responsavel retentor ? pois eu ja informa ou como 1 ou como 2... mas nao ta rolando... vou anexar o xml do rps e a imagem da msg pra vcs avaliarem por favor... att Tiago Passarella 10219-env-lot-soap.xml 10219-rec.xml 10219-rec-soap.xml 10219-env-lot.xml

segue a unit para avaliação meu amigo... ACBrNFSeDANFSeFR.pas

pessoal eu fiz uma alteração no ACBR para que funcione gostaria de saber se e aceito para subir a SVN... pois como nao obtive resposta eu tive de fazer algo... no arquivo ACBrNFSeDANFSeFR que esta em anexo eu fiz a seguinte alteração // ANTES ERA ASSIM FieldByName('ValorIssRetido').AsFloat := ValorIssRetido; ESTA VARIAVEL ValorIssRetido SEMPRE VOLTA ZERO... NUNCA TEM VALOR... ATE PQ NAO TEM TAG PRA ALIEMNTA-LA ENTAO RESOLVI FAZENDO O TRATAMENTO ABAIXO. // FICOU ASSIM if Copy(SituacaoTributariaDescricao(IssRetido),1,1)='1' then begin FieldByName('ValorIssRetido').AsFloat := ValorIss; end else begin FieldByName('ValorIssRetido').AsFloat := ValorIssRetido; end; Fico no aguardo de uma resposta concreta... att Tiago Passarella

alguem sabe como ajudar ??

bom dia pessoal... estou com um problema e nao consegui resolver espero que vcs possam me ajudar... conforme xml em anexo eu tenho uma nfse gerada com retenção de ISS... porem a mesma nao aparece como retido = SIM e nem o valordeissretido fica sempre como 0,00 na impressao do danfe... como corrigir isso ? segue xml para analise... att Tiago PassarellaNFSe_201800000000040_6Q7S-LP17.xml

pois e eu acabei de atualizar os fontes do svn e nao encronto na pasta os schemas vc pode me dar o caminho... ja pesquisei na pasta todoa e nada ainda...

Boa tarde amigos... estou com uma grande duvida aki... o componetne acbrANe faz averbação para a porto seguro ? eu vi com a porto seguro que eles tem uma unit em delphi para averbação mas estou em duvida se o componente acbr ja esta preparado pra isso sendo assim nao usaria a unit deles... a outra questa é ref a pasta schemas onde se encontra os schemas do acbrane ??? obrigado...

ok obrigado italo... assim que estiver la se puder nos avisar... assim deixamos atualizado como tem de ser... obrigado pela atenção de sempre...

Italo eu fiz umas alterações na UNIT que segue em anexo veja se assim pode ser aceito para colocar no SVN pois acredito que todos que estao usando o webissv2 estao com mesmo problema... no inicio eu segui a sua recomendação realizando a seguinte alteração.. if (FProvedor in [proCoplan,proWebISSv2]) then e mais no final as seguintes linhas if NFSe.Servico.Valores.ValorIss = 0 then NFSe.Servico.Valores.ValorIss := Leitor.rCampo(tcDe2, 'ValorIss'); // aalterei aki // NFSe.Servico.Valores.BaseCalculo := Leitor.rCampo(tcDe2, 'BaseCalculo'); if NFSe.Servico.Valores.Aliquota = 0 then NFSe.Servico.Valores.Aliquota := Leitor.rCampo(tcDe3, 'Aliquota'); // alterei aki alterei essa linha pois la no inicio do codigo ja e alimentado com os valores nesses pontos...porem quando chega ai embaixo ele estava zerando os valores uma vez que essas tags nao estavam sendo encontradas nesse nó (nivel+1). entao coloquei que so entrar se ele for = 0. assim acredito que nao prejudica ninguem... segue em anexo a unit alterada... pnfsNFSeR.pas

bom dia italo... nao funcionou apos atulizar os fontes voltou tudo como era antes.... sem aparecer os valores dos impostos... o valor liquido estar igual ao valor da base de calculo...

entao italo na verdade eu fiz um QUEBRA GALHO so pra sanar o problemas do cliente que estava esperando... talvez eu tenha me expressado mau mas nem era pra atualizar no SVN o que eu fiz mesmo uma vez que nem tenho um conhecimento a fundo do componente. mas vou atualizar os fontes pra ver a sua correção e logo mais ja digo como ficou... mas obrigado pela explicação italo... e sempre bom poder contar com vcs... att Tiago

segue a unit que eu alterei ... lembrando que eu so alterei o abrasfv2 acredito que deverao ser colocado pra todoss.... pnfsNFSeR.pas

resolvi da seguinte forma... nao sei se é a correta mas temporariamente funcionou... gostaria de ver com vcs... pra gente arrumar ja no SVN no inicio da funcao function TNFSeR.LerNFSe_ABRASF_V2: Boolean; eu adicionei 4 linhas conforme abaixo;..... fazendo o antes e depois.... /////////////////////////////////// // ANTES /////////////////////////////////// if Leitor.rExtrai(3, 'ValoresNfse') <> '' then begin NFSe.ValoresNfse.BaseCalculo := Leitor.rCampo(tcDe2, 'BaseCalculo'); NFSe.ValoresNfse.Aliquota := Leitor.rCampo(tcDe3, 'Aliquota'); NFSe.ValoresNfse.ValorIss := Leitor.rCampo(tcDe2, 'ValorIss'); NFSe.ValoresNfse.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse'); if (FProvedor = proCoplan) then begin NFSe.Servico.Valores.BaseCalculo := Leitor.rCampo(tcDe2, 'BaseCalculo'); NFSe.Servico.Valores.Aliquota := Leitor.rCampo(tcDe3, 'Aliquota'); NFSe.Servico.Valores.ValorIss := Leitor.rCampo(tcDe2, 'ValorIss'); NFSe.Servico.Valores.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse'); end; end; // fim ValoresNfse ///////////////////////////// // DEPOIS ///////////////////////////// if Leitor.rExtrai(3, 'ValoresNfse') <> '' then begin NFSe.Servico.Valores.BaseCalculo := Leitor.rCampo(tcDe2, 'BaseCalculo'); // adicionei NFSe.Servico.Valores.Aliquota := Leitor.rCampo(tcDe3, 'Aliquota'); // adicionei NFSe.Servico.Valores.ValorIss := Leitor.rCampo(tcDe2, 'ValorIss'); // adicionei NFSe.Servico.Valores.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse'); // adicionei NFSe.ValoresNfse.BaseCalculo := Leitor.rCampo(tcDe2, 'BaseCalculo'); NFSe.ValoresNfse.Aliquota := Leitor.rCampo(tcDe3, 'Aliquota'); NFSe.ValoresNfse.ValorIss := Leitor.rCampo(tcDe2, 'ValorIss'); NFSe.ValoresNfse.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse'); if (FProvedor = proCoplan) then begin NFSe.Servico.Valores.BaseCalculo := Leitor.rCampo(tcDe2, 'BaseCalculo'); NFSe.Servico.Valores.Aliquota := Leitor.rCampo(tcDe3, 'Aliquota'); NFSe.Servico.Valores.ValorIss := Leitor.rCampo(tcDe2, 'ValorIss'); NFSe.Servico.Valores.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse'); end; end; // fim ValoresNfse E ALTEREI TBM A SEGUINTE PARTE DO CODIGO ABAIXO TBM MOSTRANDO O ANTES E DEPOIS... ///////////////////////////// //ANTES ///////////////////////////// if (Leitor.rExtrai(Nivel+1, 'Valores') <> '') then begin NFSe.Servico.Valores.ValorServicos := Leitor.rCampo(tcDe2, 'ValorServicos'); NFSe.Servico.Valores.ValorDeducoes := Leitor.rCampo(tcDe2, 'ValorDeducoes'); NFSe.Servico.Valores.ValorPis := Leitor.rCampo(tcDe2, 'ValorPis'); NFSe.Servico.Valores.ValorCofins := Leitor.rCampo(tcDe2, 'ValorCofins'); NFSe.Servico.Valores.ValorInss := Leitor.rCampo(tcDe2, 'ValorInss'); NFSe.Servico.Valores.ValorIr := Leitor.rCampo(tcDe2, 'ValorIr'); NFSe.Servico.Valores.ValorCsll := Leitor.rCampo(tcDe2, 'ValorCsll'); NFSe.Servico.Valores.OutrasRetencoes := Leitor.rCampo(tcDe2, 'OutrasRetencoes'); NFSe.Servico.Valores.ValorIss := Leitor.rCampo(tcDe2, 'ValorIss'); NFSe.Servico.Valores.BaseCalculo := Leitor.rCampo(tcDe2, 'BaseCalculo'); NFSe.Servico.Valores.Aliquota := Leitor.rCampo(tcDe3, 'Aliquota'); if (FProvedor in [proActconv202]) then NFSe.Servico.Valores.Aliquota := (NFSe.Servico.Valores.Aliquota * 100); if (FProvedor in [proActconv202, proISSe, proVersaTecnologia, proNEAInformatica, proFiorilli, proPronimv2, proVitoria]) then begin if NFSe.Servico.Valores.IssRetido = stRetencao then NFSe.Servico.Valores.ValorIssRetido := Leitor.rCampo(tcDe2, 'ValorIss') else NFSe.Servico.Valores.ValorIssRetido := 0; end else NFSe.Servico.Valores.ValorIssRetido := Leitor.rCampo(tcDe2, 'ValorIssRetido'); /////////////////////////////// //DEPOIS //////////////////////////////// if (Leitor.rExtrai(Nivel+1, 'Valores') <> '') then begin NFSe.Servico.Valores.ValorServicos := Leitor.rCampo(tcDe2, 'ValorServicos'); NFSe.Servico.Valores.ValorDeducoes := Leitor.rCampo(tcDe2, 'ValorDeducoes'); NFSe.Servico.Valores.ValorPis := Leitor.rCampo(tcDe2, 'ValorPis'); NFSe.Servico.Valores.ValorCofins := Leitor.rCampo(tcDe2, 'ValorCofins'); NFSe.Servico.Valores.ValorInss := Leitor.rCampo(tcDe2, 'ValorInss'); NFSe.Servico.Valores.ValorIr := Leitor.rCampo(tcDe2, 'ValorIr'); NFSe.Servico.Valores.ValorCsll := Leitor.rCampo(tcDe2, 'ValorCsll'); NFSe.Servico.Valores.OutrasRetencoes := Leitor.rCampo(tcDe2, 'OutrasRetencoes'); // NFSe.Servico.Valores.ValorIss := Leitor.rCampo(tcDe2, 'ValorIss'); // comentei essa linha // NFSe.Servico.Valores.BaseCalculo := Leitor.rCampo(tcDe2, 'BaseCalculo'); // comentei essa linha // NFSe.Servico.Valores.Aliquota := Leitor.rCampo(tcDe3, 'Aliquota'); // comentei essa linha if (FProvedor in [proActconv202]) then NFSe.Servico.Valores.Aliquota := (NFSe.Servico.Valores.Aliquota * 100); if (FProvedor in [proActconv202, proISSe, proVersaTecnologia, proNEAInformatica, proFiorilli, proPronimv2, proVitoria]) then begin if NFSe.Servico.Valores.IssRetido = stRetencao then NFSe.Servico.Valores.ValorIssRetido := Leitor.rCampo(tcDe2, 'ValorIss') else NFSe.Servico.Valores.ValorIssRetido := 0; end else NFSe.Servico.Valores.ValorIssRetido := Leitor.rCampo(tcDe2, 'ValorIssRetido'); pra mim funcionou assim... esta correta a solução acima ?

o problema esta nessa parte do codigo if Leitor.rExtrai(3, 'ValoresNfse') <> '' then begin NFSe.ValoresNfse.BaseCalculo := Leitor.rCampo(tcDe2, 'BaseCalculo'); NFSe.ValoresNfse.Aliquota := Leitor.rCampo(tcDe3, 'Aliquota'); NFSe.ValoresNfse.ValorIss := Leitor.rCampo(tcDe2, 'ValorIss'); NFSe.ValoresNfse.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse'); if (FProvedor = proCoplan) then begin NFSe.Servico.Valores.BaseCalculo := Leitor.rCampo(tcDe2, 'BaseCalculo'); NFSe.Servico.Valores.Aliquota := Leitor.rCampo(tcDe3, 'Aliquota'); NFSe.Servico.Valores.ValorIss := Leitor.rCampo(tcDe2, 'ValorIss'); NFSe.Servico.Valores.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse'); end; end; // fim ValoresNfse no meu caso ele entra na primeira parte onde esta NFSe.ValoresNfse.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse'); E ESTA PUXANDO CERTINHO.... porem quando vai chamar o DANFE... ele esta puxando a linha NFSe.Servico.Valores.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse'); que esta zerado... isso ocorre nos 4 campos (BaseCalculo ,Aliquota ,ValorIss ,ValorLiquidoNfse )ai que esta o problema.... como podemos corrigir isso ?? att Tiago Passarella

verifiquei a leitura do xml e a mesma esta OK.... e alguma coisa no danfe mesmo....

nao abri nao... mas o problema é que nao esta alimentando a aliquota do iss, o valor de iss e o valor liquido do iss.... ele simplesmente pega o valor do servico e copia pro valor liquido e o restando fica tudo 0,00

uso o fastreport

Bom Dia Amigos... estou com um problemao e espero que possam me ajudar... eu uso a NFSE com provedor WebiSS V2. e quando emito a nfse ele nao esta vendo na impressao o valor liquido correto... exemplo NFSE valor 600,00 iss 2% Valor ISS 12,00 totalLiquido = 588,00 o xml esta correto mas a impressao sao 600,00 como proceder ??? segue em anexo o xml... desde ja obrigado 2018000000000801-nfse.xml