softcom.wendel

Boa tarde Realmente o 286285770 pertence ao CNPJ da prefeitura, é uma fazenda que esta no nome da prefeitura....muito estranho..pq prefeituras são ISENTAS e esta nota seria para a prefeitura e nao para esta fazenda....mas obrigado pela atenção pessoal

Boa tarde Desde ontem estou tendo problemas na emissão de NFE para contribuintes ISENTOS Segue Código //NFE 3.1 With Dest do begin //inContribuinte, inIsento, inNaoContribuinte if vJur_Fis = 'J' then begin if (( Vo_Venda.CLIENTE_RG_IE = 'ISENTO' ) Or ( Vo_Venda.CLIENTE_RG_IE = 'ISENTA' )) then Begin indIEDest := inIsento; Dest.IE := 'ISENTO'; End else indIEDest := inContribuinte; end else begin indIEDest := inNaoContribuinte; end; end; E O XML Gerado esta em anexo, esta dando IE DO DESTINATÁRIO NAO INFORMADO..Mas é ISENTO...o que estou fazendo errado? Agradeço a Atenção 50150702312729000129550010000244891000244898-nfe.xml

Corrigi fazendo da seguinte forma opePulaLinhas: begin //Novos Modelos Convenio 09/09 Não aceitam o comando If ECF.Modelo <> ecfEscECF then ECF.PulaLinhas(ECF.LinhasEntreCupons); ECF.CortaPapel(true); Sleep(200); end;

Localizei que o Problema ocorre neste Ponto procedure TDMECF.ACBrTEFDComandaECF(Operacao: TACBrTEFDOperacaoECF; Resp: TACBrTEFDResp; var RetornoECF: Integer); .... opePulaLinhas: begin ECF.PulaLinhas(ECF.LinhasEntreCupons); ----O ECF NAO ACEITA ESTE COMANDO DENTRO DO CCD ECF.CortaPapel(true); Sleep(200); end;

Boa tarde Estamos começando a Utilizar as Novas ECF Blindadas MP 4200 em nosso estado e tive alguns problemas. procedure TDMECF.ACBrTEFDComandaECFImprimeVia(TipoRelatorio : TACBrTEFDTipoRelatorio; Via: Integer; ImagemComprovante: TStringList; var RetornoECF: Integer); begin try case TipoRelatorio of trGerencial: begin vLocalErro := 'Imprimindo Via Gerencial'; ECF.LinhaRelatorioGerencial(ImagemComprovante.Text); end; trVinculado: begin vLocalErro := 'Imprimindo Via Vinculado'; ECF.LinhaCupomVinculado(ImagemComprovante.Text) end; end; RetornoECF := 1; except FrmPdv.LblStatus.Caption := 'Ocorreu um erro no TEF: Imprimindo Via Gerencial ' + vLocalErro; Gravar_Log(FrmPdv.LblStatus.Caption); RetornoECF := 0; end; end; Nesta Função quando enviamos ao ECF ele dá erro, segue o log para verificação...Alguém já passou por isso? Agradeço a Atenção

Resolvi usando uma técnica de POG ( Programção orientada a gambiarra ) const NomArquivo_Bin_BK: String = 'ArquivoMFBK.mf'; NomArquivo_Bin: String = 'ArquivoMF.mf'; NomArquivo_TXT: String = 'ArquivoMF.TXT'; var Path: String; EADStr: String; begin Path := ExtractFilePath(Application.ExeName) + 'arquivos\'; // Se o Arquivo Existe Apaga if FileExists(Path + NomArquivo_Bin) then deletefile(pchar(Path + NomArquivo_Bin)); TRY ECF.PafMF_ArqMF('C:\' + NomArquivo_Bin); FINALLY //BACKUP DO ARQUIVO CopyFileTo( 'C:\' + NomArquivo_Bin, 'C:\' + NomArquivo_Bin_BK ); //ASSINAR O ARQUIVO Assinar( 'C:\' + NomArquivo_Bin_BK, false ); //COPIAR PARA O DIRETORIO RenameFile('C:\' + NomArquivo_Bin, Path + NomArquivo_Bin); //LER O EAD DO ARQUIVO EADStr := ECF.EAD.LeEADArquivo( 'C:\' + NomArquivo_Bin_BK ); RenameFile('C:\' + NomArquivo_Txt, Path + NomArquivo_txt); //REESCREVER O TXT Alterar_EAD ( Path + NomArquivo_txt, EADStr); Aviso(Format('Arquivo gerado com sucesso em:'#13#10' "%s"', [Path + NomArquivo_Bin] ), TAviso); END; fazer o que né..r.ssss estou no meio da homologação vlw isaque

É que o arquivo nao pode ser assinado temos que gerar um TXT com o mesmo nome do arquivo com o EAD deste arquivo

Não estou assinando diretamente a Função PafMF_ArqMF gera um TXT com o EAD. Mas este EAD não fica igual ao gerado pela função assinar do acbr Fiz um teste assinando o arquivo .mf e ai a assinatura bateu. pegando o EAD do arquivo txt gerado pelo ACBR nao bate

obrigado ISAQUE No mesmo teste o Arquivo foi gerado, mas o ECFC nao esta validando a assinatura const NomArquivo_Bin: String = 'ArquivoMF.mf'; NomArquivo_TXT: String = 'ArquivoMF.TXT'; var Path: String; EADStr: String; begin Path := ExtractFilePath(Application.ExeName) + 'arquivos\'; // Se o Arquivo Existe Apaga if FileExists(Path + NomArquivo_Bin) then deletefile(pchar(Path + NomArquivo_Bin)); TRY //ECF.PafMF_Binario('C:\' + NomArquivo); ECF.PafMF_ArqMF('C:\' + NomArquivo_Bin); FINALLY RenameFile('C:\' + NomArquivo_Bin, Path + NomArquivo_Bin); RenameFile('C:\' + NomArquivo_Txt, Path + NomArquivo_txt); Aviso(Format('Arquivo gerado com sucesso em:'#13#10' "%s"', [Path + NomArquivo_Bin] ), TAviso); END; Alguma Dica?

Pessoal Deu Certo..baixei do Site da Bematech a ultima versão. Coloquei no mesmo diretório da app e ai deu certo Configureu tbm o Arquivo Bemafi32.ini com a porta

Bom dia Estou no meio de minha homologação do PAF-ECF e no menu fiscal está dando erro no ARQ MF e MFD, dá um erro de acces violation e não baixa o arquivo. já atualizei as dlls e registrei na system 32, WIN 7 32 bits Alguém poderia me dar uma luz Eu já tinha testando com a DARUMA , mas na homologação eu trouxe uma bematech mp4000 ...pelo winmfd ele faz normalmente mas pelo meu paf não Agradeço qualquer ajuda. Irei postar aqui todas as dificuldades que tive na homologação.

Estamos gerando boleto para o Banco do Brasil Eles pedem que seja válida a carteira no Formato abaixo AGÊNCIA/CÓDIGO CEDENTE : Informe o prefixo da agência e número da conta de relacionamento com o BB no formato AAAA-Z / CCCCC-Z Estamos passando da seguinte forma: with Vo do begin CodigoCedente := CEDENTE_CODIGO; CodigoTransmissao := CEDENTE_COD_TRANSMISSAO; Conta := CEDENTE_CONTA; ContaDigito := CEDENTE_CONTA_DIGITO; Modalidade := CODIGO_INSTRUCAO_1; //Modalidade :=ce Convenio := CEDENTE_CONVENIO; //TipoDocumento ResponEmissao := tbCliEmite; CaracTitulo := tcSimples; CNPJCPF := Controler.Obj_Empresa.Eps_Cnpj; TipoInscricao := TACBrPessoaCedente(1); Vo_Agencia := Agencia_Conta( pConta ); Try if Assigned( Vo_Agencia ) then begin //Pegar do VO de Agências Agencia := Vo_Agencia.NUMERO_AGENCIA ; //NUMERO DA AGENCIA AgenciaDigito := Vo_Agencia.DIGITO_AGENCIA; //DIGITO DA AGENCIA end; Finally FreeAndNil( Vo_Agencia ); End; end; Conforme a Imagem em anexo eu verifiquei que na parte do comprovante de entrega ele sai correto, mas no recibo do Sacado sai sem o Digito verificador Alguem saberia me dizer pq? Agradeço a Atenção

Estou com problema no seguinte código procedure TUnt_Ctrl_Nfe.Imprimir_Evento(pPath_Xml, pPath_Xml_Evento: string); begin if FileExists(pPath_Xml_Evento) and FileExists( pPath_Xml ) then begin NFe.NotasFiscais.Clear; NFe.NotasFiscais.LoadFromString( pPath_Xml ); NFe.EventoNFe.Evento.Clear; NFe.EventoNFe.LerXMLFromString( pPath_Xml_Evento ); NFe.ImprimirEvento; end else MessageDlg('Os Arquivos passados para Impressão não foram encontrados, verifique!', mtError, [mbOK],0); end; O Componente não consegue carregar os xmls e dá erro nos dois...conferi o path passado e os arquivos e mesmo assim dá erro...o que poderia ser? Agradeço a ajuda

Boa tarde Temos um cliente que instalou o GlobalTef em sua máquina...tentamos o TefDISC e TEFDIAL mas dá uma mensagem dizendo que o TEF não foi localizado. Alguém já teve problemas com este tef e sabe como resolver? Agradeço a Atenção

Bom Dia Tentei fazer da seguinte forma mas ele não obedeceu...seria esta a propriedade correta mesmo? //Seta a impressora padrao para Boletos Neste Computador if ( Nome_Impressora <> '' ) then begin Boleto_Impressao.PreparedReport.PrintOptions.Printer := Nome_Impressora; Boleto_Impressao.MostrarPreview := False; Boleto_Impressao.MostrarSetup := False; end else begin Boleto_Impressao.MostrarPreview := True; Boleto_Impressao.MostrarSetup := True; end;

Bom dia. Existe alguma forma de enviar os boletos diretamente para uma determinada impressora, sem precisar passar pelo preview? Agradeço a Atenção

Bom Dia Estou utilizando o FastReport ( EVENTOS.fr3 ). Agradeço a Atenção

Boa tarde, estou implementando uma nova versão de meu Software e as seguintes rotinas geram a Carta de Correção: function TUnt_Ctrl_Nfe.Carta_Correcao: Boolean; Var nSeqEvento, vLote: Integer; vCorrecao: AnsiString; begin //Conferindo a NFE if Assigned(Vo_Venda) and ( Vo_Venda.NFE_CHAVE <> '' ) and ( Vo_Venda.CODIGO_FAT_STATUS_NFE = 100 ) then begin //Texto da Correção vCorrecao := Trim(Copy( Digita_String('Correção', '', true, 800),1,300)); If vCorrecao <> '' then begin //Criar carta de Correção para esta NFE NFe.EventoNFe.Evento.Clear; //Numero do Próximo Evento nSeqEvento := Ctrl_Cartas.Ultimo_Evento( Vo_Venda.Codigo ) + 1; with NFe.EventoNFe.Evento.Add do begin infEvento.chNFe := Vo_Venda.NFE_CHAVE; infEvento.CNPJ := SohNumeros(Controler.Obj_Empresa.Eps_Cnpj); infEvento.dhEvento := Now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := nSeqEvento; infEvento.detEvento.xCorrecao := vCorrecao; end; vLote := Lote_Atual; If NFe.EnviarEventoNFe( vLote ) then begin //Anota no Banco de dados as informações do retorno Anotar_Retorno_CCe( NFe.WebServices.EnvEvento, vCorrecao ); end else begin Result := False; with NFe.WebServices.EnvEvento do begin raise Exception.Create( 'Ocorreram erros ao enviar a Carta de Correção:' + sLineBreak + 'Lote: ' + IntToStr(EventoRetorno.idLote) + sLineBreak + 'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak + 'Orgao: ' + IntToStr(EventoRetorno.cOrgao) + sLineBreak + sLineBreak + 'Status: ' + IntToStr(EventoRetorno.cStat) + sLineBreak + 'Motivo: ' + EventoRetorno.xMotivo ); end; end; end else result := False; end else begin MessageDlg('A Venda Não está Assinalada corretamente, confira a Chave da Nfe e o Status', mtError, [mbOK],0); end; end; procedure TUnt_Ctrl_Nfe.Anotar_Retorno_CCe(pEvento: TNFeEnvEvento; pCorrecao: AnsiString); Var Vo: TFAT_VENDAS_CARTA_CORRECAOVO; NomeArq, vMotivo, vPath, NumeroProtocolo: string; CodStat, nSeqEvento: Integer; DataHoraEvento: TDateTime; begin with pEvento do begin if not(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat in [135, 136]) then begin raise EDatabaseError.CreateFmt( 'Ocorreu o seguinte erro ao enviar a carta de correção:' + sLineBreak + 'Código:%d' + sLineBreak + 'Motivo: %s', [ EventoRetorno.retEvento.Items[0].RetInfEvento.cStat, EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo ]); end; // retornos //Nome do Arquivo XML da Carta de Correção nSeqEvento := EventoRetorno.retEvento.Items[0].RetInfEvento.nSeqEvento; NomeArq := '\' + Vo_Venda.NFE_CHAVE + EventoRetorno.InfEvento.TipoEvento + Format('%.2d', [nSeqEvento]) + '-procEventoNFe.xml'; //Anotar os dados do Evento CodStat := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat; vMotivo := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo; vPath := Nfe.Configuracoes.Arquivos.GetPathEvento( teCCe ) + NomeArq; DataHoraEvento := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; NumeroProtocolo := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; Vo := TFAT_VENDAS_CARTA_CORRECAOVO.create; try Vo.Codigo := 0; vo.Eps_Codigo := Cod_Emp; Vo.CODIGO_FAT_VENDAS := Vo_Venda.Codigo; Vo.CARTA_CHAVE := Vo_Venda.NFE_CHAVE; vo.CARTA_DATA_HORA := DataHoraEvento; vo.CARTA_SEQUENCIAL := nSeqEvento; vo.CARTA_CORRECAO := pCorrecao; vo.CARTA_LOTE := EventoRetorno.idLote; Vo.CARTA_PATH_XML := vPath; Vo.CARTA_PROTOCOLO := NumeroProtocolo; vo.CODIGO_FAT_STATUS_EVENTO := CodStat; If Ctrl_Cartas.Insere_Ctrl( Vo ) > 0 then //Imprime a Carta de correção Imprimir_Evento ( Vo_Venda.NFE_PATH_XML, vPath ); finally FreeAndNil( Vo ); Atualiza_Lote; Carregar_Memos( NFE.WebServices.EnvEvento.RetWS, '' ); end; end; end; procedure TUnt_Ctrl_Nfe.Imprimir_Evento(pPath_Xml, pPath_Xml_Evento: string); begin if FileExists(pPath_Xml_Evento) and FileExists( pPath_Xml ) then begin NFe.NotasFiscais.Clear; NFe.NotasFiscais.LoadFromString( pPath_Xml ); NFe.EventoNFe.Evento.Clear; NFe.EventoNFe.LerXMLFromString( pPath_Xml_Evento ); NFe.ImprimirEvento; end else MessageDlg('Os Arquivos passados para Impressão não foram encontrados, verifique!', mtError, [mbOK],0); end; No momento da Impressão aparecem os seguintes erros: Não encontrei Inicio do URI: id = e Após isso o seguinte erro: Campo cOrgao não informado. O que poderia ser, alguém já passou por isso?

Bom Dia Estou tendo problema em uma ECF Elgin X5 quando tento finalizar o cupom fiscal, o erro seria o seguinte "Linhas sumplementares excedidas ao finalizar documento", qual seria o tamanho máximo para a mensagem promocional para este ECF em questão? passando 200 caracteres ele não aceitou, com 40 passou Agradeço a ajuda

Boa tarde É Preciso alterar algum parametro para emitir o EFD para empresas do simples nacional?

Achei o problema..passando '02' dá erro..mas passando B dá tudo certo..mas ai apareceu outro problema..qdo tenta imprimir o comprovante sai Uma leitura X antes

Sim na leitura X existe...la temos 01=Dinheiro e 02=Cartao...neste momento ai eu passo 02 Passando Dinheiro dá tudo certo

No código FPG := AchaFPGIndice( CodFormaPagto ) ; Dentro de TACBrECF.EfetuaPagamento Ele devolve Sempre Nil ...no caso é uma impressora Daruma FS345, Alguém já passou por isso??

Bom Dia, Estamos tendo um erro intermitente no seguinte código: opeFechaCupom: begin vLocalErro := 'Fechando o Cupom'; ECF.InfoRodapeCupom.Imposto.Texto := ''; ECF.InfoRodapeCupom.Imposto.Fonte := ''; ECF.InfoRodapeCupom.Imposto.ValorAproximado := 0; if Est = estNaoFiscal then ECF.FechaNaoFiscal(Mensagem_Cupom) else ECF.FechaCupom(Mensagem_Cupom); end; Na parte em negrito em alguns momentos ele dá Acces violation, e e totalmente intermitente...tem hora q da o erro e tem hora que não dá...em alguns momentos dá o erro no texto e em alguns dá na fonte. Algué já passou por isso?

Bom Dia Como funciona a inclusão de uma nova Cidade, no caso as cidades de Dourados-MS e Campo Grande-MS? Agradeço a atenção de todos