Barfis
-
Total de itens
20 -
Registro em
-
Última visita
Posts postados por Barfis
-
-
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!
-
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!
-
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!
-
-
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!
-
Jhonas não deu certo a impressao saiu do papel.
abraços!
-
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.
-
muito obrigado! :)
abraço!
-
beleza.
Voce sabe alguma apostila q explique bem o componente ADOQuery, pois nunca utilizeis esse componente, e na verdade é o primeiro sistema que estou criando.
Obrigado!
Abraço.
-
obrigado pela dica!
mais sera q não tem outra maneira?
estou trabalhando com mais de 40 tabelas,
se eu formudar tudo vai demorar muito.
abraço! =)
-
Eu estou usando.
ADOConnection1;
ADOTable;
ClientDataSet1;
DataSource1;
no Data Module.
-
-
Boa tarde galera!
Estou com um problema no meu sistema, meu sistema é feito em Delphi 7 e banco de dados Access, eu compartilhei ele em uma rede simples, apenas entre o servidor e um terminal, ele esta rodado normal. Mas estou com um problema na tela de venda, quando eu faço uma venda no servidor ele só atualiza as alterações no terminal quando eu faço alguma ação, acontece o mesmo quando a venda é no terminal, por exemplo, na maquina que foi feita a baixa a quantidade em estoque é uma que seria a quantidade vendida menos a quantidade de estoque, mas na outra maquina isso não é alterado, tem alguma maneira de quando for feita a baixa em uma maquina a outra atualizar no mesmo instante?
Se tiver como faço isso?
Desde já agradeço
Impressão com a impressora Bematech MP-4000 TH.
em Delphi, Kylix
Postado
Jhonas, vlw pela dica vo testar a 2º.
vlw.
Abraço!