Painel de líderes

Olá, Utilizo algo parecido para efetuar recebimento de Correspondente Bancário. Acho que pode ajudar: Para iniciar a transação, altero a operação CHQ para '312' (Consulta Pagamento Genérico). Após informar todos os dados dessa transação, o SiTEF aguarda o pagamento, então eu chamo novamente o CHQ, porém dessa vez com Operação '313' (Pagamento Genérico), informando os dados do pagamento em "ACBrTEFD1.TEFCliSiTef.Restricoes" Segue um trecho do código para exemplo: // Altera OperacaoCHQ para "Consulta Pagamento Genérico" ACBrTEFD1.TEFCliSiTef.OperacaoCHQ := 312; // Chama SiTEF informando valor zero no CHQ para pular "VerificarTransacaoPagamento" ACBrTEFD1.CHQ(0, '00|CB', IntToStr(wDocumento)); // Pega valor à ser pago wValorStr := ACBrTEFD1.RespostasPendentes[ACBrTEFD1.RespostasPendentes.Count-1].LeInformacao(609).AsString; // Nesse momento deve ser efetuado o pagamento no Caixa... // Chamando o SiTEF para confirmar o Pagto. (Utilizando Dinheiro) // Usa property Restricoes(ParamAdic.) para enviar Dados do Pagamento ACBrTEFD1.TEFCliSiTef.Restricoes := '{DadosPagamento=1:'+wValorStr+'}'; // Altera OperacaoCHQ para "Pagamento Genérico" ACBrTEFD1.TEFCliSiTef.OperacaoCHQ := 313; // Chama SiTEF novamente, com o mesmo Documento Vinculado(Nesse caso o COO da venda) ACBrTEFD1.CHQ(0, '00|CB', IntToStr(wDocumento));

Bom dia Rick, obrigada pela atenção, Perguntei sobre isso porque o usuário do sistema fica falando do espaço em branco ao salvar em PDF, vc sabe como é usuário né?! rs Mas tudo bem, obrigada.

Desenvolvi minha NFC-e usando o ACBrNFe. Vi que existe um componente ACBrECFVirtualNFCe mas não encontrei o exemplo nem o manual do mesmo. Já li muitos tópicos sobre a NFC-e o ACBrECFVirtualNFCe, mas tenho muitas duvidas. Preciso que meu aplicativo imprima em impressoras comuns e também em impressoras não fiscais 48 col, e também precisarei do TEF. Para atender a isso, quais os componentes corretos que devo utilizar? ACBrNFe,ACBrECFVirtualNFCe,ACBrDANFEESCPOS? Estou um pouco perdida porque não uso o ACBrECF e pelo que vi o ACBrECFVirturalNFCe tem vinculo ao ECF. Consigo fazer a NFC-e com TEF e imprimir em impressoras não fiscais utilizando somente o ACBrNFe+ACBrDANFEA4+ACBrDANFEESCPOS+ACBRTEFD ou tenho que usar outros? sse ACBrECFVirtualNFCe é somente para quem usar o ACBrECF?

Boa tarde já notou que tem diversos componentes com parcial nome XXXVirtualXXXX??? TACBrECFVirtualNaoFiscal, TACBrECFVirtualSAT, TACBrECFVirtualNFCe então use ele para interagir com o ACBrTEFD!

Pessoal, Problema resolvido. O WebService da publica retorna sempre um XML com as tags "vazias" quando o RPS não for localizado. Acontece que eu estava buscando por um RPS existente, porém em ambiente de produção, no ambiente de homologação esse RPS não existia, retornado esse XML com tags "vazias". Conversei com o pessoal da publica e os mesmo informaram que estão estudando a implementação de um retorno com mensagem de erro quando o RPS não for encontrado. (O que seria o correto) Obrigado a todos que retornaram.

nada, está bem dificil conseguir mais informações, mesmo porque quero usar o ACBrTEFD sem o ACBrECF

Então, conferindo com o manual, agora ficou certo, pois estava gerando com um '0' a mais e o banco rejeitando o arquivo. Enviei novamente para análise no processo homologação que o banco exige, assim que eles me derem um retorno vou enviar a unit. Obrigado.

Tudo indica um erro de configuração no Provedor SMTP O provedor está respondendo ser capaz de fazer uma autenticação "CRAM-MD5", quando na verdade, ela é "PLAIN"... Provavelmente, se fosse tentada a autenticação "PLAIN" primeiro, a autenticação ocorresse com sucesso... O Erro do provedor, é responder que ele é capaz de autenticar usando "CRAM-MD5", quando na verdade, ele não o é... Aplicado um "workaround", que tenta a autenticação PLAIN por primeiro... A correção está no SVN... Commit [r12331]

Bom dia Luiz, Quando você diz que ainda não migrou se refere a uma verão mais recente do Delphi, correto? Se sim, fique tranquilo, pois todas as alterações que fiz foram realizadas no Delphi 7.

ainda continuo sem saber quais componentes preciso usar no meu aplicativo emissor de NFC-e para emitir TEF. Caso alguém possa me orientar....

Bom dia Michele. Isto ocorre somente na visualização (salvando ou não em pdf), ou também quando realmente imprime o cupom? P/ mim, na visualização aparece o espaço em branco, mas quando impresso, a impressora corta logo abaixo do QrCode. Abç

Pronto no svn os registros J e também V

Com impressora normal o meu aplicativo já está funcional. Porém, por não usar o ACBrECF, estou com trocentas dúvidas em como implementar o aplicativo para imprimir em impressora não fiscal e também como implementar o TEF com o ACBrTEFD. Como este tópico está muito relacionado ao assunto, gostaria de saber se essa configuração está correta: (o Tipo será configurável no meu aplicativo, sendo A4 ou ESCPOS). Além disso, vi com o ACBrTEFD tem um vinculo com o ACBrECF. Se eu usar o ACBrECFVirtualNFCe precisarei mudar algo ou o ACBrTEFD já reconhecerá todas as propriedades da impressora não fiscal como se fosse um ECF mesmo? If (Tipo = 'ESCPOS') then begin {ACBrECF1} ACBrECF1.Modelo := ecfECFVirtual; ACBrECF1.ECFVirtual := ACBrECFVirtualNFCe; {ACBrECFVirtualNFCe1} ACBrECFVirtualNFCe1.ACBrNFCe := ACBrNFe1; {ACBrPosPrinter1} ACBrPosPrinter1.ArqLOG := 'C:\Escpos' + FormatFloat('000',wpar_Caixa) + '.log'; ACBrPosPrinter1.ColunasFonteNormal := StrToIntDef(cbxDANFeESCPOSColunas.Text,48); ACBrPosPrinter1.ConfigBarras.Altura := 0; ACBrPosPrinter1.ConfigBarras.LarguraLinha := 0; ACBrPosPrinter1.ConfigBarras.Margem := 0; ACBrPosPrinter1.ConfigBarras.MostrarCodigo := FALSE; ACBrPosPrinter1.ConfigGaveta.SinalInvertido := cbxDANFeESCPOSGavetaSinalInvertido.Checked; ACBrPosPrinter1.ConfigGaveta.TempoOFF := StrToIntDef(edtDANFeESCPOSGavetaTempoOFF.Text,200); ACBrPosPrinter1.ConfigGaveta.TempoON := StrToIntDef(edtDANFeESCPOSGavetaTempoON.Text ,50); ACBrPosPrinter1.ConfigLogo.FatorX := 1; ACBrPosPrinter1.ConfigLogo.FatorY := 1; ACBrPosPrinter1.ConfigLogo.IgnorarLogo := FALSE; ACBrPosPrinter1.ConfigLogo.KeyCode1 := 32; ACBrPosPrinter1.ConfigLogo.KeyCode2 := 32; ACBrPosPrinter1.ConfigQRCode.ErrorLevel := 0; ACBrPosPrinter1.ConfigQRCode.LarguraModulo := 0; ACBrPosPrinter1.ConfigQRCode.Tipo := 2; ACBrPosPrinter1.ControlePorta := cbxDANFeESCPOSControleDaPorta.Checked; ACBrPosPrinter1.CortaPapel := cbxDANFeESCPOSCortaPapel.Checked; ACBrPosPrinter1.Device.Porta := cbxDANFeESCPOSPorta.Text; ACBrPosPrinter1.Device.Baud := StrToIntDef(cbxDANFeESCPOSBaud.Text,9600); ACBrPosPrinter1.EspacoEntreLinhas := edtDANFeESCPOSEspacoEntreLinhas.Value; ACBrPosPrinter1.IgnorarTags := cbxDANFeESCPOSIgnorarTags.Checked; ACBrPosPrinter1.LinhasBuffer := 0; ACBrPosPrinter1.LinhasEntreCupons := edtDANFeESCPOSLinhasEntreCupons.Value; ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo(cbxDANFeESCPOSModeloImpressora.ItemIndex); //ACBrPosPrinter1.PaginaDeCodigo := TACBrPosPaginaCodigo(cbxDANFeESCPOSPaginaDeCodigo.ItemIndex); ACBrPosPrinter1.TraduzirTags := TRUE; {ACBrNFeDANFeESCPOS1} ACBrNFeDANFeESCPOS1.Logo := Trim(edtDANFeESCPOSLogo.Text); ACBrNFeDANFeESCPOS1.Sistema := sSistema; ACBrNFeDANFeESCPOS1.Usuario := sUsuario; ACBrNFeDANFeESCPOS1.PathPDF := Trim(edtDANFeESCPOSPDF.Text); ACBrNFeDANFeESCPOS1.Impressora := cbxDANFeESCPOSModeloImpressora.Text; ACBrNFeDANFeESCPOS1.MostrarPreview := bMostrarPreview; ACBrNFeDANFeESCPOS1.MostrarStatus := TRUE; Case cbxDANFeESCPOSImpressao.ItemIndex of 0:ACBrNFeDANFeESCPOS1.TipoDANFE := tiNFCe; 1:ACBrNFeDANFeESCPOS1.TipoDANFE := tiMsgEletronica; 2:ACBrNFeDANFeESCPOS1.TipoDANFE := tiNFCeA4; End; ACBrNFeDANFeESCPOS1.NumCopias := StrToIntDef(edtDANFeESCPOSVias.Text,2); ACBrNFeDANFeESCPOS1.Fax := edtEmitFAX.Text; ACBrNFeDANFeESCPOS1.Site := edtEmitSite.Text; ACBrNFeDANFeESCPOS1.Email := LowerCase(edtEmitEmail.Text); ACBrNFeDANFeESCPOS1.ImprimirDescPorc := cbxDANFeESCPOSDescontoEmPercentual.Checked; ACBrNFeDANFeESCPOS1.ImprimirTotalLiquido := cbxDANFeESCPOSVlrLiquidoNoItem.Checked; ACBrNFeDANFeESCPOS1.MargemInferior := edtDANFeESCPOSMargemInferior.Value; ACBrNFeDANFeESCPOS1.MargemSuperior := edtDANFeESCPOSMargemSuperior.Value; ACBrNFeDANFeESCPOS1.MargemEsquerda := edtDANFeESCPOSMargemEsquerda.Value; ACBrNFeDANFeESCPOS1.MargemDireita := edtDANFeESCPOSMargemDireita.Value; ACBrNFeDANFeESCPOS1.CasasDecimais._qCom := StrToIntDef(cbxDANFeESCPOSCasasqCom.Text,4); ACBrNFeDANFeESCPOS1.CasasDecimais._vUnCom := StrToIntDef(cbxDANFeESCPOSCasasvCom.Text,4); ACBrNFeDANFeESCPOS1.CasasDecimais._Mask_qCom := '###,###,###,##0.00##'; ACBrNFeDANFeESCPOS1.CasasDecimais._Mask_vUnCom := '###,###,###,##0.00##'; ACBrNFeDANFeESCPOS1.ExibirResumoCanhoto := cbxDANFeESCPOSImprimirResumoCanhoto.Checked; ACBrNFeDANFeESCPOS1.FormularioContinuo := FALSE; ACBrNFeDANFeESCPOS1.ExpandirLogoMarca := cbxDANFeESCPOSExpandirLogomarca.Checked; ACBrNFeDANFeESCPOS1.TamanhoFonte_DemaisCampos := 10; ACBrNFeDANFeESCPOS1.ProdutosPorPagina := 0; ACBrNFeDANFeESCPOS1.ImprimirDetalhamentoEspecifico := TRUE; ACBrNFeDANFeESCPOS1.NFeCancelada := FALSE; ACBrNFeDANFeESCPOS1.ImprimirItens := TRUE; ACBrNFeDANFeESCPOS1.ViaConsumidor := TRUE; ACBrNFeDANFeESCPOS1.TamanhoLogoHeight := 0; ACBrNFeDANFeESCPOS1.TamanhoLogoWidth := 0; ACBrNFeDANFeESCPOS1.RecuoEndereco := 0; ACBrNFeDANFeESCPOS1.RecuoEmpresa := 0; ACBrNFeDANFeESCPOS1.LogoemCima := TRUE; ACBrNFeDANFeESCPOS1.TamanhoFonteEndereco := 0; ACBrNFeDANFeESCPOS1.RecuoLogo := 0; ACBrNFeDANFeESCPOS1.TributosSeparadamente := FALSE; ACBrNFeDANFeESCPOS1.FonteTributos := 'IBPT'; ACBrNFeDANFeESCPOS1.ImprimeEmUmaLinha := TRUE; ACBrNFeDANFeESCPOS1.ImprimeDescAcrescItem := TRUE; ACBrNFeDANFeESCPOS1.UsaCodigoEanImpressao := FALSE; If NOT FileExists(Trim(edtDANFEA4Logo.Text)) then begin ACBrNFeDANFeESCPOS1.Logo := ''; ACBrNFeDANFeESCPOS1.LogoEmCima := FALSE; ACBrNFeDANFeESCPOS1.ExpandirLogoMarca := FALSE; end; ACBrNFeDANFeESCPOS1.PosPrinter := ACBrPosPrinter1; ACBrNFe1.DANFE := ACBrNFeDANFeESCPOS1; end; {diretorio do DANFE PDF} wpar_PathDANFE := ComDelimitador(ACBrNFe1.DANFE.PathPDF); If not DirectoryExists(wpar_PathDANFE) then CreateDir(wpar_PathDANFE); end;

Ramalho, Fiz uma correção no componente. Favor atualizar os fontes e fazer um novo teste de consulta. Carrega o XML do RPS e execute o método ConsultarNFSeporPRS.

EasySoft, Ontem ao baixar as atualizações e compilar o problema voltou. Verifique se o Libary Path do Fortes Report esta na pasta correta. Eu acabei mudando da Binary\LibD7 para fortesreport-ce-master\Source e ai deu certo. É alguma coisa neste sentido, tive de apagar tudo e compilar umas 3x, ai funcionou. Dercide.

Juliomar, Resolvi o problema, era o Fortes Report, segui as orientações da pagina do Regys, e deu certo. Após compilar o fortes da pasta \Trunk\Source, tinha que copiar as .dcu para a pasta \Binary\LibD7 Feito isso, o erro não ocorreu mais. Obrigado pela atenção, e desculpem o incomodo. Bola pra frente, vamos ver o que tem pela frente ainda. Dercide.