Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -2553,6 +2553,7 @@ Partial Class Ventas
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
CargaMedicos()
|
||||
CargaProcedimientos()
|
||||
|
||||
CargaDdlClientes()
|
||||
End If
|
||||
|
||||
@@ -7784,6 +7785,35 @@ Partial Class Ventas
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaSucursalesModal(CveClienteSeleccionado As Integer)
|
||||
|
||||
DdlSucursalClienteModal.Items.Clear()
|
||||
DdlSucursalClienteModal.ClearSelection()
|
||||
DdlSucursalClienteModal.SelectedValue = Nothing
|
||||
|
||||
Dim ObjCliente As New ClsClientes
|
||||
If ObjCliente.GetSucursales(CveClienteSeleccionado) Then
|
||||
DdlSucursalClienteModal.DataSource = ObjCliente.DtResultados
|
||||
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
||||
DvModalClientesucursal.Visible = True
|
||||
Else
|
||||
DvModalClientesucursal.Visible = False
|
||||
End If
|
||||
Else
|
||||
DvModalClientesucursal.Visible = False
|
||||
DdlSucursalClienteModal.DataSource = Nothing
|
||||
End If
|
||||
ObjCliente.Dispose()
|
||||
|
||||
DdlSucursalClienteModal.DataBind()
|
||||
DdlSucursalClienteModal.Items.Insert(0, New ListItem("Matriz", "-1"))
|
||||
|
||||
UpDvModalTipoVenta.FindDataSourceControl
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub CargaDdlClientes()
|
||||
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
|
||||
DdlClientesWS.setEsWebService(True)
|
||||
@@ -10740,7 +10770,13 @@ Partial Class Ventas
|
||||
ObjFacturaDevolucion.Fech1 = TxtFech1.Text.Trim.ToDate
|
||||
ObjFacturaDevolucion.Fech2 = TxtFech2.Text.Trim.ToDate
|
||||
ObjFacturaDevolucion.Fech3 = TxtFech3.Text.Trim.ToDate
|
||||
ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
|
||||
ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
|
||||
Else
|
||||
ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
|
||||
End If
|
||||
|
||||
ObjFacturaDevolucion.Alfa2 = TxtAlfa2.Text.Trim
|
||||
ObjFacturaDevolucion.Alfa3 = TxtAlfa3.Text.Trim
|
||||
ObjFacturaDevolucion.Num1 = TxtNum1.Text.Trim.ToDouble
|
||||
@@ -11016,7 +11052,13 @@ Partial Class Ventas
|
||||
ObjFacturaBonificacion.Fech1 = TxtFech1.Text.Trim.ToDate
|
||||
ObjFacturaBonificacion.Fech2 = TxtFech2.Text.Trim.ToDate
|
||||
ObjFacturaBonificacion.Fech3 = TxtFech3.Text.Trim.ToDate
|
||||
ObjFacturaBonificacion.Alfa1 = TxtAlfa1.Text.Trim
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
|
||||
ObjFacturaBonificacion.Alfa1 = TxtFechaOS.Text.Trim
|
||||
Else
|
||||
ObjFacturaBonificacion.Alfa1 = TxtAlfa1.Text.Trim
|
||||
End If
|
||||
|
||||
ObjFacturaBonificacion.Alfa2 = TxtAlfa2.Text.Trim
|
||||
ObjFacturaBonificacion.Alfa3 = TxtAlfa3.Text.Trim
|
||||
ObjFacturaBonificacion.Num1 = TxtNum1.Text.Trim.ToDouble
|
||||
@@ -11498,7 +11540,13 @@ Partial Class Ventas
|
||||
ObjFactura.Fech1 = TxtFech1.Text.Trim.ToDate
|
||||
ObjFactura.Fech2 = TxtFech2.Text.Trim.ToDate
|
||||
ObjFactura.Fech3 = TxtFech3.Text.Trim.ToDate
|
||||
ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
|
||||
ObjFactura.Alfa1 = TxtFechaOS.Text.Trim
|
||||
Else
|
||||
ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
|
||||
End If
|
||||
|
||||
ObjFactura.Alfa2 = TxtAlfa2.Text.Trim
|
||||
ObjFactura.Alfa3 = TxtAlfa3.Text.Trim
|
||||
ObjFactura.Num1 = TxtNum1.Text.Trim.ToDouble
|
||||
@@ -12155,7 +12203,14 @@ Partial Class Ventas
|
||||
ObjFacturaDevolucion.Fech1 = TxtFech1.Text.Trim.ToDate
|
||||
ObjFacturaDevolucion.Fech2 = TxtFech2.Text.Trim.ToDate
|
||||
ObjFacturaDevolucion.Fech3 = TxtFech3.Text.Trim.ToDate
|
||||
ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
|
||||
ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
|
||||
Else
|
||||
ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
|
||||
End If
|
||||
|
||||
ObjFacturaDevolucion.Alfa2 = TxtAlfa2.Text.Trim
|
||||
ObjFacturaDevolucion.Alfa3 = TxtAlfa3.Text.Trim
|
||||
ObjFacturaDevolucion.Num1 = TxtNum1.Text.Trim.ToDouble
|
||||
@@ -35976,14 +36031,24 @@ Partial Class Ventas
|
||||
DvModalTipoVentaPasoCliente.Visible = True
|
||||
DvModalTipoVentaPasoRequiereOS.Visible = True
|
||||
DvModalTipoVentaPasoMedicoProcedimiento.Visible = True
|
||||
TxtFechaModal.Text = NowADS.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
|
||||
|
||||
ChkRequiereTecnicoModal.Checked = True
|
||||
ChkRequiereTecnicoModal.Enabled = True
|
||||
DvModalRequiereOSFecha.Visible = True
|
||||
|
||||
If CveCliente > 0 Then
|
||||
CargaSucursalesModal(CveCliente)
|
||||
End If
|
||||
|
||||
TxtFechaModal.Text = NowADS.AddHours(1).ToString("yyyy-MM-dd HH").Replace(" ", "T") + ":00" ' ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
|
||||
|
||||
LnkDvModalTipoVentaAceptar.Visible = True
|
||||
|
||||
|
||||
Select Case RBLTipoVenta.SelectedValue
|
||||
Case "1" ' Fuera de linea
|
||||
ChkRequiereTecnicoModal.Checked = True
|
||||
ChkRequiereTecnicoModal.Enabled = False
|
||||
ChkRequiereTecnicoModal.Enabled = True
|
||||
DvModalRequiereOSFecha.Visible = True
|
||||
Case "2" ' Pago Directo
|
||||
ChkRequiereTecnicoModal.Checked = True
|
||||
@@ -36013,6 +36078,9 @@ Partial Class Ventas
|
||||
|
||||
Protected Sub DdlClientesWS_selectedindexchange(sender As Object, e As EventArgs)
|
||||
CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero)
|
||||
|
||||
CargaSucursalesModal(DdlClientesWS.SelectedValue.ToEntero)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -36090,6 +36158,7 @@ Partial Class Ventas
|
||||
DdlMedico.SelectedValueExist(DdlMedicoModal.SelectedValue)
|
||||
DdlProcedimiento.SelectedValueExist(DdlProcedimientoModal.SelectedValue)
|
||||
|
||||
|
||||
'si es pago directo es factura
|
||||
If RBLTipoVenta.SelectedValue.Contiene("2") Then
|
||||
DdlTipoComprobante.SelectedValueExist("Ing")
|
||||
@@ -36107,8 +36176,12 @@ Partial Class Ventas
|
||||
DdlTipoComprobante.Enabled = False
|
||||
|
||||
CargaCliente(CveCliente)
|
||||
|
||||
DdlSucursalCliente.SelectedValueExist(DdlSucursalClienteModal.SelectedValue)
|
||||
|
||||
DdlTipoComprobante_SelectedIndexChanged(sender, Nothing)
|
||||
RegistraScript("$('#DvModalTipoVenta').modal('hide');")
|
||||
|
||||
|
||||
Dim CountPsAgregados As Integer = 0
|
||||
|
||||
For Each GvRow As GridViewRow In GvProductosProcedimiento.Rows
|
||||
@@ -36135,6 +36208,13 @@ Partial Class Ventas
|
||||
If CountPsAgregados > 0 Then
|
||||
CalculaTotalesVenta()
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveVendedor > 0 Then
|
||||
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
|
||||
UpParametros.Update()
|
||||
End If
|
||||
|
||||
RegistraScript("$('#DvModalTipoVenta').modal('hide');")
|
||||
UpCliente.Update()
|
||||
End Sub
|
||||
|
||||
@@ -36154,11 +36234,11 @@ Partial Class Ventas
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlProcedimientoModal_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero)
|
||||
CargaPSProcedimiento(DdlProcedimientoModal.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero)
|
||||
End Sub
|
||||
|
||||
Private Sub CargaPSProcedimiento(CveProcedimiento As Integer, CveClienteL As Integer, CveSubProyectoL As Integer)
|
||||
If DdlProcedimientoModal.SelectedValue.ToEntero > 0 Then
|
||||
If CveProcedimiento > 0 Then
|
||||
Dim objVenta As New ClsVentas
|
||||
If objVenta.GetProcedimientoProducto(CveProcedimiento, 1, UsuarioActual.CveEmpresa, CveClienteL, CveSubProyectoL) Then
|
||||
GvProductosProcedimiento.DataSource = objVenta.DtResultados
|
||||
@@ -36190,7 +36270,7 @@ Partial Class Ventas
|
||||
Dim EstatusOrdenServicio As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1").ToEntero
|
||||
|
||||
If ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.Nombre, TxtFechaOS.Text.Replace(",", "").ToDateTime, $"Venta: {LblSerie.Text}-{TxtFolio.Text}", UsuarioActual.CveUsuario, EstatusOrdenServicio,
|
||||
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveOSTipo, CveClienteSucursal:=DdlSubProyectoDatos.SelectedValue.ToEntero,
|
||||
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveOSTipo, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero,
|
||||
Direccion:="", Telefono:="", CveModeloAuto:=-1, Año:="", CveMedico:=DdlMedico.SelectedValue.ToEntero,
|
||||
CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, FechaCita:=TxtFechaOS.Text.Replace(",", "").ToDateTime) Then
|
||||
CveOSVentaMedica = ObjOrdenServicio.CveOS
|
||||
|
||||
Reference in New Issue
Block a user