Servicio a domicilio

Ventas/PV.aspx.vb

@@ -1123,6 +1123,9 @@ Partial Class PV
             End If
             LimpiaEscondeContado()
 
+            If UsuarioActual.TienePermisoProceso(316) Then
+                TrServicioDomicilio.Visible = True
+            End If
 
             'Carga cliente
             If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 AndAlso Request("CveFactura") Is Nothing Then
@@ -1500,6 +1503,8 @@ Partial Class PV
 
                     End If
 
+                    ChkServicioDomicilio.Checked = CBool(DbRowVenta("ServicioDomicilio").ToString())
+
                     If UsuarioActual.CveEmpresa = 48 Then
                         TxtFecha.AutoPostBack = True
                     End If
@@ -1620,7 +1625,7 @@ Partial Class PV
         TxtRetIVA.ReadOnly = False
         TxtRetISR.ReadOnly = False
         TxtIEPS.ReadOnly = False
-        TxtTotal.ReadOnly = False
+        'TxtTotal.ReadOnly = False
 
         'Sección Detalle
         DdlMoneda.Enabled = True
@@ -3195,6 +3200,9 @@ Partial Class PV
                             Dim RowGarantia As DataRow = ObjAcum.DtResultados.FiltroPrimero("")
                             If RowGarantia IsNot Nothing Then
                                 SbAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF Ajuste</a></li></ul><br/>", Encripta(String.Format("OP=AJUSTE&CVEGARANTIADETALLE={0}", RowGarantia("CveGarantiaDetalle"))))
+
+                                'AUTO DESCARGAR PDF AJUSTE
+                                RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AJUSTE&CVEGARANTIADETALLE={0}", RowGarantia("CveGarantiaDetalle")))}'", "Imprimir")
                             End If
                         End If
                     End Using
@@ -3205,11 +3213,11 @@ Partial Class PV
                 For Each Mensaje In Retorno.Mensajes
                     Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), If(Retorno.TieneError, "", Retorno.LigaPV))
                 Next
-
-                'Dim facBytes = DescargarFactura(Retorno.CveVenta, UsuarioActual.CveEmpresa)
-                'ImprimirbytesPDF(facBytes, ObjFactura.SerieFolio)
-
+            Else
+                Alert("No hay partidas agregadas a la factura", TipoMensaje.MsgAdvertencia)
             End If
+        Else
+            Alert("No hay ningun cliente seleccionado", TipoMensaje.MsgAdvertencia)
         End If
 
     End Sub
@@ -3474,6 +3482,8 @@ Partial Class PV
             End If
         End If
 
+        ObjFactura.ServicioDomicilio = ChkServicioDomicilio.Checked
+
     End Sub
 
 #End Region
@@ -4720,7 +4730,7 @@ Partial Class PV
 
         TxtObsPS.Text = GvRow.DataKey("Obs") '.Replace(StrTamanios.ToString(), "")
 
-        TxtPrecio.Text = GvRow.DataKey("PU")
+        TxtPrecio.Text = GvRow.DataKey("PU").ToDecimal().FormatoNumero
         TxtDescuento.Text = GvRow.DataKey("Descuento")
         LblTotalPS.Text = GvRow.DataKey("Total")
         ChkAgregar.Checked = False
@@ -6300,7 +6310,7 @@ Partial Class PV
             TxtPorcentajeAjuste.Text = Dr("PorcentajeAjuste").ToString
             DdlTipoComprobanteAjuste.SelectedValueExist(Dr("TipoComprobante").ToString())
             TxtComprobante.Text = Dr("Comprobante").ToString
-            TxtImporteAjuste.Text = Dr("Importe").ToString
+            TxtImporteAjuste.Text = Dr("Importe").ToString().ToDecimal().FormatoNumero(2)
             DdlFacturas.SelectedValueExist(Dr("CveVenta").ToString)
 
             If TxtDescuento.Text.ToDecimal() > 0 AndAlso Dr("Importe").ToString.ToDecimal() > 0 Then