Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsClientes.vb

@@ -162,6 +162,9 @@ Public Class ClsClientes
     Public Property Nombres As String
     Public Property RequiereOC As Boolean
 
+    Public Property CargoUsados As Boolean
+    Public Property BonificacionUsado As Boolean
+
 
     Public ReadOnly Property DtResultados() As DataTable
         Get
@@ -417,6 +420,8 @@ Public Class ClsClientes
                 _ApellidoMaterno = Data(0)("ApellidoMaterno").ToString
                 _Nombres = Data(0)("Nombres").ToString
                 _RequiereOC = CBool(Data(0)("RequiereOC"))
+                _CargoUsados = CBool(Data(0)("CargoUsado"))
+                _BonificacionUsado = CBool(Data(0)("BonificacionUsado"))
 
             End If
             Retorno = True

Contabilidad/RegPrePoliza.aspx.vb

@@ -158,6 +158,14 @@ Partial Class ContabilidadC_RegPrePoliza
             ViewState("IndiceGrid") = value
         End Set
     End Property
+    Public Property IdPoliza As Integer
+        Get
+            Return CType(ViewState("IdPoliza"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("IdPoliza") = value
+        End Set
+    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -174,6 +182,7 @@ Partial Class ContabilidadC_RegPrePoliza
             Observaciones = "-1"
             Beneficiario = "-1"
             Actualizar = False
+            IdPoliza = -1
 
             Dim dt As DataTable = Nothing
             '   If UsuarioActual.Empresa.UsaContabilidad Then
@@ -401,10 +410,15 @@ Partial Class ContabilidadC_RegPrePoliza
                     LnkComplementoPago.Visible = True
                 End If
 
+                IdPoliza = dr("IdPoliza").ToString.ToEntero
                 If dr("IdPoliza").ToString.ToEntero > 0 Then
                     HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
                     divContabilziada.Visible = True
                     BtnEliminar.Visible = False
+                    If UsuarioActual.CveUsuario = 100 Then
+                        BtnContabilizar.Visible = True
+                        BtnContabilizar.Text = "Actualizar Poliza"
+                    End If
                 ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then
                     'sino está contabilizada, se activa el botón
                     BtnContabilizar.Visible = True
@@ -1428,7 +1442,7 @@ Partial Class ContabilidadC_RegPrePoliza
 
         Dim ObjConta As New ClsContabilidad
 
-        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1)) Then
             Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
         Else
 

OS/CatEstatusOrdenServicio.aspx

@@ -330,9 +330,10 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:DropDownList ID="DdlTipoEstatus" runat="server" CssClass="form-control select2me js-Impuesto-programmatic" Width="100%">
                                         <asp:ListItem Value="1" Text="Inicial"></asp:ListItem>
-                                        <asp:ListItem Value="2" Text="Proceso"></asp:ListItem>
+                                        <asp:ListItem Value="2" Text="Asignación"></asp:ListItem>
-                                        <asp:ListItem Value="3" Text="Terminada"></asp:ListItem>
+                                        <asp:ListItem Value="3" Text="Proceso"></asp:ListItem>
-                                        <asp:ListItem Value="4" Text="Cancelada"></asp:ListItem>
+                                        <asp:ListItem Value="4" Text="Terminada"></asp:ListItem>
+                                        <asp:ListItem Value="5" Text="Cancelada"></asp:ListItem>
                                     </asp:DropDownList>
                                     <label for="<%= DdlTipoEstatus.ClientID.ToString()%>">Tipo Estatus:</label>
                                 </div>

Ventas/Clientes.aspx.vb

@@ -400,6 +400,44 @@ Partial Class Clientes
             ViewState("DtPagos") = value
         End Set
     End Property
+    'Private Property EstatusAnteriorCliente As Boolean
+    '    Get
+    '        If ViewState("EstatusAnteriorCliente") Is Nothing Then
+    '            Return True
+    '        Else
+    '            Return Boolean.Parse(ViewState("EstatusAnteriorCliente").ToString)
+    '        End If
+    '    End Get
+    '    Set(value As Boolean)
+    '        ViewState("EstatusAnteriorCliente") = value
+    '    End Set
+    'End Property
+
+    Private Property CargoUsado As Boolean
+        Get
+            If ViewState("CargoUsado") Is Nothing Then
+                Return True
+            Else
+                Return Boolean.Parse(ViewState("CargoUsado").ToString)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("CargoUsado") = value
+        End Set
+    End Property
+
+    Private Property BonificacionUsado As Boolean
+        Get
+            If ViewState("BonificacionUsado") Is Nothing Then
+                Return True
+            Else
+                Return Boolean.Parse(ViewState("BonificacionUsado").ToString)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("BonificacionUsado") = value
+        End Set
+    End Property
 #End Region
 
 #Region "Documentacion"
@@ -1372,7 +1410,8 @@ Partial Class Clientes
 
                 ChkDesglosarIEPS.Checked = ObjClientes.DesglosaIEPS
                 DdlCorporativo.SelectedValueExist(ObjClientes.CveClienteCorporativo.ToString)
-
+                ChkCargoUsado.Checked = ObjClientes.CargoUsados
+                ChkBonificacionUsado.Checked = ObjClientes.BonificacionUsado
                 'COMERCIO EXTERIOR
                 ChkAplicaComercioExterior.Checked = ObjClientes.AplicaComercioExterior
                 DdlTipoOperacion.SelectedValueExist(ObjClientes.CveTipoOperacion)

Ventas/Ventas.aspx.vb

@@ -21316,7 +21316,7 @@ Partial Class Ventas
                 AgregarProductoServicio(tCantidad, Dr("CveUM").ToString.ToEntero, Dr("UM").ToString, Dr("CveClasificacion").ToString.ToEntero, Dr("Clasificacion").ToString,
                                         Dr("CvePS").ToString.ToEntero, Dr("PS").ToString, Dr("Obs").ToString, Dr("PU").ToString.ToDecimal, Dr("Descuento").ToString.ToDecimal,
                                         Dr("CveProyecto").ToString.ToEntero, Dr("Proyecto").ToString, Dr("CveSubProyecto").ToString.ToEntero, Dr("SubProyecto").ToString,
-                                        CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero, CveVentaDetalleCotizacion:=Dr("CveVentaDetalle").ToString.ToEntero)
+                                        CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero, CveVentaDetalleCotizacion:=Dr("CveVentaDetalle").ToString.ToEntero, SeActualiza:=True)
             Next
             CalculaTotalesVenta()
             Return True