Delphi dicas

Impressão do comprovante de vendas

Na paleta de componentes, clique na guia Additional. Em seguida, dê um clique sobre o componente BitBtn para inserí-lo no formulário.  No Object Inspector clique em eventos  e dê um clique duplo sobre o OnClick e insira o código.



procedure TfVendas.BitBtn1Click(Sender: TObject);

VAR

F: TextFile;

VCOD,VDATA,VVALOR,VNOME,vdescricao, vCliente, vCodVenda, vcodProduto, VQuantidade, VPreco, vSubTotal, vNumParcela, vFormaPag, vCondicao, vValorParcela, vDesconto, vValorTotal : STRING;

begin

        VNOME := DBEDIT2.Text;

        VCOD := DBEDIT3.Text;

        VDATA := DBEDIT3.Text;

        VVALOR := DBEDIT4.TEXT;

        vCliente := ednome.TEXT;

        vCodVenda := DBEdit1.Text;

        VDescricao := ednome.TEXT;

        vDesconto := DBedit6.Text;

        vValorTotal := DBedit9.Text;

        vNumParcela := DBEdit11.Text;

        vFormaPag := DBEdit10.Text;

        vCondicao := DBEdit8.Text;

        vValorParcela := DBEdit12.Text;

        VQuantidade := qrItensVendaQuantidade.Text;

        VPreco := qrItensVendaPreco.Text;

        vSubTotal := qrItensVendaSubTotal.Text;

        AssignFile(F,'LPT1');

        Rewrite(F);

        Writeln(F,' Comprovante de Vendas      ');

        Writeln(F,#27#15+'----------------------------------------------------------------------'); //Pula linha

        Writeln(F,'Emissao: '+vdata+'                                     Orcamento: '+vcodVenda );

        Writeln(F,'-----------------------------------------------------------------------------');

        Writeln(F,'Cliente: '+edNome.text                                                        );

        Writeln(F,'-----------------------------------------------------------------------------');

        Writeln(F,'Descricao            Quantidade          Preço       Sub-Total               ');

        while not qrItensVenda.Eof do begin // faça enquanto não for o fim da tabela

                Writeln(F,#27#18+qrItensVendaDescricao.text+'          '+qrItensVendaQuantidade.Text+'          '+qrItensVendaPreco.Text+'          '+qrItensVendaSubTotal.Text); // imprime os dados da dbgrid

                qrItensVenda.next; // pula para o proximo registro.

        end; // volta para o while até que seja o final...



        Writeln(F,'-----------------------------------------------------------------------------');

        if (DBedit4.text <> '') and (DBedit9.text <> '') then begin

                Writeln(F,'Valor.: '+DBedit4.Text);

                Writeln(F,'-----------------------------------------------------------------------------');

                Writeln(F,'NumParcela.: '+DBedit11.Text+'                 Desconto(%):     '+DBedit6.Text);

                Writeln(F,'FormaPag: '+DBedit10.Text+'                    ValorTotal:      '+DBEdit9.Text);

                Writeln(F,'Condicao: '+DBedit8.Text+'                     ValorRecebido.:  '+DBedit5.Text);

                Writeln(F,'ValorParcela: '+DBedit12.Text+'                Troco:           '+DBedit7.text);

                Writeln(F,'-----------------------------------------------------------------------------');

        end;

        Writeln(F,'                    ___________________________________________              ');

        Writeln(F,'                                   Assinatura                                ');

        Writeln(F,'-----------------------------------------------------------------------------');

        Writeln(F,'                            OBRIGADA PELA PREFERENCIA                        ');

        Writeln(F,'-----------------------------------------------------------------------------');

        Writeln(F, #12); // Ejeta a página

        CloseFile(F);

end;

por : Sheila Uliana