vbscript 选择en Tquery

Posted 2021-05-21

 Dim _Query As New TQuery(_Transaccion.Conexion)
            _Query.Selected(New TField("I_F", "Emp_Id"))
            _Query.Selected(New TField("I_F", "Suc_Id"))
            _Query.Selected(New TField("I_F", "Orden_Id"))
            _Query.Selected(New TField("I_F", "Factura_Id"))
            _Query.Selected(New TField("I_F", "Consolidacion_Id"))
            _Query.Selected(New TField("I_F", "Nacionalizacion_Id"))
            _Query.Selected(New TField("I_F", "Factura_Numero"))
            _Query.Selected(New TField("I_F", "Proveedor_Id"))
            _Query.Selected(New TField("I_F", "Moneda_Id"))
            _Query.Selected(New TField("I_F", "Factura_Subtotal_Gravado"))
            _Query.Selected(New TField("I_F", "Factura_Subtotal_Exento"))
            _Query.Selected(New TField("I_F", "Factura_Desc_Gravado"))
            _Query.Selected(New TField("I_F", "Factura_Desc_Exento"))
            _Query.Selected(New TField("I_F", "Factura_Impuesto"))
            _Query.Selected(New TField("I_F", "Factura_Total"))
            _Query.Selected(New TField("I_F", "Asiento_Id"))
            _Query.Selected(New TField("I_F", "Factura_Fecha"))
            _Query.Selected(New TField("I_F", "Factura_Usuario_Crea"))
            _Query.Selected(New TField("I_F", "Tipo_Cambio"))
            _Query.Selected(New TField("I_F", "Total_Dolares"))
            _Query.Selected(New TField("I_F", "Factura_TipoFactura"))
            _Query.Selected(New TField("P", "Prov_Nombre"))
            _Query.Selected(New TField("M", "Moneda_Nombre"))

            _Query.From(New TFrom("Importacion_Factura", "I_F"))
            _Query.From(New TFrom("Proveedor", "P"))
            _Query.From(New TFrom("Moneda", "M"))

            _Query.Where(New TField("I_F", "Emp_Id"), OperadoresFiltros.Igual, New TValue(_Cols.Emp_Id))
            _Query.Where(New TField("I_F", "Suc_Id"), OperadoresFiltros.Igual, New TValue(_Cols.Suc_Id))
            _Query.Where(New TField("I_F", "Orden_Id"), OperadoresFiltros.Igual, New TValue(_Cols.Orden_Id))
            _Query.Where(New TField("I_F", "Factura_Id"), OperadoresFiltros.Igual, New TValue(_Cols.Factura_Id))

            _Query.Where(New TField("I_F", "Proveedor_Id"), OperadoresFiltros.Igual, New TField("P", "Prov_Id"))
            _Query.Where(New TField("I_F", "Moneda_Id"), OperadoresFiltros.Igual, New TField("M", "Moneda_Id"))