.

App_Code/ClsContabilidad.vb

@@ -127,6 +127,7 @@ Public Class ClsContabilidad
 
         Return Retorno
     End Function
+
     Public Function AddPrePolizas(Modulo As String, CvePlantillaPoliza As Integer, Cargos As Double, Abonos As Double, CveMoneda As Integer, Fecha As Date, Concepto As String, CveUsuario As Integer, CveEmpresa As Integer, Optional FolioFijo As Integer = 0, Optional ReglaFolioPoliza As String = "", Optional CveTipoPoliza As Integer = -1) As Integer
 
         Dim Retorno As Integer = -1
@@ -225,6 +226,33 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
+
+
+    Public Function AddPrePolizasNegativa(CvePrePoliza As Integer, CveUsuario As Integer, Concepto As String, CveEmpresa As Integer, Fecha As Date) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Conta_PrePolizasNegativaAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Concepto", SqlDbType.VarChar).Value = Concepto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
+    End Function
+
     Public Function GetProveedorAuxiliar(CveProveedor As Integer, CveCompra As Integer) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable

Bancos/IE.aspx.vb

@@ -4902,6 +4902,8 @@ Partial Class Bancos_IE
 
             If e.Row.DataKey("Estatus").Contiene("1", "3") Then
                 e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = True
+            Else
+                e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = False
             End If
 
         End If

Contabilidad/PopUpAuxiliar.aspx

@@ -78,6 +78,9 @@
                         <table border="0">
                             <tr>
                                 <td>
+
+                                      <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpDatos">
+                                          <ContentTemplate>
                                                <asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal" EmptyDataText="No se encontraron Movimientos de Auxiliar" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" Style="text-align: center;" GridLines="None">
                                         <Columns>
                                             <asp:TemplateField>
@@ -142,21 +145,34 @@
                                                     </asp:Label>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
+
                                             <asp:TemplateField HeaderText="Eliminar" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:LinkButton ID="imgD" runat="server" Visible='<%# Eval("Eliminable").ToString() = "1" AndAlso Eval("CvePrePoliza").ToString.Length > 0 %>' AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
                                                 </ItemTemplate>
                                             </asp:TemplateField>
+
                                             <asp:TemplateField HeaderText="Cancelar" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:ImageButton ID="imgE" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Update" ImageUrl="/Imagenes/Btn_Delete.png" Visible='<%# Eval("Cancelable").ToString.ToEntero > 0 And Eval("CvePrePoliza").ToString.ToEntero > 0 And Eval("CveReferencia").ToString.ToEntero > 0 And (Eval("Cargo").ToString.ToDecimal > 0 OrElse Eval("Abono").ToString.ToDecimal > 0) %>' OnClientClick="javascript:return C();" />
                                                 </ItemTemplate>
                                             </asp:TemplateField>
+
+                                             <asp:TemplateField HeaderText="Cancelar" Visible="false">
+                                                <ItemTemplate>
+                                                    <asp:LinkButton ID="imgCancelar" runat="server"  CausesValidation="False" OnClick="imgCancelar_Click"  CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>"   />
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+
                                         </Columns>
                                         <RowStyle CssClass="Texto" />
                                         <AlternatingRowStyle CssClass="TextoAlterno" />
                                         <HeaderStyle CssClass="Titulos" />
                                     </asp:GridView>
+                                          </ContentTemplate>
+                                       </asp:UpdatePanel>
+
+                                   
                                 </td>
                             </tr>
                         </table>
@@ -168,6 +184,66 @@
             </td>
         </tr>
     </table>
+
+
+
+
+
+
+     <div id="DivCancelar" class="modal fade">
+        <div class="modal-dialog" style="max-height: 500px; max-width: 500px;">
+            <asp:UpdatePanel ID="UpEliminarCotizacion" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-hidden="true"></button>
+                        <h3 class="modal-title">Cancelar Movimiento</h3>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row" style="align-items: center; vertical-align: middle;">
+                            <label class="col-md-4" style="max-width: 155px;">Concepto:</label>
+                            <asp:TextBox ID="TxtConceptoCancelacion" runat="server" CssClass="form-control input-sm" Width="90%" CausesValidation="true" MaxLength="100" ValidationGroup="GrpCancelarPrepoliza"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVTxtConceptoCancelacion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoCancelacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCancelarPrepoliza"></asp:RequiredFieldValidator>
+
+                        </div>
+                        <div class="row" style="align-items: center; vertical-align: middle;">
+                            <label class="col-md-4" style="max-width: 155px;">Fecha de Cancelación:</label>
+                            <div class="col-md-3">
+
+                                <div class="input-group date date-picker" data-date-format="dd/mm/yyyy" style="width: 85px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaCancelacion" runat="server" CssClass="form-control input-sm" Width="80px" CausesValidation="true" MaxLength="10" ValidationGroup="GrpCancelarPrepoliza"></asp:TextBox>                                    
+
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioDel" class="btn default input-sm" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+
+                                    <ajax:MaskedEditExtender ID="MEEFechaCancelacion" runat="server" TargetControlID="TxtFechaCancelacion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender ID="CalendarioCancelacion" runat="server" TargetControlID="TxtFechaCancelacion" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                    <asp:CompareValidator ID="CVFechaCancelacion" runat="server" ControlToValidate="TxtFechaCancelacion" Display="None" Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpCancelarPrepoliza" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Cancelación''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)."></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCOFecha2Cancelacion" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCancelacion" Width="350px"></ajax:ValidatorCalloutExtender>                                   
+                                     
+                                </div>
+                                <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFechaCancelacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCancelarPrepoliza"></asp:RequiredFieldValidator>
+                            </div>
+                           
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnCancelar" OnClick="BtnCancelar_Click" runat="server" CssClass="btn btn-success" Text="Cancelar Movimiento" ValidationGroup="GrpCancelarPrepoliza" />
+                        <button type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+
+
+
+
+
+
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

Contabilidad/PopUpAuxiliar.aspx.vb

@@ -78,6 +78,7 @@ Partial Class PopUpAuxiliar
     Private Sub CargaDatos()
         GVAuxiliar.Columns(10).Visible = UsuarioActual.TienePermisoProceso(94)
         'GVAuxiliar.Columns(11).Visible = UsuarioActual.TienePermisoProceso(94)
+        GVAuxiliar.Columns(12).Visible = UsuarioActual.TienePermisoProceso(94)
 
         Select Case Tipo
             Case "CxCClientes"
@@ -102,6 +103,9 @@ Partial Class PopUpAuxiliar
                 LtlTipo2.Text = "Folio de la Compra"
                 LtlTipo3.Text = "Fecha de la Compra"
         End Select
+
+
+        UpDatos.Update()
     End Sub
 
     Private Sub CargaAuxiliarClienteCxC(CveCliente As Integer, CveVenta As Integer)
@@ -159,6 +163,10 @@ Partial Class PopUpAuxiliar
     End Sub
 
     Protected Sub GVAuxiliar_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAuxiliar.RowDataBound
+
+
+
+
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.RowIndex = 0 Then
                 e.Row.BackColor = Drawing.Color.LightGray
@@ -171,6 +179,7 @@ Partial Class PopUpAuxiliar
                 e.Row.Cells(6).Visible = False
                 e.Row.Cells(7).Visible = False
                 e.Row.Cells(8).Visible = False
+                e.Row.Cells(12).Visible = False
             ElseIf e.Row.RowIndex = 1 Then
                 e.Row.Cells(0).Width = Unit.Pixel(95)
                 e.Row.Cells(1).Width = Unit.Pixel(180)
@@ -358,4 +367,61 @@ Partial Class PopUpAuxiliar
         End If
 
     End Sub
+
+    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
+
+
+
+    Private Sub AgregaPolizaNegativo(CvePrePoliza As Integer)
+
+        Dim ObjContabilidad As New ClsContabilidad
+        Dim TieneError As Boolean = False
+        ObjContabilidad.IniciaTransacSQL()
+
+        If ObjContabilidad.AddPrePolizasNegativa(CvePrePoliza, UsuarioActual.CveUsuario, TxtConceptoCancelacion.Text, UsuarioActual.CveEmpresa, TxtFechaCancelacion.Text.ToDate) Then
+            Alert("Se agrego polzia negativa correctamente.")
+        Else
+            TieneError = True
+        End If
+
+        If TieneError Then
+            ObjContabilidad.RollBack()
+        Else
+            ObjContabilidad.Commit()
+            RegistraScript(" $('#DivCancelar').modal('hide'); ")
+            CargaDatos()
+        End If
+
+        ObjContabilidad.Dispose()
+
+
+    End Sub
+
+
+    Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)
+        AgregaPolizaNegativo(CvePrePolizaNegativa)
+    End Sub
+
+
+    Protected Sub imgCancelar_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow)
+        CvePrePolizaNegativa = GvRow.DataKey("CvePrePoliza").ToString.ToEntero
+
+        RegistraScript(" $('#DivCancelar').modal('show'); ")
+    End Sub
+
+
+
 End Class

General/SaldosIniciales.aspx.vb

@@ -1524,16 +1524,19 @@ Partial Class General_SaldosIniciales
                 Dim ObjMovimientos As New ClsInventarios
                 ObjMovimientos.IniciaTransacSQL()
                 Dim OcurrioError As Boolean = False
+                Dim contadorMovimientos As Integer = 0
                 Try
                     For Each almacenSinRepetir As DataRow In dt.FiltraParametros("", DistinctColumns:={"Almacen"}).Rows
                         Dim almacenActual As String = almacenSinRepetir("Almacen").ToString
                         Dim CveAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero
                         Dim movimientoCabecera As Integer = ObjMovimientos.AddMovimiento(CveAlmacen, 1, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
                         If CveAlmacen > 0 Then
+                            contadorMovimientos += 1
                             For Each nuevaEntrada As DataRow In dt.FiltraParametros($"Almacen = '{almacenActual}'").Rows
                                 Dim CvePS As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", $"Codigo = '{nuevaEntrada("CodigoPS")}'").ToEntero
                                 Dim CveUM As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"Codigo = '{nuevaEntrada("CodigoPS")}'").ToEntero
                                 If CvePS > 0 Then
+                                    If CveUM > 0 Then
                                         Dim Cantidad As Decimal = nuevaEntrada("Existencia").ToString.ToDecimal
                                         Dim Valor As Decimal = nuevaEntrada("Valor").ToString.ToDecimal
 
@@ -1542,6 +1545,9 @@ Partial Class General_SaldosIniciales
                                         End If
                                     Else
                                         OcurrioError = True
+                                    End If
+                                Else
+                                    OcurrioError = True
 
                                 End If
                             Next
@@ -1559,7 +1565,7 @@ Partial Class General_SaldosIniciales
 
                 If Not OcurrioError Then
                     ObjMovimientos.Commit()
-                    Alert("Se cargó correctamente #movimientos")
+                    Alert($"Se cargaron correctamente {contadorMovimientos} movimientos")
                 Else
                     Alert("Ocurrió un error al cargar las existencias", TipoMensaje.MsgError)
                     ObjMovimientos.RollBack()

Inventarios/RepNotasSinAlmacen.aspx

@@ -184,7 +184,7 @@
                         </div>
                         <asp:UpdatePanel ID="UpDatosGvCompras" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
-                                <asp:GridView ID="GvCompras" ClientIDMode="Static" Width="100%" runat="server" GridLines="None" BorderWidth="0" DataKeyNames="CveCompra" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" OnRowDataBound="GvCompras_RowDataBound">
+                                <asp:GridView ID="GvCompras" ClientIDMode="Static" Width="100%" runat="server" GridLines="None" BorderWidth="0" DataKeyNames="CveCompra,CveCompraDetalle,CvePS" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" OnRowDataBound="GvCompras_RowDataBound">
                                     <Columns>
                                         <asp:BoundField HeaderText="Cantidad Solicitada" DataField="CantidadC" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" />
                                         <asp:BoundField HeaderText="Cantidad Restante" DataField="CantidadF" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" />
@@ -192,7 +192,9 @@
                                         <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" />
                                         <asp:TemplateField ItemStyle-Width="70px" HeaderText="Acción" ItemStyle-HorizontalAlign="Center">
                                             <ItemTemplate>
-                                                <asp:LinkButton runat="server" OnClick="BtnActulizarEstatus_Click" CssClass="btn btn-sm red" Text="<i class='fa fa-check'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro de marcar el producto como que no se recibirá?" data-btn-ok-label="si"></asp:LinkButton>
+                                                <span data-placement="top" data-toggle="tooltip" title="Marcar el producto como que no se recibirá">
+                                                    <asp:LinkButton runat="server" OnClick="BtnActulizarEstatus_Click" CssClass="btn btn-sm red" Text="<i class='fa fa-eye-slash' aria-hidden='true'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro de marcar el producto como que no se recibirá?" data-btn-ok-label="si"></asp:LinkButton>
+                                                </span>
                                             </ItemTemplate>
                                         </asp:TemplateField>
                                     </Columns>

Inventarios/RepNotasSinAlmacen.aspx.vb

@@ -278,10 +278,11 @@ Partial Class RepNotasSinAlmacen
                 e.Row.Cells(1).Text = e.Row.DBCampo("Fecha").ToDate.ToShortDateString
                 e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
                 e.Row.Cells(2).Text = "<a class=""Texto"" href=""/Compras/Proveedores.aspx?CveProveedor=" & e.Row.DBCampo("CveProveedor") & """>" & e.Row.DBCampo("RazonSocial") & "</a>"
-            Else
+
                 If GvCompras.Columns(4).Visible Then
                     e.Row.Cells(4).Text = ""
                 End If
+
             End If
         End If
     End Sub
@@ -290,13 +291,21 @@ Partial Class RepNotasSinAlmacen
         If UsuarioActual.TienePermisoProceso(278) Then
             Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
+            Dim CveCompraDetalle As Integer = GvRow.DataKey("CveCompraDetalle")
             Dim CveCompra As Integer = GvRow.DataKey("CveCompra")
+            Dim CvePS As Integer = GvRow.DataKey("CveCompra")
+
+            Dim PS = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS = {CvePS}")
 
             Dim ObjCompras As New ClsCompras
-            If ObjCompras.UpdateEstatusAlmacen(CveCompra, 1) Then
+            Dim ObjEventos As New ClsOIEventos
-                Alert("La compra se desmarco correctamente.")
+            If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1) Then
+                If ObjEventos.AddEventoBitacora(String.Format("El producto: {0} se marcó como no recibirlo", PS), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
+                    Alert("El producto se marcó como 'no recibirlo' correctamente.")
+                End If
             End If
             ObjCompras.Dispose()
+            ObjEventos.Dispose()
 
             CargaDatos()
         End If

Ventas/Ventas.aspx.vb

@@ -3398,10 +3398,11 @@ Partial Class Ventas
                                 '    End If
                                 'End If
                             End If
-                            If LblFolioFiscal.Text.Trim = "" Then HplFolioFiscalModal.Visible = True
+
                         End If
                     End If
 
+                    If DdlTipoComprobante.SelectedValue.Contiene("Egs", "Ing", "Ant", "Dev") AndAlso LblFolioFiscal.Text.Trim = "" Then HplFolioFiscalModal.Visible = True
 
                     Select Case DbRowVenta("TipoDocto").ToString
                         Case "Ing"
@@ -12568,6 +12569,7 @@ Partial Class Ventas
                 DdlUnidadMedida.DataBind()
                 DdlUnidadMedida.SelectedValueExist(drPS("CveUnidadMedida").ToString)
                 DdlMoneda.SelectedValueExist(drPS("CveMoneda").ToString)
+                CambiaMoneda()
                 'SUGIERE PRECIO
                 Dim PrecioSugerido = 0.0
                 PrecioSugerido = drPS("Precio").ToString.ToDouble
@@ -14607,12 +14609,6 @@ Partial Class Ventas
             End If
         End If
 
-        If Not ErrorMovimiento Then
-            If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
-                ErrorMovimiento = True
-            End If
-        End If
-
         If Not ErrorMovimiento Then
             Alert("La póliza ha sido desvinculada y eliminada con éxito.", TipoMensaje.MsgInformacion)
             ObjAC.Commit()
@@ -14908,12 +14904,12 @@ Partial Class Ventas
                             End If
 
                             Try
-                                If ValorInventario <> 0 Then
+                                'If ValorInventario <> 0 Then
                                 If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
                                     OcurrioError = True
                                     Exit For
                                 End If
-                                End If
+                                'End If
                             Catch ex As Exception
                                 OcurrioError = True
                             End Try