AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Servicios

Browse Source
This commit is contained in:
Oscar Irigoyen
2022-10-14 22:16:03 -07:00
parent 7760088839
commit f5d84f920d
7 changed files with 110 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
App_Code/ClsOS.vb
View File

@@ -59,6 +59,10 @@ Public Class ClsOS
Public Property CveSubProyecto As Integer Public Property CveSubProyecto As Integer
Public Property CveOSDetalle As Integer Public Property CveOSDetalle As Integer
Public Property CveOSTipo As Integer Public Property CveOSTipo As Integer
Public Property Telefono As String = ""
Public Property CveModeloAuto As Integer = -1
Public Property Año As String = ""
Private Class Especificaciones Private Class Especificaciones
Public CveValor As Integer Public CveValor As Integer
Public CvePSCaracteristica As Integer Public CvePSCaracteristica As Integer
@@ -516,6 +520,10 @@ Public Class ClsOS
Me.UsuarioEntrego = Data.Rows(0)("UsuarioEntrego").ToString Me.UsuarioEntrego = Data.Rows(0)("UsuarioEntrego").ToString
Me.CveSubProyecto = Data.Rows(0)("CveSubproyecto").ToString Me.CveSubProyecto = Data.Rows(0)("CveSubproyecto").ToString
Me.CveOSTipo = Data.Rows(0)("CveOrdenServicioTipo").ToString.ToEntero Me.CveOSTipo = Data.Rows(0)("CveOrdenServicioTipo").ToString.ToEntero
Me.Telefono = Data.Rows(0)("TelefonoContacto").ToString
Me.CveModeloAuto = Data.Rows(0)("CveModeloAuto").ToString.ToEntero
Me.Año = Data.Rows(0)("Año").ToString
End If End If
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception
@@ -569,7 +577,7 @@ Public Class ClsOS
End Function End Function
Public Function AddOrdenesServicios(CveCliente As Integer, CveSubProyecto As Integer, PersonaSolicito As String, FechaRecepcion As Date, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer, Public Function AddOrdenesServicios(CveCliente As Integer, CveSubProyecto As Integer, PersonaSolicito As String, FechaRecepcion As Date, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer,
CveUsuario As Integer, CveEmpresa As Integer, CveCotizacion As Integer, CveVenta As Integer, CveOSPadre As Integer, CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1, CveUsuario As Integer, CveEmpresa As Integer, CveCotizacion As Integer, CveVenta As Integer, CveOSPadre As Integer, CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1,
Optional Direccion As String = "-1") As Boolean Optional Direccion As String = "-1", Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_OS_OrdenesServiciosAdd") DataAdapter("PA_OS_OrdenesServiciosAdd")
@@ -591,6 +599,10 @@ Public Class ClsOS
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
.Add("@Direccion", SqlDbType.VarChar).Value = Direccion .Add("@Direccion", SqlDbType.VarChar).Value = Direccion
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
.Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto
.Add("@Año", SqlDbType.VarChar).Value = Año
.Add("@CveOS", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@CveOS", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output
End With End With
@@ -633,7 +645,8 @@ Public Class ClsOS
Return Retorno Return Retorno
End Function End Function
Public Function UpdateOrdenesServicios(PersonaSolicito As String, FechaRecepcion As String, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer, CveOS As Integer, CveUsuarioModifico As Integer, Public Function UpdateOrdenesServicios(PersonaSolicito As String, FechaRecepcion As String, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer, CveOS As Integer, CveUsuarioModifico As Integer,
CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1, Optional Direccion As String = "-1") As Boolean CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1, Optional Direccion As String = "-1",
Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_OS_OrdenesServiciosUpdate") DataAdapter("PA_OS_OrdenesServiciosUpdate")
@@ -649,6 +662,11 @@ Public Class ClsOS
.Add("@CveOS", SqlDbType.Int).Value = CveOS .Add("@CveOS", SqlDbType.Int).Value = CveOS
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
.Add("@Direccion", SqlDbType.VarChar).Value = Direccion .Add("@Direccion", SqlDbType.VarChar).Value = Direccion
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
.Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto
.Add("@Año", SqlDbType.VarChar).Value = Año
End With End With
Try Try

5
Bancos/ConciliacionesBancarias.aspx.vb
View File

@@ -551,8 +551,9 @@ Partial Class Bancos_ConciliacionesBancariasaspx
End Sub End Sub
Protected Sub GeneraPDF(Formato As String) Protected Sub GeneraPDF(Formato As String)
Dim params As List(Of ReportParameter) = New List(Of ReportParameter)() Dim params As List(Of ReportParameter) = New List(Of ReportParameter)()
Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString())) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString()))
@@ -662,7 +663,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
params.Add(New ReportParameter("Filtros", Filtros)) params.Add(New ReportParameter("Filtros", Filtros))
If Imagen.Exists Then If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri)) params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
Else Else
params.Add(New ReportParameter("LogoPath", "")) params.Add(New ReportParameter("LogoPath", ""))
End If End If

3
Empresas/172/Formatos/OC.rdlc
View File

@@ -682,6 +682,7 @@
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DsOC</DataSetName> <DataSetName>DsOC</DataSetName>
<Top>0cm</Top>
<Left>0.04788in</Left> <Left>0.04788in</Left>
<Height>0.36752in</Height> <Height>0.36752in</Height>
<Width>8.15357in</Width> <Width>8.15357in</Width>
@@ -1702,7 +1703,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value> Citrus Game, S.A. de C.V.</Value> <Value>CITRUS GAME S.A.P.I. DE C.V.</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>8.5pt</FontSize> <FontSize>8.5pt</FontSize>

27
General/SaldosIniciales.aspx.vb
View File

@@ -650,7 +650,7 @@ Partial Class General_SaldosIniciales
If UsuarioActual.Empresa.TipoContabilizacion = 1 Then If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
DTCuentasContables = ObjConta.DtResultados DTCuentasContables = ObjConta.DtResultados
End If End If
ObjConta.Dispose() ObjConta.Dispose()
@@ -1502,8 +1502,8 @@ Partial Class General_SaldosIniciales
Dim CveProveedorSucursal As Integer = Row("CveProveedorSucursal").ToString.ToEntero Dim CveProveedorSucursal As Integer = Row("CveProveedorSucursal").ToString.ToEntero
Dim PorcentajeIVA As String = Row("PorcentajeIVA").ToString Dim PorcentajeIVA As String = Row("PorcentajeIVA").ToString
Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString, "0").ToDecimal Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString, "0").ToDecimal
Dim RetIVAPorcentaje As Decimal = Row("RetIVAPorcentaje").ToString.ToDecimal
Dim RetISRPorcentaje As Decimal = Row("RetISRPorcentaje").ToString.ToDecimal
If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True
@@ -1511,7 +1511,8 @@ Partial Class General_SaldosIniciales
If Not CveProveedor > 0 Then Alert(String.Format("No se encontró el Proveedor con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorCompras = True : Exit For If Not CveProveedor > 0 Then Alert(String.Format("No se encontró el Proveedor con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorCompras = True : Exit For
If Not CveProveedorSucursal > 0 Then CveProveedorSucursal = -1 If Not CveProveedorSucursal > 0 Then CveProveedorSucursal = -1
TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESOS", "INGRESO", "ING"), "Fac", "NC").ToString TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESOS", "INGRESO", "ING", "FACTURA"), "Fac", "NC").ToString
'Temporalmente SE BORRARA 'Temporalmente SE BORRARA
@@ -1553,7 +1554,7 @@ Partial Class General_SaldosIniciales
CveCompra = ObjCompras.CveCompra CveCompra = ObjCompras.CveCompra
'Compra Detalle 'Compra Detalle
If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero, -1, 0, 1, SubTotal, 0.16D, SubTotal, 0, "Carga Inicial", -1) Then If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero, -1, 0, 1, SubTotal, 0.16D, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA.ToDecimal, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then
ErrorCompras = True ErrorCompras = True
Exit For Exit For
End If End If
@@ -1563,7 +1564,13 @@ Partial Class General_SaldosIniciales
'PrePólizaDetalle 'PrePólizaDetalle
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio, IIf(TipoDocto = "Fac", 5, 18).ToString.ToEntero, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio, IIf(TipoDocto = "Fac", 5, 18).ToString.ToEntero, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, Folio, 6, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=SubTotal, CveClasificacion:=CveClasificacion, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, Folio, 6, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=SubTotal, CveClasificacion:=CveClasificacion, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Folio, 14, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IVA, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
If IVA > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Folio, 14, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IVA, CveSubProyecto:=Sucursal.ToEntero, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA.ToDecimal) Then ErrorCompras = True : Exit For
End If
If IEPS > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IEPS, Folio, 25, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IEPS, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For If IEPS > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IEPS, Folio, 25, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IEPS, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
If RetIVA > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, RetIVA, Folio, 15, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=RetIVA, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For If RetIVA > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, RetIVA, Folio, 15, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=RetIVA, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
@@ -1572,8 +1579,8 @@ Partial Class General_SaldosIniciales
'Saldo 'Saldo
If Saldo < Total Then If Saldo < Total Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, Folio, 17, Folio, Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total - Saldo) Then ErrorCompras = True : Exit For If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, $"{Folio} SALDO INICIAL", 17, Folio, Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total - Saldo) Then ErrorCompras = True : Exit For
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total - Saldo, Folio, 95, Folio, Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total - Saldo) Then ErrorCompras = True : Exit For If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total - Saldo, $"{Folio} SALDO INICIAL", 95, Folio, Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total - Saldo) Then ErrorCompras = True : Exit For
End If End If
Encontrados = Encontrados + 1 Encontrados = Encontrados + 1
@@ -2372,8 +2379,8 @@ Partial Class General_SaldosIniciales
Dim Clasificacion As String = dRow("Clasificacion").ToString.Trim Dim Clasificacion As String = dRow("Clasificacion").ToString.Trim
Dim Categoria As String = dRow("Categoria").ToString.Trim Dim Categoria As String = dRow("Categoria").ToString.Trim
Dim UsoClasificacion As String = dRow("UsoClasificacion").ToString.Trim.ToUpper Dim UsoClasificacion As String = dRow("UsoClasificacion").ToString.Trim.ToUpper
Dim CuentaContableIngreso As String = dRow("CuentaContableIngreso").ToString.Trim Dim CuentaContableIngreso As String = dRow("CuentaContableIngreso").ToString.Trim.Replace("-", "")
Dim CuentaContableGasto As String = dRow("CuentaContableGasto").ToString.Trim Dim CuentaContableGasto As String = dRow("CuentaContableGasto").ToString.Trim.Replace("-", "")
Dim CveClasificacion As Integer = -1 Dim CveClasificacion As Integer = -1
Dim CveUsoClasificacion As Integer = -1 Dim CveUsoClasificacion As Integer = -1

36
OS/OrdenesServicios.aspx
View File

@@ -157,16 +157,44 @@
</div> </div>
</div> </div>
<div class="row"> <div class="row" >
<div class="col-md-2"> <div class="col-md-2" style="margin-top: 5px" >
<b>Drección:</b> <b>Dirección:</b>
</div> </div>
<div class="col-md-4"> <div class="col-md-4" style="margin-top: 5px" >
<asp:TextBox ID="TxtDireccion" runat="server" MaxLength="300" CssClass="form-control" /> <asp:TextBox ID="TxtDireccion" runat="server" MaxLength="300" CssClass="form-control" />
</div> </div>
<div class="col-md-2" style="margin-top: 5px" id="DVDatosAdicionalesAcum1" runat="server" visible="false" >
<b>Telefono:</b>
</div>
<div class="col-md-4" style="margin-top: 5px" id="DVDatosAdicionalesAcum3" runat="server" visible="false" >
<asp:TextBox ID="TxtTelefono" CssClass="form-control" runat="server" MaxLength="10"></asp:TextBox>
<ajax:MaskedEditExtender ID="MaskedEditExtender4" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
</div>
</div> </div>
<div class="row" id="DVDatosAdicionalesAcum2" runat="server" visible="false">
<div class="col-md-2" style="margin-top: 5px" >
<b>Modelo:</b>
</div>
<div class="col-md-4" style="margin-top: 5px;text-align:left">
<asp:DropDownList ID="DdlModeloAuto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ModeloMarca" DataValueField="CveModeloAuto"> </asp:DropDownList>
</div>
<div class="col-md-2" style="margin-top: 5px" >
<b>Año:</b>
</div>
<div class="col-md-4" style="margin-top: 5px" >
<asp:TextBox ID="TxtAnio" CssClass="form-control" runat="server" MaxLength="4"></asp:TextBox>
</div>
</div>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>

30
OS/OrdenesServicios.aspx.vb
View File

@@ -5,6 +5,7 @@ Imports Extensiones
Imports System.IO Imports System.IO
Imports System.Data Imports System.Data
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports ADSNetLibrary.SIGAPI.Models.Sistema
'Imports msExcel = Microsoft.Office.Interop.Excel 'Imports msExcel = Microsoft.Office.Interop.Excel
'Imports VBIDE 'Imports VBIDE
@@ -291,6 +292,7 @@ Partial Class OS_OrdenesServicios
CargaPSCaracteristicasOpciones() CargaPSCaracteristicasOpciones()
CargaCuentasCaracteristicas() CargaCuentasCaracteristicas()
CargaAlmacen() CargaAlmacen()
CargaModelos()
CreaDT() CreaDT()
CreaDTPS() CreaDTPS()
@@ -362,6 +364,10 @@ Partial Class OS_OrdenesServicios
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
DVDatosAdicionalesAcum1.Visible = True
DVDatosAdicionalesAcum2.Visible = True
DVDatosAdicionalesAcum3.Visible = True
Else
LblCuentaEquipoTH.Visible = False LblCuentaEquipoTH.Visible = False
DdlCuentaEquipo.Visible = False DdlCuentaEquipo.Visible = False
End If End If
@@ -538,6 +544,12 @@ Partial Class OS_OrdenesServicios
DivMateriales.Visible = True DivMateriales.Visible = True
ImgImprimir.Visible = True ImgImprimir.Visible = True
TxtTelefono.Text = ObjOS.Telefono
DdlModeloAuto.SelectedValueExist(ObjOS.CveModeloAuto)
TxtAnio.Text = ObjOS.Año
CargaEventoBitacora() CargaEventoBitacora()
CargaHistorial() CargaHistorial()
Else Else
@@ -1032,7 +1044,9 @@ Partial Class OS_OrdenesServicios
If Not CveOS > 0 Then If Not CveOS > 0 Then
Dim bandera As Integer = DdlEstatusOS.SelectedValue.ToEntero Dim bandera As Integer = DdlEstatusOS.SelectedValue.ToEntero
If Not ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyecto.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaRecibido.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, EstatusOrdenServicio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCotizacion, -1, -1, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, Direccion:=TxtDireccion.Text) Then If Not ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyecto.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaRecibido.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, EstatusOrdenServicio,
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCotizacion, -1, -1, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero,
Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text, CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text) Then
Errores = True Errores = True
End If End If
CargaCliente(CveCliente) CargaCliente(CveCliente)
@@ -1129,7 +1143,9 @@ Partial Class OS_OrdenesServicios
Else Else
If CveTecnico = UsuarioActual.CveUsuario Then If CveTecnico = UsuarioActual.CveUsuario Then
If ObjOrdenServicio.UpdateOrdenesServicios(TxtSolicito.Text, TxtFechaRecibido.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, CveOS, UsuarioActual.CveUsuario, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, Direccion:=TxtDireccion.Text) Then If ObjOrdenServicio.UpdateOrdenesServicios(TxtSolicito.Text, TxtFechaRecibido.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, CveOS, UsuarioActual.CveUsuario,
DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text,
CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text) Then
For Each Row As DataRow In TmpDT.Rows For Each Row As DataRow In TmpDT.Rows
If Not Errores Then If Not Errores Then
Dim CvePS As Integer = Row("CvePS").ToString.ToEntero Dim CvePS As Integer = Row("CvePS").ToString.ToEntero
@@ -2536,6 +2552,16 @@ Partial Class OS_OrdenesServicios
DdlAlmacenDestino.DataBind() DdlAlmacenDestino.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
Private Sub CargaModelos()
Dim ObjGral As New ClsGenerales
If ObjGral.ModelosAutosGet(1, UsuarioActual.CveEmpresa) Then
DdlModeloAuto.DataSource = ObjGral.DtResultados
End If
DdlModeloAuto.DataBind()
DdlModeloAuto.Items.Insert(0, New ListItem("Sin Asignar", "-1"))
End Sub
Public Sub ShowDivSolicitarMaterial_Click(sender As Object, e As EventArgs) Public Sub ShowDivSolicitarMaterial_Click(sender As Object, e As EventArgs)
RegistraScript("ShowDivGvSolicitarMaterial();") RegistraScript("ShowDivGvSolicitarMaterial();")
End Sub End Sub

9
OS/RepServicioDomicilio.aspx
View File

@@ -619,7 +619,8 @@
// if addresult is -1, means event was not added // if addresult is -1, means event was not added
// alert("added key: " + addResult); // alert("added key: " + addResult);
if (addResult != -1) { if (addResult != -1) {
$('#calendar').fullCalendar('renderEvent', $('#calendar').fullCalendar('renderEvent',
{ {
title: $("#addEventName").val(), title: $("#addEventName").val(),
@@ -632,8 +633,12 @@
true // make the event "stick" true // make the event "stick"
); );
$('#calendar').fullCalendar('option', 'minTime', '06:00:00');
$('#calendar').fullCalendar('option', 'maxTime', '17:00:00');
$('#calendar').fullCalendar('unselect'); $('#calendar').fullCalendar('unselect');
} }
} }
@@ -770,6 +775,8 @@
selectHelper: true, selectHelper: true,
select: selectDate, select: selectDate,
editable: true, editable: true,
minTime: "08:00:00",
maxTime: "17:00:00",
events: { events: {
url: '/Ashx/CargaEventos.ashx', url: '/Ashx/CargaEventos.ashx',
type: 'GET', type: 'GET',