SisMaster Sistemas

entao essa implementação tenho que fazer no meu codigo e nao no componente, a explicacao inicial no componente é so pra simular esse tratamento e passar na homologacao ou para a homologação o certo seria ja implementar, e outra duvida quando a transação esta pendente , o motivo dessa pendencia tem como saber? ou to confundindo tudp?

o que nao estou visualizando é como na pratica vai funcionar o TEF, to trabalhando la e derrepende acabou a luz. Quando ligar , o sistema nao deveria fazer tudo isso sozinho, o proprio componente ou a propria paygoweb. e olhando a resposta estou mudando o componente. e depois que enviar os resultados e ser homologado, o que acontece na pratica pois o componente ao ser atualizado refaz tudo pra o original

TedD mas pelo que li é mais aconselhavel mudar pra TEF API ne. Mas agora no momento TefD

Boa tarde, estou no passo 51 , Realizamos a validação da planilha de testes. Para prosseguirmos com a aprovação, vamos precisar que seja realizado o reteste dos seguintes passos Passo 51: Está quase lá! Você fez a venda e reiniciou o sistema, até aí está tudo certo!Porém ao final você enviou uma confirmação manual ao invés de um desfazimento por queda de energia. Nesta etapa final, você deve enviar a função PWCNF_REV_PWR_AUT (00083131h). OBS: Caso esteja tendo dificuldades para realizar este teste, você pode contactar a ACBr para que eles o auxiliem. Fico no aguardo dos logs e planilha de testes atualizada. Atenciosamente, SETIS. executando no debug ele nao passa por PWCNF_REV_PWR_AUT como devo proceder como faço nesse ´ponto procedure TACBrTEFDPayGoWeb.CNF(Rede, NSU, Finalizacao: String; DocumentoVinculado: String); begin FinalizarTransacao( PWCNF_CNF_AUTO, IntToStr(Resp.NumeroLoteTransacao), Finalizacao, NSU, Resp.Estabelecimento, Rede); end; eu dou um stop no debug e saio fora e ao voltar nao passa por PWCNF_REV_PWR_AUT

ok, obrigado

Bom dia, Atualmente, o banco Stone (197) está implementado no ACBrBoleto?

Boa tarde, Estou homologando o ACBrSAT no nosso ERP e implementando a opção de impressão em EscPos e FastReports. Ao utilizar o componente ACBrSATExtratoFR, notei que várias propriedades não surtem efeito na impressão nem no preview, mesmo após alterá-las. Abaixo estão as propriedades que não apresentam efeito na impressão quando modificadas: EspacoFinal; ImprimeCodigoEan; ImprimeCPFNaoInformado; ImprimeDescAcrescItem; ImprimeEmUmaLinha; Informações do Logo: ImprimeLogoLateral, LogoAutoSize, LogoCenter, LogoHeigth, LogoStretch, LogoVisible e LogoWidth; ImprimeMsgOlhoNoImposto; QrCode: ImprimeQRCode e ImprimeQRCodeLateral; LarguraBobina. Estamos utilizando Delphi Alexandria, e ao procurar essas propriedades no arquivo do FastReports (ACBr\Fontes\ACBrSAT\Extrato\Fast\ACBrSATExtratoFR.pas), não as encontrei. Em seguida, busquei no Fortes (ACBr\Fontes\ACBrSAT\Extrato\Fortes) e constatei que todas essas propriedades estão implementadas. Além disso, observei os seguintes problemas: MargemSuperior: A margem funciona, porém o papel não ajusta conforme a impressão, resultando em cortes no papel quando deveria exibir mais informações. MargemDireita: Alguns componentes não estão respeitando o valor configurado para a margem. Anexei imagens para ilustrar cada um dos problemas descritos acima. * Observação: Tive que editar as imagens para que não ultrapassassem o limite de 2MB permitido no post. Abaixo, explico cada imagem: EspacoFinal.png: independente da propriedade estar habilitada ou desabilitada, não faz diferença na impressão (nunca sai o espaço final). Ao buscar no ACBrSATExtratoFR.pas, não encontrei nada relacionado, mas ao buscar no ACBrSATExtratoFortesFr.pas, encontrei: //Para impressoras sem guilhotina não cortar no QrCorde pEspacoFinal.Height := EspacoFinal; pEspacoFinalCan.Height := EspacoFinal; ImprimeCodigoEan.pgn: independente da propriedade estar habilitada ou desabilitada, não faz diferença na impressão (nunca sai o código EAN). Ao buscar no ACBrSATExtratoFR.pas, não encontrei nada relacionado, mas ao buscar no ACBrSATExtratoFortesFr.pas, encontrei: if (Length( Trim( Prod.cEAN ) ) > 0) and (ACBrSATExtrato.ImprimeCodigoEan) then sCodigo := Trim(Prod.cEAN) else sCodigo := Trim(Prod.cProd); ImprimeCPFNaoInformado.png: independente da propriedade estar habilitada ou desabilitada, não faz diferença na impressão (sempre exibe a frase: "CONSUMIDOR NÃO IDENTIFICADO"). Ao buscar no ACBrSATExtratoFR.pas, não encontrei nada relacionado, mas ao buscar no ACBrSATExtratoFortesFr.pas, encontrei: if (Trim(Dest.xNome) <> '') then NomeConsumidor := Trim(Dest.xNome) else if (ACBrSATExtrato.ImprimeCPFNaoInformado and (Trim(Dest.CNPJCPF) = '')) then NomeConsumidor := ACBrStr('CONSUMIDOR NÃO IDENTIFICADO') else NomeConsumidor := ''; if (Trim(Dest.CNPJCPF) <> '') then NomeConsumidor := FormatarCNPJouCPF(Dest.CNPJCPF) + IfThen(NomeConsumidor<>'', ' - '+NomeConsumidor, ''); PrintIt := (NomeConsumidor <> ''); if PrintIt then mConsumidorLateral.Lines.Text := NomeConsumidor; ImprimeDescAcrescItem.png: independente da propriedade estar habilitada ou desabilitada, não faz diferença na impressão. Ao buscar no ACBrSATExtratoFR.pas, não encontrei nada relacionado, mas ao buscar no ACBrSATExtratoFortesFr.pas, encontrei: procedure TACBrSATExtratoFortesFr.rlbDescItemBeforePrint(Sender: TObject; var PrintIt: boolean); begin with ACBrSATExtrato.CFe.Det.Items[fNumItem] do begin PrintIt := ACBrSATExtrato.ImprimeDescAcrescItem and (not Resumido) and (Prod.vDesc > 0); if PrintIt then lDescItem.Caption := FormatFloatBr(Prod.vDesc,'-,0.00'); end; end; procedure TACBrSATExtratoFortesFr.rlbRatDescSubTotBeforePrint(Sender: TObject; var PrintIt: Boolean); begin with ACBrSATExtrato.CFe.Det.Items[fNumItem] do begin PrintIt := ACBrSATExtrato.ImprimeDescAcrescItem and (not Resumido) and (Prod.vRatDesc > 0); if PrintIt then lRatDescSubTot.Caption := FormatFloatBr(Prod.vRatDesc,'-,0.00'); end; end; procedure TACBrSATExtratoFortesFr.rlbAcresItemBeforePrint(Sender: TObject; var PrintIt: boolean); begin with ACBrSATExtrato.CFe.Det.Items[fNumItem] do begin PrintIt := ACBrSATExtrato.ImprimeDescAcrescItem and (not Resumido) and (Prod.vOutro > 0); if PrintIt then lAcrescItem.Caption := FormatFloatBr(Prod.vOutro,'+,0.00'); end; end; procedure TACBrSATExtratoFortesFr.rlbRatAcresSubTotBeforePrint(Sender: TObject; var PrintIt: Boolean); begin with ACBrSATExtrato.CFe.Det.Items[fNumItem] do begin PrintIt := ACBrSATExtrato.ImprimeDescAcrescItem and (not Resumido) and (Prod.vRatAcr > 0); if PrintIt then lRatAcresSubTot.Caption := FormatFloatBr(Prod.vRatAcr,'+,0.00'); end; end; ImprimeEmUmaLinha.png: independente da propriedade estar habilitada ou desabilitada, não faz diferença na impressão (sempre vai imprimir em duas linhas). Ao buscar no ACBrSATExtratoFR.pas, não encontrei nada relacionado, mas ao buscar no ACBrSATExtratoFortesFr.pas, encontrei: if ACBrSATExtrato.ImprimeEmUmaLinha then begin LinhaItem := sCodigo + ' [DesProd] ' + ACBrSATExtrato.FormatarQuantidade(Prod.qCom, False) + ' ' + Trim( Prod.uCom) + ' X ' + FormatFloatBr(Prod.vUnCom, mvUnCom) + sVlrImpostos; // acerta tamanho da descrição nTamDescricao := maxCaracter - Length(LinhaItem); sDescricao := PadRight(Copy(Trim(Prod.xProd), 1, nTamDescricao), nTamDescricao); LinhaItem := StringReplace(LinhaItem, '[DesProd]', sDescricao, [rfReplaceAll]); mLinhaItem.Lines.Add(LinhaItem); end Logo.png: independente das propriedades seguintes propriedades (ImprimeLogoLateral, LogoAutoSize, LogoCenter, LogoHeigth, LogoStretch, LogoVisible e LogoWidth) estarem habilitadas ou desabilitadas, não faz diferença na impressão. Ao buscar no ACBrSATExtratoFR.pas, não encontrei nada relacionado, mas ao buscar no ACBrSATExtratoFortesFr.pas, encontrei código para todas elas; ImprimeMsgOlhoNoImposto.png: Mesmo com a propriedade desabilitada, continua imprimindo a frase "Valor aproximado dos Tributos deste Cupom" quando busco no ACBrSATExtratoFR.pas, dessa vez encontra o código abaixo: procedure TACBrSATExtratoFR.CarregaInformacoesAdicionais; var i: Integer; begin with FCFe, cdsInformacoesAdicionais do begin Close; CreateDataSet; Append; if (Emit.cRegTrib = RTSimplesNacional) then FieldByName('ObsFisco').AsString := Msg_ICMS_123_2006; for i := 0 to Pred(obsFisco.Count) do FieldByName('ObsFisco').AsString := FieldByName('ObsFisco').AsString + obsFisco[i].xCampo + '-' + obsFisco[i].xTexto; if (InfAdic.infCpl <> '') or (Self.ImprimeMsgOlhoNoImposto and (Total.vCFeLei12741 > 0)) then FieldByName('infAdic').AsString := StringReplace(InfAdic.infCpl,';',sLineBreak,[rfReplaceAll]);; Post; end; end; QrCode.png: independente das propriedades seguintes propriedades ImprimeQrCode e ImprimeQRCodeLateral estarem habilitadas ou desabilitadas, não faz diferença na impressão e quando busco no ACBrSATExtratoFR.pas não encontra nada, mas buscando no ACBrSATExtratoFortesFr.pas encontra código para as duas; LarguraBobina.png: independente da propriedade estar habilitada ou desabilitada, não faz diferença na impressão, sempre imprimindo com a mesma largura. Ao buscar no ACBrSATExtratoFR.pas, não encontrei nada relacionado, mas ao buscar no ACBrSATExtratoFortesFr.pas, encontrei: // Largura e Margens do Relatório // RLLayout.Width := LarguraBobina; RLLayout.Margins.LeftMargin := MargemEsquerda; RLLayout.Margins.RightMargin := MargemDireita; RLLayout.Margins.TopMargin := MargemSuperior; RLLayout.Margins.BottomMargin := MargemInferior; // Ajustando o tamanho da página // RLLayout.PageBreaking := pbNone; RLLayout.PageSetup.PaperSize := fpCustom ; RLLayout.PageSetup.PaperWidth := Round(LarguraBobina/MMAsPixels) ; Margens.png: encontrei dificuldades com as seguintes propriedades: MargemSuperior: quando configurada, a impressão apresenta a margem superior, mas o papel acaba no código de barras e o QrCode não é exibido completamente. Na impressão em uma Bematech MP-4200 TH, o resultado é cortado logo após o código de barras. MargemDireita: alguns componentes não respeitam o valor configurado, ficando fora da impressão. Gostaria de saber se há possibilidade de ajustar e implementar as propriedades mencionadas. Atenciosamente, Michel Meneghin