Ninguno

Solo disponible en BuenasTareas
  • Páginas : 4 (967 palabras )
  • Descarga(s) : 0
  • Publicado : 18 de enero de 2011
Leer documento completo
Vista previa del texto
Imports System.Data
Imports System.Data.Odbc
Imports Irupana.Entidades
Imports Irupana.AccesoaDatos

Public Class LDetalle_cotiz
Inherits ADetalle_cotiz
Implements IConexion'("select d.id_detalle_cotiz as 'Nro', t.tipo as 'TIPO', s.descripcion as 'SUBTIPO', p.descripcion as 'PRODUCTO', e.descripcion_emp as 'EMPAQUE', d.num_empaques as 'N_EMPAQUES', " & _
'" d.unidades as 'UNDADES', d.peso_neto_total_kg as 'PESO_NETO_TOTAL_KG', d.precio_unit_kg as 'PRECIO_UNITARIO_KG', d.precio_total as 'PRECIO_TOTAL', d.peso_bruto_total_kg as'PESO_BRUTO_TOTAL_KG' " & _
' " from detalle_cotiz d, tipoproducto t, subtipo s, empaque e, producto p " & _
' " where d.id_tipo=t.id_tipo and d.id_subtipo=s.id_subtipo andd.id_empaque=e.id_empaque and d.id_producto=p.id_producto " & _
' " and d.id_cotiz= " & pid_cotiz.id_cotiz & "", con)
Public Overrides Function Get_detalle_cotiz(ByVal pid_cotiz AsEntidades.EDetalle_cotiz) As System.Data.DataTable
Try

Using con As New OdbcConnection(Conexion)
con.Open()
Dim sql As NewOdbcDataAdapter("SELECT co.id_detalle_cotiz as 'Nro',ti.tipo as 'TIPO',sub.descripcion as 'SUBTIPO',pr.descripcion as 'PRODUCTO',co.peso_neto_unitario_kg as 'PESO',co.unidades as 'CANTIDAD' FROM detalle_cotizco,producto pr,tipoproducto ti,subtipo sub WHERE pr.id_producto=co.id_producto AND co.id_tipo=ti.id_tipo AND co.id_subtipo=sub.id_subtipo AND co.id_cotiz= '" & pid_cotiz.id_cotiz & "'", con)Dim dt As New DataTable
sql.Fill(dt)
con.Close()
Return dt
End Using
Catch ex As Exception
Throw NewException(ex.ToString, ex)
End Try
End Function

Public Overrides Function Get_detalle_cotiz_All() As DataTable
Try

Using con As New OdbcConnection(Conexion)...
tracking img