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

Compras/PopUpVerFactura.aspx.vb

@@ -6040,6 +6040,9 @@ Partial Class PopUpVerFactura
 
         If DtPrecios IsNot Nothing Then
             Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/Etiqueta.mrt"
+            If System.IO.File.Exists(UsuarioActual.Empresa.Ruta + "Formatos/Etiqueta.mrt") Then
+                DirectorioArchivo = UsuarioActual.Empresa.Ruta + "Formatos/Etiqueta.mrt"
+            End If
             Dim params As New List(Of ReportParameter)
 
             ImprimirPDFStimul(DirectorioArchivo, DtPrecios, params, "Precios")

Ventas/PVCobranza.aspx.vb

@@ -539,12 +539,12 @@ Partial Class Ventas_PVCobranza
         Dim ExistePDF As Boolean = False
         Dim ArchivoPDF As String = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
 
-        If System.IO.File.Exists(ArchivoPDF) Then
+        If ObjFactura.TipoDocto = "Rem" AndAlso System.IO.File.Exists(ArchivoPDF) Then
             ExistePDF = True
         Else
             'REGENERAR EL PDF
             Try
-                GenerarPDFVenta(CveVenta, AplicaPagare:="1", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False)
+                GenerarPDFVenta(CveVenta, AplicaPagare:="1", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False, EsTicket:=True)
                 If System.IO.File.Exists(ArchivoPDF) Then
                     ExistePDF = True
                 End If

Ventas/Ventas.aspx

@@ -209,6 +209,9 @@
             <li>
                 <asp:HyperLink ID="HplDownPDF" Target="_blank" runat="server" Visible="false"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Imprimir PDF</asp:HyperLink>
             </li>
+            <li>
+                <asp:HyperLink ID="HplImprimirTicket" Target="_blank" runat="server" Visible="false"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Imprimir Ticket</asp:HyperLink>
+            </li>
             <li>
                 <asp:LinkButton ID="LnkDescargaDirecta" runat="server" Visible="false" OnClick="LnkDescargaDirecta_Click"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Impresión directa</asp:LinkButton>
             </li>
@@ -305,7 +308,6 @@
             <li>
                 <asp:LinkButton ID="LBCancelarPedido" runat="server" CausesValidation="False" CommandName="Delete" Text="<i class='fa fa-ban'></i>  Cancelar Pedido" OnClick="LBCancelarPedido_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Estás seguro que deseas cancelar el Pedido?" data-btn-ok-label="si" Visible="false" />
             </li>
-
             <asp:Panel runat="server" ID="PnlImprimir" Visible="False">
                 <li>
                     <asp:LinkButton runat="server" ID="LnkImprimir"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
@@ -9835,6 +9837,7 @@
 
 
         function CalculaDescPS() {
+            console.log("evento descuento");
             if ($get("TxtPorPS").value != "") {
                 let PorcentajeDescuento = parseFloat($get("TxtPorPS").value);
                 if (PorcentajeDescuento < 0 || PorcentajeDescuento > 99) {

Ventas/Ventas.aspx.vb

@@ -5065,7 +5065,10 @@ Partial Class Ventas
                         End If
 
                     Case "Rem"
-                        'IPP 15 Julio 2017
+                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                            TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
+                        End If
+
                         Trsaldo.Visible = True
                         HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
                         HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
@@ -9771,6 +9774,9 @@ Partial Class Ventas
 
                 HplImprimirPDFStimulsoft.Visible = True
                 HplImprimirPDFStimulsoft.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=0&STIMULSOFT=1", CveVenta)))
+
+                HplImprimirTicket.Visible = True
+                HplImprimirTicket.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1&TICKET=1&REGENERAR=1", CveVenta)))
             End If
 
         End If
@@ -10813,7 +10819,13 @@ Partial Class Ventas
                             Liga = $"document.location.href=""/CRM/Acercamiento.aspx?CveAcercamiento={CveAcercamientoCRM}&OPTAB=COT"";"
                             Alert(MensajeAlert.ToString(), TipoMensaje.MsgInformacion, Liga, TextoConfirmacion:="Aceptar", TextoSegundoBoton:=Nothing, JSBtn2:=Nothing, ShowCloseButton:=False)
                         Else
-                            Alert(MensajeAlert.ToString(), TipoMensaje.MsgDosBotones, Liga, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Cliente", JSBtn2:=Liga2, ShowCloseButton:=False)
+                            'SI TIENE MODULO DE COBRANZA, NO MARDAR AL CLIENTE, DEBE SEGUIR REGISTRANDO
+                            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                                Alert(MensajeAlert.ToString(), TipoMensaje.MsgInformacion, Liga, TextoConfirmacion:="Seguir Registrando", ShowCloseButton:=False)
+                            Else
+                                Alert(MensajeAlert.ToString(), TipoMensaje.MsgDosBotones, Liga, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Cliente", JSBtn2:=Liga2, ShowCloseButton:=False)
+                            End If
+
                         End If
 
                         MensajeAlert.Clear()
@@ -10828,9 +10840,9 @@ Partial Class Ventas
                             OnError("Ocurrió un error al limpiar los datos", ex)
                         End Try
 
-                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                        'If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-                            ImpresionDirectaPDF()
+                        '    ImpresionDirectaPDF()
-                        End If
+                        'End If
 
                     Else
                         ObjVentas.RollBack()
@@ -11056,7 +11068,7 @@ Partial Class Ventas
             ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
         End If
 
-        ObjFacturaDevolucion.AtencionA = If(ObjFacturaDevolucion.TipoDocto = "Cot" Or (ObjFacturaDevolucion.TipoDocto.Contiene("Ing", "Rem") AndAlso LblRFC.Text = "XAXX010101000"), TxtAtencionA.Text, "-1")
+        ObjFacturaDevolucion.AtencionA = ""
         ObjFacturaDevolucion.MotivoDescuento = TxtMotivoDescuento.Text.Trim
         ObjFacturaDevolucion.Observaciones = TxtObsFact.Text.Trim
         ObjFacturaDevolucion.Det_OrdenCompra = TxtDet_OrdenCompra.Text.Trim
@@ -11339,7 +11351,7 @@ Partial Class Ventas
             ObjFacturaBonificacion.Alfa1 = TxtAlfa1.Text.Trim
         End If
 
-        ObjFacturaBonificacion.AtencionA = If(ObjFacturaBonificacion.TipoDocto = "Cot" Or (ObjFacturaBonificacion.TipoDocto.Contiene("Ing", "Rem") AndAlso LblRFC.Text = "XAXX010101000"), TxtAtencionA.Text, "-1")
+        ObjFacturaBonificacion.AtencionA = ""
         ObjFacturaBonificacion.MotivoDescuento = TxtMotivoDescuento.Text.Trim
         ObjFacturaBonificacion.Observaciones = TxtObsFact.Text.Trim
         ObjFacturaBonificacion.Det_OrdenCompra = TxtDet_OrdenCompra.Text.Trim
@@ -11856,7 +11868,7 @@ Partial Class Ventas
         ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero()
         ObjFactura.CveSubProyectoCobranza = DdlSubProyectoCobranza.SelectedValue.ToEntero()
         ObjFactura.CveSubProyectoEjecucion = DdlSubProyectoEjecucion.SelectedValue.ToEntero()
-        ObjFactura.AtencionA = If(ObjFactura.TipoDocto = "Cot" Or (ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso LblRFC.Text = "XAXX010101000"), TxtAtencionA.Text, "-1")
+        ObjFactura.AtencionA = TxtAtencionA.Text
         ObjFactura.MotivoDescuento = TxtMotivoDescuento.Text.Trim
         ObjFactura.Observaciones = TxtObsFact.Text.Trim
         ObjFactura.Det_OrdenCompra = TxtDet_OrdenCompra.Text.Trim