Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
rrene
@@ -2810,8 +2810,9 @@ Partial Class Bancos_IE
|
||||
'CANCELA NC
|
||||
IdCtaContableAplicar = IDCtaBeneficiario
|
||||
ImporteAplicarMN = ImporteAplicar ' (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, (ImporteAplicar), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then
|
||||
Dim Importe = If(DdlTipoTransaccion.SelectedValue.ToEntero = 7, ImporteAplicar * -1, ImporteAplicar) 'ImporteAplicar * -1
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, (Importe), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
|
||||
Exit Select
|
||||
End If
|
||||
|
||||
@@ -795,8 +795,8 @@
|
||||
<asp:HiddenField ID="HdnCodigoAF" Value="-1" runat="server" ClientIDMode="Static" />
|
||||
|
||||
<asp:TextBox ID="LblCodigo" runat="server" Text="" onkeyup="EnterAF(event);" onblur="AFBlur();" ClientIDMode="Static" Width="40px" ValidationGroup="GrpDetalleGuardar"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator Enabled="false" ID="RFVcodigo" runat="server" ControlToValidate="LblCodigo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Activo Fijo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpDetalleGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEcodigo" runat="server" HighlightCssClass="vco" TargetControlID="RFVcodigo" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<%--<asp:RequiredFieldValidator Enabled="false" ID="RFVcodigo" runat="server" ControlToValidate="LblCodigo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Activo Fijo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpDetalleGuardar"></asp:RequiredFieldValidator>--%>
|
||||
<%--<ajax:ValidatorCalloutExtender ID="VCEcodigo" runat="server" HighlightCssClass="vco" TargetControlID="RFVcodigo" Width="300px"></ajax:ValidatorCalloutExtender>--%>
|
||||
<asp:HyperLink ID="HplMaq" runat="server" ClientIDMode="Static"><img alt="Activo Fijo" width="20px" height="20px" src="/Imagenes/Maquinaria.jpg" style="cursor:pointer;" onclick="$('#ajaxidmodal #myFrame').css({ width: 900 }); $('#ajaxidmodal ').css({ width: 900 });AbrirVentana('/AF/PopUpBuscarAF.aspx?OPCION=OC',1000,600,'N');"/></asp:HyperLink>
|
||||
|
||||
</ContentTemplate>
|
||||
|
||||
@@ -247,6 +247,24 @@ Partial Class OS_OrdenesServicios
|
||||
ViewState("CveTecnico") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property ClienteRFC As String
|
||||
Get
|
||||
Return ViewState("ClienteRFC").ToString
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("ClienteRFC") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property ClienteMail As String
|
||||
Get
|
||||
Return ViewState("ClienteMail").ToString
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("ClienteMail") = 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
|
||||
@@ -340,7 +358,6 @@ Partial Class OS_OrdenesServicios
|
||||
|
||||
hdnEsThickbox.Value = "S"
|
||||
hdnClientIDLink.Value = "NoDefinido"
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -708,6 +725,8 @@ Partial Class OS_OrdenesServicios
|
||||
ClienteEstado = ObjCliente.Estado
|
||||
TelefonoCliente = ObjCliente.Telefono
|
||||
TxtSolicito.Text = ObjCliente.Contacto
|
||||
ClienteRFC = ObjCliente.RFC
|
||||
ClienteMail = ObjCliente.Mail
|
||||
|
||||
If ObjCliente.GetSucursales(CveCliente) Then
|
||||
DdlSucursalCliente.DataSource = ObjCliente.DtResultados
|
||||
@@ -979,7 +998,7 @@ Partial Class OS_OrdenesServicios
|
||||
If Not ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyecto.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaRecibido.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCotizacion, -1, -1, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
|
||||
Errores = True
|
||||
End If
|
||||
|
||||
CargaCliente(CveCliente)
|
||||
For Each Row As DataRow In TmpDT.Rows
|
||||
If Not Errores Then
|
||||
Dim Consecutivo As Integer = Row("Consecutivo").ToString.ToEntero
|
||||
@@ -1046,6 +1065,8 @@ Partial Class OS_OrdenesServicios
|
||||
|
||||
Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"
|
||||
|
||||
ImprimirAlGenerar()
|
||||
|
||||
ObjOrdenServicio.Commit()
|
||||
|
||||
Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, Liga)
|
||||
@@ -2423,6 +2444,46 @@ Partial Class OS_OrdenesServicios
|
||||
|
||||
ImprimirPDF("Empresas/Grales/Formatos/OrdenServicio.rdlc", lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
|
||||
End Sub
|
||||
|
||||
Private Sub ImprimirAlGenerar()
|
||||
Dim params As New List(Of ReportParameter)
|
||||
Dim report As LocalReport = New LocalReport()
|
||||
|
||||
Dim dt As DataTable = TmpDT
|
||||
Dim DtMateriales As DataTable = TmpDTMaterialesDetalle
|
||||
|
||||
report.ReportPath = String.Format("Empresas/{0}/Formatos/FormatoOS.rdlc", UsuarioActual.CveEmpresa)
|
||||
|
||||
params.Add(New ReportParameter("Cliente", NombreCliente))
|
||||
params.Add(New ReportParameter("Direccion", ClienteDireccion))
|
||||
params.Add(New ReportParameter("NoDeCliente", TxtCodigo.Text))
|
||||
params.Add(New ReportParameter("RFC", ClienteRFC))
|
||||
params.Add(New ReportParameter("Poblacion", ClienteCiudad))
|
||||
params.Add(New ReportParameter("Vendedor", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("Contacto", TxtSolicito.Text))
|
||||
params.Add(New ReportParameter("Correo", ClienteMail))
|
||||
params.Add(New ReportParameter("Sucursal", DdlSubProyecto.SelectedItem.Value))
|
||||
params.Add(New ReportParameter("TipoServicio", "Reparación/Diagnostico"))
|
||||
params.Add(New ReportParameter("DiaFecha", Date.Today.Day.ToString))
|
||||
params.Add(New ReportParameter("MesFecha", Date.Today.Month.ToString))
|
||||
params.Add(New ReportParameter("AñoFecha", Date.Today.Year.ToString))
|
||||
params.Add(New ReportParameter("DiaVigencia", Date.Today.Day.ToString))
|
||||
params.Add(New ReportParameter("MesVigencia", Date.Today.Month.ToString))
|
||||
params.Add(New ReportParameter("AñoVigencia", Date.Today.Year.ToString))
|
||||
params.Add(New ReportParameter("Folio", CveFolio.ToString))
|
||||
params.Add(New ReportParameter("CodigoDeServicio", CveOS.ToString))
|
||||
params.Add(New ReportParameter("FallaReportada", TxtDescripcion.Text))
|
||||
params.Add(New ReportParameter("Copia", "Copia: Cliente"))
|
||||
|
||||
Dim lrds As New List(Of ReportDataSource)
|
||||
Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = DtMateriales}
|
||||
Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = dt}
|
||||
|
||||
lrds.Add(rds)
|
||||
lrds.Add(rds2)
|
||||
|
||||
ImprimirPDF(String.Format("Empresas/{0}/Formatos/FormatoOS.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "S O L I C I T A R M A T E R I A L"
|
||||
|
||||
@@ -557,7 +557,7 @@
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlIEPSPorcentaje" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Enabled="false">
|
||||
<asp:DropDownList ID="DdlIEPSPorcentaje" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Enabled="false" AutoPostBack="true" OnSelectedIndexChanged="DdlIEPSPorcentaje_SelectedIndexChanged">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
<asp:ListItem Text="0%" Value="0.00"></asp:ListItem>
|
||||
<asp:ListItem Text="3%" Value="0.03"></asp:ListItem>
|
||||
|
||||
@@ -2597,5 +2597,16 @@ Partial Class ProductosyServicios
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
Protected Sub DdlIEPSPorcentaje_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlIEPSPorcentaje.SelectedIndexChanged
|
||||
Select Case DdlIEPSPorcentaje.SelectedValue
|
||||
Case "0.09"
|
||||
DdlCategoriaToxicidad.SelectedValueExist("001")
|
||||
Case "0.07"
|
||||
DdlCategoriaToxicidad.SelectedValueExist("002")
|
||||
Case "0.06"
|
||||
DdlCategoriaToxicidad.SelectedValueExist("003")
|
||||
Case Else
|
||||
DdlCategoriaToxicidad.SelectedValueExist("000")
|
||||
End Select
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user