Dangelo2010

Opa! Mim desculpe Obrigado!

Já fiz isso 2 vezes hoje

Boa Tarde! Estou com um erro ao Imprimir Pelo Fortes Report a NFSe conforme imagem. Já Exclui Todos os Arquivos necessários referente ao ACBr e também baixei tudo novamente e mesmo assim continua o erro.

Mim desculpe Italo, mais antes de você responder no outro topico eu ja tinha criado esse, no entanto foi aconselhado a criar esse topico

Uso Capicom

Estou testando a versao 3.1 porem no proprio demo do acbr esta mim dando um erro Versão Layout : 3.10 Ambiente : 2 Versão Aplicativo : GO3.0 Status Código : 999 Status Descrição : Rejeição: Erro não catalogado UF : GO Recibo : Recebimento : 04/03/2015 09:38:22 Tempo Médio : 0

OK

Obrigado! Tiago Ravache Estou testando a versao 3.1 porem no proprio demo do acbr esta mim dando um erro Versão Layout : 3.10 Ambiente : 2 Versão Aplicativo : GO3.0 Status Código : 999 Status Descrição : Rejeição: Erro não catalogado UF : GO Recibo : Recebimento : 04/03/2015 09:38:22 Tempo Médio : 0

Mim Desculpe mais qual a diferença da VersaoDF --> ve300 e ve310?

Obrigado Amigo Consequi Resolver No Final do Código antes de gerar o Txt eu coloquei with ACBrSPEDContabil1 do begin DT_INI := StrToDate('01/12/2013'); DT_FIN := StrToDate('31/12/2013'); end;

tudo e antes de gerar o txt

Não tem como passar para depois de gerar o txt, pois e tudo por parâmetros, estou passando dessa forma Begin // REGISTRO J TSISPEDContabil.Bloco_J.LimpaRegistros; vACBR := TACBrSPED.create; vACBR.DT_INI := EDataInicial.Date; vACBR.DT_FIN := EDataFinal.Date; lblTexto.Caption := 'Registro J'; lblTexto.Refresh; With TSISPEDContabil.Bloco_J Do Begin lblTexto.Caption := 'Registro J001'; lblTexto.Refresh; With RegistroJ001 Do Begin IND_DAD := 0; lblTexto.Caption := 'Registro J005'; lblTexto.Refresh; With RegistroJ005.New Do Begin // 2 DT_INI := EDataInicial.Date; DT_FIN := EDataFinal.Date; ID_DEM := 1;

Bom dia! Estou com um Problema ao Gerar o txt do Registro J100, o Erro e por causa do novo layout, que exige alguns campos a mais no arquivo, que pelo o que vi isso acontece apartir da data 01/01/2013, porem o registro 0000 esta correto pois a data esta sendo passada corretamente porem o J100 esta sendo passado para uma outra data que esta na unit ACBrSped e ja ate tentei passar por parâmetro essa data porem sempre vem em branco o registro 0000 e passado pelo proprio registro TRegistro0000 = class private fDT_INI: TDateTime; /// Data inicial das informações contidas no arquivo fDT_FIN: TDateTime; /// Data final das informações contidas no arquivo fNOME: String; /// Nome empresarial do empresário ou sociedade empresária. fCNPJ: String; /// Número de inscrição do empresário ou sociedade empresária no CNPJ. porem o J100 não e assim, a DT_INI em vermelho abaixo vem da unit de cor azul, onde ja criei uma passagem de parametros para ela dessa forma em verde mais nao funcionou Var vACBR : TACBrSPED; Begin vACBR := TACBrSPED.create; vACBR.DT_INI := EDataInicial.Date; vACBR.DT_FIN := EDataFinal.Date; TACBrSPED = class(TACBrTXTClass) private FDT_INI: TDateTime; /// Data inicial das informações contidas no arquivo FDT_FIN: TDateTime; /// Data final das informações contidas no arquivo FGravado: Boolean; public property DT_INI : TDateTime read FDT_INI write FDT_INI; property DT_FIN : TDateTime read FDT_FIN write FDT_FIN; property Gravado: Boolean read FGravado write FGravado ; end; /// Layout 2 a partir da escrituração ano calendário 2013 if DT_INI >= EncodeDate(2013,01,01) then begin strRegistroJ100 := strRegistroJ100 + LFill('J100') + LFill(COD_AGL) + LFill(NIVEL_AGL) + LFill(IND_GRP_BAL, 1) + LFill(DESCR_COD_AGL) + LFill(VL_CTA, 19, 2) + LFill(IND_DC_BAL, 1) + LFill(VL_CTA_INI, 19, 2) + LFill(IND_DC_BAL_INI) + Delimitador + #13#10;

Foi feito uma mudanca sem pensar nas situações, eu lembro que pensei nisso certinho sobre o codigo fonte abaxo, so que o astrogildo fez mudancas radicais sem pensar que nem todas as prefeitura vem o valor do iss retido, alem do teste se iss retido sim ou não, pesso por gentileza a verificação e a mudanca se possivel. rllValorIssRetido.Caption := DFeUtil.FormatFloat( FNFSe.Servico.Valores.ValorIssRetido );//Astrogildo em 13/12/12 rllValorLiquido.Caption := DFeUtil.FormatFloat( FNFSe.Servico.Valores.ValorLiquidoNfse );//Astrogildo em 13/12/12 { If FNFSe.Servico.Valores.ValorIssRetido > 0 Then Begin rllValorIssRetido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorIssRetido); rllValorLiquido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse - FNFSe.Servico.Valores.ValorIssRetido); End Else Begin Case FNFSe.Servico.Valores.IssRetido Of stRetencao : Begin rllValorIssRetido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorIss); rllValorLiquido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse - FNFSe.Servico.Valores.ValorIss); End; stNormal : Begin rllValorIssRetido.Caption := DFeUtil.FormatFloat(0); rllValorLiquido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse); End; stSubstituicao : Begin rllValorIssRetido.Caption := DFeUtil.FormatFloat(0); rllValorLiquido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse); End; end; End; }

Foi feito uma mudanca sem pensar nas situações, eu lembro que pensei nisso certinho sobre o codigo fonte abaxo, so que o astrogildo fez mudancas radicais sem pensar que nem todas as prefeitura vem o valor do iss retido, pesso por gentileza a verificação e a mudanca se possivel. rllValorIssRetido.Caption := DFeUtil.FormatFloat( FNFSe.Servico.Valores.ValorIssRetido );//Astrogildo em 13/12/12 rllValorLiquido.Caption := DFeUtil.FormatFloat( FNFSe.Servico.Valores.ValorLiquidoNfse );//Astrogildo em 13/12/12 { If FNFSe.Servico.Valores.ValorIssRetido > 0 Then Begin rllValorIssRetido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorIssRetido); rllValorLiquido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse - FNFSe.Servico.Valores.ValorIssRetido); End Else Begin Case FNFSe.Servico.Valores.IssRetido Of stRetencao : Begin rllValorIssRetido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorIss); rllValorLiquido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse - FNFSe.Servico.Valores.ValorIss); End; stNormal : Begin rllValorIssRetido.Caption := DFeUtil.FormatFloat(0); rllValorLiquido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse); End; stSubstituicao : Begin rllValorIssRetido.Caption := DFeUtil.FormatFloat(0); rllValorLiquido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse); End; end; End;

Estou tento muitos problemas referente a inclusão dos Novos Códigos, então fiz algumas mudanças no meu sistema pegando os dados do município do meu cadastro de município onde lá também se encontra o código do município e também no ACBR, usando passagem de parâmetros. Por Favor se possível subir para o SVN. ACBrNFSeDANFSeClass.pas ACBrNFSeDANFSeRL.pas ACBrNFSeDANFSeRLClass.pas ACBrNFSeDANFSeRLRetrato.pas

Bom dia! Por Favor Incluir o Código do IBGE para Aparecida de Goiânia na Unit pnfsConversao na linha 1375 conforme abaixo Obrigado procedure P00; begin case ACodigo of // Alterado por Cleiver em 26/02/2013 25300: Cidade := 'Goiânia/GO'; 33800: Cidade := 'Aparecida de Goiânia/GO'; 530020: Cidade := 'Brazlandia/DF'; end; end;

?

?

Estou com um problema na alíquota do provedor de goiania estou passando 3,84 so que esta enviando 5% e retornando 5% alguma ideia sobre isso?

Consequi achar o erro function TProvedorGoiania.GetConfigSchema(ACodCidade: Integer): TConfigSchema; var ConfigSchema: TConfigSchema; begin ConfigSchema.VersaoCabecalho := '2.01'; ConfigSchema.VersaoDados := '2.01'; ConfigSchema.VersaoXML := '2'; ConfigSchema.NameSpaceXML := 'http://nfse.goiania.go.gov.br/xsd/'; ConfigSchema.Cabecalho := 'nfse_gyn_v02.xsd'; ConfigSchema.ServicoEnviar := 'nfse_gyn_v02.xsd'; ConfigSchema.ServicoConSit := 'nfse_gyn_v02.xsd'; ConfigSchema.ServicoConLot := 'nfse_gyn_v02.xsd'; ConfigSchema.ServicoConRps := 'nfse_gyn_v02.xsd'; ConfigSchema.ServicoConNfse := 'nfse_gyn_v02.xsd'; ConfigSchema.ServicoCancelar := 'nfse_gyn_v02.xsd'; ConfigSchema.ServicoGerar := 'nfse_gyn_v02.xsd'; --------> se eu comentar essa linha funciona blz se não ela mim da o erro dizendo que arquivos esta em desacordo com os schemas ConfigSchema.ServicoEnviarSincrono := 'nfse_gyn_v02.xsd'; ConfigSchema.ServicoSubstituir := 'nfse_gyn_v02.xsd'; ConfigSchema.DefTipos := ''; Result := ConfigSchema; end;

Eu Voltei uma versao que tinha aqui e funcionou perfeitamente vou fazer um levantamento e ver o que foi mudado.

Não foi feito mudancas e sim acrescimos de funções, que no entanto nem chega nelas, antes ja da o erro.

Após a atualização feita hoje, obtive o seguinte erro Arquivo em desacordo com o XML Schema.