First commit 14/02/1999

TpvCmpProv.dfm

@@ -0,0 +1,45 @@
+inherited CmpProv: TCmpProv
+  Left = 388
+  Top = 123
+  Caption = 'Compras a Proveedores'
+  PixelsPerInch = 96
+  TextHeight = 16
+  inherited PageControl1: TPageControl
+    inherited TabSheet2: TTabSheet
+      inherited Panel2: TPanel
+        inherited DBMemo1: TDBMemo
+          DataField = ''
+          DataSource = nil
+        end
+        inherited cbFormaPago: TComboBox
+          Sorted = False
+          Items.Strings = (
+            'Banco'
+            'Cheque / Talon'
+            'Efectivo'
+            'Tarjeta')
+        end
+      end
+    end
+  end
+  inherited TbVentasC: TTable
+    TableName = 'Compras (cabecera).db'
+    object TbVentasCCodFactura: TStringField [1]
+      FieldName = 'CodFactura'
+      Size = 15
+    end
+    inherited TbVentasCCodEmpleado: TIntegerField
+      FieldName = 'CodProveedor'
+    end
+    inherited TbVentasCEmplNombre: TStringField
+      KeyFields = 'CodProveedor'
+    end
+    inherited TbVentasCEmplApellidos: TStringField
+      KeyFields = 'CodProveedor'
+    end
+    inherited TbVentasCFacturaAbierta: TSmallintField
+      FieldKind = fkCalculated
+      Calculated = True
+    end
+  end
+end