Leao

no fonte \ACBrNFeUtil.pas estava comentada a função // class function LimpaNumero(AValue: String): String; descomentei e na mesma também class function NotaUtil.LimpaNumero(AValue: String): String; var A : Integer ; begin Result := '' ; For A := 1 to length(AValue) do begin {$IFDEF DELPHI12_UP} if CharInSet(AValue[A], ['0'..'9']) then {$ELSE} if (AValue[A] in ['0'..'9']) then {$ENDIF} Result := Result + AValue[A]; end ; end; agora estar funcionando... Leão

Como ficou, depois que atulize hoje (12/12), estar ocorrendo o erro: Documento := Trim(NotaUtil.LimpaNumero(Documento)); delphi7 Aguardo. Leão

Sim, linhas comentadas, minha preoculpação era sobre a consistência no software do governo EFD Contribuições. Filipe, muito obrigado. Leão

Ninquém responde, já atualizei os fontes pelo svn. não consta

Conforme a tabela de Código de Situação Tributária da Cofins, consta 98-Outras Operações de Entradas e o mesmo caso do PIS. No componente sped fiscal, não consta, como faz para atualizar? veja no fonte procedure TBloco_C.WriteRegistroC170(RegC100: TRegistroC100); var intFor: integer; //strCST_IPI: AnsiString; //strCST_PIS: AnsiString; //strCST_COFINS: AnsiString; strLinha: AnsiString; begin if Assigned( RegC100.RegistroC170 ) then begin //-- Before strLinha := ''; if Assigned(FOnBeforeWriteRegistroC170) then begin FOnBeforeWriteRegistroC170(strLinha); if strLinha <> EmptyStr then Add(strLinha); end; for intFor := 0 to RegC100.RegistroC170.Count - 1 do begin with RegC100.RegistroC170.Items[intFor] do begin { case CST_IPI of ipiEntradaRecuperacaoCredito: strCST_IPI := '00'; ipiEntradaTributradaZero: strCST_IPI := '01'; ipiEntradaIsenta: strCST_IPI := '02'; ipiEntradaNaoTributada: strCST_IPI := '03'; ipiEntradaImune: strCST_IPI := '04'; ipiEntradaComSuspensao: strCST_IPI := '05'; ipiOutrasEntradas: strCST_IPI := '49'; ipiSaidaTributada: strCST_IPI := '50'; ipiSaidaTributadaZero: strCST_IPI := '51'; ipiSaidaIsenta: strCST_IPI := '52'; ipiSaidaNaoTributada: strCST_IPI := '53'; ipiSaidaImune: strCST_IPI := '54'; ipiSaidaComSuspensao: strCST_IPI := '55'; teria que ser feito a qui '98' ipiOutrasSaidas: strCST_IPI := '99'; end; case CST_PIS of pisValorAliquotaNormal: strCST_PIS := '01'; pisValorAliquotaDiferenciada: strCST_PIS := '02'; pisQtdeAliquotaUnidade: strCST_PIS := '03'; pisMonofaticaAliquotaZero: strCST_PIS := '04'; pisAliquotaZero: strCST_PIS := '06'; pisIsentaContribuicao: strCST_PIS := '07'; pisSemIncidenciaContribuicao: strCST_PIS := '08'; pisSuspensaoContribuicao: strCST_PIS := '09'; pisOutrasOperacoes: strCST_PIS := '99'; end; case CST_COFINS of cofinsValorAliquotaNormal: strCST_COFINS := '01'; cofinsValorAliquotaDiferenciada: strCST_COFINS := '02'; cofinsQtdeAliquotaUnidade: strCST_COFINS := '03'; cofinsMonofaticaAliquotaZero: strCST_COFINS := '04'; cofinsAliquotaZero: strCST_COFINS := '06'; cofinsIsentaContribuicao: strCST_COFINS := '07'; cofinsSemIncidenciaContribuicao: strCST_COFINS := '08'; cofinsSuspensaoContribuicao: strCST_COFINS := '09'; teria que ser aqui '98' cofinsOutrasOperacoes: strCST_COFINS := '99'; end; } strLinha := LFill('C170') + LFill( NUM_ITEM ) + LFill( COD_ITEM ) + LFill( DESCR_COMPL ) + DFill( QTD, 5 ) + LFill( UNID ) + LFill( VL_ITEM,0,2 ) + LFill( VL_DESC,0,2 ) + LFill( Integer(IND_MOV), 0 ) + LFill( CST_ICMS,3 ) + LFill( CFOP,4 ) + LFill( COD_NAT ) + LFill( VL_BC_ICMS,0,2 ) + LFill( ALIQ_ICMS,0,2 ) + LFill( VL_ICMS,0,2 ) + LFill( VL_BC_ICMS_ST,0,2 ) + LFill( ALIQ_ST,0,2 ) + LFill( VL_ICMS_ST,0,2 ) + LFill( Integer(IND_APUR), 0 ) + // LFill( strCST_IPI ) + LFill( CST_IPI ) + LFill( COD_ENQ ) + LFill( VL_BC_IPI,0,2 ) + LFill( ALIQ_IPI,0,2 ) + LFill( VL_IPI,0,2 ) + // LFill( strCST_PIS ) + LFill( CST_PIS ) + LFill( VL_BC_PIS,0,2 ) + LFill( ALIQ_PIS_PERC,0,2 ) + DFill( QUANT_BC_PIS,3 ) + DFill( ALIQ_PIS_R,4 ) + LFill( VL_PIS,0,2 ) + // LFill( strCST_COFINS ) + LFill( CST_COFINS ) + LFill( VL_BC_COFINS,0,2 ) + LFill( ALIQ_COFINS_PERC,0,2 ) + DFill( QUANT_BC_COFINS,3 ) + DFill( ALIQ_COFINS_R,4 ) + LFill( VL_COFINS,0,2 ) + LFill( COD_CTA ); //-- Write if Assigned(FOnWriteRegistroC170) then FOnWriteRegistroC170(strLinha); Add(strLinha); end; /// Registro FILHOS do FILHO WriteRegistroC171( RegC100.RegistroC170.Items[intFor] ) ; WriteRegistroC172( RegC100.RegistroC170.Items[intFor] ) ; WriteRegistroC173( RegC100.RegistroC170.Items[intFor] ) ; WriteRegistroC174( RegC100.RegistroC170.Items[intFor] ) ; WriteRegistroC175( RegC100.RegistroC170.Items[intFor] ) ; WriteRegistroC176( RegC100.RegistroC170.Items[intFor] ) ; WriteRegistroC177( RegC100.RegistroC170.Items[intFor] ) ; WriteRegistroC178( RegC100.RegistroC170.Items[intFor] ) ; WriteRegistroC179( RegC100.RegistroC170.Items[intFor] ) ; RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1; end; //-- Before strLinha := ''; if Assigned(FOnAfterWriteRegistroC170) then begin FOnAfterWriteRegistroC170(strLinha); if strLinha <> EmptyStr then Add(strLinha); end; /// Variavél para armazenar a quantidade de registro do tipo. FRegistroC170Count := FRegistroC170Count + RegC100.RegistroC170.Count; end; end; Obrigado, Leão

Obrigado Vanderlei, deu certo. Leão

Olá, exatamente onde informar: SystemPreview.FormState := wsMaximized; Obrigado, Leão

Régis, sim, Instalei a capicom que vem junto do ACBr; Atualizou a cadeia de certificados; Continua a mensagem: Não suporte para o tipo de provedor de serviço de criptografia '24' Obrigado e aguardo Leão

Uso Capicom; cerprorfv v3 A1 Interessante que no emissor gratuito do governo faz todo processo normalmente. Obrigado e aguardo

ninguém...

Ninguém responde...

Olá, Cliente comprou outro certificado(anterior venceu), chamado cerprorfv v3. Instalei os drives, o mesmo mostra no windows(7), o botão status serviços funciona, mas ao validar ou enviar mensa gem de erro: Não suporte para o tipo de provedor de serviço de criptografia '24' Detalhe foi instalado a cadeia do certificado A1, cerprorfb v3 da valid windows 7, 64 bit Detalhe no programa gratuito da sefaz-MA, funciona, normalmente. Alguém sabe a solução, aguardo Obrigado, Leão

Faça assim: if not DirectoryExists(Trim(Dir_remessa)+'\'+Ano(XDateEdit1.DateValue)+'_'+Mes(XDateEdit1.DateValue)+'_'+Dia(XDateEdit1.DateValue)) then ForceDirectories(Trim(Dir_remessa)+'\'+Ano(XDateEdit1.DateValue)+'_'+Mes(XDateEdit1.DateValue)+'_'+Dia(XDateEdit1.DateValue)); nomedoar:=Dir_remessa+Ano(XDateEdit1.DateValue)+'_'+Mes(XDateEdit1.DateValue)+'_'+Dia(XDateEdit1.DateValue)+'\'; ACBrBoletoFCFortes1.ACBrBoleto.DirArqRemessa:=nomedoar; //Dir_remessa //campo onde o usuário informa o caminho da pasta // é criado na mesma pasta conforme a data ANO\MES\DIA Obrigado, Leão

Olá Juliana, ao subir p/svn, com a correção conforme Carlos Filho, anexo, por favor, post. Obrigado, Leão

Olá Reij, o Carlos Filho, conseguio identificar, e existe um anexo no: viewtopic.php?f=11&t=5992&start=30 falta somente alguém subir p/svn, com certeza os que atualizaram, estar errado e nem sabem. Obrigado Leão

Juliana, ao subir p/svn, por favor, post. Obrigado, Leão

Carlos Filho, o Rafael, estar solicitando qual a linha do problema, por favor, post para subir p/svn. Obrigado, Leão

Carlos Filho, o Rafael, estar solicitando qual a linha do problema, por favor, post para subir p/svn. Obrigado, Leão

Rafael, conforme Carlos Filho, agora deu certo, agora precisa subir para svn, por favor, alguém avisar algum moderador. Obrigados a todos, Leão

Rafael, quais pasta você precisa, tentei enviar todas ACBr, e é muito grande. Obrigado Leão

Olá reij, você conseguio, corrigir a questão do boleto(salvo), que estava saindo ilegivel? Se sim, post aqui. Obrigado, Leão

Olá Daniel, conforme Thiago Porto, realmente é no componente, tanto é que antes da atualização estava normal, depois da mesma, ficou ilegivel, outro detalhe outros usuários também relataram o caso, outro relatório usando o fortes, estar normal, então o problema é no componente... Obrigado, Leão

Olá Daniel, cara creio se houve atualização, todos que fizer a mesma, vai ocorrer o mesmo problema então, melhor mesmo é corrigir na fonte... mesma que volte aqui, todos teria que fazer a mesma coisa. Obrigado, Leão

Obrigado, pelos teste. Mas estava normal, depois que atualizei via svn, estar dessa maneira, sugiro ao moderador que fez atualização que re-veja. Obrigado, Leão

Olá Daniel, Em anexo imagem... Estava normal, depois da atualização(de tudo) pelo svn, depois que atualizei os compo nentes, apenas compilando, ao visualizar o boleto pelo pdf, sai totalmente ilegivel, interessante na tela ao gerar fica normal, o problema é no pdf gerado. Trabalho com delphi7; FCFortes versão 0.0.13a FortesReport 3.70b vcl Obrigado, Leão 201206P06M.pdf