Leao

Obrigado André, deu certo. Leão

Olá, ao tentar cancelar nf-e, mostra essa mensagem: envEventoCancNFe_v1.00.xsd#/schema/element[1][@name = 'envEvento'] Undeclared XSD type : '{http://www.portalfis.../nfe}TEnvEvento' Atualizei os componentes em 02/04/2013; trabalho com delphi7; Local Maranhão; copie inclusive o schema da pasta D:\Acbr\Exemplos\ACBrNFe2\Delphi\Schemas e mostra a mesma mensagem. Já percorri o fórum para achar uma solução e não encontrei. Obrigado e aguardo Leão

Olá Denis, estou com o mesmo problema : envEventoCancNFe_v1.00.xsd#/schema/element[1][@name = 'envEvento'] atualizei os schema da pasta \exemplo\delphi\schemas trabalho com o componente, delphi7, Maranhão como você corrio? Leão

Olá, estar ocorrendo também aqui, já atualizei da pasta \Exemplos\ACBrNFe2\Delphi mas continua o mesmo erro, o arquivo estar lá, o que pode ser? Obrigado, Leão

Olá, sobre consulta como pegar o status do evento Protocolo Data / hora do registro como no exemplo acima? Obrigado, Leão

Olá, sobre consulta como pegar o status do evento Protocolo Data / hora do registro como no exemplo acima? Obrigado, Leão

Olá Jadson, por favor feche este topico, como Resolvido... Obrigado, Leão

Olá Carlos, agora funcionou corretamente, era isso mesmo que você corrigio, agora é preciso solicitar aos moderadores para atualizar svn. (como informar tópico encerrado)? Muito obrigado, Leão

Atualizei no inicio de março/2013, mas vou atualizar agora e testar-lo novamente, post aqui o resultado, te gradeço. Obrigado, Leão

Olá Carlos, já estar acima.

Carlos, uso o ACBrBoletoFCFortes1 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'; Depois de gerar (preview ou imprimir), o .pdf é gerado na pasta conforme acima, por exemplo: na emissão deste boleto: M.A. COMERCIO DE ALIMENTOS LTDA 27007P04A.pdf ao clickar no botão E-mail, ocorre a mensagem de erro: "O sistema não pode encontrar o caminho especificado" Não entendo, se o .pdf é gerado, na mas indicada como não encontra o caminho especificado? Obrigado e aguardo, Leão

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