First commit 14/02/1999

TpvVntEmpl.dfm

@@ -0,0 +1,36 @@
+inherited VntEmpl: TVntEmpl
+  Left = 262
+  Top = 259
+  Caption = 'Ventas de los empleados'
+  PixelsPerInch = 96
+  TextHeight = 16
+  inherited TbVentasC: TTable
+    object TbVentasCCodFactura: TIntegerField [1]
+      FieldName = 'CodFactura'
+    end
+    object TbVentasCImprimirNotas: TBooleanField
+      FieldName = 'ImprimirNotas'
+    end
+    object TbVentasCNotasFactura: TMemoField
+      FieldName = 'NotasFactura'
+      BlobType = ftMemo
+      Size = 1
+    end
+  end
+  inherited TbClientes: TQuery
+    SQL.Strings = (
+      
+        'SELECT VentasCabecera.CodCliente ID, Personas.Nombre, Personas.E' +
+        'mpresa, SUM(  VentasCabecera.TotalSin + VentasCabecera.TotalIva ' +
+        ' ) VentasCabecera."Total Fact."'
+      'FROM "Ventas (cabecera).db" VentasCabecera'
+      '   INNER JOIN "personas.DB" Personas'
+      '   ON  (VentasCabecera.CodCliente = Personas.CodCliente1)  '
+      'WHERE   (VentasCabecera.FechaFactura >= '#39'01/01/2001'#39')  '
+      '   AND  (VentasCabecera.FechaFactura <= '#39'03/03/2001'#39')  '
+      
+        'GROUP BY VentasCabecera.CodCliente, Personas.Nombre, Personas.Em' +
+        'presa'
+      'ORDER BY VentasCabecera."Total Fact." DESC')
+  end
+end