Ir para conteúdo
  • Cadastre-se

thiago a amaral

Membros
  • Total de ítens

    7
  • Registro em

  • Última visita

thiago a amaral's Achievements

Rookie

Rookie (2/14)

  • One Year In
  • First Post
  • Conversation Starter
  • Dedicated Rare
  • One Month Later

Recent Badges

0

Reputação

  1. uso tef paygo, quando faco a venda tudo normal ok, venda cai na conta tudo certinho, quando vou fazer uma nova venda e abro o tef ele retorna essa tela, dai tenho que fechar e abrir denovo para fazer a venda https://devpaygo.readme.io/v2/docs/5fluxos-da-automação-comercial#:~:text=A última operação ainda não,através do comando “NCN”.&text=As demais operações de TEF,(comando “CNC”)
  2. bom dia, alguem já teve situação do ACBrPosPrinter ficar com a porta aberta, quando to com pdv aberto não consigo imprimir de outros programas, só imprime quando fecha o pdv
  3. quando coloco a obs adicional do produto sai assim alguem ja passou por algo parecido estou usando Versao Instalador: 2.10.1.9
  4. boa noite estou usando um campo chamado XML (blob sub_type 1 segment size 80) onde salvo o conteudo do xml dentro do banco de dados [FireDAC][Phys][FB]Dynamic SQL Error SQL error code = -104 String literal with 82343 bytes exceeds the maximum length of 65535 bytes quando o xml e grande da erro, alguem ja pegou algum caso parecido?
  5. thiago a amaral

    salvar pdf

    boa tarde, utilizo o ACBrSATExtratoESCPOS1 para mandar cupom sat para imprimir na bobina e utilizo o ACBrSATExtratoFortes1 para gerar a impressão na tela, qual e o parâmetro de cada componente para salvar automático o pdf na pasta da cfe? tenho um campo caminho que salvo na qryConfigPASTA_CFE_PDF o caminho onde vai salvar o arquivo? qual seria o parâmetro correto para colocar e salvar automático o pdf? uso desse jeito procedure TDMSat.ConfiguraImpressoraSAT; begin // configurações impressão escpos if dados.qryTerminalTIPOIMPRESSORA.AsString = '1' then begin ACBrSAT1.Extrato := ACBrSATExtratoFortes1; ACBrSATExtratoFortes1.Impressora := dados.qryTerminalPORTA.Value; end else begin ACBrSAT1.Extrato := ACBrSATExtratoESCPOS1; ACBrPosPrinter1.EspacoEntreLinhas := dados.qryTerminalESPACO_ENTRE_LINHAS.AsInteger; ACBrPosPrinter1.LinhasEntreCupons := dados.qryTerminalLINHAS_ENTRE_CUPOM.AsInteger; ACBrPosPrinter1.ColunasFonteNormal := StrToIntDef(dados.qryTerminalCOLUNAS.AsString, 42); ACBrSATExtratoESCPOS1.MargemDireita := dados.qryTerminalMARGEM_DIREITA.AsFloat; ACBrSATExtratoESCPOS1.MargemEsquerda := dados.qryTerminalMARGEM_ESQUERDA.AsFloat; ACBrSATExtratoESCPOS1.MargemInferior := dados.qryTerminalMARGEM_INFERIOR.AsFloat; ACBrSATExtratoESCPOS1.MargemSuperior := dados.qryTerminalMARGEM_SUPERIOR.AsFloat; ACBrPosPrinter1.Porta := LowerCase(dados.qryTerminal.FieldByName('PORTA') .AsString); ACBrPosPrinter1.Device.Baud := dados.qryTerminalVELOCIDADE.Value; if dados.qryTerminal.FieldByName('MODELO').Value = 'DARUMA' then ACBrPosPrinter1.Modelo := ppEscDaruma else if dados.qryTerminal.FieldByName('MODELO').Value = 'BEMATECH' then ACBrPosPrinter1.Modelo := ppEscBematech else if dados.qryTerminal.FieldByName('MODELO').Value = 'ELGIN' then ACBrPosPrinter1.Modelo := ppEscPosEpson else if dados.qryTerminal.FieldByName('MODELO').Value = 'DIEBOLD' then ACBrPosPrinter1.Modelo := ppEscDiebold else if dados.qryTerminal.FieldByName('MODELO').Value = 'EPSON' then ACBrPosPrinter1.Modelo := ppEscPosEpson else if dados.qryTerminal.FieldByName('MODELO').Value = 'VOX' then ACBrPosPrinter1.Modelo := ppEscVox else if dados.qryTerminal.FieldByName('MODELO').Value = 'POSSTAR' then ACBrPosPrinter1.Modelo := ppEscPosStar else if dados.qryTerminal.FieldByName('MODELO').Value = 'JIANG' then ACBrPosPrinter1.Modelo := ppEscZJiang else if dados.qryTerminal.FieldByName('MODELO').Value = 'GPRINTER' then ACBrPosPrinter1.Modelo := ppEscGPrinter else if dados.qryTerminal.FieldByName('MODELO').Value = 'EPSONP2' then ACBrPosPrinter1.Modelo := ppEscEpsonP2 else ACBrPosPrinter1.Modelo := ppTexto; ACBrPosPrinter1.Ativar; end; ACBrSAT1.Extrato.Sistema := dados.qryParametroEMPRESA.Value; ACBrSAT1.Extrato.ImprimeDescAcrescItem := False; ACBrSAT1.Extrato.ImprimeCodigoEan := True; if FilesExists(dados.qryConfigLOGOMARCA.AsString) then ACBrSAT1.Extrato.Logo := dados.qryConfigLOGOMARCA.AsString; ACBrSAT1.Extrato.Site := dados.qryEmpresaSITE.AsString; ACBrSAT1.Extrato.Email := dados.qryEmpresaEMAIL.AsString; end;
  6. o meu aqui esta igual da foto em qual campo mudo para true
  7. thiago a amaral

    infAdProd

    na impressão tanto do ACBrSATExtratoESCPOS1 ou ACBrSATExtratoFortes1 ele não imprime a tag infAdProd no xml sai a tag com informação por item, mais na impressão nao sai nada alguém sabe onde coloco essa informação para imprimir?
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.