First commit 14/02/1999

-- TPVwin --.bpg

@@ -0,0 +1,34 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = TPV.exe TPV_Ventas.exe TPV_BuscarEntreLineas.exe TPV_SAT.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+
+TPV.exe: TPV.bpr
+  $(ROOT)\bin\bpr2mak $**
+  $(ROOT)\bin\make -$(MAKEFLAGS) -f$*.mak
+
+TPV_Ventas.exe: TPV_Ventas.bpr
+  $(ROOT)\bin\bpr2mak $**
+  $(ROOT)\bin\make -$(MAKEFLAGS) -f$*.mak
+
+TPV_BuscarEntreLineas.exe: TPV_BuscarEntreLineas.bpr
+  $(ROOT)\bin\bpr2mak $**
+  $(ROOT)\bin\make -$(MAKEFLAGS) -f$*.mak
+
+TPV_SAT.exe: TPV_SAT.bpr
+  $(ROOT)\bin\bpr2mak $**
+  $(ROOT)\bin\make -$(MAKEFLAGS) -f$*.mak
+
+

BuscarEntreLineas.cpp

@@ -0,0 +1,77 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+
+#include "BuscarEntreLineas.h"
+#include "TDlgBuscar.h"
+#include "TpvVntAlbPrint.h"
+#include "TpvVntFctPrint.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma resource "*.dfm"
+TForm1 *Form1;
+//---------------------------------------------------------------------------
+__fastcall TForm1::TForm1(TComponent* Owner)
+        : TForm(Owner)
+{
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TForm1::Button2Click(TObject *Sender)
+{
+ Close();
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm1::Button1Click(TObject *Sender)
+{
+  int CodFactura;
+  // Mostramos la zona de busqueda de clientes...
+  // Mostramos el dialogo, buscar Vendedores
+  TDlgBuscar *DlgBuscar;
+
+  DlgBuscar = new  TDlgBuscar(this);
+  DlgBuscar -> DefaultField = "NombreProducto";
+  DlgBuscar -> TbBusquedas -> TableName = "Ventas (cuerpo).db";
+  DlgBuscar -> TbBusquedas -> Active = true;
+
+  DlgBuscar -> ShowModal();
+
+  if ( DlgBuscar -> ModalResult == mrOk )
+  {
+	  CodFactura = DlgBuscar -> TbBusquedas -> FieldByName( "EnlaceFactura" ) -> AsInteger;
+          TbVentasC -> Active = true;
+          if ( ( TbVentasC -> Locate( "EnlaceFactura", CodFactura, TLocateOptions() << loCaseInsensitive ) ) )
+          {
+                  if ( TbVentasC->FieldByName("CodFactura")->AsInteger <= 0 )
+                  {
+                        // Imprime Ticket
+                          TQRMDFacturaVnt1 *QRMDFacturaVnt;
+                          // Creamos una ficha del tipo TProductos
+                          // Guardando la referencia en la variable TProductos
+                          QRMDFacturaVnt = new TQRMDFacturaVnt1(this);
+                          // Mostrarla como modal y seg<65>n el valor devuelto
+                          QRMDFacturaVnt -> TbVntCabecera -> GotoCurrent( TbVentasC );
+                          QRMDFacturaVnt -> Preview();
+                          // Destruimos la ficha
+                          delete QRMDFacturaVnt;
+                   } else {
+                          // Imprime factura
+                          TQRMDFacturaVnt *QRMDFacturaVnt;
+                          // Creamos una ficha del tipo TProductos
+                          // Guardando la referencia en la variable TProductos
+                          QRMDFacturaVnt = new TQRMDFacturaVnt(this);
+                          // Mostrarla como modal y seg<65>n el valor devuelto
+                          QRMDFacturaVnt -> TbVntCabecera -> GotoCurrent( TbVentasC );
+                         QRMDFacturaVnt -> Preview();
+                          // Destruimos la ficha
+                          delete QRMDFacturaVnt;
+                   }
+          TbVentasC -> Active = false;
+          }
+  }
+
+  delete DlgBuscar;
+}
+//---------------------------------------------------------------------------
+ 

BuscarEntreLineas.dfm

@@ -0,0 +1,72 @@
+object Form1: TForm1
+  Left = 206
+  Top = 126
+  Width = 413
+  Height = 180
+  Caption = 'Form1'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 0
+    Top = 0
+    Width = 401
+    Height = 57
+    Alignment = taCenter
+    Caption = 'Busqueda de Facturas por CONTENIDO'
+    Font.Charset = ANSI_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -19
+    Font.Name = 'Arial Black'
+    Font.Style = []
+    ParentFont = False
+    WordWrap = True
+  end
+  object Button1: TButton
+    Left = 128
+    Top = 88
+    Width = 145
+    Height = 25
+    Caption = '&Localizar Factura'
+    TabOrder = 0
+    OnClick = Button1Click
+  end
+  object Button2: TButton
+    Left = 128
+    Top = 120
+    Width = 145
+    Height = 25
+    Caption = '&Salir'
+    TabOrder = 1
+    OnClick = Button2Click
+  end
+  object Empresas: TDatabase
+    Connected = True
+    DatabaseName = 'TpvWin'
+    DriverName = 'STANDARD'
+    Params.Strings = (
+      'PATH=DATOS\'
+      'DEFAULT DRIVER=PARADOX'
+      'ENABLE BCD=FALSE')
+    SessionName = 'Default'
+    Top = 48
+  end
+  object TbVentasC: TTable
+    DatabaseName = 'TpvWin'
+    TableName = 'Ventas (cabecera).db'
+    Left = 40
+    Top = 80
+    object TbVentasCEnlaceFactura: TAutoIncField
+      FieldName = 'EnlaceFactura'
+    end
+    object TbVentasCCodFactura: TIntegerField
+      FieldName = 'CodFactura'
+    end
+  end
+end

BuscarEntreLineas.h

@@ -0,0 +1,32 @@
+//---------------------------------------------------------------------------
+
+#ifndef BuscarEntreLineasH
+#define BuscarEntreLineasH
+//---------------------------------------------------------------------------
+#include <Classes.hpp>
+#include <Controls.hpp>
+#include <StdCtrls.hpp>
+#include <Forms.hpp>
+#include <Db.hpp>
+#include <DBTables.hpp>
+//---------------------------------------------------------------------------
+class TForm1 : public TForm
+{
+__published:	// IDE-managed Components
+        TLabel *Label1;
+        TButton *Button1;
+        TButton *Button2;
+        TDatabase *Empresas;
+        TTable *TbVentasC;
+        TAutoIncField *TbVentasCEnlaceFactura;
+        TIntegerField *TbVentasCCodFactura;
+        void __fastcall Button2Click(TObject *Sender);
+        void __fastcall Button1Click(TObject *Sender);
+private:	// User declarations
+public:		// User declarations
+        __fastcall TForm1(TComponent* Owner);
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TForm1 *Form1;
+//---------------------------------------------------------------------------
+#endif

Datos/DBDWORK.INI

@@ -0,0 +1 @@
+