Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

2022-02-14 09:37:28 -07:00
parent 2070a41f2b a6fda1dee5
commit 1a7efd89d9
26 changed files with 731 additions and 345 deletions
--- a/Ventas/RepConciliacionEmitidosSat.aspx
+++ b/Ventas/RepConciliacionEmitidosSat.aspx
@@ -215,7 +215,7 @@
                                </div>
                                <div class="form-group form-md-line-input form-md-floating-label input-iconright">
                                    <asp:Label runat="server" Text="Clasificación" AssociatedControlID="DdlClasificacion"></asp:Label>
-                                    <asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%">
+                                    <asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" OnSelectedIndexChanged="DdlClasificacion_SelectedIndexChanged" >
                                        <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
                                    </asp:DropDownList>
                                </div>
--- a/Ventas/RepConciliacionEmitidosSat.aspx.cs
+++ b/Ventas/RepConciliacionEmitidosSat.aspx.cs
@@ -224,13 +224,14 @@ public partial class Ventas_RepConciliacionEmitidosSat : ClsPaginas
                ClsCGame ObjCGame = new ClsCGame(ObjVentas.IniciaTransacSQL());
                ClsEdocumentacion ObjDocCliente = new ClsEdocumentacion(ObjVentas.IniciaTransacSQL());
                ClsAcumuladores ObjAcum = new ClsAcumuladores(ObjVentas.IniciaTransacSQL());
-                //ClsContPAQi ObjContPaq = null;
+                ClsContPAQi ObjContPaq = null;
                //StringBuilder MensajeAlert = new StringBuilder() ;
                Modelos.Factura.MMensajeFactura Resp = new Modelos.Factura.MMensajeFactura();
                DataTable DtDetalle = objfact.DtDetalle;
                try
                {
-                 //   objfact.GuardarVenta(ref objfact, ref ObjVentas, ref ObjConta, ref ObjInventario, ref ObjContr, ref DtDetalle, objfact.CveNCaVincular, ref ObjContPaq, ref ObjBancos, ref ObjOS, ref ObjEventos, ref ObjCGame, ref ObjClientes, ref Resp, ObjAcum: ObjAcum);
+                    objfact.GuardarVenta(ref objfact, ref ObjVentas, ref ObjConta, ref ObjInventario, ref ObjContr, ref DtDetalle, objfact.CveNCaVincular, ref ObjContPaq, 
+                        ref ObjBancos, ref ObjOS, ref ObjEventos, ref ObjCGame, ref ObjClientes, false, ObjAcum,ref Resp);
                    
                }
                catch (Exception e)
@@ -803,6 +804,28 @@ public partial class Ventas_RepConciliacionEmitidosSat : ClsPaginas
        }
        //String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
    }
+
+    protected void DdlClasificacion_SelectedIndexChanged(object sender, EventArgs e)
+    {
+
+        int CveClasificacion = DdlClasificacion.SelectedValue.ToEntero();
+        if (UsuarioActual.Empresa.Funcionalidad(141).ToString() == "1")
+        {
+
+            DdlPS.setEsWebService(true);
+            DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString());
+            DdlPS.ddlWS.Attributes.Add("data-pagina", "ventas/ventas");
+            DdlPS.ddlWS.Attributes.Add("data-Estatus", "1");
+        }
+        else
+        {
+
+            DdlPS.setEsWebService(false);
+            DdlPS.ddl.DataSource = get_GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion: CveClasificacion, Estatus: 1, AplicaParaVenta: 1);
+            DdlPS.ddl.DataBind();
+        }
+        UpModalDefaults.Update();
+    } 
 }
 namespace ADSistemaLibrary2.SatXml
 {
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -1267,6 +1267,15 @@ Partial Class Ventas
        End Set
    End Property

+    Private Property CveEstadoCancelacion As Integer
+        Get
+            Return If(IsNothing(ViewState("CveEstadoCancelacion")), 0, CType(ViewState("CveEstadoCancelacion"), Integer))
+        End Get
+        Set(value As Integer)
+            ViewState("CveEstadoCancelacion") = value
+        End Set
+    End Property
+
    Private Property PermiteCredito As Boolean
        Get
            Return If(IsNothing(ViewState("PermiteCredito")), False, CBool(ViewState("PermiteCredito")))
@@ -1321,6 +1330,14 @@ Partial Class Ventas
            ViewState("RFCReceptorVenta") = value
        End Set
    End Property
+    Private Property RegimenFiscalCliente As String
+        Get
+            Return IfNull(ViewState("RegimenFiscalCliente"), "").ToString()
+        End Get
+        Set(value As String)
+            ViewState("RegimenFiscalCliente") = value
+        End Set
+    End Property
    Private Property Adjunto As String
        Get
            Return If(IsNothing(ViewState("Adjunto")), "", ViewState("Adjunto").ToString())
@@ -2245,6 +2262,7 @@ Partial Class Ventas
            SeCancelaRemisionProceso = False
            TotalOriginal = 0
            CveAlmacenDevolucion = 0
+            Me.CveEstadoCancelacion = 0

            txtFechaICot.Text = Now.AddMonths(-3).ToShortDateString
            TxtFechaIRem.Text = Now.AddMonths(-3).ToShortDateString
@@ -2478,6 +2496,25 @@ Partial Class Ventas
                HlFacturasRelaciondas.Visible = True
            End If

+            If Request("CveOrdenProduccion") IsNot Nothing AndAlso IsNumeric(Request("CveOrdenProduccion")) AndAlso Request("CveOrdenProduccion").ToEntero() > 0 Then
+                DdlSubProyectoDatos.SelectedValueExist(11954)
+                Using ObjVentas As New ClsNominas
+
+                    If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, "", -Request("CveOrdenProduccion").ToEntero()) Then
+                        TmpDT = ObjVentas.DtResultados
+                        TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
+                        TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
+                        TmpDT.Columns.Add("CveVentaDetalleRNC", GetType(Integer))
+                        TmpDT.Columns.Add("TieneProntoPago", GetType(String))
+                        TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal))
+                        GvPS.DataSource = ObjVentas.DtResultados
+                        GvPS.DataBind()
+
+                        'IEPS A NIVEL DETALLE
+                        'TxtIEPS.Text = If(TmpDT.SUM("IEPS") > 0, TmpDT.SUM("IEPS").FormatoNumero, TxtIEPS.Text)
+                    End If
+                End Using
+            End If
            If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then
                DdlMoneda.SelectedValueExist(2)
                Using ObjVentas As New ClsNominas
@@ -5662,8 +5699,12 @@ Partial Class Ventas
        'End If
    End Sub
    Private Sub CargaUsoCFDI()
-        DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica)
-        DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica)
+        If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then
+            RegimenFiscalCliente = "-1"
+        End If
+
+        DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
+        DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)

        DdlUsoCFDI.DataBind()
        DdlSucursalUsoCFDI.DataBind()
@@ -5945,6 +5986,10 @@ Partial Class Ventas
                ViewState("CliLocalidad") = If(ObjCliente.Localidad.Trim.Length = 0, ObjCliente.Ciudad.Trim, ObjCliente.Localidad.Trim)
                ViewState("CliPais") = ObjCliente.Pais
                ImprimeNombreSucursal = ObjCliente.ImprimeNombreSucursal
+                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+                    RegimenFiscalCliente = ObjCliente.DtResultados(0)("CodigoRegimenFiscal").ToString()
+                    CargaUsoCFDI()
+                End If
                'ViewState("NumCtaPago") = ObjCliente.NumCtaPago
                ViewState("ClienteDesglosaIEPS") = ObjCliente.DesglosaIEPS
                If Not ClienteDesglosaIEPS Then
@@ -10092,8 +10137,8 @@ Partial Class Ventas
        'si es cancelacion, debe de conservar el folio actual
        If Not EsCancelacion Then ObjFactura.Folio = If(EstablecioFolio Or VistaPrevia Or (CveVenta > 0 And (NuevaFactura.Contiene(0, 2))), TxtFolio.Text.Trim.ToEntero(), -1)

-        'SI ES FACTURACION DE REMISION O COTIZACION NO TOMAR EL FOLIO QUE SE MUESTRA
-        If Not EsCancelacion AndAlso ObjFactura.Folio > 0 AndAlso TipoDoctoViejo.Contiene("Rem", "Cot") Then
+        'SI NO ESTABLECIO UN FOLIO FIJO Y SI ES FACTURACION DE REMISION O COTIZACION NO TOMAR EL FOLIO QUE SE MUESTRA
+        If Not EstablecioFolio AndAlso (Not EsCancelacion AndAlso ObjFactura.Folio > 0 AndAlso TipoDoctoViejo.Contiene("Rem", "Cot")) Then
            ObjFactura.Folio = -1
        End If

@@ -19239,6 +19284,7 @@ Partial Class Ventas
    End Sub
    Protected Sub TxtFolio_TextChanged(sender As Object, e As System.EventArgs) Handles TxtFolio.TextChanged
        ViewState("EstablecioFolio") = True
+        Alert("Se estableció el Folio Fijo para el nuevo documento.")
    End Sub
    Private Sub HabilitarFacturacionSucursal()
        trsucursalciente.Visible = True
@@ -20716,12 +20762,14 @@ Partial Class Ventas

                    If Vigencia.EsCancelable = "Cancelable sin aceptación" Then
                        'script = "BtnRefacturacionConfirmarAceptacion();"
+                        Me.CveEstadoCancelacion = 1
                        sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
                        sb.Append("Está seguro de realizar la refacturación?.")
                    End If

                    If Vigencia.EsCancelable = "Cancelable con aceptación" OrElse String.IsNullOrEmpty(Vigencia.EsCancelable) Then
                        'script = "BtnRefacturacionConfirmar();"
+                        Me.CveEstadoCancelacion = 2
                        sb.AppendFormat("<b>{0}</b> <br/>", "Cancelable con aceptación")
                        sb.Append("Está seguro de cancelar el documento para realizar la refacturación?.")
                    End If
@@ -23441,6 +23489,13 @@ Partial Class Ventas
                    sb.Append("<b>No encontrado</b> <br/>")
                    sb.Append("Está seguro de cancelar el documento?.")
                Else
+                    'GUARDA EL ESTADO DE CANCELACION
+                    If Vigencia.EsCancelable.ToUpper() = "CANCELABLE CON ACEPTACIÓN" Then
+                        Me.CveEstadoCancelacion = 2
+                    ElseIf Vigencia.EsCancelable.ToUpper() = "CANCELABLE SIN ACEPTACIÓN" Then
+                        Me.CveEstadoCancelacion = 1
+                    End If
+
                    sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
                    If Vigencia.EsCancelable.ToUpper() <> "NO CANCELABLE" Then
                        sb.Append("Está seguro de cancelar el documento?.")
@@ -23628,7 +23683,7 @@ Partial Class Ventas
                    'ObjE.AddEventoBitacora(msgBitacora, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta)
                    'ObjE.Dispose()

-                    resp = ObjFacturaCancelacion.CancelarPorRefacturacion(DdlMotivoRefacturacion.SelectedValue.ToEntero(), TxtMotivoRefac.Text.Trim())
+                    resp = ObjFacturaCancelacion.CancelarPorRefacturacion(DdlMotivoRefacturacion.SelectedValue.ToEntero(), TxtMotivoRefac.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion)
                Else
                    Dim ListaRemisionesCancelar As New List(Of Integer)
                    If ChkCanRem.Checked Then
@@ -23641,7 +23696,7 @@ Partial Class Ventas

                    ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion

-                    resp = ObjFacturaCancelacion.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim())
+                    resp = ObjFacturaCancelacion.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion)
                End If

                SWatch.Stop()
@@ -30543,7 +30598,11 @@ Partial Class Ventas

        BtnEmitirImprimir.Text = "Facturar"
        DdlTipoComprobante.SelectedValue = "Ing"
-        TxtFecha.Text = Now.ToShortDateString()
+
+        If Not (EstablecioFolio AndAlso UsuarioActual.TienePermisoProceso(130)) Then
+            TxtFecha.Text = Now.ToShortDateString()
+        End If
+
        UpPS.Update()
        UpFacturar.Update()

@@ -31261,7 +31320,9 @@ Partial Class Ventas

            Dim TipoDoctoViejo As String = DdlTipoComprobante.SelectedValue
            DdlTipoComprobante.SelectedValue = TipoDoctoNuevo
-            TxtFecha.Text = Now.ToString()
+            If Not (EstablecioFolio AndAlso UsuarioActual.TienePermisoProceso(130)) Then
+                TxtFecha.Text = Now.ToString()
+            End If
            TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
            TxtFechaEjecucion.Text = Now.ToString()