EdmarFrazao

tributação e complicado , melhor perguntar ao contador. temos redução para ICMS , redução para ST Redução diferente por estado, tipo de cliente ( consumidor final, empresa, produtor rural etc, hà cálculo diferente para zona franca de Manaus e há clientes que tem redução especial devido a acordos com o fisco

https://tributei.net/blog/calculadora-difal/

https://documentacao.senior.com.br/seniorxplatform/manual-do-usuario/erp/impostos/calculo-difal.htm

Já usava o cálculo igual ao da IOB para base única, vou adotar o mesmo para base dupla https://noticias.iob.com.br/difal-do-icms-sp-adota-base-dupla-para-contribuinte/ parece que o cálculo da iob é base por fora e o o outro informado acima é cálculo por dentro(mas não tenho certeza) Mais para complicar https://tributei.net/blog/como-calcular-o-difal-por-dentro-por-fora/

Encontrei duas maneira de fazer o calculo, mas para quais casos devo aplicar as duas regras? https://noticias.iob.com.br/difal-do-icms-sp-adota-base-dupla-para-contribuinte/ no 1o Calculo o Valor a R$831,38 e no 2o calculo o valor da R$731,70 Qual seria o correto?

fiz o teste aqui, tirei a opção de permitir app não seguro e cadastrei no celular o app, gerou a senha usei acbrmail para enviar e enviou sem problemas. Então acho que ira funciona a partir de 30/03 Na minha conta gmail da empresa (gmail workspace) não funcionou(não apareceu a opção no Celular) So funcionou na minha conta gmail simples(apareceu a opção cadastrei o app e gerou a senha )

uma opção talvez funciona a partir de 30/03/ dica: ( so aparece a opção de cadastrar o APP no Celular) Boa tarde @valterpatrick, acredito que vc esteja se referindo ao gmail, correto? Na verdade é bem simples, clique no icone das iniciais do seu nome no gmail, depois clique em Gerir sua Conta Google. Depois clique na aba Segurança, do lado direito vai ter uma caixa "Como fazer Login no google" e logo abaixo "Senhas de App", note na imagem abaixo que a "Verificação em duas etapas " está selecionada, caso contrário não vaite a opção de "Senhas de App". Quando você clicar em "Senhas do APP", ele pedirá para você selecionar um APP e vai te dar várias opções como "Youtube/Email/Agenda", você deverá escolher a opção "Outros", dará um nome para o Aplicativo, pode ser qualquer nome e depois clique em "Gerar", ele gerará uma senha aleatória, basta você anotar essa senha e usá-la como senha no sistema em vez de usar a senha do Gmail padrão. Espero ter ajudado. Sucessos !!!!!

Ok corrigido obrigado

a unit acima esta com o novo LerDatas ( que não funciona com as datas invertidas na nfse) fiz a alteração para chamar o lerdatas2(procedimento antigo) vou atualizar e ver se funciona

sugestão declarei o procedimento antigo para lerdata2 e tratei no lerdata se a data esta invertida //edmar if (copy(DataStr,5,1)= '-') or (copy(DataStr,5,1)= '/') then begin Result := LerDatas2(DataStr); exit; end; ACBrXmlBase.pas

A Data esta invertida e o procedimento LerDatas não trata a data invertida unit: ACBrXmlBase o procedimento LerDatas anterior funcionava: function LerDatas(const DataStr: string): TDateTime; var xData: string; begin xData := Trim(DataStr); if xData = '' then Result := 0 else begin xData := StringReplace(xData, '-', '/', [rfReplaceAll]); // Alguns provedores retorna a data de competencia com o ano, mês e dia e // sem a barra exemplo <Competencia>20220121</Competencia> // Correção: Inclusão da barra "/" if (Pos('/', xData) = 0) and (Length(xData) = then begin if Copy(xData, 1, 4) = IntToStr(YearOf(Date)) then xData := copy(xData, 1, 4) + '/' + copy(xData, 5, 2) + '/' + copy(xData, 7, 2) else xData := copy(xData, 1, 2) + '/' + copy(xData, 3, 2) + '/' + copy(xData, 5, 4); end; // Alguns provedores retorna a data de competencia só com o ano e mês e // sem a barra exemplo <Competencia>202111</Competencia> // Correção: Inclusão da barra "/" if (Pos('/', xData) = 0) and (Length(xData) = 6) then begin if Copy(xData, 1, 4) = IntToStr(YearOf(Date)) then // if Copy(xData, 1, 2) = Copy(IntToStr(YearOf(Date)), 1, 2) then xData := copy(xData, 1, 4) + '/' + copy(xData, 5, 2) else xData := copy(xData, 1, 2) + '/' + copy(xData, 3, 4); end; // Alguns provedores retorna a data de competencia só com o mês e ano // Correção: Inclusão do dia na data if Length(xData) = 7 then begin if Pos('/', xData) = 3 then xData := '01/' + xData else xData := xData + '/01'; end; if (Length(xData) >= 16) and CharInSet(xData[11], ['T', ' ']) then begin if Pos('/', xData) = 5 then // Le a data/hora no formato YYYY/MM/DDTHH:MM:SS Result := EncodeDate(StrToInt(copy(xData, 1, 4)), StrToInt(copy(xData, 6, 2)), StrToInt(copy(xData, 9, 2))) + EncodeTime(StrToIntDef(copy(xData, 12, 2), 0), StrToIntDef(copy(xData, 15, 2), 0), StrToIntDef(copy(xData, 18, 2), 0), 0) else // Le a data/hora no formato DD/MM/YYYYTHH:MM:SS Result := EncodeDate(StrToInt(copy(xData, 7, 4)), StrToInt(copy(xData, 4, 2)), StrToInt(copy(xData, 1, 2))) + EncodeTime(StrToIntDef(copy(xData, 12, 2), 0), StrToIntDef(copy(xData, 15, 2), 0), StrToIntDef(copy(xData, 18, 2), 0), 0) end else begin if Pos('/', xData) = 5 then // Le a data no formato YYYY/MM/DD Result := EncodeDate(StrToInt(copy(xData, 1, 4)), StrToInt(copy(xData, 6, 2)), StrToInt(copy(xData, 9, 2))) else // Le a data no formato DD/MM/YYYY Result := EncodeDate(StrToInt(copy(xData, 7, 4)), StrToInt(copy(xData, 4, 2)), StrToInt(copy(xData, 1, 2))); end; end; end;

ao ler o xml para imprimir da erro na leitura da data unit: ACBrNFSeXLerXml_ABRASFv2 linha 482 e 667 NFSe.DataEmissao := ObterConteudo(AuxNode.Childrens.FindAnyNs('DataEmissao'), tcDat); o xml gravado tem a data assim: <DataEmissao>2022-03-02T09:57:51.79</DataEmissao> como resolver? 202200000000018.xml

Agora só tem duas opções: Receber o xml do fornecedor Esperar aparecer no DistribuicaoDFePorChaveNFe, mas se consultar duas vezes seguidas sem ter entre uma hora será bloqueado 1 hora, bem que poderiam ter um mínimo de 10 minutos entre consulta sem documentos

Desculpe, creio que me confundi com: retreal retsimples que não devem ser usados com o provedor webiss. Esta correto a implementação, não precisa correção. obrigado

Infelizmente não sei onde fazer a alteração, pois será específico par website v2

Webiss v2 Material de Apoio: https://drive.google.com/open?id=0Bw7RBBzWF6breGxiS1c4ZVhwS2M Schemas\NFSe\WebISS\2.02\nfse.xsd <xsd:simpleType name="tsRegimeEspecialTributacao"> <xsd:restriction base="xsd:byte"> <xsd:pattern value="1|2|3|4|5|6" /> </xsd:restriction> </xsd:simpleType> O Campo sRegimeEspecialTributacao deve ter os códigos e valores conforme abaixo: Código Validos: Código de identificação do regime especial de tributação Porem Lucro Real e Presumo ( deve passar nenhum) 1 – Microempresa municipal 2 – Estimativa 3 – Sociedade de profissionais 4 – Cooperativa 5 – Microempresário Individual (MEI) 6 – Microempresário e Empresa de Pequeno Porte (ME EPP) Creio que deva ser criado a function abaixo, porem não sei onde e como implementar function _RegimeEspecialTributacaoToStr(const t: TnfseRegimeEspecialTributacao): String; begin result := EnumeradoToStr(t, ['','1','2','3','4','5','6'], [retNenhum, retMicroempresaMunicipal, retEstimativa, retSociedadeProfissionais, retCooperativa, retMicroempresarioIndividual, retMicroempresarioEmpresaPP]); end;

Envio, consulta Lote e consulta Rps funciona como Webiss v2

Sim as duas alterações deram certo, obrigado e Bom Trabalho,

A linha 904 esta comentada. se descomentar funciona. Não sei o motivo que foi comentado unit: ACBrNFSeXProviderABRASFv2 linha:904 ANota := TACBrNFSeX(FAOwner).NotasFiscais.Items[TACBrNFSeX(FAOwner).NotasFiscais.Count-1]; ACBrNFSeXProviderABRASFv2.pas

Vou verificar, e se consigo corrigir

fiz a alteraçao na unit e gerou , enviou autorizou so falta a tag RegimeEspecialTributacao :=retMicroempresarioEmpresaPP; ( para levar 6 para a propriedade ou seja para webiss v2 retSimplesNacional tem que ser igual a 6 WebISS.GravarXml.pas

Fiz tudo e: 1)Consulta por lote habilitei ACBrNFSeX1.configuracoes.Arquivos.Salvar := true; Salvou o xml da Nota e a opção imprimir Danfse funcionou 2)Consulta por Rps (continuou o erro) Unit: ACBrNFSeXProviderBase procedure TACBrNFSeXProvider.SalvarXmlNfse(aNota: NotaFiscal); NomeArq := TACBrNFSeX(FAOwner).GetNumID(aNota.NFSe) + '-nfse.xml'; aNota esta nil por isto o erro o xml não é salvo , mas se rodar ACBrNFSeX1.NotasFiscais.Imprimir; ( a Nfs imprime)

escrevi errado, o correto o webservice aceita a tag tsRegimeEspecialTributacao com codigo de 1 a 6 ( sendo o 6 Simples nacional e o nosso correspondente esta diferente tive que passar RegimeEspecialTributacao :=retMicroempresarioEmpresaPP; ( para levar 6 para a propriedade ou seja para webiss v2 retSimplesNacional tem que ser igual a 6

Provedor Webiss v2 ao gerar <ItemListaServico>01.05</ItemListaServico> deve ser: <ItemListaServico>0105</ItemListaServico> os codigo da tag RegimeEspecialTributacao deve ser 1,2,3,4,5,6 <RegimeEspecialTributacao>6</RegimeEspecialTributacao> Sendo 6-Simples nacional

estou usando o demo acbrNfseX Quando consulta : Consultar NFSe por RPS da erro e não salva o pdf nem a Nfse msg que retorna: Método Executado: ConsultarNFSePorRps Parâmetros de Envio Numero do Rps : 20213047 Série do Rps : 21 Parâmetros de Retorno Numero do Lote: Numero do Prot: Situação : Data : 04/11/2021 Desc. Situação: Link : Sucesso : True Erro(s): Código : X999 Mensagem: Erro de Conexão: Access violation at address 008E8E8B in module 'ACBrNFSeX_Exemplo.exe'. Read of address 00000004 Correção: --------- NFS-e Numero....: 202100000003047 Cod. Verificacao: xxx-E1WR Prestador.......: S.E. SISTEMAS LTDA Tomador.........: xxxx da Costa o Pdf não é salvo Quando mando imprimir o arquivo retornado: ele e mostrado todo em branco ( como se não tivesse lido as tags) Arquivo Carregado de: D:\Testes\ACBrNFSeX\Delphi\DOCS\2021304721-comp-nfse.xml Nota Numero: Código de Verificação: Data de Emissão: 30/12/1899