From f1c4c0d3597fe3893ed830843c1cfb2587ead5a1 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 11 Jan 2024 11:30:19 -0700 Subject: [PATCH 1/5] SMS - 2024.01.08 quitar Ddls Medico y Procedmiento de observaciones, solo dejar los que estan en el area de cliente --- App_Code/ClsVentas.vb | 4 +- Ventas/Ventas.aspx | 20 ++-- Ventas/Ventas.aspx.vb | 233 ++++++++++++++++++++++++++---------------- 3 files changed, 157 insertions(+), 100 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 2106523ac..df3125f98 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1380,7 +1380,8 @@ Public Class ClsVentas CvePresupuestoIngreso As Integer, Optional TiempoEntrega As String = "", Optional CveVentaDetallePadre As Integer = -1, Optional CveContratoDetalle As Integer = -1, Optional PorcentajeIVA As Decimal = 0, Optional IEPS As Decimal = -1, Optional PorcentajeIEPS As Double = 0, Optional CvePromocionDetalle As Integer = -1, Optional CveMovimientoDetallePedido As Integer = -1, Optional ImporteRetIVA As Decimal = 0, Optional PorcentajeRetIVA As Double = 0, - Optional ImporteRetISR As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional NumTurnos As Decimal = 0D) As Boolean + Optional ImporteRetISR As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1, Optional CveActivoFijo As Integer = -1, + Optional NumTurnos As Decimal = 0D, Optional EstatusAlmacen As Integer = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasDetalleAdd") @@ -1413,6 +1414,7 @@ Public Class ClsVentas .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@NumTurnos", SqlDbType.Decimal).Value = NumTurnos + .Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen End With Try diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 81e288727..829110aba 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -582,16 +582,16 @@ - + Requiere Técnico: - + - + Fecha de Cirugia: - + @@ -4093,7 +4093,7 @@ - + <%-- Médico:  @@ -4114,7 +4114,7 @@ Seleccione uno - + --%> @@ -8405,13 +8405,13 @@ <%--Tipo Venta--%>
-
+
-
+
-
+
@@ -8489,7 +8489,7 @@
- Requiere Técnico: + Requiere Técnico:
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 246596a7e..4506bd264 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2282,6 +2282,53 @@ Partial Class Ventas End Set End Property + +#Region "VENTA MEDICA" + + Property EsVentaMedica As Boolean + Get + If ViewState("EsVentaMedica") Is Nothing Then + ViewState("EsVentaMedica") = False + End If + + Return Boolean.Parse(ViewState("EsVentaMedica").ToString) + + End Get + Set(value As Boolean) + ViewState("EsVentaMedica") = value + End Set + End Property + + + Property SeEstaFActurandoVentaMedica As Boolean + Get + If ViewState("SeEstaFActurandoVentaMedica") Is Nothing Then + ViewState("SeEstaFActurandoVentaMedica") = False + End If + + Return Boolean.Parse(ViewState("SeEstaFActurandoVentaMedica").ToString) + + End Get + Set(value As Boolean) + ViewState("SeEstaFActurandoVentaMedica") = value + End Set + End Property + + + Public Property CveTipoVenta As Integer + Get + If ViewState("CveTipoVenta") Is Nothing Then + ViewState("CveTipoVenta") = -1 + End If + Return ViewState("CveTipoVenta").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveTipoVenta") = 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 @@ -3391,7 +3438,7 @@ Partial Class Ventas End If End If - If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then If CveVenta <= 0 Then EsVentaMedica = True CargaTiposVenta() @@ -5819,14 +5866,16 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then - If DbRowVenta("CveMedico").ToString.ToEntero > 0 Then - TrObsMedico1.Visible = True - TrObsMedico2.Visible = True - TrObsProcedimiento1.Visible = True - TrObsProcedimiento2.Visible = True + CveTipoVenta = If(DbRowVenta("CveTipoVenta").ToString.ToEntero > 0, DbRowVenta("CveTipoVenta").ToString.ToEntero, -1) - DdlMedicoObservaciones.SelectedValueExist(DbRowVenta("CveMedico").ToString) - DdlProcedimientoObservaciones.SelectedValueExist(DbRowVenta("CveProcedimiento").ToString) + If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso CveTipoVenta.Contiene(1, 3, 5) Then + TrVentasMedicas1.Visible = True + DdlMedico.SelectedValueExist(DbRowVenta("CveMedico").ToString) + DdlProcedimiento.SelectedValueExist(DbRowVenta("CveProcedimiento").ToString) + + + DdlMedico.Enabled = False + DdlProcedimiento.Enabled = False End If @@ -13192,20 +13241,15 @@ Partial Class Ventas Dim CveMedico As Integer = -1 Dim CveProcedimiento As Integer = -1 + Dim CveTipoVentaGuardar As Integer = -1 If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then - If SeEstaFActurandoVentaMedica Then - CveMedico = DdlMedicoObservaciones.SelectedValue.ToEntero - CveProcedimiento = DdlProcedimientoObservaciones.SelectedValue.ToEntero - Else - CveMedico = DdlMedico.SelectedValue.ToEntero - CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero - End If + CveMedico = DdlMedico.SelectedValue.ToEntero + CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero + CveTipoVentaGuardar = If(SeEstaFActurandoVentaMedica, CveTipoVenta, RBLTipoVenta.SelectedValue.ToEntero) End If - - If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento, @@ -13223,7 +13267,7 @@ Partial Class Ventas Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible, CveLineaAdicional:=DdlLineaAdicional.SelectedValue.ToEntero(), DescripcionVenta:=DescripcionVenta, - CveMedico:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, RequiereOS:=ChkRequiereTecnico.Checked) Then + CveMedico:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=CveTipoVentaGuardar, RequiereOS:=ChkRequiereTecnico.Checked) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Else If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then @@ -13333,13 +13377,16 @@ Partial Class Ventas CargaNCDT(factura.CveVentaPadre, DdlTipoComprobante.SelectedValue, factura.Total, NuevaFactura:=NuevaFactura, ObjVentas:=ObjVentas) End If + 'Dim EsatusAlmacen As Integer = If(RBLTipoVenta.SelectedValue = "5" AndAlso EsVentaMedica AndAlso DdlTipoComprobante.SelectedValue = "Ped", 1, 0) ', EstatusAlmacen:=EsatusAlmacen 'Se agregan los PS For Each Row As DataRow In TmpDTDetalle.Rows If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, Row("CveUM").ToString().ToEntero(), Row("PU").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("ImporteIVA").ToString().ToDecimal, Math.Round((Row("Total").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("PorcentajeIVA").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6), Row("Obs").ToString(), Row("Descuento").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("TipoDescuento").ToString().ToEntero(), Row("CveSubProyecto").ToString().ToEntero(), Row("CvePresupuestoIngreso").ToString().ToEntero(), TiempoEntrega:=Row("TiempoEntrega").ToString(), CveVentaDetallePadre:=Row("CveVentaDetalle").ToString().ToEntero(), CveContratoDetalle:=Row("CveContratoDetalle").ToString().ToEntero(), CvePromocionDetalle:=Row("CvePromocionDetalle").ToString().ToEntero(), IEPS:=Row("ImporteIEPS").ToString().ToDecimal, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString().ToEntero(), ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDecimal, ImporteRetISR:=Row("ImporteRetISR").ToString().ToDecimal, - PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDecimal, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString(), CvePrecioLista:=Row("CvePrecioLista").ToString().ToEntero(), CveActivoFijo:=Row("CveActivoFijo").ToString().ToEntero(), NumTurnos:=Row("NumTurnos").ToString().ToDecimal()) Then + PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDecimal, + PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString(), CvePrecioLista:=Row("CvePrecioLista").ToString().ToEntero(), + CveActivoFijo:=Row("CveActivoFijo").ToString().ToEntero(), NumTurnos:=Row("NumTurnos").ToString().ToDecimal()) Then ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la Factura.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Exit For Else @@ -21702,7 +21749,6 @@ Partial Class Ventas BtnEditarRemision.Visible = True BtnPermisoEditarRemision.Visible = False BtnCrearApartirDe.Visible = False - DdlSucursalCliente.Enabled = True TxtObsFact.Enabled = True TxtOrdenCompra.Enabled = True TxtPedidoContrato.Enabled = True @@ -21713,12 +21759,17 @@ Partial Class Ventas UPCondicionesPago.Update() If Me.PermiteCredito Then RBLPago.Enabled = True DdlVendedor.Enabled = True + ModalidadEdicion = True ViewState("CveClienteAnterior") = CveCliente - DdlMedicoObservaciones.Enabled = True - DdlProcedimientoObservaciones.Enabled = True + If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveTipoVenta.Contiene(1, 3, 5) Then + TrVentasMedicas1.Visible = True + DdlMedico.Enabled = True + DdlProcedimiento.Enabled = True + End If + Dim CantidadFacturadaRemision As Decimal = 0 @@ -21767,6 +21818,7 @@ Partial Class Ventas TxtPrecio.Enabled = True End If + LbAgregar.Enabled = True ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2'; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';") LblSubTotal1.Text = TxtSubTotal.Text @@ -21793,9 +21845,8 @@ Partial Class Ventas Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL()) Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero() - Dim TipoCambio As Decimal = TxtTipoCambio.Text.ToDecimal + Dim TipoCambio As Double = TxtTipoCambio.Text.ToDouble EditoRemision = True - CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero Try 'CONVERTIR REMISION - TIPO MONEDA -DOLARES A PESOS If DdlMoneda.SelectedValue.ToEntero() <> 2 AndAlso ChkConvertirDolares.Checked Then @@ -21872,12 +21923,12 @@ Partial Class Ventas 'Actualizo los parametros de la venta If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, - UsuarioActual.CveEmpresa, CveVenta, + UsuarioActual.CveEmpresa, CveVenta, 0, 0, Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1), PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), - CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:=DdlTipoComprobante.SelectedValue, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, - OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), - CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedicoObservaciones.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimientoObservaciones.SelectedValue.ToEntero) Then + CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, + OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), + CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero) Then OcurrioError = True End If @@ -30312,7 +30363,7 @@ Partial Class Ventas End If Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero() - Dim TipoCambio As Decimal = TxtTipoCambio.Text.Trim.ToDecimal + Dim TipoCambio As Double = TxtTipoCambio.Text.Trim.ToDecimal If DdlMoneda.SelectedValue.ToEntero() <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then TipoCambio = 1 Moneda = 1 @@ -30399,14 +30450,15 @@ Partial Class Ventas Moneda = 1 End If + 'ACTUALIZA VENTA - If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal(), TxtIVA.Text.ToDecimal(), TxtIEPS.Text.ToDecimal(), TxtTotal.Text.ToDecimal(), + If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDouble(), LblDescuentos.Text.ToDouble(), TxtIVA.Text.ToDouble(), TxtIEPS.Text.ToDouble(), TxtTotal.Text.ToDouble(), Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, - UsuarioActual.CveEmpresa, CveVenta, + UsuarioActual.CveEmpresa, CveVenta, 0, 0, Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1), PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, - TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero()) Then + TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero()) Then MensajeError = "Ocurrió un error al actualizar la información de la cotización" OcurrioError = True End If @@ -33676,9 +33728,10 @@ Partial Class Ventas DdlUsoCFDI.Enabled = True End If - If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then - DdlMedicoObservaciones.Enabled = True - DdlProcedimientoObservaciones.Enabled = True + If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveTipoVenta.Contiene(1, 3, 5) Then + TrVentasMedicas1.Visible = True + DdlMedico.Enabled = True + DdlProcedimiento.Enabled = True End If If UsuarioActual.TienePermisoProceso(289) Then @@ -33719,12 +33772,12 @@ Partial Class Ventas Dim ObjVentas As New ClsVentas() ObjVentas.IniciaTransacSQL() - DdlMedicoObservaciones.Enabled = True - DdlProcedimientoObservaciones.Enabled = True + 'DdlMedicoObservaciones.Enabled = True + 'DdlProcedimientoObservaciones.Enabled = True If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text, TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim, - CveMedico:=DdlMedicoObservaciones.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimientoObservaciones.SelectedValue.ToEntero) Then + CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero) Then TieneError = True End If @@ -35045,34 +35098,7 @@ Partial Class Ventas End Set End Property - Property EsVentaMedica As Boolean - Get - If ViewState("EsVentaMedica") Is Nothing Then - ViewState("EsVentaMedica") = False - End If - Return Boolean.Parse(ViewState("EsVentaMedica").ToString) - - End Get - Set(value As Boolean) - ViewState("EsVentaMedica") = value - End Set - End Property - - - Property SeEstaFActurandoVentaMedica As Boolean - Get - If ViewState("SeEstaFActurandoVentaMedica") Is Nothing Then - ViewState("SeEstaFActurandoVentaMedica") = False - End If - - Return Boolean.Parse(ViewState("SeEstaFActurandoVentaMedica").ToString) - - End Get - Set(value As Boolean) - ViewState("SeEstaFActurandoVentaMedica") = value - End Set - End Property @@ -36057,7 +36083,7 @@ Partial Class Ventas RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ") RBLTipoVenta.DataBind() - RBLTipoVenta.Items.Add(New ListItem("Otros", "5")) + RBLTipoVenta.Items.Add(New ListItem("Otros", "99")) TrVentasMedicas1.Visible = True TrVentasMedicas2.Visible = True @@ -36076,8 +36102,7 @@ Partial Class Ventas DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") DdlProcedimientoModal.DataBind() - DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa) - DdlProcedimientoObservaciones.DataBind() + End Sub @@ -36088,8 +36113,7 @@ Partial Class Ventas DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") DdlMedicoModal.DataBind() - DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa) - DdlMedicoObservaciones.DataBind() + End Sub @@ -36140,7 +36164,11 @@ Partial Class Ventas End Sub Protected Sub ChkRequiereTecnico_CheckedChanged(sender As Object, e As EventArgs) - TdFechaOS2.Visible = ChkRequiereTecnicoModal.Checked + + + TdFechaOS1.Visible = ChkRequiereTecnico.Checked + TdFechaOS2.Visible = ChkRequiereTecnico.Checked + UpCliente.Update() End Sub @@ -36167,7 +36195,7 @@ Partial Class Ventas Select Case RBLTipoVenta.SelectedValue - Case "1" ' Fuera de linea + Case "1", "5" '1 Fuera de linea || 5 Consignación - Uso material ChkRequiereTecnicoModal.Checked = True ChkRequiereTecnicoModal.Enabled = True DvModalRequiereOSFecha.Visible = True @@ -36181,13 +36209,13 @@ Partial Class Ventas DvModalRequiereOSFecha.Visible = False DvModalTipoVentaPasoMedicoProcedimiento.Visible = False DVGvProductosProcedimiento.Visible = False - Case "4" 'Consigna + Case "4" 'Consignación ChkRequiereTecnicoModal.Checked = False DvModalTipoVentaPasoRequiereOS.Visible = False DvModalRequiereOSFecha.Visible = False DvModalTipoVentaPasoMedicoProcedimiento.Visible = False DVGvProductosProcedimiento.Visible = False - Case "5" ' Otros + Case "99" ' Otros LnkDvModalTipoVentaAceptar.Visible = False UpDvModalTipoVenta.Update() RegistraScript("$('#DvModalTipoVenta').modal('hide');") @@ -36290,6 +36318,8 @@ Partial Class Ventas Protected Sub LnkDvModalTipoVentaAceptar_Click(sender As Object, e As EventArgs) + + If DdlClienteSucursalCliente() > 0 Then ViewState("CveCliente") = DdlClienteSucursalCliente() Else @@ -36318,21 +36348,46 @@ Partial Class Ventas DdlMedico.SelectedValueExist(DdlMedicoModal.SelectedValue) DdlProcedimiento.SelectedValueExist(DdlProcedimientoModal.SelectedValue) - 'si es pago directo es factura - If RBLTipoVenta.SelectedValue.Contiene("2") Then ' Pago Directo - DdlTipoComprobante.SelectedValueExist("Ing") - TdRequiereTecnico1.Visible = True - TdRequiereTecnico2.Visible = True - ElseIf RBLTipoVenta.SelectedValue.Contiene("4") Then ' Consigna - DdlTipoComprobante.SelectedValueExist("Ing") - Else - TdFechaOS1.Visible = True - TdFechaOS2.Visible = True - ChkRequiereTecnico.Checked = True - ChkRequiereTecnico.Enabled = False - DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped")) - DdlTipoComprobante.SelectedValueExist("Ped") - End If + + If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es pago directo es factura + DdlTipoComprobante.SelectedValueExist("Ing") + + TrVentasMedicas1.Visible = True + TrVentasMedicas2.Visible = True + + TdFechaOS1.Visible = True + TdFechaOS2.Visible = True + ChkRequiereTecnico.Checked = True + ChkRequiereTecnico.Enabled = False + + ElseIf RBLTipoVenta.SelectedValue.Contiene("3") Then ' A vista + DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped")) + DdlTipoComprobante.SelectedValueExist("Ped") + TrVentasMedicas1.Visible = False + TrVentasMedicas2.Visible = False + ChkRequiereTecnico.Enabled = True + ElseIf RBLTipoVenta.SelectedValue.Contiene("4") Then ' consignacion + DdlTipoComprobante.SelectedValueExist("Ing") + TrVentasMedicas1.Visible = False + TrVentasMedicas2.Visible = False + ChkRequiereTecnico.Enabled = True + Else + DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped")) + DdlTipoComprobante.SelectedValueExist("Ped") + + TrVentasMedicas1.Visible = True + TrVentasMedicas2.Visible = True + + TdFechaOS1.Visible = True + TdFechaOS2.Visible = True + + ChkRequiereTecnico.Enabled = True + ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked + TdFechaOS1.Visible = ChkRequiereTecnicoModal.Checked + TdFechaOS2.Visible = ChkRequiereTecnicoModal.Checked + + + End If DdlTipoComprobante.Enabled = False CargaCliente(CveCliente) From 2ed3aac55b2d31ac5fdcae8155693dcaceee3edd Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 11 Jan 2024 13:08:30 -0700 Subject: [PATCH 2/5] SMS Cambio quitar Ddls Medico y Procedimiento de obseraciones --- App_Code/ClsTransportes.vb | 2 +- Ventas/Ventas.aspx | 5 +++-- Ventas/Ventas.aspx.vb | 24 +++++++++++++----------- 3 files changed, 17 insertions(+), 14 deletions(-) diff --git a/App_Code/ClsTransportes.vb b/App_Code/ClsTransportes.vb index 557fce9f3..c9fe13e3a 100644 --- a/App_Code/ClsTransportes.vb +++ b/App_Code/ClsTransportes.vb @@ -339,7 +339,7 @@ Public Class ClsTransportes End Function #End Region -#End Region + #Region "Rutas" Public Function GetRutas(CveRuta As Integer, CveUsuario As Integer, CveEmpresa As Integer, Ruta As String, Estatus As Boolean, FechaIng As DateTime) As Boolean diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 829110aba..b2441c917 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1976,12 +1976,13 @@
+ +
- - +   diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 4506bd264..92cdcd354 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -13377,7 +13377,7 @@ Partial Class Ventas CargaNCDT(factura.CveVentaPadre, DdlTipoComprobante.SelectedValue, factura.Total, NuevaFactura:=NuevaFactura, ObjVentas:=ObjVentas) End If - 'Dim EsatusAlmacen As Integer = If(RBLTipoVenta.SelectedValue = "5" AndAlso EsVentaMedica AndAlso DdlTipoComprobante.SelectedValue = "Ped", 1, 0) ', EstatusAlmacen:=EsatusAlmacen + Dim EsatusAlmacen As Integer = If(RBLTipoVenta.SelectedValue = "5" AndAlso EsVentaMedica AndAlso DdlTipoComprobante.SelectedValue = "Ped", 1, 0) ', EstatusAlmacen:=EsatusAlmacen 'Se agregan los PS For Each Row As DataRow In TmpDTDetalle.Rows If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, Row("CveUM").ToString().ToEntero(), @@ -13386,7 +13386,7 @@ Partial Class Ventas CveContratoDetalle:=Row("CveContratoDetalle").ToString().ToEntero(), CvePromocionDetalle:=Row("CvePromocionDetalle").ToString().ToEntero(), IEPS:=Row("ImporteIEPS").ToString().ToDecimal, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString().ToEntero(), ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDecimal, ImporteRetISR:=Row("ImporteRetISR").ToString().ToDecimal, PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDecimal, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString(), CvePrecioLista:=Row("CvePrecioLista").ToString().ToEntero(), - CveActivoFijo:=Row("CveActivoFijo").ToString().ToEntero(), NumTurnos:=Row("NumTurnos").ToString().ToDecimal()) Then + CveActivoFijo:=Row("CveActivoFijo").ToString().ToEntero(), NumTurnos:=Row("NumTurnos").ToString().ToDecimal(), EstatusAlmacen:=EsatusAlmacen) Then ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la Factura.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Exit For Else @@ -21845,7 +21845,7 @@ Partial Class Ventas Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL()) Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero() - Dim TipoCambio As Double = TxtTipoCambio.Text.ToDouble + Dim TipoCambio As Decimal = TxtTipoCambio.Text.ToDecimal EditoRemision = True Try 'CONVERTIR REMISION - TIPO MONEDA -DOLARES A PESOS @@ -21921,13 +21921,12 @@ Partial Class Ventas Moneda = 1 End If - 'Actualizo los parametros de la venta If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, - UsuarioActual.CveEmpresa, CveVenta, 0, 0, + UsuarioActual.CveEmpresa, CveVenta, Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1), PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), - CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, - OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), + CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:=DdlTipoComprobante.SelectedValue, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, + OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero) Then OcurrioError = True End If @@ -30363,7 +30362,7 @@ Partial Class Ventas End If Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero() - Dim TipoCambio As Double = TxtTipoCambio.Text.Trim.ToDecimal + Dim TipoCambio As Decimal = TxtTipoCambio.Text.Trim.ToDecimal If DdlMoneda.SelectedValue.ToEntero() <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then TipoCambio = 1 Moneda = 1 @@ -30452,17 +30451,20 @@ Partial Class Ventas 'ACTUALIZA VENTA - If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDouble(), LblDescuentos.Text.ToDouble(), TxtIVA.Text.ToDouble(), TxtIEPS.Text.ToDouble(), TxtTotal.Text.ToDouble(), + 'ACTUALIZA VENTA + If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal(), TxtIVA.Text.ToDecimal(), TxtIEPS.Text.ToDecimal(), TxtTotal.Text.ToDecimal(), Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, - UsuarioActual.CveEmpresa, CveVenta, 0, 0, + UsuarioActual.CveEmpresa, CveVenta, Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1), PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, - TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero()) Then + TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero()) Then MensajeError = "Ocurrió un error al actualizar la información de la cotización" OcurrioError = True End If + + 'ELIMINA DETALLES If Not ObjVentas.RemoveVentasDetalle(CveVenta) Then MensajeError = "Ocurrió un error al actualizar las partidas de la cotización" From 4b9e175f23774f61ae6e21c91e905ba5b4c11170 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 11 Jan 2024 18:24:11 -0700 Subject: [PATCH 3/5] =?UTF-8?q?--Mover=20a=20pantalla=20de=20cobranza(PVCo?= =?UTF-8?q?branza.aspx).=20el=20inicio=20de=20turno=20y=20y=20ocultarlo=20?= =?UTF-8?q?en=20la=20pantalla=20de=20ventas,=20se=20activar=C3=A1=20en=20e?= =?UTF-8?q?l=20proceso=20371?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/PVCobranza.aspx | 1144 +++++++++++++++++++++++++++---------- Ventas/PVCobranza.aspx.vb | 258 ++++++++- 2 files changed, 1080 insertions(+), 322 deletions(-) diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index f9d40297c..e4e8fa634 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -1,296 +1,822 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PVCobranza.aspx.vb" Inherits="Ventas_PVCobranza" %> - - - - - - - - - - - Cobranza - - - - - - - -
-
-
- - -
-
-
-
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PVCobranza.aspx.vb" Inherits="Ventas_PVCobranza" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="cc1" %> + + + + + + + + + +
  • + Estado de Caja +
    • +
  • + Ingreso de Efectivo +
    • +
  • + Retiro de Efectivo +
    • +     +     +     + + Cobranza + + + + + + + +
    +
    +
    + + +
    +
    +
    +
    Sucursal: -
    -
    - - - -
    -
    - Fecha Inicio Docto: -
    -
    -
    - - - - -
    - - - - - - -
    -
    - Fecha Fin Docto: -
    -
    -
    - - - - -
    - - - - - - -
    -
    -
    -
    - -
    -     -     - - -
    -
    - - - - - - - - - - - - - -
    -
    - -
    -
    - - Nombre: - -           - - - - - -
    -
    -
    -
    - -
    -
    -
    -
    - -
    - $ - - -
    -
    - - - -
    -
    -
    - -
    -
    - -
    - $ - - -
    -
    - - - -
    -
    - - MSI - 3M - 6M - 9M - 12M - - <%-- - --%> -
    -
    -
    - -
    -
    - -
    - $ - - -
    -
    - - - -
    -
    -
    -
    -
    - -
    - $ - - -
    -
    - - - -
    -
    -
    - -
    -
    - -
    - $ - - -
    -
    - - - -
    -
    -
    - -
    -
    - -
    - - Otros - Credito - Debito - Cheque - -
    - -
    - $ - - -
    - -
    - - - -
    - -
    - - Meses - 3M - 6M - 9M - 12M - -
    - -
    -
    - -
    -
    - -
    - $ - - - -
    - -
    - $ - - -
    -
    -
    -
    -
    - - - -
    -
    -
    -
    -
    -
    -
    -     -
    -
    -     -     -     - + +
    +
    + + + +
    +
    + Fecha Inicio Docto: + +
    +
    +
    + + + + +
    + + + + + + +
    +
    + Fecha Fin Docto: + +
    +
    +
    + + + + +
    + + + + + + +
    +
    +
    +
    + +
    +     +     + + +
    + + +
    + Turno: + +
    +     +     +
    +
    +
    + + + + + + + + + + + + + +
    +
    + +
    +
    + Nombre: + +           + + + + + + +
    +
    +
    +
    + +
    +
    +
    +
    + +
    + $ + + +
    +
    + + + +
    +
    +
    + +
    +
    + +
    + $ + + +
    +
    + + + +
    +
    + + MSI + 3M + 6M + 9M + 12M + + <%-- + --%> +
    +
    +
    + +
    +
    + +
    + $ + + +
    +
    + + + +
    +
    +
    +
    +
    + +
    + $ + + +
    +
    + + + +
    +
    +
    + +
    +
    + +
    + $ + + +
    +
    + + + +
    +
    +
    + +
    +
    + +
    + + Otros + Credito + Debito + Cheque + +
    + +
    + $ + + +
    + +
    + + + +
    + +
    + + Meses + 3M + 6M + 9M + 12M + +
    + +
    +
    + +
    +
    + +
    + $ + + + +
    + +
    + $ + + +
    +
    +
    +
    +
    + + + +
    +
    +
    +
    +
    +
    +
    +     +
    +
    +     +     + + + + + + + + + + + + + +     + - + function CalculaDiferencia() { + ; + var total = 0 + total = ToDouble($('#C_TxtEfectivoEnCaja').val()) - ToDouble($('#C_LblEfectivoEsperado').text()); + $('#C_LblDiferenciaCaja').text(FormatoNumero(total)); + } + + function CalculaDiferenciaBloqueo() { + var total = 0; + total = ToDouble($('#C_TxtEfectivoCajaBloqueo').val()) - ToDouble($('#C_LblEfectivoBloqueo').text()); + $('#C_LblDiferenciaCajaBloqueo').val(FormatoNumero(total)); + } + + + diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index fa46e1e24..8161e583b 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -14,13 +14,24 @@ Partial Class Ventas_PVCobranza Set(value As Integer) ViewState("CveCorte") = value End Set + End Property + + Private Property DineroCaja As Double + Get + Return If(IsNothing(ViewState("DineroCaja")), 0, ViewState("DineroCaja").ToString().ToDecimal()) + End Get + Set(value As Double) + ViewState("DineroCaja") = value + End Set End Property Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then CveCorte = 0 CargaFiltros() - CargaCorteCaja() + If UsuarioActual.TienePermisoProceso(371) Then + CargaCorteCaja() + End If End If End Sub @@ -59,31 +70,118 @@ Partial Class Ventas_PVCobranza DdlCuentaTarjetaDebito.DataBind() DdlCuentaCheque.DataBind() DdlCuentaTransferencia.DataBind() + TxtImporteEfectivo.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") TxtImporteCredito.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") TxtImporteDebito.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") TxtImporteCheque.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") TxtImporteTransferencia.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") - TxtImporteOtrosContado.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") + TxtImporteOtrosContado.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") + + TxtEfectivoEnCaja.Attributes.Add("onKeyUp", "CalculaDiferencia();") + TxtEfectivoCajaBloqueo.Attributes.Add("onKeyUp", "CalculaDiferenciaBloqueo();") End Sub - Private Sub CargaCorteCaja() - Dim DebeCerrarCorte As Boolean = False - 'Checar si hay un Turno Abierto - Dim ObjPVenta As New ClsPuntoVenta - - If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then - - If ObjPVenta.DtResultados.Rows.Count > 0 Then - CveCorte = ObjPVenta.CveCorte - End If - End If - ObjPVenta.Dispose() - - + Private Sub CargaCorteCaja() + Dim DebeCerrarCorte As Boolean = False + 'Checar si hay un Turno Abierto + Dim ObjPVenta As New ClsPuntoVenta + + If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then + + If ObjPVenta.DtResultados.Rows.Count > 0 Then + CveCorte = ObjPVenta.CveCorte + Dim FechaICorte As Date = ObjPVenta.FechaInicial.Date '.AddDays(-5) + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso FechaICorte < NowADS().Date Then + DebeCerrarCorte = True + LblMotivoBloqueo.Text = $"Existe un corte del día {FechaICorte.ToString("dd/MM/yyyy")}. Favor de cerrarlo para iniciar un nuevo corte." + Else + LblTurno.Text = ObjPVenta.FechaInicial.ToShortDateString + BtnIniciarTurno.Visible = False + LkbEstadodeCaja.Visible = True + LkbIngreso.Visible = True + LkbRetiro.Visible = True + UpTurno.Visible = True + End If + + Else + UpTurno.Visible = False + 'Ingresar un nuevo Turno + RegistraScript("window.onload = function MuestraCorteCaja() { document.getElementById(""C_btnShow"").click(); }") + End If + End If + ObjPVenta.Dispose() + + If DebeCerrarCorte Then + CargaDatosCorte() + RegistraScript("window.onload = function MuestraPantallaBloqueo() { document.getElementById(""C_btnShowBloqueo"").click(); }") + End If + End Sub + + Private Sub CargaDatosCorte() + Dim ObjPVenta As New ClsPuntoVenta + Dim Total As Double + + If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then + If ObjPVenta.DtResultados.Rows.Count > 0 Then + + Total = ObjPVenta.DtResultados(0)("ImporteInicial").ToString().ToDouble + ObjPVenta.DtResultados(0)("VentasEfectivo").ToString().ToDouble + ObjPVenta.DtResultados(0)("Ingresado").ToString().ToDouble - ObjPVenta.DtResultados(0)("Retirado").ToString().ToDouble - ObjPVenta.DtResultados(0)("Devoluciones").ToString().ToDouble + DineroCaja = Total + LblEfectivoEsperado.Text = Total.FormatoNumero(2) + LblEfectivoBloqueo.Text = Total.FormatoNumero(2) + + Dim Dt As New DataTable + + Dt.Columns.Add("Descripcion", GetType(String)) + Dt.Columns.Add("Importe", GetType(Decimal)) + + Dim Dr1 As DataRow = Dt.NewRow + Dr1("Descripcion") = "Fondo de Caja" + Dr1("Importe") = ObjPVenta.DtResultados(0)("ImporteInicial").ToString().ToDouble + Dt.Rows.Add(Dr1) + + Dim Dr2 As DataRow = Dt.NewRow + Dr2("Descripcion") = "Ventas en Efectivo" + Dr2("Importe") = ObjPVenta.DtResultados(0)("VentasEfectivo").ToString().ToDouble + Dt.Rows.Add(Dr2) + + Dim Dr21 As DataRow = Dt.NewRow + Dr21("Descripcion") = "Devoluciones" + Dr21("Importe") = ObjPVenta.DtResultados(0)("Devoluciones").ToString().ToDouble + Dt.Rows.Add(Dr21) + + 'Dim Dr3 = Dt.NewRow + 'Dr3("Descripcion") = "Propinas" + 'Dr3("Importe") = ObjPVenta.DtResultados(0)("Propina").ToString().ToDouble + 'Dt.Rows.Add(Dr3) + + Dim Dr4 As DataRow = Dt.NewRow + Dr4("Descripcion") = "Entradas" + Dr4("Importe") = ObjPVenta.DtResultados(0)("Ingresado").ToString().ToDouble + Dt.Rows.Add(Dr4) + + Dim Dr5 As DataRow = Dt.NewRow + Dr5("Descripcion") = "Salidas" + Dr5("Importe") = ObjPVenta.DtResultados(0)("Retirado").ToString().ToDouble + Dt.Rows.Add(Dr5) + + Dim Dr6 As DataRow = Dt.NewRow + Dr6("Descripcion") = "Total" + Dr6("Importe") = Total + Dt.Rows.Add(Dr6) + + GvDineroCaja.DataSource = Dt + GvDineroCaja.DataBind() + UpDineroCaja.Update() + UpTerminarCorte.Update() + + End If + End If + + ObjPVenta.Dispose() + End Sub - Private Sub CargaDatos() Dim ObjMovtos As New ClsMovimientos() @@ -276,6 +374,128 @@ Partial Class Ventas_PVCobranza End If Return Retorno - End Function - + End Function + + Protected Sub BtnCerrarCaja_Click(sender As Object, e As EventArgs) + RegistraScript("$('#DivEstadoCaja').modal('hide')") + RegistraScript("$('#DivTerminarCorte').modal()", "divterminarcorte") + End Sub + Protected Sub LkbIngreso_Click(sender As Object, e As EventArgs) + CargaIngresoEgreso(1) + End Sub + Public Sub CargaIngresoEgreso(Opcion As Integer) + RegistraScript("$('#DivIngresoEgreso').modal()") + If Opcion = 1 Then + LblTituloIE.Text = "Ingreso de Efectivo: " + HdnTipoMovimiento.Value = "1" + ElseIf Opcion = 0 Then + LblTituloIE.Text = "Retiro de Efectivo: " + HdnTipoMovimiento.Value = "0" + End If + UpIngresoEgreso.Update() + End Sub + Protected Sub LkbRetiro_Click(sender As Object, e As EventArgs) + CargaIngresoEgreso(0) + End Sub + + Private Sub LkbEstadodeCaja_Click(sender As Object, e As EventArgs) Handles LkbEstadodeCaja.Click + CargaDatosCorte() + CargaVentasPago() + CargaEntradasSalidas() + RegistraScript("$('#DivEstadoCaja').modal()") + End Sub + + Private Sub CargaVentasPago() + Dim ObjPVenta As New ClsPuntoVenta + + If ObjPVenta.GetVta_MetodosPago(CveCorte) Then + If ObjPVenta.DtResultados.Rows.Count > 0 Then + GvMetodosPago.DataSource = ObjPVenta.DtResultados + GvMetodosPago.DataBind() + UpMetodosPago.Update() + End If + End If + + ObjPVenta.Dispose() + End Sub + Private Sub CargaEntradasSalidas() + Dim ObjPVenta As New ClsPuntoVenta + + 'Salida + If ObjPVenta.GetVta_MovimientosCajas(CveCorte, 0) Then + If ObjPVenta.DtResultados.Rows.Count > 0 Then + GvEgresos.DataSource = ObjPVenta.DtResultados + GvEgresos.DataBind() + UpEgresos.Update() + End If + End If + + 'Entrada + If ObjPVenta.GetVta_MovimientosCajas(CveCorte, 1) Then + If ObjPVenta.DtResultados.Rows.Count > 0 Then + GvIngresos.DataSource = ObjPVenta.DtResultados + GvIngresos.DataBind() + UpIngresos.Update() + End If + End If + + ObjPVenta.Dispose() + End Sub + Private Sub BtnCerrarTurno_Click(sender As Object, e As EventArgs) Handles BtnCerrarTurno.Click + Dim ObjPVenta As New ClsPuntoVenta + If TxtEfectivoEnCaja.Text.Trim <> "" Then + If ObjPVenta.UpdateFinalizadoVtaCortes(CveCorte, TxtEfectivoEnCaja.Text.ToDouble, LblDiferenciaCaja.Text.ToDouble, NowADS(), UsuarioActual.CveEmpresa) Then + RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}", CveCorte, "PDF"))}'", "Imprimir") + Dim Liga As String = "document.location.href=""/Ventas/PVCobranza.aspx"";" + Alert("Se ha cerrado el turno correctamente.", TipoMensaje.MsgInformacion, Liga) + End If + End If + ObjPVenta.Dispose() + End Sub + Private Sub BtnCerrarBloqueo_Click(sender As Object, e As EventArgs) Handles BtnCerrarBloqueo.Click + Dim ObjPVenta As New ClsPuntoVenta + If TxtEfectivoCajaBloqueo.Text.Trim <> "" Then + If ObjPVenta.UpdateFinalizadoVtaCortes(CveCorte, TxtEfectivoCajaBloqueo.Text.ToDouble, LblDiferenciaCajaBloqueo.Text.ToDouble, NowADS(), UsuarioActual.CveEmpresa) Then + RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}", CveCorte, "PDF"))}'", "Imprimir") + Dim Liga As String = "document.location.href=""/Ventas/PVCobranza.aspx"";" + Alert("Se ha cerrado el turno correctamente.", TipoMensaje.MsgInformacion, Liga) + End If + Else + Alert("Debe especificar el efectivo en caja", TipoMensaje.MsgAdvertencia) + RegistraScript("window.onload = function MuestraPantallaBloqueo() { document.getElementById(""C_btnShowBloqueo"").click(); }") + End If + ObjPVenta.Dispose() + End Sub + Private Sub BtnIniciarTurno_Click(sender As Object, e As EventArgs) Handles BtnIniciarTurno.Click + Dim ObjPVenta As New ClsPuntoVenta + + ObjPVenta.AddVtaCortes(NowADS(), TxtDineroCaja.Text.ToDecimal, UsuarioActual.CveUsuario, TxtDescripcionCaja.Text, UsuarioActual.CveEmpresa) + CveCorte = ObjPVenta.CveCorte + LblTurno.Text = NowADS().ToShortDateString + UpTurno.Visible = True + LkbEstadodeCaja.Visible = True + LkbIngreso.Visible = True + LkbRetiro.Visible = True + BtnIniciarTurno.Visible = False + + ObjPVenta.Dispose() + + RegistraScript("$('#DivCorteDeCaja').hide();") + + UpTurno.Update() + End Sub + + Private Sub BtnAceptarIE_Click(sender As Object, e As EventArgs) Handles BtnAceptarIE.Click + Dim ObjPVenta As New ClsPuntoVenta + If TxtCantidadIE.Text.ToEntero() > 0 Then + If ObjPVenta.AddVta_MovimientosCajas(CveCorte, UsuarioActual.CveUsuario, TxtCantidadIE.Text.ToDouble, TxtDescripcionIE.Text, HdnTipoMovimiento.Value.ToEntero(), NowADS()) Then + TxtCantidadIE.Text = "" + TxtDescripcionIE.Text = "" + RegistraScript("$('#DivIngresoEgreso').modal('hide')", "divingresoegreso") + Alert("El movimiento se realizó correctamente") + UpIngresoEgreso.Update() + End If + End If + ObjPVenta.Dispose() + End Sub End Class From 81c93f48eeccd42905b7f5c575ba850f39771852 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 11 Jan 2024 18:24:42 -0700 Subject: [PATCH 4/5] =?UTF-8?q?Impresi=C3=B3n=20mini-printer=20directo=20p?= =?UTF-8?q?df=20(ventas)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx | 34 ++++++++++++++++++++++++++++++++++ Ventas/Ventas.aspx.vb | 5 +++++ 2 files changed, 39 insertions(+) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 256ff61ab..f961c23e5 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -8547,6 +8547,40 @@