Arnaldo

Bom dia Colegas ontem vi um sistema feito em delphi, só não sei se usa ACBr. 1 - Ele gera os boletos bancarios da Caixa Economica/Brasil e Bradesco. 2 - Ele Faz a baixa do arquivo de retorno direto da Caixa Economica/Brasil e Bradesco. o Usuario apenas digita a data e clique em um botão baixar arquivo,ai ele faz a conexão e faz a baixa dos arquivos, e em seguida ele informa todos os valores dos arquivos e é habilitado um outro botão para se fazer a baixa do pagamento do contas a receber. Pergunto. Enviar arquivo eu sei que só pelo software do Banco. Alguem sabe como se faz para baixar os arquivos de retorno ? Obrigado.

faço parte do projeto da T2Ti , na verdade só acompanho o desenvolvimento. no meu frente de caixa tenho esta chamada FinalizaVenda; procedure TFEfetuaPagamento.FinalizaVenda; FDataModule.ACBrECF.SubtotalizaCupom(0); >> aqui tudo OK BlockInput(True); >> Aqui OK ACBrTEFD.FinalizarCupom; >> Aqui tá o problema ( ele chama esta função que vou posta abaixo) ..... ..... ====== procedure TACBrTEFD.FinalizarCupom; Var I, J, Ordem : Integer; Est, EstNaoFiscal : AnsiChar; ImpressaoOk : Boolean ; GrupoFPG : TACBrTEFDArrayGrupoRespostasPendentes ; begin ImpressaoOk := False ; fTefClass.GravaLog( 'FinalizarCupom ') ; try while not ImpressaoOk do begin try BloquearMouseTeclado( True ); try EstNaoFiscal := 'N'; Est := EstadoECF; while Est <> 'L' do >>> (((( Aqui entra nesse loop e não sai mais)))) begin // É não fiscal ? Se SIM, vamos passar por todas as fases... if Est = 'N' then begin case EstNaoFiscal of 'N' : EstNaoFiscal := 'V' ; 'V' : EstNaoFiscal := 'P' ; 'P' : EstNaoFiscal := 'N' ; end ; Est := EstNaoFiscal ; end ; try Case Est of 'V' : ComandarECF( opeSubTotalizaCupom ); 'P' : begin if not AutoEfetuarPagamento then begin GrupoFPG := nil ; AgruparRespostasPendentes( GrupoFPG ); Ordem := 0 ; For I := 0 to Length( GrupoFPG )-1 do begin if GrupoFPG.OrdemPagamento = 0 then begin Inc( Ordem ) ; if SubTotalECF > 0 then ECFPagamento( GrupoFPG.IndiceFPG_ECF, GrupoFPG.Total ); For J := 0 to RespostasPendentes.Count-1 do if RespostasPendentes[J].IndiceFPG_ECF = GrupoFPG.IndiceFPG_ECF then RespostasPendentes[J].OrdemPagamento := Ordem; end else Ordem := GrupoFPG.OrdemPagamento ; end; end; if SubTotalECF <= 0 then ComandarECF( opeFechaCupom ) else break ; end ; 'N' : // Usado apenas no Fechamento de NaoFiscal begin if SubTotalECF <= 0 then ComandarECF( opeFechaCupom ) else break ; end ; else raise Exception.Create( ACBrStr('ECF deve estar em Venda ou Pagamento')); end; except { A condição abaixo, será True se não for Cupom Nao Fiscal, ou se já tentou todas as fases do Cupom Nao Fiscal (SubTotaliza, Pagamento, Fechamento)... Se for NaoFiscal não deve disparar uma exceção até ter tentado todas as fases descritas acima, pois o ACBrECF não é capaz de detectar com precisão a fase atual do Cupom Não Fiscal (poucos ECFs possuem flags para isso) } if EstNaoFiscal = 'N' then raise ; end ; Est := EstadoECF; end; ImpressaoOk := True ; finally BloquearMouseTeclado( False ); end; except on EACBrTEFDECF do ImpressaoOk := False ; else raise ; end; if not ImpressaoOk then begin if DoExibeMsg( opmYesNo, 'Impressora não responde'+sLineBreak+ 'Tentar novamente ?') <> mrYes then begin try ComandarECF(opeCancelaCupom); except {Exceção Muda} end ; break ; end; end; end; finally if not ImpressaoOk then CancelarTransacoesPendentes; end; end;

onde eu encontro este LOG

Boa noite Colegas não estou conseguindo atgualizar meu sistema com o cielo premia. fiz uma atualização do ACBR , e apartir de então não consigo mais efetuar uma venda. se alguem puder mim da uma ajuda eu agradeço, se for pedir demais podemos combinar um valor para tal ajuda. eu agredeço estou com muita urgencia Obrigado [email protected]

Bom dia depois que atualizei o ACBr não consigo mais concluir uma venda Quando executo a finalização do cupom ele entra na rotina abaixo de "FinalizarCupom) e fica em um loop infinito, em todos os "For" procedure TACBrTEFD.FinalizarCupom; Var I, J, Ordem : Integer; Est, EstNaoFiscal : AnsiChar; ImpressaoOk : Boolean ; GrupoFPG : TACBrTEFDArrayGrupoRespostasPendentes ; begin ImpressaoOk := False ; fTefClass.GravaLog( 'FinalizarCupom ') ; try while not ImpressaoOk do ( este estado nunca muda) begin try BloquearMouseTeclado( True ); try EstNaoFiscal := 'N'; Est := EstadoECF; while Est <> 'L' do begin // É não fiscal ? Se SIM, vamos passar por todas as fases... if Est = 'N' then begin case EstNaoFiscal of 'N' : EstNaoFiscal := 'V' ; 'V' : EstNaoFiscal := 'P' ; 'P' : EstNaoFiscal := 'N' ; end ; Est := EstNaoFiscal ; end ; try Case Est of 'V' : ECFSubtotaliza( RespostasPendentes.TotalDesconto ); 'P' : begin if not AutoEfetuarPagamento then begin GrupoFPG := nil ; AgruparRespostasPendentes( GrupoFPG ); Ordem := 0 ; For I := 0 to Length( GrupoFPG )-1 do begin if GrupoFPG.OrdemPagamento = 0 then begin Inc( Ordem ) ; if InfoECFAsDouble(ineSubTotal) > 0 then ECFPagamento( GrupoFPG.IndiceFPG_ECF, GrupoFPG.Total ); For J := 0 to RespostasPendentes.Count-1 do if RespostasPendentes[J].IndiceFPG_ECF = GrupoFPG.IndiceFPG_ECF then begin if (RespostasPendentes[J].Header = 'CHQ') and CHQEmGerencial then begin RespostasPendentes[J].OrdemPagamento := 999; Dec( Ordem ) ; end else RespostasPendentes[J].OrdemPagamento := Ordem; end; end else Ordem := GrupoFPG.OrdemPagamento ; end; end; if (InfoECFAsDouble(ineSubTotal) > 0) then begin if (InfoECFAsDouble(ineTotalAPagar,0) > 0) then begin ComandarECF( opeImprimePagamentos ) ; if InfoECFAsDouble(ineSubTotal) > 0 then Break; end else Break; end ; ComandarECF( opeFechaCupom ) end ; 'N' : // Usado apenas no Fechamento de NaoFiscal begin if (InfoECFAsDouble(ineSubTotal) > 0) then begin if (InfoECFAsDouble(ineTotalAPagar,0) > 0) then begin ComandarECF( opeImprimePagamentos ) ; if InfoECFAsDouble(ineSubTotal) > 0 then Break; end else Break; end ; ComandarECF( opeFechaCupom ) end ; else raise Exception.Create( ACBrStr('ECF deve estar em Venda ou Pagamento')); end; except { A condição abaixo, será True se não for Cupom Nao Fiscal, ou se já tentou todas as fases do Cupom Nao Fiscal (SubTotaliza, Pagamento, Fechamento)... Se for NaoFiscal não deve disparar uma exceção até ter tentado todas as fases descritas acima, pois o ACBrECF não é capaz de detectar com precisão a fase atual do Cupom Não Fiscal (poucos ECFs possuem flags para isso) } if EstNaoFiscal = 'N' then raise ; end ; Est := EstadoECF; end; ImpressaoOk := True ; finally BloquearMouseTeclado( False ); end; except on EACBrTEFDECF do ImpressaoOk := False ; else raise ; end; if not ImpressaoOk then begin if DoExibeMsg( opmYesNo, CACBrTEFD_Erro_ECFNaoResponde ) <> mrYes then begin try ComandarECF(opeCancelaCupom); except {Exceção Muda} end ; break ; end; end; end; finally if not ImpressaoOk then CancelarTransacoesPendentes; end; end;

colegas tenho uma duvida sobre atualização do estoque no roteiro do pafecf. Na abertura do sistema frente de caixa eu pego o estoque atual e jogo o valor para campo estoque anterior e atulaizo a data do estoque de cada item. Acesso a base principal e atualizo o campo estoque Atual Além disso coloquei uma opção do menu(Frente de caixa) que atualiza o estoque atual a qualquer momento. No retaguarda tem uma opção de exportar saldo do estoque que atualiza o estoque atual. Lembrando só faço a transferencia do valor do campo saldo atual para campo saldo anterior(Inicial) e atualizo a data do estoque uma vez por dia . Gostaria de saber se este procedimento está correto ? Obrigado.

Galera estou executando o roteiro do pafecf ai pensei em uma situação que cedo ou tarde vai acontecer começa o dia, um movimento é aberto, vendas são executadas no frente de caixa e transmitidas para o retaguarda. entre a abertura e a redução do dia a impressora quebra. opção 1 A impressora é substituida por outra opção 2 A impressora não é substituida Na opção 1(um) existirar uma redução pendente(registros órfãos) da impressora que quebrou, pois a redução será somente das vendas realizadas na nova impressora. Na opção 2(dois) existirar uma redução pendente(registros órfãos) da impressora que quebrou. Se alguem já passou por esta situação , pode explicitar como foi resolvido. Obrigado

Falei direto com a polemig sobre este teste, eles mim disseram que o teste está equivocado(O texto do teste) . para disconsiderar.

sim - Daruma FS700

Galera estou com uma dúvida neste teste do PAF-ECF, O Teste diz o seguinte: TESTE 007: Abertura de movimento com registro de pré-venda pendente Passo 1: Com o ECF contendo Cupons Fiscais emitidos, registre no programa aplicativo uma operação de pré-venda com pelo menos um item e não emita o Cupom Fiscal respectivo, deixando o registro de pré-venda pendente (dia D+0) Passo 2: Emita a Redução Z (do dia D+0). Passo 3: Avance a data do ECF para as 23h45min do dia seguinte ao da Redução Z emitida no passo 2 (dia D+1) e emita pelo menos um Cupom Fiscal, deixando o ECF com Redução Z do dia D+1 pendente. Passo 4: Aguarde o ECF avançar até as 2h do dia seguinte ao da Redução Z pendente (dia D+2), verificando se a impressora entrou em estado de bloqueada (Redução Z pendente). Passo 5: Observe se o ECF emitiu automaticamente a Redução Z pendente do dia D+1 e caso isto tenha ocorrido, verifique se, após a emissão da Redução Z, houve a emissão automática do Cupom Fiscal e seu cancelamento, relativos ao registro de pré-venda pendente do movimento do dia D+0. Passo 6: Caso o ECF não tenha emitido automaticamente a Redução Z pendente do dia D+1, comande a emissão desta Redução Z e verifique se, antes ou após a emissão da Redução Z, houve a emissão automática do Cupom Fiscal e seu cancelamento, relativos ao registro de pré-venda pendente do movimento do dia D+0. Minha dúvida é a seguinte, como eu consigo na impressora fiscal emitir um cupom fiscal e seu cancelamento após a Redução Z sem a necessidade de inicializar o Dia, Leitura X ? Nos testes que estou fazendo com uma impressora Epson não consigo emitir nada fiscal na impressora sem abrir uma jornada fiscal. Alguem passou por esse problema ? Como vocês implementaram essa funcionalidade ? Obrigado pela atenção, Estou a disposição para qualquer esclarecimento ou dúvida,

tudo que está nesta nota tecnica eu já fiz e entendi colega. A duvida é como fazer pra testar a parte de download do XML. pois só dá pra baixa o xml com o certificado digital e cnpj do destinatario.

Boa noite Colegas gostara de saber se é possivel fazer os testes de download na area de homologação. o estranho é que as notas emitidas em homologação nunca vai ter o CNPJ do destinatario. Estou meio perdido de como fazer estes download. se alguem puder mim dá umas dicas eu agradeço. Obrigado

Fiz a CCe está tudo OK só está mim faltando conseguir enviar o XML e o PDF pro email do cliente. alguem pode mim dá algumas dicas. Obrigado ja consegui com o codigo abaixo uses IdAttachmentFile, IdMessage, IdSMTP, IdComponent var IdSMTP : TIdSMTP; lMensagem : TIdMessage; lMensagem := TIdMessage.Create(Application); IdSMTP := TIdSMTP.Create(Application); idSMTP.Username := SMTPUsu; // emaildo usuario idSMTP.Password := SMTPSenha;// senha do usuario idSMTP.Host := SMTPHost;// host do usuaro ex.: provedo.mail.com.br idSMTP.Port := StrToInt(SMTPPorta);// porta email -> geralmente 25 idSMTP.Connect; with lMensagem do begin Subject := 'Carta de Correção';// assunto From.Address := vsEdtEmail;// email de origem Recipients.EmailAddresses := EmailCliente;// email de destino Body.Text := 'Carta de Correção';// testo do email TIdAttachmentFile.Create(MessageParts, 'C:\USOFT\Carta\' + '110110-' + edtChave.Caption + '-' + IntToStr(NumSeq) + '-procEventoNfe.xml'); TIdAttachmentFile.Create(MessageParts, 'C:\USOFT\Carta\' + '110110-' + edtChave.Caption + '-' + IntToStr(NumSeq) + '-procEventoNfe.pdf'); idSMTP.Send(lMensagem); end; idSMTP.Disconnect; lMensagem.Free; IdSMTP.Free;

Estou tentanto utilizar o codigo abaixo para enviar o XML e o DANFE em PDV o XML vai mas o DANFE não. Eviar DANFE está marcado para true; FDataModule.ACBrNFe1.NotasFiscais.LoadFromFile(cdsEnviado.FieldByName('CAMINHOXML').AsString); Mensagem := TStringList.Create; Mensagem.Add('Nota Fiscal Eletronica'); FDataModule.ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(SMTPHost, SMTPPorta,SMTPUsu,SMTPSenha,vsEdtEmail,de,'NFe',Mensagem,false, EnviaPDF=true,nil,nil,false,true,vsEdtRazao,true); o codigo acima esta correto, e esta enviando o PDF