EdmarFrazao

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

AcbrNfsex Imprimir DANFSe Provedor Webiss 2 não imprime provedor:Webiss v2 (Formiga/3126109/MG) Consultou NFSe por RPS o xml é retornado mas quando imprime fica todo em branco, não esta lendo as tags segue em anexo arquivo retorno da consulta por Rps e por Lote Retorno.zip

Funcionou. Creio que foi adicionado em todos os projetos o comando RttiSetProp(frxPDFExport, 'Transparency', 'False'); units alteradas: ACBrBPeDABPEFR, ACBrCTeDACTEFR, ACBrGNREGuiaFRDM, ACBrMDFeDAMDFEFR, ACBrNFeDANFEFRDM, ACBrNFeDANFEFRDM, ACBrNFSeDANFSeFR obrigado pela atualização.

alguma posição da alteração? A alteração precisa ser feita em todos os projetos que usam Fastreport

Estou gerando no Delphi 11 com o Fast 2021.003(versão Standard), e não tive o problema relatado mas com relação a tamanho a propriedade traz mais efeito frxPDFExport.Transparency := FALSE;

seria interessante declarar a função RttiSetProp em uma unit para ser compartilhada com todos os projetos que usaram a mesma

Usei a mesma rotina para Cte e funcionou também segue ACBrCTeDACTEFR.pas

fiz o Teste no Fast 2021.3 e funcionou

Poderia usar a propriedade if frxreport.Version >= '6.0.0' mas não sei se tem no fast 4

Não seria melhor pela versão do delphi, Quais versões de Delphi ainda estariam usando Fast 4? Se houver varios com Fast teria que ter uma diretiva de compilação no instalador(mais trabalhoso ) O pdf fica de 4x ou mais maior e deve esta afetando todos os componentes acbr que geram pdf com fast. Um exemplo pdf deu 500k versos 1500k so mudando a propriedade A propriedade esta no Lazarus também talvez afete ( não uso) https://www.fast-report.com/en/blog/show/make-PDF-from-Delphi-Lazarus-CBuilder/ {Set whether to export images with transparency} frxPDFExport1.Transparency := True;