Merge branch 'master' of http://192.168.10.111:8383/SIG

Bancos/IE.aspx.vb

@@ -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()
-
+                                Dim Importe = If(DdlTipoTransaccion.SelectedValue.ToEntero = 7, ImporteAplicar * -1, ImporteAplicar) 'ImporteAplicar * -1
-                                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
+
+                                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

OC/OC.aspx

@@ -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>
+                                                            <%--<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>
+                                                            <%--<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>

OS/OrdenesServicios.aspx.vb

@@ -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"

Ventas/ProductosServicios.aspx

@@ -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>

Ventas/ProductosServicios.aspx.vb

@@ -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