notafiscal.pas

print component for dot matrix

unit NOTAFISCAL;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, Grids, DBGrids, DBTables, RDprint, StdCtrls, Mask, ExtCtrls, DBCtrls;

type
  TDFM_NOTA = class(TForm)
    Button1: TButton;
    RDprint1: TRDprint;
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1Sequencia: TAutoIncField;
    Table1Pedido: TIntegerField;
    Table1Codigo: TIntegerField;
    Table1Descricao: TStringField;
    Table1Unidade: TStringField;
    Table1Quantidade: TIntegerField;
    Table1Unitario: TBCDField;
    Button2: TButton;
    Table2: TTable;
    DataSource2: TDataSource;
    Edit1: TEdit;
    Label1: TLabel;
    Table2Codigo: TIntegerField;
    Table2Razao: TStringField;
    Table2Endereco: TStringField;
    Table2Bairro: TStringField;
    Table2Cidade: TStringField;
    Table2Estado: TStringField;
    Table2Cep: TStringField;
    Table2Data_Compra: TDateField;
    Table2Valor_Compra: TBCDField;
    Table2CGC_CPF: TStringField;
    Table2Inscricao: TStringField;
    DBLookupComboBox1: TDBLookupComboBox;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    Label6: TLabel;
    Bevel2: TBevel;
    Bevel1: TBevel;
    Label3: TLabel;
    Faturamento: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label2: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    msg1: TEdit;
    msg2: TEdit;
    vencimento: TEdit;
    NUMERO: TMaskEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    DATAEM: TMaskEdit;
    bruto: TEdit;
    desconto: TEdit;
    Bevel3: TBevel;
    Bevel4: TBevel;
    liquido: TEdit;
    Label10: TLabel;
    Label11: TLabel;
    Edit7: TEdit;
    Label12: TLabel;
    Edit8: TEdit;
    Table1Subtotal: TCurrencyField;
    CheckBox1: TCheckBox;
    Button3: TButton;
    ValorDpl: TEdit;
    Label13: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Table1CalcFields(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure descontoExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DFM_NOTA: TDFM_NOTA;

implementation

{$R *.DFM}

procedure TDFM_NOTA.Button1Click(Sender: TObject);
var
     subtotal, total : currency;
     linha : integer;
     traco : string;
begin
     total    := 0;
     Traco    := '-------------------------------------------------------';
     // Parametros para o CUPOM FISCAL
     rdprint1.TamanhoQteLinhas      := 1;      // Linhas (deve ser 1 quando for CUPOM)
     rdprint1.TamanhoQteColunas     := 55;     // Largura da Bobina aprox. 7 cm (7 / 2.54 * 20)
     rdprint1.FonteTamanhoPadrao    := s20cpp; // Fonte Comprimido em 20 cpp
     rdprint1.OpcoesPreview.Preview := false;

     // Cabe鏰lho do Cupom...
     with rdprint1 do
        begin
        abrir;
        impc(02,28,'SUPERMERCADO PAG & LEV LTDA',[Comp12, Negrito]);
        impc(03,28,'Av. Sampaio Vidal, 78',[Comp12]);
        impc(04,28,'17500-000 - Mar韑ia - SP',[Comp12]);
        impc(05,28,'Fone (14) 1234-5678',[Comp12]);
        imp (07,01,'N