Barfis
Membros-
Total de itens
20 -
Registro em
-
Última visita
Sobre Barfis
- Data de Nascimento 02/08/1989
Contatos
-
MSN
barfis_felipe@hotmail.com
Perfil
-
Gender
Male
-
Location
Campinas - SP
Barfis's Achievements
0
Reputação
-
Impressão com a impressora Bematech MP-4000 TH.
pergunta respondeu ao Barfis de Barfis em Delphi, Kylix
Jhonas, vlw pela dica vo testar a 2º. vlw. Abraço! -
Bom dia pessoal estou com um problema na impressão de cupom não fiscal. Em um dos meus cadastros tenho a opção de indicar a porta que vou enviar a impressão, mas agora surgiu um problema um novo cliente comprou uma impressora Bematech MP-4000 TH (USB) e a porta dela é a que o instalador gera, meus relatórios feito no quick imprime normalmente, mas os meu cupom não fiscal não imprime, não da erro simples mente não faz nada. AssignFile(F, dmempresa5.tabempresaimpressora.Text); Rewrite(F); Writeln(F,#27#15 + ' Comprovante de venda. '); Writeln(F,' '); Writeln(F,'Cartao Cupom: '+ inttostr(dtmnotafiscal11.tabnotafiscalnumeronotafiscal.Value)); Writeln(F,'' + vdata + ' ' + VHORA ); Writeln(F,'_________________________________________________________'); Writeln(F,'Qtd: Valor: Total: '); cdsvenda.first; while not cdsvenda.Eof do begin Writeln(F,#27#15 + cdsvendanome.text );// imprime os dados da dbgrid Writeln(F,#27#15 + '' + inttostr(cdsvendaquantidade.value) + ' '+ DBEdit2.Text + ' ' + DBEdit1.Text); cdsvenda.Next; // pula para o proximo registro. end; Writeln(F,'_________________________________________________________'); Writeln(F,#27#15 + ' Qtde. Total: ' + IntToStr (Form19.cdstotal2quantidade.Value)); Writeln(F,#27#15 + ' Total......: ' + DBEdit5.Text); Writeln(F,'_________________________________________________________'); Writeln(F,#27#15 + 'Vendedor: ' + cdsvendadadosnumerovendedo.Text + ' ' + cdsvendadadosvendedor.Text); Writeln(F,' '); if (cdsvendadadoscliente.Text <> '') then begin Writeln(F,#27#15 + 'Cliente..: ' + cdsvendadadoscliente.Text); Writeln(F,#27#15 + 'Endereço.: ' + cdsvendadadosendereco.Text); Writeln(F,#27#15 + 'Numero...: ' + cdsvendadadosnumero.Text + ' ' + cdsvendadadoscomplemento.Text); Writeln(F,#27#15 + 'Bairro...: ' + cdsvendadadosbairro.Text); Writeln(F,#27#15 + 'Telefone.: ' + cdsvendadadostelefone.Text); end; riteln(F,'_________________________________________________________'); Writeln(F,#27#15 + '' + dmempresa5.tabempresarodape.Text); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,#27#15+ '' + dmempresa5.tabempresacabecalho1.Text); Writeln(F,#27#15+ '' + dmempresa5.tabempresacabecalho2.text); Writeln(F,#27#15+ '' + dmempresa5.tabempresacabecalho3.text); Writeln(F,#27#15+ '' + dmempresa5.tabempresacabecalho4.Text); Writeln(F,' '); Writeln(F,' '); CloseFile(F); Desde já agradeço!
-
Bom dia! Tenta assim: if (media >= media para aprovar) then begin edit7.text := 'Aprovado'; end else if (media < media para aprovar) and (media >= media para exame) then begin edit7.text := 'Exame'; end else if (media < media para exame) then begin edit7.text := 'Retido'; end;
-
Bom dia! Douglas_Soares obrigado pela dica, resolveu o meu problema :D . Mas agora tenho mais uma duvida, agora que estou trabalhando em rede achei um problema, quando efetua uma alteração no cadastro de produto e a tela esta aberta tanto no servidor como no terminal não atualiza, Ex.: Tenho um produto que tem 50 em estoque, e altero ele para 100 no servidor, no terminal não é feita essa alteração só se eu fechar e abrir a tela. Tenho esse problema também na situação inversa a alteração feita no terminal não atualiza o servidor.
-
Boa tarde galera! Estou com um problema com o meu sistema. O problema é o seguinte estou com um sistema em um servidor e em um terminal, no servidor esta instalado o firebird Server e no terminal o firebird cliente. No servidor o sistema abre normalmente, já no terminal ocorre um erro Project Projeto.exe raised exception class EUIBerror with message ‘unable to complete network request to host “192.168.0.101”. Failed to establish a connection. Uma tentativa de conexão falhou porque o componente conectado não respondeu corretamente após um período de tempo ou a conexão estabelecida falhou porque o host conectado não respondeu. Unsuccessful execution caused by a system error that precludes Successful execution of subsequent statements Error Code: 401’. Process stopped. Minha conexão é estabelecida com os seguintes comandos: caminho := '192.168.0.101:C:\Sac\Fonte\dados\BDSIAC.FDB'; SQLCONEXAO.Params.Clear; SQLCONEXAO.Params.Add('DriverName=UIB FireBird15'); SQLCONEXAO.Params.Add('User_Name=SYSDBA'); SQLCONEXAO.Params.Add('Password=masterkey'); SQLCONEXAO.Params.Add('SqlDialect=3'); SQLCONEXAO.Params.Add('Database=' + caminho); SQLCONEXAO.Connected := True; Desde já agradeço!
-
Boa tarde galera. Gostaria de saber qual rotina para trabalhar com nota fiscal paulista. Desde já agradeço!
-
(Resolvido) Problema de comunicação com a impressora bematech MP – 20
pergunta respondeu ao Barfis de Barfis em Delphi, Kylix
ae galera deu certo esse esquema so para complementa. quando a empressora estiver em rede é so usar: \\nome do servidor de impressora\ nome dea impressora. e se for impressora local: \\ip\nome da impressora. ou a porta q no meu caso foi LPT1 vlw pela ajuda. abraços para todos! -
(Resolvido) Problema de comunicação com a impressora bematech MP – 20
pergunta respondeu ao Barfis de Barfis em Delphi, Kylix
sim, mas não lembrei de falar esse campo é o endereço da impressora, no caso se eu utilisar o \\ip\impressora funciona, mas o micro do meu cliente não tem ip. mesmo eu colocando um ip não da certo esse é o problema sera q tem outra forma? -
Boa tarde galera! Estou com um problema para imprimir comprovante de vendas meu cliente tem um micro em um mercado pequeno e precisa dessa impressão, o meu problema é que esta dando um erro de comunicação na impressão desse cupom, so no cupom pois os relatórios de apoio q eu fiz no quickreport imprime normal, so os do cupom não imprime segue o código. procedure Tformimprimir.Button1Click(Sender: TObject); VAR I:Integer; F : TextFile; VDATA : String; VHORA : String; imp : String; begin VDATA := '' + FormatDateTime ('dd"/"mm"/"yyyy',now); VHORA := timetostr (now); imp := dmempresa5.tabempresaimpressora.Text; AssignFile(F, dmempresa5.tabempresaimpressora.Text); Rewrite(F); Writeln(F,#27#15 + ' Comprovante de venda. '); Writeln(F,' '); Writeln(F,'Cartão Cupom: '+ inttostr(dtmnotafiscal11.tabnotafiscalnumeronotafiscal.Value)); //Writeln(F,#27#15+'_________________________________________________________'); //Pula linha //Writeln(F,' '); Writeln(F,vdata + ' ' + VHORA ); Writeln(F,'_________________________________________________________'); Writeln(F,'Qtd: Valor: Total: '); cdsvenda.first; while not cdsvenda.Eof do begin Writeln(F,#27#15 + cdsvendanome.text );// imprime os dados da dbgrid Writeln(F,#27#15 + '' + inttostr(cdsvendaquantidade.value) + ' '+ DBEdit2.Text + ' ' + DBEdit1.Text); // imprime os dados da dbgrid cdsvenda.Next; // pula para o proximo registro. end; // volta para o while até que seja o final... Writeln(F,'_________________________________________________________'); Writeln(F,#27#15 + ' Qtde. Total: ' + dtmtotal.cdstotalquantidade.Value); Writeln(F,#27#15 + ' Sub. Total.: ' + DBEdit3.Text); //Writeln(F,#27#15 + ' Desc. Total: ' + DBEdit4.Text); Writeln(F,#27#15 + ' Total......: ' + DBEdit5.Text); //Writeln(F,#27#15 + ' Dinheiro...: ' + DBEdit6.Text); //Writeln(F,#27#15 + ' Troco......: ' + DBEdit7.Text); Writeln(F,'_________________________________________________________'); //Writeln(F,' '); Writeln(F,#27#15 + 'Vendedor: ' + cdsvendadadosnumerovendedo.Text + ' ' + cdsvendadadosvendedor.Text); Writeln(F,' '); if (cdsvendadadoscliente.Text <> '') then begin Writeln(F,#27#15 + 'Cliente..: ' + cdsvendadadoscliente.Text); Writeln(F,#27#15 + 'Endereço.: ' + cdsvendadadosendereco.Text); Writeln(F,#27#15 + 'Numero...: ' + cdsvendadadosnumero.Text); Writeln(F,#27#15 + 'Bairro...: ' + cdsvendadadosbairro.Text); Writeln(F,#27#15 + 'Telefone.: ' + cdsvendadadostelefone.Text); end; //Writeln(F,' '); //Writeln(F,' ___________________________________________ '); //Writeln(F,' Assinatura '); Writeln(F,'_________________________________________________________'); Writeln(F,#27#15 + '' + dmempresa5.tabempresarodape.Text); //Writeln(F,'_________________________________________________________'); //Writeln(F,' '); //Writeln(F, #10); // Ejeta a página Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,' '); Writeln(F,#27#15+ '' + dmempresa5.tabempresacabecalho1.Text); Writeln(F,#27#15+ '' + dmempresa5.tabempresacabecalho2.text); Writeln(F,#27#15+ '' + dmempresa5.tabempresacabecalho3.text); Writeln(F,#27#15+ '' + dmempresa5.tabempresacabecalho4.Text); Writeln(F,' '); Writeln(F,' '); CloseFile(F); end; Urgente!
-
(Resolvido) Como centralizar o texto de um campo do clientdataset na i
pergunta respondeu ao Barfis de Barfis em Delphi, Kylix
vlw! abraço. -
(Resolvido) Como centralizar o texto de um campo do clientdataset na i
pergunta respondeu ao Barfis de Barfis em Delphi, Kylix
Desculpa me expressei mal. A impressão é de comprovante de venda na lx300. essa que você me passou é para centralizar em folha A4? Abraço! -
(Resolvido) Como centralizar o texto de um campo do clientdataset na i
pergunta respondeu ao Barfis de Barfis em Delphi, Kylix
Jhonas não deu certo a impressao saiu do papel. abraços! -
(Resolvido) Como centralizar o texto de um campo do clientdataset na i
pergunta respondeu ao Barfis de Barfis em Delphi, Kylix
vlw Jhonas... amnha vo testar... abraço! :) -
Boa tarde galera! Estou fazendo uma impressão onde o usuário personaliza o cabeçalho e o rodapé de um comprovante de venda, mesmo eu colocando o DBEdit centralizado e a opção Alignment = taCenter do campo desejado e continua imprimindo alinhado a esquerda, como faço para ele imprimir centralizado, a linha de código é essa : Writeln(F,#27#15+ '' + dmempresa5.cdsempresacabecalho.Text); Desde já agradeço. Felipe Buffalo.
-
Atualizar DBGrid que esta ligado em uma tabela Access em rede
pergunta respondeu ao Barfis de Barfis em Delphi, Kylix
muito obrigado! :) abraço!