Cancelacion IE

Bancos/IE.aspx

@@ -49,9 +49,11 @@
             <li>
                 <asp:LinkButton ID="LnkEliminar" runat="server" Visible="false" OnClientClick="return confirm('¿Está seguro de eliminar el documento?');" Style="color: #686868;"><i class="fa fa-minus" style="color: #686868;"></i> Eliminar Movimiento</asp:LinkButton>
             </li>
-            <li>
+            
+            <%--<li>
                 <asp:LinkButton ID="LnkCancelarComplemento" OnClick="LnkCancelarComplemento_Click" runat="server" Visible="false" Style="color: #686868;"><i class="fa fa-ban" style="color: #686868;"></i> Refacturar Complemento</asp:LinkButton>
-            </li>
+            </li>--%>
+
             <li>
                 <asp:LinkButton ID="LnkCancelarComplementoImporte" OnClick="LnkCancelarComplementoImporte_Click" runat="server" Visible="false" data-btn-ok-label="si" Style="color: #686868;"  data-toggle="tooltip" data-placement="left" title="Cancelar Movimiento  y Complemento" > <i class="fa fa-pencil"></i> Cancelar Movimiento y Complemento</asp:LinkButton>
 
@@ -1215,29 +1217,30 @@
                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaCancelacion" Width="350px"></ajax:ValidatorCalloutExtender>
 
                                 </div>
-                            </div>                            
+                            </div>
-                             <div class="col-md-6">
+                            <div class="col-md-6">
-                                 <div class="row">
+                                <div class="row">
-                                      <div class="col-md-12">
+                                    <div class="col-md-12">
-                                <asp:CheckBox ID="ChkGeneraCancelacion" CssClass="md-checksd2" Text="Genera Devolución" TextAlign="Right" runat="server" AutoPostBack="true" OnCheckedChanged="ChkGeneraCancelacion_CheckedChanged" />
+                                        <asp:CheckBox ID="ChkGeneraCancelacion" CssClass="md-checksd2" Text="Genera Devolución" TextAlign="Right" runat="server" AutoPostBack="true" OnCheckedChanged="ChkGeneraCancelacion_CheckedChanged" />
-                                           </div>
+                                    </div>
-                                        </div>
+                                </div>
-                                    <div class="row">
+                                <div class="row">
-                                <div class="col-md-12"  id="DVTipoTransacciónCancelar"  runat="server" visible ="false"> 
+                                    <div class="col-md-12" id="DVTipoTransacciónCancelar" runat="server" visible="false">
-                                 
+                                        Movimiento:
-                                Movimiento:
+                                <asp:DropDownList ID="DdlTipoTransaccionCancelacion" CssClass="form-control input-sm select2me" runat="server" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" ValidationGroup="GrpCancelarIE">
-                                <asp:DropDownList ID="DdlTipoTransaccionCancelacion" CssClass="form-control input-sm select2me" runat="server"    DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" ValidationGroup="GrpCancelarIE">
+                                    <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
-                                        <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
+                                </asp:DropDownList>
-                                    </asp:DropDownList>
+                                        <asp:RequiredFieldValidator ID="RFVDdlTipoTransaccionCancelacion" runat="server" ControlToValidate="DdlTipoTransaccionCancelacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Transaccion''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCancelarIE"></asp:RequiredFieldValidator>
-                                    <asp:RequiredFieldValidator ID="RFVDdlTipoTransaccionCancelacion" runat="server" ControlToValidate="DdlTipoTransaccionCancelacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Transaccion''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCancelarIE"></asp:RequiredFieldValidator>
+                                        <ajax:ValidatorCalloutExtender ID="VCEDdlTipoTransaccionCancelacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlTipoTransaccionCancelacion" Width="300px"></ajax:ValidatorCalloutExtender>
-                                    <ajax:ValidatorCalloutExtender ID="VCEDdlTipoTransaccionCancelacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlTipoTransaccionCancelacion" Width="300px"></ajax:ValidatorCalloutExtender>
 
+                                    </div>
+                                </div>
                             </div>
-                            </div>
+
-                            </div>
-                            
 
                         </div>
+
+                  
                     </div>
                     <div class="modal-footer">
                         <asp:Button ID="BtnCancelarIE" OnClick="BtnCancelarIE_Click" runat="server" CssClass="btn btn-success" Text="Cancelar Movimiento" ValidationGroup="GrpCancelarIE" />
@@ -1367,6 +1370,12 @@
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
+                                <asp:TemplateField HeaderText="Motivo" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
+                                      <ItemTemplate>
+                                            <asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Visible ="false">
+                                            </asp:DropDownList>
+                                       </ItemTemplate>
+                                </asp:TemplateField>
 
                                 <asp:TemplateField HeaderText="Cancelar" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
                                     <ItemTemplate>
@@ -1574,6 +1583,25 @@
                                     </div>
                                 </div>                                
                             </div>
+
+                              <div class="row" runat="server" id="DVmotivoCancelacion" visible="false">
+                            <div class="col-md-2">
+                                Motivo de Cancelación:
+                             </div>
+                            <div class="col-md-10">
+
+
+                                 <asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Width="100%" >                                
+                                 </asp:DropDownList>
+
+                                <asp:RequiredFieldValidator ID="RfvDdlMotivoCancelacion" runat="server" ControlToValidate="DdlMotivoCancelacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Motivo de Cancelación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCancelarComplemento"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCERfvDdlMotivoCancelacion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlMotivoCancelacion" Width="300px"></ajax:ValidatorCalloutExtender>
+
+
+                            </div>
+                        </div>
+
+
                         </ContentTemplate>
                     </asp:UpdatePanel>
                 </div>

Bancos/IE.aspx.vb

@@ -837,6 +837,13 @@ Partial Class Bancos_IE
 
             'End If
 
+
+
+            DdlMotivoCancelacion.DataSource = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa)
+            DdlMotivoCancelacion.DataBind()
+            DdlMotivoCancelacion.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+
         End If
     End Sub
 
@@ -1096,7 +1103,7 @@ Partial Class Bancos_IE
                     HplDepositado.NavigateUrl = $"/Bancos/IE.aspx?CveIE={CveIEDeposito2}"
                 End If
 
-                LnkCancelarComplemento.Visible = False
+                'LnkCancelarComplemento.Visible = False
                 LnkCancelarComplementoImporte.Visible = False
                 UppEliminarIE.Update()
 
@@ -1267,7 +1274,7 @@ Partial Class Bancos_IE
                     LnkEliminar.Visible = False
                     'LnkCancelar.Visible = False
 
-                    LnkCancelarComplemento.Visible = True
+                    'LnkCancelarComplemento.Visible = True
                     LnkCancelarComplementoImporte.Visible = True
 
                 End If
@@ -1275,7 +1282,7 @@ Partial Class Bancos_IE
 
             Else
                 BtnEditar.Visible = False
-                LnkCancelarComplemento.Visible = False
+                ' LnkCancelarComplemento.Visible = False
                 LnkCancelarComplementoImporte.Visible = False
                 DVGenerarComplementoModal.Visible = False
             End If
@@ -4587,22 +4594,23 @@ Partial Class Bancos_IE
                 Dim ErrorCancelarComplemento As Boolean = True
 
                 If CancelarComplemento Then
-                    Dim ObjCancelacion As New Timbrado
-                    'Dim ObjBanco As New ClsBancos
 
-                    If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
 
-                        If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
+                    Dim CveMotivoCancelacion As Integer = DdlMotivoCancelacion.SelectedValue.ToEntero
-                            CargaComplementosPago()
+                    Dim CveSATMotivoCancelacion As Integer = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveMotivoCancelacion:=CveMotivoCancelacion).FiltroPrimeroValor("CveSATMotivoCancelacion").ToEntero()
-                            RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
-                            ErrorCancelarComplemento = False
-                            Alert("El complemento se cancelo correctamente.")
-                        End If
 
-                    Else
+                    If CveMotivoCancelacion <= 0 Or CveSATMotivoCancelacion <= 0 Then
-                        If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then
+                        Alert("Debe de elegir un motivo de cancelación.", TipoMensaje.MsgAdvertencia)
+                        ErrorCancelarComplemento = True
+                    End If
 
-                            If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+
+                    If Not ErrorCancelarComplemento Then
+
+                        Dim ObjCancelacion As New Timbrado
+                        If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
+
+                            If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
                                 CargaComplementosPago()
                                 RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
                                 ErrorCancelarComplemento = False
@@ -4610,12 +4618,25 @@ Partial Class Bancos_IE
                             End If
 
                         Else
-                            Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia)
+                            If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
-                        End If
 
+                                If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+                                    CargaComplementosPago()
+                                    RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
+                                    ErrorCancelarComplemento = False
+                                    Alert("El complemento se cancelo correctamente.")
+                                End If
+
+                            Else
+                                Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia)
+                            End If
+
+                        End If
                     End If
 
 
+
+
                 Else
                     ErrorCancelarComplemento = False
                 End If
@@ -5804,11 +5825,9 @@ Partial Class Bancos_IE
 #End Region
 
 #Region "  COMPLEMENTOS PAGO  "
+
     Private Sub CargaComplementosPago()
 
-
-
-
         Dim ObjBancos As New ClsBancos
 
         If UsuarioActual.CveRol = 1 Then
@@ -5823,9 +5842,7 @@ Partial Class Bancos_IE
 
                 GvComplementoPagos.DataSource = ObjBancos.DtResultados
 
-                If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 And ObjBancos.DtResultados.FiltraParametros(" CveIECancelacion > 0 ").Rows.Count = 0 Then
+
-                    DVGenerarComplementoModal.Visible = True
-                End If
             Else
                 GvComplementoPagos.DataSource = Nothing
             End If
@@ -5833,6 +5850,14 @@ Partial Class Bancos_IE
             If CveIE > 0 Then
                 If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then
 
+                    If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
+                        DVGenerarComplementoModal.Visible = True
+                    End If
+
+                    If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 1 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
+                        DVmotivoCancelacion.Visible = True
+                    End If
+
 
                     ' GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"})
 
@@ -5844,11 +5869,14 @@ Partial Class Bancos_IE
             End If
 
         End If
+
         ObjBancos.Dispose()
         GvComplementoPagos.DataBind()
         UpComplementoPagos.Update()
 
 
+        UpEliminarCotizacion.Update() 'Esto se  ocupa para mostrar DVmotivoCancelacion
+
         'ObjBancos.Dispose()
         'GvComplementoPagos.DataBind()
         'UpComplementoPagos.Update()
@@ -5863,9 +5891,16 @@ Partial Class Bancos_IE
                 e.Row.Cells(4).Text = String.Format("<a class="" texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class="" fa fa-ad-pdf""></i></a>", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE"))))
 
                 If e.Row.DataKey("Estatus").Contiene("1", "3") Then
+
                     e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = True
+                    e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = True
+                    e.Row.FCDropDownList("DdlMotivoCancelacion").DataSource = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa)
+                    e.Row.FCDropDownList("DdlMotivoCancelacion").DataBind()
+                    e.Row.FCDropDownList("DdlMotivoCancelacion").Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+
                 Else
                     e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = False
+                    e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = False
                 End If
 
             ElseIf e.Row.DataKey("Tipo") = "Egs" Then
@@ -5876,6 +5911,7 @@ Partial Class Bancos_IE
                 GvComplementoPagos.Columns(6).Visible = False
                 GvComplementoPagos.Columns(7).Visible = False
                 GvComplementoPagos.Columns(8).Visible = False
+                GvComplementoPagos.Columns(9).Visible = False
 
             End If
 
@@ -5950,13 +5986,13 @@ Partial Class Bancos_IE
         Return Retorno
     End Function
 
-    Protected Sub LnkCancelarComplemento_Click(sender As Object, e As EventArgs)
+    'Protected Sub LnkCancelarComplemento_Click(sender As Object, e As EventArgs)
-        If ChkConciliado.Checked Then
+    '    If ChkConciliado.Checked Then
-            Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)
+    '        Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)
-            Exit Sub
+    '        Exit Sub
-        End If
+    '    End If
-        Confirmacion("¿Seguro que desea Cancelar el documento por Sustitución?", "", String.Format("document.location.href=""/Ventas/ClientesAbonar.aspx?CveIESustitucion={0}&CveCliente={1}&CveMoneda={2}""", CveIE, CveCliente, CveMoneda), "")
+    '    Confirmacion("¿Seguro que desea Cancelar el documento por Sustitución?", "", String.Format("document.location.href=""/Ventas/ClientesAbonar.aspx?CveIESustitucion={0}&CveCliente={1}&CveMoneda={2}""", CveIE, CveCliente, CveMoneda), "")
-    End Sub
+    'End Sub
 
 
 #End Region
@@ -6126,6 +6162,9 @@ Partial Class Bancos_IE
             CalendarioCancelacion.StartDate = fechaCancelacion.ToDate
             UpEliminarCotizacion.Update()
         End If
+
+
+
         RegistraScript("ShowDivCancelarIE();")
     End Sub
     Protected Sub BtnDesconciliar_Click(sender As Object, e As EventArgs)
@@ -6605,6 +6644,16 @@ Partial Class Bancos_IE
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow)
 
+
+
+        Dim CveMotivoCancelacion As Integer = GvRow.FCDropDownList("DdlMotivoCancelacion").SelectedValue.ToEntero
+        Dim CveSATMotivoCancelacion As Integer = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveMotivoCancelacion:=CveMotivoCancelacion).FiltroPrimeroValor("CveSATMotivoCancelacion").ToEntero()
+
+        If CveMotivoCancelacion <= 0 Or CveSATMotivoCancelacion <= 0 Then
+            Alert("Debe de elegir un motivo de cancelación.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         CveComplementoPagoCancelar = GvRow.DataKey("CveComplementoPago").ToEntero
         FolioFiscalCancelar = GvRow.DataKey("FolioFiscal").ToString
         '' Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
@@ -6622,7 +6671,7 @@ Partial Class Bancos_IE
             End If
 
         Else
-            Dim CveSATMotivoCancelacion As Integer = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveSATMotivoCancelacion:=2).FiltroPrimeroValor("CveSATMotivoCancelacion").ToEntero()
+
 
             If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
 
@@ -6681,6 +6730,8 @@ Partial Class Bancos_IE
 
             RegistraScript("$('#ModalCancelarComplemetno').modal('show');")
             DivFechaCancelación.Visible = True
+            CargaComplementosPago()
+
             UpModalCancelarComplemetno.Update()
 
         Else

Bancos/RepComplementoPago.aspx

@@ -177,7 +177,7 @@
                         </ItemTemplate>
                         <ItemStyle Width="5%" />
                     </asp:TemplateField>
-                    <asp:TemplateField Visible="true">
+                    <asp:TemplateField Visible="false">
                         <HeaderTemplate>Cancelar SAT</HeaderTemplate>
                         <ItemTemplate>
                             <asp:LinkButton ID="LnkCancelarFolioFiscal" OnClick="LnkCancelaFolioFiscal" runat="server" AlternateText="Eliminar" CausesValidation="False" 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" Visible="false" />
@@ -189,49 +189,7 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
-    <div id="ModalDivMail" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog">
 
-            <!-- Modal content-->
-            <div class="modal-content">
-                <div class="modal-header ">
-                    <button type="button" class="close" data-dismiss="modal">&times;</button>
-                    <h4 class="modal-title">Correo</h4>
-                </div>
-                <div class="modal-body">
-                    <asp:UpdatePanel ID="UpSendMail" runat="server" UpdateMode="Conditional">
-                        <ContentTemplate>
-                            <asp:HiddenField ID="HdnSerieFolioPago" runat="server" ClientIDMode="Static" Value="-1" />
-                            <div class="row">
-                                <div class="col-xs-4">Para:</div>
-                                <div class="col-xs-8">
-                                    <asp:TextBox ID="TxtParaMail" runat="server" Width="370px" CssClass="form-control" ClientIDMode="Static"></asp:TextBox>
-                                </div>
-                            </div>
-                            <div class="row">
-                                <div class="col-xs-4">
-                                    Con copia para:<br />
-                                    (Separar con: ;)
-                                </div>
-                                <div class="col-xs-8">
-                                    <asp:TextBox ID="TxtCC" runat="server" TextMode="MultiLine" Columns="3" Rows="3" CssClass="form-control"></asp:TextBox>
-                                </div>
-                            </div>
-
-                        </ContentTemplate>
-                    </asp:UpdatePanel>
-                </div>
-                <div class="modal-footer">
-                    <asp:UpdatePanel runat="server">
-                        <ContentTemplate>
-                            <asp:Button ID="BtnSendMail" Text="Enviar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" ValidationGroup="GrpEnviarEmail" />
-                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
-                        </ContentTemplate>
-                    </asp:UpdatePanel>
-                </div>
-            </div>
-        </div>
-    </div>
 
 
 

Bancos/RepComplementoPago.aspx.vb

@@ -150,9 +150,9 @@ Partial Class Bancos_RepComplementoPago
                         e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolioPago").ToString.Replace("&", "%26%"), e.Row.DBCampo("CveIE").ToString)))
                         e.Row.FCLinkButton("LnkSendMail").Visible = True
 
-                        If DdlOpcion.SelectedValue.ToEntero = 2 Then
+                        'If DdlOpcion.SelectedValue.ToEntero = 2 Then
-                            e.Row.FCLinkButton("LnkCancelarFolioFiscal").Visible = True
+                        '    e.Row.FCLinkButton("LnkCancelarFolioFiscal").Visible = True
-                        End If
+                        'End If
 
                     End If
 
@@ -529,7 +529,11 @@ Partial Class Bancos_RepComplementoPago
 
 
     Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
-    End Sub
+    End Sub
-
+
+
+
+
+
 
 End Class

General/CatCategorias.aspx.vb

@@ -41,12 +41,14 @@ Partial Class General_CatCategorias
             If ObjCategorias.AddCategorias(TxtCategoria.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 TxtCategoria.Text = ""
                 Alert("El nueva Categoría se guardó correctamente.", TipoMensaje.MsgInformacion)
+                GlobalDTGralCategorias(UsuarioActual.CveEmpresa) = Nothing
             End If
         ElseIf HdnModalidadCategoria.Value = "U" Then
             If ObjCategorias.UpdateCategoria(TxtCategoria.Text.Trim, ChkEstatus.Checked, HdnIDCategoria.Value.ToEntero) Then
                 TxtCategoria.Text = ""
                 ChkEstatus.Checked = True
                 Alert("La Categoría se actualizó correctamente.", TipoMensaje.MsgInformacion)
+                GlobalDTGralCategorias(UsuarioActual.CveEmpresa) = Nothing
             End If
         End If
 

Ventas/ClientesAbonar.aspx.vb

@@ -155,14 +155,16 @@ Partial Class Ventas_ClientesAbonar
             ViewState("Mail") = value
         End Set
     End Property
-    Private Property CveIESustitucion As Integer
+
-        Get
+    'Private Property CveIESustitucion As Integer
-            Return ViewState("CveIESustitucion").ToString.ToEntero
+    '    Get
-        End Get
+    '        Return ViewState("CveIESustitucion").ToString.ToEntero
-        Set(value As Integer)
+    '    End Get
-            ViewState("CveIESustitucion") = value
+    '    Set(value As Integer)
-        End Set
+    '        ViewState("CveIESustitucion") = value
-    End Property
+    '    End Set
+    'End Property
+
     Private Property CFDIRelacionadoSustitucion As String
         Get
             If ViewState("CFDIRelacionadoSustitucion") Is Nothing Then
@@ -244,9 +246,9 @@ Partial Class Ventas_ClientesAbonar
 
                 FechaCorteIE = DateTime.Now
 
-                If CveIESustitucion > 0 Then
+                'If CveIESustitucion > 0 Then
-                    CargaIESustituir()
+                '    CargaIESustituir()
-                End If
+                'End If
 
                 Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, Now.Day - 1, Now.Day)
                 Fecha = (dia.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString).ToDate
@@ -334,7 +336,9 @@ Partial Class Ventas_ClientesAbonar
                 Retorno = True
                 CargaCuentas()
                 CargaTipoTransaccion()
-                TxtFechaDocumento.Text = IIf(CveIESustitucion > 0, FechaCorteIE.ToShortDateString, Now.ToShortDateString).ToString
+
+                'TxtFechaDocumento.Text = IIf(CveIESustitucion > 0, FechaCorteIE.ToShortDateString, Now.ToShortDateString).ToString
+                TxtFechaDocumento.Text = Now.ToShortDateString.ToString
 
                 TxtAboneA.Enabled = False
                 LbEncabezado.Text = String.Format("<a href='/Ventas/Clientes.aspx?CveCliente={0}' target='_blank' class='Texto'>{1}</a>", CveCliente, ObjCliente.NombreComercial)
@@ -372,10 +376,12 @@ Partial Class Ventas_ClientesAbonar
         Dim FechaI As String = IfNull(Request("FechaI"), "-1")
         Dim FechaF As String = IfNull(Request("FechaF"), "-1")
 
-        Dim FechaCorte As Date = IIf(CveIESustitucion > 0, (FechaCorteIE.ToDate).ToShortDateString, DateTime.Now.AddYears(1).ToShortDateString).ToString.ToDate
+        'Dim FechaCorte As Date = IIf(CveIESustitucion > 0, (FechaCorteIE.ToDate).ToShortDateString, DateTime.Now.AddYears(1).ToShortDateString).ToString.ToDate
+        Dim FechaCorte As Date = DateTime.Now.AddYears(1).ToShortDateString.ToString.ToDate
 
         Dim SumDescuentoProntoPago As Double = 0.0
-        If Mov.GetCxCClienteDetalle(ViewState("CveCliente").ToString.ToEntero, FechaI, FechaF, pCveMoneda, CveSubProyecto, UsuarioActual.CveEmpresa, CveClienteSucursal, FechaCorte:=FechaCorte, CveIESustitucion:=CveIESustitucion) Then
+        'If Mov.GetCxCClienteDetalle(ViewState("CveCliente").ToString.ToEntero, FechaI, FechaF, pCveMoneda, CveSubProyecto, UsuarioActual.CveEmpresa, CveClienteSucursal, FechaCorte:=FechaCorte, CveIESustitucion:=CveIESustitucion) Then
+        If Mov.GetCxCClienteDetalle(ViewState("CveCliente").ToString.ToEntero, FechaI, FechaF, pCveMoneda, CveSubProyecto, UsuarioActual.CveEmpresa, CveClienteSucursal, FechaCorte:=FechaCorte) Then
             Dim TmpCxCAux As DataTable
             TmpCxCAux = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio")
             SumDescuentoProntoPago = TmpCxCAux.SUM("DescuentoProntoPago")
@@ -385,6 +391,7 @@ Partial Class Ventas_ClientesAbonar
             CveMoneda = pCveMoneda
 
         End If
+
         TxtImporte.Text = ""
         TxtObservaciones.Text = ""
         If SumDescuentoProntoPago > 0.0 Then
@@ -701,12 +708,12 @@ Partial Class Ventas_ClientesAbonar
         '02-05-2018 MANDAMOS CANCELAR EL COMPLEMENTO A SUSTITUIR
         Dim ErrorCancelarIE As Boolean = False
 
-        If CveIESustitucion > 0 Then
+        'If CveIESustitucion > 0 Then
-            ErrorCancelarIE = CancelarIE()
+        '    ErrorCancelarIE = CancelarIE()
-            If ErrorCancelarIE Then
+        '    If ErrorCancelarIE Then
-                Exit Sub
+        '        Exit Sub
-            End If
+        '    End If
-        End If
+        'End If
 
         Dim ObjIE As New ClsBancos()
         Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
@@ -761,7 +768,8 @@ Partial Class Ventas_ClientesAbonar
 
                 End If
 
-                CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveIESustitucion:=CveIESustitucion, CveProveedorIntermediario:=CveProvIntermediario)
+                'CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveIESustitucion:=CveIESustitucion, CveProveedorIntermediario:=CveProvIntermediario)
+                CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveIESustitucion:=-1, CveProveedorIntermediario:=CveProvIntermediario)
             Else
                 If RblTipoPago.SelectedValue.Contiene("3") Then
                     CveIE = DdlIngreso.SelectedValue.ToEntero
@@ -1726,16 +1734,18 @@ Partial Class Ventas_ClientesAbonar
             End If
 
             'BITACORA
-            If MsgError = "" Then
+            'If MsgError = "" Then
-                If CveIESustitucion > 0 And ComplementoSustitucionGenerado Then
+
-                    If Not ObjEvento.AddEventoBitacora($"Complemento de pago Cancelado por sustitución con Folio <a href='/Bancos/IE.aspx?CveIE={CveIE}' target='_blank' class='Texto'>{TxtFolio.Text}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIESustitucion) Then
+            '    If CveIESustitucion > 0 And ComplementoSustitucionGenerado Then
-                        MsgError = "Ocurrió un error al agregar la bitacora"
+            '        If Not ObjEvento.AddEventoBitacora($"Complemento de pago Cancelado por sustitución con Folio <a href='/Bancos/IE.aspx?CveIE={CveIE}' target='_blank' class='Texto'>{TxtFolio.Text}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIESustitucion) Then
-                    End If
+            '            MsgError = "Ocurrió un error al agregar la bitacora"
-                    If Not ObjEvento.AddEventoBitacora($"Complemento de pago Generado por Sustitución de <a href='/Bancos/IE.aspx?CveIE={CveIESustitucion}' target='_blank' class='Texto'>{FolioIECancelado}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
+            '        End If
-                        MsgError = "Ocurrió un error al agregar la bitacora"
+            '        If Not ObjEvento.AddEventoBitacora($"Complemento de pago Generado por Sustitución de <a href='/Bancos/IE.aspx?CveIE={CveIESustitucion}' target='_blank' class='Texto'>{FolioIECancelado}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
-                    End If
+            '            MsgError = "Ocurrió un error al agregar la bitacora"
-                End If
+            '        End If
-            End If
+            '    End If
+
+            'End If
 
         Catch ex As Exception
             MsgError = "Ocurrió un error al guardar el movimiento"
@@ -2269,7 +2279,7 @@ Partial Class Ventas_ClientesAbonar
         DdlCuenta.SelectedValue = "-1"
         DdlTipoTransaccion.SelectedValue = "-1"
 
-        CveIESustitucion = "-1"
+        'CveIESustitucion = "-1"
         CFDIRelacionadoSustitucion = "-1"
         FechaCorteIE = DateTime.Now.ToDate
         IDPoliza = -1
@@ -2500,7 +2510,8 @@ Partial Class Ventas_ClientesAbonar
         Dim ObjBancos As New ClsBancos
 
 
-        If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, If(CveIESustitucion > 0, 2, 1), UsuarioActual.CveEmpresa, -1) Then
+        'If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, If(CveIESustitucion > 0, 2, 1), UsuarioActual.CveEmpresa, -1) Then
+        If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
             If Not ObjBancos.DtResultados.Rows.Count > 0 Then
                 ObjBancos.Dispose()
                 Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia)
@@ -2512,7 +2523,9 @@ Partial Class Ventas_ClientesAbonar
 
         ObjBancos.IniciaTransacSQL()
 
-        If ObjBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, CveCliente, CFDIRelacionado:=CFDIRelacionadoSustitucion, EsRegeneracion:=If(CveIESustitucion > 0, True, False)) Then
+
+        'If ObjBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, CveCliente, CFDIRelacionado:=CFDIRelacionadoSustitucion, EsRegeneracion:=If(CveIESustitucion > 0, True, False)) Then
+        If ObjBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, CveCliente, CFDIRelacionado:=CFDIRelacionadoSustitucion, EsRegeneracion:=False) Then
             ObjBancos.Commit()
             ComplementoSustitucionGenerado = True
 
@@ -2883,183 +2896,185 @@ Partial Class Ventas_ClientesAbonar
 #End Region
 
 #Region "COMPLEMENTO DE PAGO - ELIMINAR POR SUSTITUCION"
-    Protected Sub CargaIESustituir()
-        Dim ObjIE As New ClsBancos()
-        If ObjIE.GetBancosIE(CveIESustitucion, UsuarioActual.CveEmpresa) Then
-            If ObjIE.DtResultados.Rows.Count > 0 Then
-                FechaCorteIE = ObjIE.FechaDocumento
-                CveMoneda = ObjIE.CveMoneda
-                CveMonedaFiltro = CveMoneda
-                IDPoliza = ObjIE.IDPoliza
-                FolioIECancelado = ObjIE.Folio
-            End If
-        End If
-        ObjIE.Dispose()
-        UpDatos.Update()
-    End Sub
-    Function CancelarIE() As Boolean
-        Dim ErrorCancelar = False
 
-        If Not IsDate(TxtFechaDocumento.Text.ToDate) Then
+    'Protected Sub CargaIESustituir()
-            Alert("El campo fecha cancelación es incorrecto. Por favor verifique y vuelva a intentar")
+    '    Dim ObjIE As New ClsBancos()
-            Return True
+    '    If ObjIE.GetBancosIE(CveIESustitucion, UsuarioActual.CveEmpresa) Then
-        End If
+    '        If ObjIE.DtResultados.Rows.Count > 0 Then
+    '            FechaCorteIE = ObjIE.FechaDocumento
+    '            CveMoneda = ObjIE.CveMoneda
+    '            CveMonedaFiltro = CveMoneda
+    '            IDPoliza = ObjIE.IDPoliza
+    '            FolioIECancelado = ObjIE.Folio
+    '        End If
+    '    End If
+    '    ObjIE.Dispose()
+    '    UpDatos.Update()
+    'End Sub
 
-        Dim Banc As New ClsBancos
+    'Function CancelarIE() As Boolean
-        Banc.IniciaTransacSQL()
+    '    Dim ErrorCancelar = False
 
-        Dim ObjAC As ClsContPAQi = Nothing
+    '    If Not IsDate(TxtFechaDocumento.Text.ToDate) Then
-        If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then
+    '        Alert("El campo fecha cancelación es incorrecto. Por favor verifique y vuelva a intentar")
-            ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
+    '        Return True
-            ObjAC.IniciaTransacSQL()
+    '    End If
-        End If
 
-        Dim IdPolizaNueva = -1
+    '    Dim Banc As New ClsBancos
-        Dim FolioPolizaNueva = -1
+    '    Banc.IniciaTransacSQL()
 
-        Try
+    '    Dim ObjAC As ClsContPAQi = Nothing
-            'CANCELA IE CONTABILIZADO
+    '    If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then
-            If IDPoliza > 0 Then
+    '        ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
-                If ObjAC Is Nothing Then
+    '        ObjAC.IniciaTransacSQL()
-                    ErrorCancelar = True
+    '    End If
-                End If
 
-                If Not ErrorCancelar Then
+    '    Dim IdPolizaNueva = -1
-                    Dim dt As DataTable
+    '    Dim FolioPolizaNueva = -1
-                    If ObjAC.GetPoliza(IDPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then
-                        dt = ObjAC.DtResultados
 
-                        ' MES ANTERIOR, MOVIMIENTOS CONTRARIOS (NEGATIVOS)
+    '    Try
-                        If dt.Rows(0)("FechaPol").ToString.ToDate.Month < TxtFechaDocumento.Text.ToDate.Month Or dt.Rows(0)("FechaPol").ToString.ToDate.Year < TxtFechaDocumento.Text.ToDate.Year Then
+    '        'CANCELA IE CONTABILIZADO
-                            IdPolizaNueva = ObjAC.AddPoliza(3, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), 0, 0, UsuarioActual.CveUsuario, TxtFechaDocumento.Text.ToDate)
+    '        If IDPoliza > 0 Then
+    '            If ObjAC Is Nothing Then
+    '                ErrorCancelar = True
+    '            End If
 
-                            If IdPolizaNueva > 0 Then
+    '            If Not ErrorCancelar Then
-                                FolioPolizaNueva = ObjAC.Folio
+    '                Dim dt As DataTable
+    '                If ObjAC.GetPoliza(IDPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then
+    '                    dt = ObjAC.DtResultados
 
-                                'CREA POLIZA NEGATIVA
+    '                    ' MES ANTERIOR, MOVIMIENTOS CONTRARIOS (NEGATIVOS)
-                                For Each dr As DataRow In dt.Rows
+    '                    If dt.Rows(0)("FechaPol").ToString.ToDate.Month < TxtFechaDocumento.Text.ToDate.Month Or dt.Rows(0)("FechaPol").ToString.ToDate.Year < TxtFechaDocumento.Text.ToDate.Year Then
-                                    If Not ObjAC.AddMovimiento(IdPolizaNueva, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "True", dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), dr("IdSegNeg").ToString.ToEntero, TxtFechaDocumento.Text.ToDate, "") Then
+    '                        IdPolizaNueva = ObjAC.AddPoliza(3, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), 0, 0, UsuarioActual.CveUsuario, TxtFechaDocumento.Text.ToDate)
-                                        ErrorCancelar = True : Exit For
-                                    End If
-                                Next
 
-                                'AJUSTA POLIZA
+    '                        If IdPolizaNueva > 0 Then
-                                If Not ErrorCancelar Then
+    '                            FolioPolizaNueva = ObjAC.Folio
-                                    If Not ObjAC.AjustaPoliza(IdPolizaNueva) Then
-                                        ErrorCancelar = True
-                                    End If
-                                End If
 
-                                'CANCELA IE
+    '                            'CREA POLIZA NEGATIVA
-                                If Not ErrorCancelar Then
+    '                            For Each dr As DataRow In dt.Rows
-                                    If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
+    '                                If Not ObjAC.AddMovimiento(IdPolizaNueva, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "True", dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), dr("IdSegNeg").ToString.ToEntero, TxtFechaDocumento.Text.ToDate, "") Then
-                                        ErrorCancelar = True
+    '                                    ErrorCancelar = True : Exit For
-                                    End If
+    '                                End If
-                                End If
+    '                            Next
 
-                            Else
+    '                            'AJUSTA POLIZA
-                                ErrorCancelar = True
+    '                            If Not ErrorCancelar Then
-                            End If
+    '                                If Not ObjAC.AjustaPoliza(IdPolizaNueva) Then
+    '                                    ErrorCancelar = True
+    '                                End If
+    '                            End If
 
-                        Else
+    '                            'CANCELA IE
+    '                            If Not ErrorCancelar Then
+    '                                If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
+    '                                    ErrorCancelar = True
+    '                                End If
+    '                            End If
 
-                            'LIMPIA POLIZA PONIENDO IMPORTE EN CEROS
+    '                        Else
-                            For Each dr As DataRow In dt.Rows
+    '                            ErrorCancelar = True
-                                If Not ObjAC.UpdateMovimiento(dr("Id").ToString.ToEntero, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "1", 0, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegNeg").ToString.ToEntero, dr("Fecha").ToString.ToDate) Then
+    '                        End If
-                                    ErrorCancelar = True : Exit For
-                                End If
-                            Next
 
-                            'AJUSTA POLIZA
+    '                    Else
-                            If Not ErrorCancelar Then
-                                If Not ObjAC.AjustaPoliza(IDPoliza) Then
-                                    ErrorCancelar = True
-                                End If
-                            End If
 
-                            'CANCELA IE
+    '                        'LIMPIA POLIZA PONIENDO IMPORTE EN CEROS
-                            If Not ErrorCancelar Then
+    '                        For Each dr As DataRow In dt.Rows
-                                If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
+    '                            If Not ObjAC.UpdateMovimiento(dr("Id").ToString.ToEntero, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "1", 0, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegNeg").ToString.ToEntero, dr("Fecha").ToString.ToDate) Then
-                                    ErrorCancelar = True
+    '                                ErrorCancelar = True : Exit For
-                                End If
+    '                            End If
-                            End If
+    '                        Next
 
-                        End If
+    '                        'AJUSTA POLIZA
+    '                        If Not ErrorCancelar Then
+    '                            If Not ObjAC.AjustaPoliza(IDPoliza) Then
+    '                                ErrorCancelar = True
+    '                            End If
+    '                        End If
 
-                    End If
+    '                        'CANCELA IE
-                End If
+    '                        If Not ErrorCancelar Then
-            Else
+    '                            If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
+    '                                ErrorCancelar = True
+    '                            End If
+    '                        End If
 
-                If FechaCorteIE.Month < TxtFechaDocumento.Text.ToDate.Month Or FechaCorteIE.Year < TxtFechaDocumento.Text.ToDate.Year Then
+    '                    End If
-                    'CANCELA IE MES ANTERIOR
-                    If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
-                        ErrorCancelar = True
-                    End If
-                Else
-                    'CANCELA IE MES ACTUAL
-                    If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
-                        ErrorCancelar = True
-                    End If
-                End If
 
-            End If
+    '                End If
+    '            End If
+    '        Else
 
-            If Not ErrorCancelar Then
+    '            If FechaCorteIE.Month < TxtFechaDocumento.Text.ToDate.Month Or FechaCorteIE.Year < TxtFechaDocumento.Text.ToDate.Year Then
-                If Banc.GetComplementoPagos(-1, CveIESustitucion, -1, UsuarioActual.CveEmpresa) Then
+    '                'CANCELA IE MES ANTERIOR
+    '                If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
+    '                    ErrorCancelar = True
+    '                End If
+    '            Else
+    '                'CANCELA IE MES ACTUAL
+    '                If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
+    '                    ErrorCancelar = True
+    '                End If
+    '            End If
 
-                    Dim CveComplementoPago As Integer = -1
+    '        End If
 
-                    If Banc.DtResultados.Rows.Count > 0 Then
+    '        If Not ErrorCancelar Then
-                        'OBTENEMOS EL UUID DEL COMPLEMENTO A CANCELAR POR SUSTITUCION
+    '            If Banc.GetComplementoPagos(-1, CveIESustitucion, -1, UsuarioActual.CveEmpresa) Then
-                        CFDIRelacionadoSustitucion = Banc.DtResultados.Rows(0)("FolioFiscal")
-                        CveComplementoPago = Banc.DtResultados(0)("CveComplementoPago").ToString().ToEntero
-                    End If
 
-                    'ACTUALIZA FOLIOS CANCELADOS
+    '                Dim CveComplementoPago As Integer = -1
-                    If Banc.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"}).Rows.Count > 0 Then
-                        If Not Banc.GetFoliosCancelados(UsuarioActual.CveEmpresa) Then
-                            ErrorCancelar = True
-                        Else
-                            Dim FolioCancelado = $"{FolioIECancelado}_C_{Banc.DtResultados(0)("Cantidad").ToString().ToEntero + 1}"
 
-                            If Not Banc.UpdateFolioCancelado(CveIESustitucion.ToEntero, Folio:=FolioCancelado) Then
+    '                If Banc.DtResultados.Rows.Count > 0 Then
-                                ErrorCancelar = True
+    '                    'OBTENEMOS EL UUID DEL COMPLEMENTO A CANCELAR POR SUSTITUCION
-                            End If
+    '                    CFDIRelacionadoSustitucion = Banc.DtResultados.Rows(0)("FolioFiscal")
-                        End If
+    '                    CveComplementoPago = Banc.DtResultados(0)("CveComplementoPago").ToString().ToEntero
-                    End If
+    '                End If
 
-                    'ACTUALIZA ESTATUS DE COMPLEMENTO DE PAGO A CANCELADO = 2
+    '                'ACTUALIZA FOLIOS CANCELADOS
-                    If Not ErrorCancelar And CveComplementoPago > 0 Then
+    '                If Banc.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"}).Rows.Count > 0 Then
-                        If Not Banc.UpdateComplementoPagoCancelado(CveComplementoPago, 2, UsuarioActual.Empresa.CvePAC, UsuarioActual.CveEmpresa, DateTime.Now) Then
+    '                    If Not Banc.GetFoliosCancelados(UsuarioActual.CveEmpresa) Then
-                            ErrorCancelar = True
+    '                        ErrorCancelar = True
-                        End If
+    '                    Else
-                    End If
+    '                        Dim FolioCancelado = $"{FolioIECancelado}_C_{Banc.DtResultados(0)("Cantidad").ToString().ToEntero + 1}"
-                End If
-            End If
-        Catch ex As Exception
-            ErrorCancelar = True
-            OnError("Ocurrió un error al cancelar el IE", ex)
-        End Try
 
-        If Not ErrorCancelar Then
+    '                        If Not Banc.UpdateFolioCancelado(CveIESustitucion.ToEntero, Folio:=FolioCancelado) Then
-            Banc.Commit()
+    '                            ErrorCancelar = True
-            If ObjAC IsNot Nothing Then ObjAC.Commit()
+    '                        End If
+    '                    End If
+    '                End If
 
-            Dim Msg As New StringBuilder
+    '                'ACTUALIZA ESTATUS DE COMPLEMENTO DE PAGO A CANCELADO = 2
-            Msg.Append("El movimiento bancario quedó cancelado exitosamente.")
+    '                If Not ErrorCancelar And CveComplementoPago > 0 Then
+    '                    If Not Banc.UpdateComplementoPagoCancelado(CveComplementoPago, 2, UsuarioActual.Empresa.CvePAC, UsuarioActual.CveEmpresa, DateTime.Now) Then
+    '                        ErrorCancelar = True
+    '                    End If
+    '                End If
+    '            End If
+    '        End If
+    '    Catch ex As Exception
+    '        ErrorCancelar = True
+    '        OnError("Ocurrió un error al cancelar el IE", ex)
+    '    End Try
 
-            If IdPolizaNueva > 0 Then Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza de cancelación</a>", IdPolizaNueva)
+    '    If Not ErrorCancelar Then
-            Alert(Msg.ToString, TipoMensaje.MsgInformacion)
+    '        Banc.Commit()
-        Else
+    '        If ObjAC IsNot Nothing Then ObjAC.Commit()
-            Banc.RollBack()
-            If ObjAC IsNot Nothing Then ObjAC.RollBack()
-            Alert("El movimiento bancario no se pudo cancelar. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-        End If
 
-        If ObjAC IsNot Nothing Then ObjAC.Dispose()
+    '        Dim Msg As New StringBuilder
-        Banc.Dispose()
+    '        Msg.Append("El movimiento bancario quedó cancelado exitosamente.")
-        Return ErrorCancelar
+
-    End Function
+    '        If IdPolizaNueva > 0 Then Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza de cancelación</a>", IdPolizaNueva)
+    '        Alert(Msg.ToString, TipoMensaje.MsgInformacion)
+    '    Else
+    '        Banc.RollBack()
+    '        If ObjAC IsNot Nothing Then ObjAC.RollBack()
+    '        Alert("El movimiento bancario no se pudo cancelar. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+    '    End If
+
+    '    If ObjAC IsNot Nothing Then ObjAC.Dispose()
+    '    Banc.Dispose()
+    '    Return ErrorCancelar
+    'End Function
 
     Private Sub BtnVincularIntermediario_Click(sender As Object, e As EventArgs) Handles BtnVincularIntermediario.Click
         RegistraScript("$('#ModalVincularIntermediario').modal('hide')", "hidemodal")

Ventas/ProductosServicios.aspx

@@ -2178,6 +2178,40 @@
 
     <asp:Literal ID="LtlScripts" runat="server"></asp:Literal>
     <%-- FIN MODAL PS ADICIONALES --%>
+
+          <asp:UpdatePanel runat="server" ID="UPModalMensaje" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div id="DivModalMensaje" class="modal fade" role="dialog">
+                <div class="modal-dialog">
+
+                    <!-- Modal content-->
+                    <div class="modal-content">
+                        <div class="modal-header-warning">
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <h4 class="modal-title">
+                                <asp:Label ID="LblModalMensaje" runat="server" ClientIDMode="Static" Text="Atención"></asp:Label></h4>
+                        </div>
+                        <div class="modal-body">
+                           <div class="row">
+                               <div class="col-md-12">
+                                   <asp:Label ID="LblModalMensajeCuerpo" runat="server" ClientIDMode="Static" Text="Atención"></asp:Label>
+                               </div>
+                           </div>
+                        </div>
+                        <div class="modal-footer">
+                            <asp:Button ID="BtnmodalMensajeOK" runat="server" Text="Guardar" CssClass="btn  btn-sm blue"  OnClick="BtnmodalMensajeOK_Click"  />
+                            <asp:Button ID="BtnCerrarModalMensace" runat="server" Text="Corregir" CssClass="btn  btn-sm green" data-dismiss="modal"  />                                                       
+                        </div>
+                    </div>
+
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 

Ventas/ProductosServicios.aspx.vb

@@ -148,6 +148,29 @@ Partial Class ProductosyServicios
     End Property
 #End Region
 
+
+#Region "Material peligroso"
+
+    Property ValidaMaterialPeligrosoMensaje As Boolean
+        Get
+
+            If ViewState("ValidaMaterialPeligroso") Is Nothing Then
+                ViewState("ValidaMaterialPeligroso") = False
+            End If
+
+            Return Boolean.Parse(ViewState("ValidaMaterialPeligroso").ToString)
+
+        End Get
+        Set(value As Boolean)
+            ViewState("ValidaMaterialPeligroso") = value
+        End Set
+
+
+    End Property
+
+#End Region
+
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -1213,6 +1236,15 @@ Partial Class ProductosyServicios
     End Sub
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
 
+
+        If DdlSATPS.txtValue.Value.ToEntero > 0 Then
+            If Not ValidaMaterialPeligrosoMensaje Then
+                ValidaMaterialPeligroso(DdlSATPS.txtValue.Value.ToEntero)
+                Exit Sub
+            End If
+        End If
+
+
         If DdlSATPS.SelectedValue.Contiene("46920", "0", "-1") AndAlso UsuarioActual.CveEmpresa.Contiene(119, 158, 72, 80, 145) Then
             Alert("El Producto Servicio SAT con clave '01010101' no es valido, por favor seleccione otro", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -3045,4 +3077,76 @@ Partial Class ProductosyServicios
         End If
         Return False
     End Function
+
+
+
+
+
+
+    Sub ValidaMaterialPeligroso(CveSATPS As Integer)
+
+        Dim EsPeligroso As Boolean = False
+
+        Dim ObjGrales As New ClsGenerales
+
+
+        If ObjGrales.GetSATProductosServicios(CveSATPS:=CveSATPS) Then
+
+            Dim DTDatos As New DataTable
+            DTDatos = ObjGrales.DtResultados.FiltraParametros($" CveSATPS= {CveSATPS}")
+
+
+
+            'Es material Peligros
+            If DTDatos.Rows(0)("EsPeligroso").ToString.ToEntero = 1 Then
+
+                If DdlMaterialPeligroso.txtValue.Value.ToEntero > 0 And DdlEmbalaje.txtValue.Value.ToEntero > 0 And TxtPesoKg.Text.Trim.Length > 0 Then
+                    ValidaMaterialPeligrosoMensaje = True
+                Else
+
+                    RegistraScript("$('#DivModalMensaje').modal('show');")
+                    ValidaMaterialPeligrosoMensaje = False
+                    LblModalMensajeCuerpo.Text = "El producto servicio del SAT seleccionado esta clasificado como material peligroso, favor de llenar los datos de la sección carta porte en la pestaña Contabilidad - Inventarios."
+                    UPModalMensaje.Update()
+                End If
+
+            Else
+                'No es matgerial peligroso
+
+                If DdlMaterialPeligroso.txtValue.Value.ToEntero > 0 Or DdlEmbalaje.txtValue.Value.ToEntero > 0 Or TxtPesoKg.Text.Trim.Length > 0 Then
+                    RegistraScript("$('#DivModalMensaje').modal('show');")
+                    ValidaMaterialPeligrosoMensaje = False
+                    LblModalMensajeCuerpo.Text = "El producto servicio del SAT seleccionado no esta clasificado como material peligroso, favor de limpiar los datos de la sección carta porte en la pestaña Contabilidad - Inventarios, el incluir estos datos en un material no peligroso generara errores al timbrar traslados."
+                    UPModalMensaje.Update()
+
+                Else
+                    ValidaMaterialPeligrosoMensaje = True
+                End If
+
+
+            End If
+        End If
+
+
+
+        ObjGrales.Dispose()
+
+
+
+        'Return Respuesta
+
+    End Sub
+
+    Protected Sub BtnmodalMensajeOK_Click(sender As Object, e As EventArgs)
+
+        ValidaMaterialPeligrosoMensaje = True
+        RegistraScript("$('#DivPersonalizar').modal('hide');")
+
+        BtnGuardar_Click(Nothing, Nothing)
+
+
+    End Sub
+
+
+
 End Class