-- E119, que no se pueda refacturar cuando no se ha surtido

-- pesta;a de contabilidad
-- subproyecto seleccionado en base al principal

Ventas/Ventas.aspx.vb

@@ -1710,30 +1710,30 @@ Partial Class Ventas
 
 #End Region
 
-#Region "AuxiliarConta"
-    Property CvePrePolizaNegativa As Integer
-        Get
-            If ViewState("CvePrePolizaNegativa") Is Nothing Then
-                Return -1
-            Else
-                Return ViewState("CvePrePolizaNegativa").ToString.ToEntero
-            End If
+    '#Region "AuxiliarConta"
+    '    Property CvePrePolizaNegativa As Integer
+    '        Get
+    '            If ViewState("CvePrePolizaNegativa") Is Nothing Then
+    '                Return -1
+    '            Else
+    '                Return ViewState("CvePrePolizaNegativa").ToString.ToEntero
+    '            End If
 
-        End Get
-        Set(value As Integer)
-            ViewState("CvePrePolizaNegativa") = value
-        End Set
-    End Property
+    '        End Get
+    '        Set(value As Integer)
+    '            ViewState("CvePrePolizaNegativa") = value
+    '        End Set
+    '    End Property
 
-    Private Property DTDatos As DataTable
-        Get
-            Return CType(ViewState("DTDatos"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DTDatos") = value
-        End Set
-    End Property
-#End Region
+    '    Private Property DTDatos As DataTable
+    '        Get
+    '            Return CType(ViewState("DTDatos"), DataTable)
+    '        End Get
+    '        Set(value As DataTable)
+    '            ViewState("DTDatos") = value
+    '        End Set
+    '    End Property
+    '#End Region
 
 #Region " A C U M U L A D O R E S"
 
@@ -2477,7 +2477,9 @@ Partial Class Ventas
             CargaFletes()
 
             CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto, AplicaTodos:="")
+            DdlSubProyecto.SelectedValueExist(DdlSubProyectoDatos.SelectedValue)
             CargarCentrosDeCosto(DdlProyectoPyME, DdlSubProyectoPyME, LblProyectoPyME, LblSubProyectoPyME, AplicaTodos:="")
+            DdlProyectoPyME.SelectedValueExist(DdlSubProyectoDatos.SelectedValue)
             BrSubProyecto.Visible = DdlProyecto.Visible
             divProyectoPyME.Visible = DdlProyecto.Visible
 
@@ -4078,6 +4080,8 @@ Partial Class Ventas
                     DdlSubProyectoDatos.Items.Insert(0, New ListItem("Seleccione", "-1"))
                 End If
                 DdlSubProyectoDatos.SelectedValueExistInsert(DbRowVenta("CveSubProyecto").ToString(), DbRowVenta("SubProyecto").ToString())
+                DdlSubProyecto.SelectedValueExist(DbRowVenta("CveSubProyecto").ToString())
+
                 CargarAlmacenes()
 
                 If DdlSubProyectoCobranza.Items.Count = 0 Then
@@ -18708,6 +18712,11 @@ Partial Class Ventas
         If ObjInv.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
             If ObjInv.DtResultados.Rows.Count > 0 Then
                 CargaGVInv(ObjInv.DtResultados)
+            Else
+                'si es la empresa 119, Candado, no permiter refacturar, si no se ha surtido, para que cancele la factura mejor.
+                If UsuarioActual.CveEmpresa = 119 AndAlso LkRefacturacion.Visible AndAlso ObjInv.DtResultados.Rows.Count = 0 Then
+                    LkRefacturacion.Visible = False
+                End If
             End If
         End If
         ObjInv.Dispose()
@@ -26165,7 +26174,7 @@ Partial Class Ventas
     Private Sub CargaAuxiliarClienteCxC(CveCliente As Integer, CveVenta As Integer)
         Dim ObjMovtos As New ClsMovimientos()
         If ObjMovtos.GetCxCClienteAuxiliar(CveCliente, CveVenta) Then
-            DTDatos = ObjMovtos.DtResultados
+            ' DTDatos = ObjMovtos.DtResultados
             GVAuxiliar.DataSource = ObjMovtos.DtResultados
         Else
             GVAuxiliar.DataSource = Nothing
@@ -26174,48 +26183,48 @@ Partial Class Ventas
         GVAuxiliar.DataBind()
     End Sub
 
-    Protected Sub BtnCancelarAux_Click(sender As Object, e As EventArgs)
-        AgregaPolizaNegativo(CvePrePolizaNegativa)
-    End Sub
+    ''Protected Sub BtnCancelarAux_Click(sender As Object, e As EventArgs)
+    ''    'AgregaPolizaNegativo(CvePrePolizaNegativa)
+    ''End Sub
 
-    Private Sub AgregaPolizaNegativo(CvePrePoliza As Integer)
+    ''Private Sub AgregaPolizaNegativo(CvePrePoliza As Integer)
 
-        Dim ObjContabilidad As New ClsContabilidad
-        Dim TieneError As Boolean = False
-        ObjContabilidad.IniciaTransacSQL()
+    ''    Dim ObjContabilidad As New ClsContabilidad
+    ''    Dim TieneError As Boolean = False
+    ''    ObjContabilidad.IniciaTransacSQL()
 
-        Dim CvePrePolizaNueva As Integer = ObjContabilidad.AddPrePolizasNegativa(CvePrePoliza, UsuarioActual.CveUsuario, TxtConceptoCancelacion.Text, UsuarioActual.CveEmpresa, TxtFechaCancelacion.Text.ToDate)
+    ''    Dim CvePrePolizaNueva As Integer = ObjContabilidad.AddPrePolizasNegativa(CvePrePoliza, UsuarioActual.CveUsuario, TxtConceptoCancelacion.Text, UsuarioActual.CveEmpresa, TxtFechaCancelacion.Text.ToDate)
 
-        If Not CvePrePolizaNueva > 0 Then
+    ''    If Not CvePrePolizaNueva > 0 Then
 
 
-            TieneError = True
-        End If
+    ''        TieneError = True
+    ''    End If
 
-        If Not TieneError Then
+    ''    If Not TieneError Then
 
-            ObjContabilidad.Commit()
-            Dim Str As New StringBuilder
-            Str.Append("Se agrego la póliza de cancelación correctamente.<br/>")
-            RegistraScript(" $('#DivCancelar').modal('hide'); ")
-            If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                If ObjContabilidad.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                    Str.AppendFormat("<a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", ObjContabilidad.ContaIdPoliza)
+    ''        ObjContabilidad.Commit()
+    ''        Dim Str As New StringBuilder
+    ''        Str.Append("Se agrego la póliza de cancelación correctamente.<br/>")
+    ''        RegistraScript(" $('#DivCancelar').modal('hide'); ")
+    ''        If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+    ''            If ObjContabilidad.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+    ''                Str.AppendFormat("<a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", ObjContabilidad.ContaIdPoliza)
 
-                End If
-            End If
-            Alert(Str.ToString)
-        Else
-            ObjContabilidad.RollBack()
+    ''            End If
+    ''        End If
+    ''        Alert(Str.ToString)
+    ''    Else
+    ''        ObjContabilidad.RollBack()
 
-        End If
+    ''    End If
 
 
 
-        ObjContabilidad.Dispose()
-        CargarSaldoAuxiliar(CveCliente)
+    ''    ObjContabilidad.Dispose()
+    ''    CargarSaldoAuxiliar(CveCliente)
 
-    End Sub
+    ''End Sub
 
     Protected Sub GVAuxiliar_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAuxiliar.RowDataBound