.

2023-02-13 21:54:52 -07:00
parent d0224f9462 775546165d
commit 7278b31649
20 changed files with 637 additions and 500 deletions
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -4276,16 +4276,15 @@
                                                        <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                                    </asp:DropDownList>
                                                </div>
-                                                <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate" style="width: 120px">Proyecto:</asp:Label>
-                                                <div runat="server" id="DivProyecto" class="col-md-2" style="width: 120px">
-                                                    <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                                <asp:Label ID="LblProyectoFiltro" runat="server" class="col-md-1 truncate" style="width: 120px">Proyecto:</asp:Label>
+                                                <div runat="server" id="DivProyectoFiltro" class="col-md-2" style="width: 120px">
+                                                    <asp:DropDownList ID="DdlProyectoFiltro" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                                        <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                                                    </asp:DropDownList>
                                                </div>
-                                                <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate" style="width: 120px; text-align: right">SubProyecto:</asp:Label>
-                                                <div runat="server" id="DivSubProyecto" class="col-md-2" style="width: 120px">
-                                                    <asp:DropDownList ID="DdlSubProyectoFiltro" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                                        <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                                <asp:Label ID="LblSubProyectoFiltro" runat="server" class="col-md-1 truncate" style="width: 120px; text-align: right">SubProyecto:</asp:Label>
+                                                <div runat="server" id="DivSubProyectoFiltro" class="col-md-2" style="width: 120px">
+                                                    <asp:DropDownList ID="DdlSubProyectoFiltro" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                                    </asp:DropDownList>
                                                </div>
                                            </div>
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1302,6 +1302,7 @@ Partial Class Clientes


    Private Sub CargaCombos()
+        CargaSubProyectos()
        CargaMetodosPago()
        CargaPrecioLista()
        CargaVendedores()
@@ -1321,6 +1322,11 @@ Partial Class Clientes

        CargaCombosComercioExterior()

+    End Sub
+    Private Sub CargaSubProyectos()
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, Nothing, AplicaTodos:="Seleccione")
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        'DdlSubProyecto.DataBind()
    End Sub
    Private Sub CargaMetodosPago()
        'DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ")
@@ -1576,8 +1582,11 @@ Partial Class Clientes
                DdlTipoRetencion_SelectedIndexChanged(DdlTipoRetencion, EventArgs.Empty)
                TxtRetIVA.Text = ObjClientes.RetIVA.ToString()
                TxtRetISR.Text = ObjClientes.RetISR.ToString()
-                ChkRetIVAFletesAcarreos.Checked = ObjClientes.RetieneIVAFletes
-                DdlSubProyecto.SelectedValue = ObjClientes.CveSubProyecto.ToString()
+                ChkRetIVAFletesAcarreos.Checked = ObjClientes.RetieneIVAFletes
+                If ObjClientes.CveSubProyecto > 0 Then
+                    DdlSubProyecto.SelectedValueExistInsert(ObjClientes.CveSubProyecto.ToString(), GlobalDTSubProyectos(-1, CveSubProyecto:=ObjClientes.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto"))
+                End If
+
                DdlZonaHoraria.SelectedValueExist(ObjClientes.DtResultados(0)("CveZonaHoraria").ToString())
                ChkEstado.Checked = ObjClientes.Estatus
                EstatusAnteriorCliente = ObjClientes.Estatus
@@ -8428,7 +8437,7 @@ Partial Class Clientes

    Private Sub CargaFiltros()

-        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyectoFiltro, DdlSubProyectoFiltro, LblProyectoFiltro, LblSubProyectoFiltro)

        'Cargo Clasificaciones
        DdlClasificacionFilto.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
@@ -8465,8 +8474,8 @@ Partial Class Clientes

    End Sub

-    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyectoFiltro.SelectedIndexChanged
+        CargarSubProyecto(DdlSubProyecto, DdlProyectoFiltro.SelectedValue)
    End Sub

    Protected Sub DdlClasificacionFilto_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -8509,7 +8518,7 @@ Partial Class Clientes
        FechaI = If(IsDate(TxtFechaIFiltro.Text.Trim()), TxtFechaIFiltro.Text.ToDate(), MinFecha)
        FechaF = If(IsDate(TxtFechaFFiltro.Text.Trim()), TxtFechaFFiltro.Text.ToDate(), MaxFecha)

-        If ObjVentas.GetRepProductosServiciosDetalle(DdlProyecto.SelectedValue.ToEntero(), DdlSubProyectoFiltro.SelectedValue.ToEntero(), -1, DdlClasificacionFilto.SelectedValue.ToEntero(),
+        If ObjVentas.GetRepProductosServiciosDetalle(DdlProyectoFiltro.SelectedValue.ToEntero(), DdlSubProyectoFiltro.SelectedValue.ToEntero(), -1, DdlClasificacionFilto.SelectedValue.ToEntero(),
                                              DdlPSFiltro.SelectedValue.ToEntero(), FechaI, FechaF, -1, MinFecha, MaxFecha, -1,
                                              CveCliente, -1, DdlVendedorFiltro.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), -1,
                                              UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:="Ing", GPO:=DdlGrupo.SelectedValue.ToEntero()) Then
--- a/Ventas/RepCancelacionesPorRespuesta.aspx.cs
+++ b/Ventas/RepCancelacionesPorRespuesta.aspx.cs
@@ -201,7 +201,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
        }


-        if (CveVenta > 0 && Uuid != "")
+        if (CveVenta > 0)
        {
            var respCancelacion = CancelarDocumento(CveVenta, -1, CveCliente, Folio, Uuid, "", DateTime.Now, TipoDocto, Total.ToDouble(), UsuarioActual.Empresa.CvePAC, EsRefacturacion: true, FolioSustitucion: FolioSustitucion, CveEstatusRefacturacion: CveEstatusRefacturacion);

@@ -258,14 +258,17 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
                }
                else
                {
-                    var resp = Timbrado.VerificarVigenciaSAT(Uuid, UsuarioActual.Empresa.RFC, RFCReceptor, Total, true);
-                    if (resp != null)
+                    if (!string.IsNullOrEmpty(Uuid))
                    {
-                        sb.AppendFormat("Folio Fiscal: {0} <br/>", Uuid);
-                        sb.AppendFormat("Código Estado: {0} <br/>", resp.CodigoEstatus);
-                        sb.AppendFormat("Estado: {0} <br/>", resp.Estado);
-                        sb.AppendFormat("Es Cancelable: {0} <br/>", string.IsNullOrEmpty(resp.EsCancelable) ? "Desconocido" : resp.EsCancelable);
-                        sb.AppendFormat("Estatus de Cancelación: {0} <br/><br/>", string.IsNullOrEmpty(resp.EsCancelable) ? "Desconocido" : resp.EstatusCancelacion);
+                        var resp = Timbrado.VerificarVigenciaSAT(Uuid, UsuarioActual.Empresa.RFC, RFCReceptor, Total, true);
+                        if (resp != null)
+                        {
+                            sb.AppendFormat("Folio Fiscal: {0} <br/>", Uuid);
+                            sb.AppendFormat("Código Estado: {0} <br/>", resp.CodigoEstatus);
+                            sb.AppendFormat("Estado: {0} <br/>", resp.Estado);
+                            sb.AppendFormat("Es Cancelable: {0} <br/>", string.IsNullOrEmpty(resp.EsCancelable) ? "Desconocido" : resp.EsCancelable);
+                            sb.AppendFormat("Estatus de Cancelación: {0} <br/><br/>", string.IsNullOrEmpty(resp.EsCancelable) ? "Desconocido" : resp.EstatusCancelacion);
+                        }
                    }

                    sb.Append(respCancelacion.Mensaje);
@@ -288,6 +291,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas

            CargaDatos();
        }
+
        UPDatos.Update();

    }
@@ -610,6 +614,11 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
                //    if (e.Row.FCLinkButton("LnkCancelarFolioSustitucion") != null) e.Row.FCLinkButton("LnkCancelarFolioSustitucion").Visible = true;
                //}
            }
+
+            if (string.IsNullOrEmpty(e.Row.DBCampo("FolioFiscal")))
+            {
+                e.Row.FCLinkButton("LnkValidarRefac").Visible = false;
+            }
        }
    }
    public void BtnEnviarMailCancelacion_Click(object sender, EventArgs e)
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -180,7 +180,7 @@ Partial Class RepVentaDetalle
        DdlCondicionesPago.SelectedValueExist(CveCondicionesPago)

        DdlProyecto.SelectedValueExist(CveProyecto)
-        If DivProyecto.Visible Then CargaSubProyecto()
+        'If DivProyecto.Visible Then CargaSubProyecto()
        DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto)
        DdlSubProyectoEjecucion.SelectedValueExist(CveSubProyectoEjecucion)
        DdlVendedor.SelectedValuesIfExistM(CveVendedor)
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14057,7 +14057,13 @@ Partial Class Ventas
                                                    Exit For
                                                End If
                                            End If
-                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, 91, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString().ToEntero(), ImporteMX:=ImporteMN91, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio) Then
+                                            Dim CveConceptoAplicacionNC As Integer = 91
+                                            'SI LA NOTA DE CREDITO ES EN MONEDA EXTRANGERA UTILIZAR EL CONCEPTO DE APLICACION ME
+                                            If ConceptoContable = 293 Then
+                                                CveConceptoAplicacionNC = 294
+                                            End If
+
+                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, CveConceptoAplicacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString().ToEntero(), ImporteMX:=ImporteMN91, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio) Then
                                                ErrorPrepoliza = True
                                                Exit For
                                            End If