Leao

Olá Sidnei, fiz conforme sua orientação, mas ocorre a mesma mensagem de erro, "O sistema não pode encontrar o caminho especificado" o caminho estar correto, inclusive é gerado o .pdf, na pasta, mas até agora não deu certo. Obrigado, Leão

Senhores moderadores, por favor, verifique, pois a solução do Sidnei, ao fazer atualização posterior, vai apagar. Obrigado, Leão

Sidnei, obrigado, fiz conforme exemplo, re-compilei os fontes do boleto,e continua a mesma mensagem. Obrigado, Leão

Sidnei, não é o caso, porque no EnviarEmail, a opção estar com True, assim tende a condição se.O erro "O sistema não pode encontrar o caminho especificado" Imprimi e gera o .pdf, normalmente só não consegue usar a opção enviar e-mail. Agradeço ao Sidnei, se alguém tiver outra sugestão... Obrigado, Leão

Fiz as recomendações sugeridas mas continua o mesmo a mensagem "O sistema não pode encontrar o caminho especificado" Imprimi e gera o .pdf, normalmente só não consegue usar a opção enviar e-mail. Se alguém conseguio fazer, por favor, publicar aqui Obrigado, Leão

Aguardando alguém.... Leão

é, realmente continua, alguém se habilita ou estar usando... Aguardando... Leão

Olá Juliomar, fiz a modificação, continua com o mesmo erro "O sistema não pode encontrar o caminho especificado" nodiretorio:=CamposResultado_banco2[1]+'\Boletos\'+Ano(XDateEdit1.DateValue)+'_'+Mes(XDateEdit1.DateValue)+'_'+Dia(XDateEdit1.DateValue)+'\'; ACBrBoleto1.ACBrBoletoFC.NomeArquivo :=ExtractFilePath(nodiretorio)+Trim(wnome_cliente)+' '+XNumEdit1.Text+'P'+XNumEdit2.Text+'A.pdf' o caminho estar correto, inclusive gera uma copia do .pdf na pasta conforme configuração... Obrigado e aguardo Leão

Olá Paulo, mude a porta para 465 mas ocorre outra mensagem de erro "O sistema não pode encontrar o caminho especificado" realmente precisa os moderadores dar uma olhada... obrigado, Leão

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