37 lines
1.2 KiB
Plaintext
37 lines
1.2 KiB
Plaintext
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
|