Dalvan

Boa tarde! Achei uma tag errada na geração do SPED ECF, Registro X450. ACBrECFBloco_X_Class.pas

Boa Tarde ! Fiz alguns ajustes referente ao layout 5.00 do SPED ECF , para ano calendário 2018 e 2019. Implementado também os novos registro K915 e K935. Arquivo em anexo. Att. Dalvan ACBrSPEDECF_Versao500.zip

Muito obrigado pela resposta, entendido !

Bom dia. Sugiro uma alteração na função "GerarChaveReinf" referente a informação do CNPJ Base na Inscrição do Contribuinte. Segue em anexo a alteração. Att. Dalvan Antunes pcnGeradorReinf.pas

Bom dia. Implementei o novo Registro 0021 no SPED ECF. Passo em anexo as alterações. Att. Dalvan Antunes ACBrSPEDECF_Novo_0021.zip

Bom dia. Implementei os ajustes no Registro J800 para layout 5, e novo Registro J801 para layout 5. Passo em anexo as alterações. Att. Dalvan Antunes Acbr_SpedContabil_J800_J801.zip

Faz um teste usando a função uses Registry procedure DefineIEVersao(Versao:Integer=11000); const REG_KEY = 'Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION'; var Reg: TRegistry; AppName: String; begin AppName := ExtractFileName(Application.ExeName); //Versao := 11000; Reg:=nil; try Reg := TRegistry.Create(); Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey(REG_KEY, True) then begin if Versao = 0 then Reg.DeleteValue(AppName) else Reg.WriteInteger(AppName, Versao); Reg.CloseKey; end; except; end; if( Assigned( Reg )) then FreeAndNil(Reg); end; anter de chamar a pagina pelo TWebBrowser DefineIEVersao(8000);

Boa tarde. Baixei e fiz os testes, funcionou perfeitamente. Obrigado.

Bom dia, é que na função ProvedorToVersaoNFSe, para provedor Infisc está retornando fixo versao 1.10, e para Infisc 1.00 nas cidade como exemplo Farroupilha não entra no testa na unit ACBrNFSeWebServices, que testa versão 1.00. Att Dalvan

Boa tarde, estou fazendo os testes do provedor Infisc na cidade de Farroupilha / RS, mas não funcionou da forma esperada devido a identificação do layout do XML ( 1.00 ou 1.10 ) pela função ProvedorToVersaoNFSe. Envio as alterações necessárias para funcionamento no provedor Infisc para cidade que estão na versão 1.00. Att. Dalvan Alteracao_Infisc_Versao_XML.zip

Boa dia. Estou alterando minha aplicação para utilizar a Trunk2, mas no cancelamento da NFS-e provedor SystemPro, ocorre erro na função AssinarXML. XML Exemplo: <CancelarNfseEnvio xmlns="http://www.abrasf.org.br/nfse.xsd"> <Pedido> <InfPedidoCancelamento Id="pedidoCancelamento_908687870001096038232"> <IdentificacaoNfse> <Numero>232</Numero> <CpfCnpj> <Cnpj>90868787000109</Cnpj> </CpfCnpj> <InscricaoMunicipal>6038</InscricaoMunicipal> <CodigoMunicipio>4307005</CodigoMunicipio> </IdentificacaoNfse> <CodigoCancelamento>2</CodigoCancelamento> </InfPedidoCancelamento> </Pedido> </CancelarNfseEnvio> docElemento: Pedido></CancelarNfseEnvio Erro ocorrido: Falha ao Assinar - Cancelar NFS-e: '#$D#$A'Erro -1: Falha ao assinar o Documento Acho que o problema pode ser nos parâmetros da função AssinarXML ?

Boa tarde, desculpe por reenviar o post, cliquei em citar indevidamente. No caso da sped contábil, temos clientes com grande movimentação, que geram arquivos enormes, a função atual faz uma leitura caracter por caracter usando o TFileStream , para gerar nosso maior cliente, levou cerca de 10 minutos, somente nesse trecho, para totalizar as linhas. Fiz um teste e estou usando essa função modificada usando o TextFile que faz a leitura linha a linha. Att Dalvan

Boa Tarde, Fiz uma alteração no SPED Contábil no Registro J150: Demonstração do Resultado do Exercício, existem campos novos somente para lay-out 4.00 a partir de 2015, em anos anteriores, não deve existir os campos. Também tem uma otimização na Totalização dos Termos referente a quantidade de linhas do arquivo. Anexo alterações. acbr_SpedContabil_J150.zip

Bom dia, Vou enviar um arquivo .zip com a correção da geração do Registro0035. Att. Dalvan Antunes ACBRSPEDECF_Ajustes.zip

Boa Tarde, Vou enviar um arquivo zipado com alguns ajustes encontrados na Classe ACBRECF e implementação dos Registros faltantes para Bloco T - Lucro Arbitrado. Att. Dalvan ACBrSPEDECF_Bloco_T_e_Ajustes.zip

Boa Tarde, favor atualizar o ACBr, já foi disponibilizado os endereços para Caxias do Sul / RS, na unit ACBrProvedorInfisc.

Boa Tarde, Desculpe pela demora, fiquei envolvido em outras situações.... Em anexo os fontes SOMENTE das units alteradas da pasta "ACBrNFSe" com a parte implementada do Provedor: Infisc. O outro arquivo "nfse.zip" é o Schema, que deve ser colocado na pasta "..\Schemas\Infisc" Somente fiz teste em homolação e produção para cidade de Farroupilha / RS. Att. ACBrNFSe_Infisc.zip nfse.zip

Boa Tarde, Em anexo os fontes da pasta "ACBrNFSe" com a parte implementada do Provedor: Infisc. O outro arquivo "nfse.zip" é o Schema, que deve ser colocado na pasta "..\Schemas\Infisc" Somente fiz teste em homolação e produção para cidade de Farroupilha / RS. Att. ACBrNFSe_Infisc.zip nfse.zip

Bom Dia. Terminei a implementação referente ao Provedor Infisc, para Cidade de Farroupilha/RS, como faria para disponibilizar no ACBr ? Na nova unit "ACBrProvedorInfisc" coloquei somente os endereços para Cidade de Farroupilha/RS, conforme for implementado para outros munícipios deve-ser alterar essa Unit. Att. Dalvan

Boa Tarde, Estou implementando também a integração da NFS-e para Farroupilha/RS ( Lay-Out Infisc ) estou seguindo a mesma idéia que foi implementada para Provedor ISSDSF (dentro do ACBR). Após concluído, a idéia seria liberar no ACBr para ser utilizada em outros Municípios, mas a leitura e geração do XML, e totalmente em paralelo utilizando outras funções que estou criando, conforme foi feito no ISSDSF. Att. Dalvan Antunes

boa tarde, no programa de exemplo, é só colocar um percentual de icms com decimal que ocorre erro na geração do arquivo SPED. exemplo: with Registro0200New do begin COD_ITEM := '000001'; DESCR_ITEM := 'PRODUTO 1'; COD_BARRA := ''; UNID_INV := 'UN'; TIPO_ITEM := tiMercadoriaRevenda; COD_NCM := '30049026'; COD_GEN := '30'; ALIQ_ICMS := 2.42; end;

Boa Tarde, também tive o mesmo caso, passei uma ALIQ_ICMS com decimal ( Ex. 2,42 ). fui depurando e o erro ocorre na função IsNumber(2,42), que retorna false, ocorrendo o erro na geração do sped. comentei as linhas que testam o IsNumber, e gerou correto o arquivo do SPED. function TACBrTXTClass.VLFill(Value: Variant; Size: Integer; Decimal: Integer; Caracter: Char; Mascara: String): String; var intFor, intP: Integer; strCurMascara: string; begin strCurMascara := FCurMascara; // Se recebeu uma mascara como parametro substitue a principal if Mascara <> '' then strCurMascara := Mascara; // Se o parametro Nulo = true e Value = 0, será retornado '|' if (Value = Null) or (Value=Unassigned) then begin Result := FDelimitador; Exit; end; // Checa se é um valor numérico //----------------->> if not IsNumber(Value) then //----------------->> raise Exception.Create( Format('[%a] Não é um valor numérico!', [Value]) ); intP := 1; for intFor := 1 to Decimal do begin intP := intP * 10; end; if (strCurMascara <> '#') and (strCurMascara <> '') then Result := FDelimitador + FormatCurr(strCurMascara, Value) else Result := LFill(Trunc(Value * intP), Size, False, Caracter); end;

Estamos instalando em nosso clientes que ainda não tem o provedor NFS-e. Muito obrigado !!

Bom Dia, é o mesmo provedor de Erechim/RS, apenas alterei as Units referente a conversão para Canela/RS.