Jump to content

WilkinsonLM

Membros
  • Posts

    15
  • Joined

  • Last visited

Everything posted by WilkinsonLM

  1. Hehe, eles haviam mandado para mim por 2x rejeição do código de barras, que nem podia ser lido, então eles me passaram as especificações do código de barras no boleto, e eu efetuei as modificações milimetricamente. Espero que essa pequena modificação possa contribuir ao projeto. Att.
  2. Fiz todas as alterações pedidas pela caixa. Mandei os novos boletos, com o código de barras alterado, e eles me deram uma resposta afirmativa.
  3. Boa tarde Fiz umas modificações no layout de impressão para homologar o boleto da caixa. Tem como subir pro SVN? Obrigado! ACBrBoletoFCFortesFr.rar
  4. Olá, eu validei seu arquivo aqui, e não deu essa critica ao qual você me falou sobre. Segue anexo com imagem.
  5. Boa tarde Sandra, Seguinte, o erro aparece no 0200, porque você inseriu um produto que não foi utilizado em nenhum dos blocos seguintes. O C170 é o detalhamento dos itens das notas fiscais, sim, porem deve se informar no registro 0200, somente os produtos que forem utilizados no seu SPED. Mesmo que você tenha um estoque com 1.000 registros, se só 150 tiverem movimento, você só deve informar esses 150.
  6. for intContador := intInicial to MonthOf(edtDataFin.AsDate) do begin // Registro J005: Demonstrações Contábeis with RegistroJ005.New do begin DT_INI := StrToDate('01/' + FormatFloat('00', intContador) + '/' + IntToStr(YearOf(StrToDate(edtDataFin.Text)))); DT_FIN := StrToDate(funUltimoDiaMes(DT_INI)); ID_DEM := 1; FrmAguarde.lblCentralizado.Caption := 'Bloco J, Registro J100'; FrmAguarde.lblCaption.Caption := 'Buscando Balanço Patrimonial, Período : ' + FormatDateTime('mm/yyyy', DT_FIN); FrmAguarde.Refresh; proBuscarSaldosPlanoContas(DT_INI, DT_FIN); FrmAguarde.lblCentralizado.Caption := 'Bloco J, Registro J100'; FrmAguarde.lblCaption.Caption := 'Balanço Patrimonial, Período : ' + FormatDateTime('mm/yyyy', DT_FIN); FrmAguarde.Refresh; // Registro J100: Balanço Patrimonial if (CDSContas.Active) then begin CDSContas.First; FrmAguarde.AguardeGauge(0, CDSContas.RecordCount); while not(CDSContas.Eof) do begin with RegistroJ100.New do begin COD_AGL := CDSContas.FieldByName('CODIGO').AsString; NIVEL_AGL := CDSContas.FieldByName('MAX').AsString; IND_GRP_BAL := CDSContas.FieldByName('GRAU1').AsString; DESCR_COD_AGL := CDSContas.FieldByName('NOME').AsString; if (CDSContas.FieldByName('VALOR').AsFloat >= 0) then begin VL_CTA := CDSContas.FieldByName('VALOR').AsFloat; IND_DC_BAL := 'C'; end else if (CDSContas.FieldByName('VALOR').AsFloat < 0) then begin VL_CTA := CDSContas.FieldByName('VALOR').AsFloat * -1; IND_DC_BAL := 'D'; end; end; CDSContas.Next; FrmAguarde.AguardeGauge(CDSContas.RecNo); end; FrmAguarde.lblCentralizado.Caption := 'Bloco J, Registro J150'; FrmAguarde.lblCaption.Caption := 'DRE, Período : ' + FormatDateTime('mm/yyyy', DT_FIN); // Registro J150: Demonstração Do Resultado Do Exercício SQLDRE.Close; SQLDRE.ParamByName('EMP').AsString := DMDados.SQLEmpresaCODIGO_EMP.AsString; SQLDRE.ParamByName('MES').AsInteger := MonthOf(DT_INI); SQLDRE.ParamByName('ANO').AsInteger := YearOf(DT_INI); SQLDRE.Open; SQLDRE.First; FrmAguarde.AguardeGauge(SQLDRE.RecordCount); while not(SQLDRE.Eof) do begin with RegistroJ150.New do begin COD_AGL := SQLDRECONTA_DRA.AsString; NIVEL_AGL := '1'; DESCR_COD_AGL := SQLDREDESCRICAO_DRA.AsString; if (SQLDREVALOR_DRA.AsFloat > 0) then begin VL_CTA := SQLDREVALOR_DRA.AsFloat; if (Trim(SQLDREFORMULA_DRA.AsString) <> '') then IND_VL := 'P' else IND_VL := 'R'; end else begin VL_CTA := SQLDREVALOR_DRA.AsFloat * -1; if (Trim(SQLDREFORMULA_DRA.AsString) <> '') then IND_VL := 'N' else IND_VL := 'D'; end; end; SQLDRE.Next; FrmAguarde.AguardeGauge(SQLDRE.RecNo); end; end; DT_INI := StrToDate('01/' + FormatFloat('00', MonthOf(StrToDate(edtDataIni.Text))) + '/' + IntToStr(YearOf(StrToDate(edtDataFin.Text)))); FrmAguarde.AguardeGauge2(intContador); end; end; Ele já está dentro, eu só não tinha postado aqui o resto do código. Agora esse é o código completo. Preciso limpar o componente a cada arquivo que eu tentar gerar?
  7. Isaque, Recompilei a aplicação, reinstalei os componentes ACBr e apaguei o arquivo anterior, agora, calculou tudo certo.... Estranho isso...mas, resolveu o problema (:
  8. // Registro J150: Demonstração Do Resultado Do Exercício SQLDRE.Close; SQLDRE.ParamByName('EMP').AsString := DMDados.SQLEmpresaCODIGO_EMP.AsString; SQLDRE.ParamByName('MES').AsInteger := MonthOf(DT_INI); SQLDRE.ParamByName('ANO').AsInteger := YearOf(DT_INI); SQLDRE.Open; SQLDRE.First; FrmAguarde.AguardeGauge(SQLDRE.RecordCount); while not(SQLDRE.Eof) do begin with RegistroJ150.New do begin COD_AGL := SQLDRECONTA_DRA.AsString; NIVEL_AGL := '1'; DESCR_COD_AGL := SQLDREDESCRICAO_DRA.AsString; if (SQLDREVALOR_DRA.AsFloat > 0) then begin VL_CTA := SQLDREVALOR_DRA.AsFloat; if (Trim(SQLDREFORMULA_DRA.AsString) <> '') then IND_VL := 'P' else IND_VL := 'R'; end else begin VL_CTA := SQLDREVALOR_DRA.AsFloat * -1; if (Trim(SQLDREFORMULA_DRA.AsString) <> '') then IND_VL := 'N' else IND_VL := 'D'; end; end; SQLDRE.Next; FrmAguarde.AguardeGauge(SQLDRE.RecNo); end; Essa é a parte que eu alimento as informações do registro J150...
  9. Ola, Wilkinson, verifique no TXT a quantidade de linhas, e confira se no TXT ta certo ou é um bug nessa nova versão. Bom saber que o SPED Contabil esta em produção, vc usa ele no seu sistema gerencial ou em um sistema contabil ? Utilizo ele no modulo contábil do nosso sistema gerencial. E pelo o que eu conferi, é na geração do arquivo TXT que está dando a divergência. Conferi os registros J100 e J150 e realmente o valor está o dobro do esperado... Abraços.
  10. Boa tarde, Foi disponibilizada a versão 2.2.4 do validador de escrituração contábil. (http://www.receita.fazenda.gov.br/Sped/ ... aforma.htm), e com isso, está dando erro nos contadores de registros (vide anexo). Alguem ai teve o mesmo erro? O estranho é que antes validava tudo certinho, e agora, ele trancou
  11. Saudações; Um dos meus sistemas realmente estava enviando para o ambiente de homologação. Porem, o caso ai em cima, estava enviando normalmente, e os resultados da busca no site eram nulos. Enfim, acho que isso finaliza as minhas dúvidas. Muito obrigado senhores.
  12. Bom dia, Estou com problemas em relação a inutilização de faixa de NF-e. Quando eu fiz a primeira vez a inutilização, ele retornou o XML perfeito, sem qualquer mensagem de erro. Considerando isso, enviei o XML para a contabilidade do cliente, só que esta, entrou em contato comigo, e relatou a não existência da nota fiscal inutilizada. Fui averiguar o fato no site de consulta de inutilização (http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=inutilizacao&tipoConteudo=YG1QjUXR4PY=), e realmente não havia dados de inutilização de NF-e para meu cliente. Entrei em contato com a SEF de SC e tentei averiguar se o problema não estaria nas informações do site. Porem, estes verificaram a base de dados, e realmente não existia tal inutilização. Após várias tentativas frustradas com a inutilização via ACBrNFe, baixei o emissor de nota da receita, importei todos os XMLs do meu cliente, e efetuei a inutilização da faixa. Funcionou perfeitamente, e no site tambem aparece. Fui atrás de outros clientes com notas inutilizadas no sistema, e constatei que eles tambem não tinham essa informação no site. // Primeira Tentativa with NFe.WebServices.Inutilizacao do begin CNPJ := '06317285000175'; Justificativa := 'NUMERACAO DE NOTA INEXISTENTE'; Ano := 11; Modelo := 55; Serie := 1; NumeroInicial := 1300; NumeroFinal := 1300; end; NFe.WebServices.Inutilizacao.Executar; // Segunda Tentativa NFe.WebServices.Inutiliza('06317285000175', 'NUMERACAO DE NOTA INEXISTENTE', 11, 55, 1, 1300, 1300); Mensagem Erro : 'Rejeicao: Ja existe pedido de Inutilizacao com a mesma faixa de inutilizacao' Alguem tem ideia do que possa ser?
  13. 1) 1º Via - Cedente, para meio de arquivamento e posterior conferência com os arquivos de retorno. 2º Via - Sacado. 3º Via - Ficha de Compensação. - Wilkinson Da Rolt de Souza LM Sistemas (48) 3437-6569
  14. Boa Tarde, Queria saber se duas coisas : 1) Há possibilidade de emissão de boletos em 3 vias? (Vide anexo. Há um cliente que necessita de 3 vias do boleto) 2) Há possibilidade de ser feita uma integração com o ReportBuilder? Eu utilizo este componente de relatório para todo o meu sistema, e fica fora do nosso padrão utilizar os disponiveis. Grato! - Wilkinson Da Rolt de Souza LM Sistemas (48) 3437-6569 Boleto CAIXA ECONOMICA FEDERAL - Conv 13.pdf
  15. Boa Tarde, Efetuando testes para validação, encontrei uma divergência nos registros C191 e C195, que basicamente são a mesma coisa. C191 (C195) VL_BC_PIS (VL_BC_COFINS) ALIQ_PIS (ALIQ_COFINS) ALIQ_PIS_QUANT (ALIQ_COFINS_QUANT) QUANT_BC_PIS (QUANT_BC_COFINS) - Quando eu informo o VL_BC_PIS (VL_BC_COFINS) e ALIQ_PIS (ALIQ_COFINS), os outros dois campos devem estar vazios. Hoje ele está enviando 0 (Zero) e o programa SPED PIS-COFINS vr.1.0.0 rejeita o arquivo.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.