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

Compras/Compras.aspx

@@ -5556,10 +5556,13 @@
         function CalculaTotalOCEdit(PS, CantidadOriginal, TxtCantidad, TxtPU, TxtTotal, IEPSOriginal, HdnIEPS, IVAOriginal, HdnIVA, RetIVAOriginal, HdnRetIVA, RetISROriginal, HdnRetISR, IEPSIVAOriginal, HdnIEPSIVA, DescuentoOriginal, HdnDescuento, IVAPorcentaje, RetIVAPorcentaje, RetISRPorcentaje, IEPSPSPorcentaje, IEPSPSIVAPorcentaje) {
             //var Proporcional = ((ToDouble(TxtCantidad.value) * 100) / CantidadOriginal) / 100;
 
+            
+
             HdnDescuento.value = ToDouble(DescuentoOriginal * ToDouble(TxtCantidad.value) / CantidadOriginal);
-            if (IEPSOriginal > 0) {
+            if (true) {
                 HdnIEPS.value = ToDouble(IEPSPSPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value)));
             }
+
             if (IVAOriginal > 0) {
                 HdnIVA.value = ToDouble(IVAPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value)));
             }

LogMail.txt

@@ -4,4 +4,4 @@
   28/08/2019:05:48 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 80 
 
   02/09/2019:11:00 a. m. From:'signotificaciones@adssistemas.mx'  -  Para:'x@x.com'  - Asunto:'Entrega de Factura SUCURSAL NARANJO SN-22' -  CCP: '' - Adjuntos: 1 
-
+

OC/OC.aspx.vb

@@ -4794,7 +4794,7 @@ Partial Class OC
         Dim DtPara As DataTable = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual)
         Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para 
         Param.Add("Solicitud de anticipo de Orden de Compra") 'Asunto
-        Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), TxtSAImporte.Text))
+        Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), TxtSAImporte.Text, DdlProveedores.SelectedItem.Text))
         Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra))
         Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo)
         Hilo.Start(Param)
@@ -4808,7 +4808,7 @@ Partial Class OC
                 Dim DtPara As DataTable = GlobalDTUsuarios(Dr("CveUsuarioPara").ToString.ToEntero, CveEmpresaActual)
                 Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para 
                 Param.Add("Solicitud de anticipo de Orden de Compra Cancelada") 'Asunto
-                Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.s/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", Dr("CveEvento").ToString.ToEntero), ""))
+                Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.s/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", Dr("CveEvento").ToString.ToEntero), "", DdlProveedores.SelectedItem.Text))
                 Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra))
                 Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo)
                 Hilo.Start(Param)
@@ -4839,8 +4839,9 @@ Partial Class OC
         End If
 
     End Sub
-    Private Function GeneraCorreoAnticipo(folio As String, para As String, link As String, importe As String) As String
+    Private Function GeneraCorreoAnticipo(folio As String, para As String, link As String, importe As String, Proveedor As String) As String
         'NOTA: CUANDO EL IMPORTE SEA "" QUIERE DECIR QUE ES EL CORREO DE CANCELACIÓN
+        Dim Abreviatura As String = GlobalDTMonedas().FiltroPrimeroValor("Abreviatura", $"CveMoneda={DdlMoneda.SelectedValue}")
 
         Dim strBody As New StringBuilder
         strBody.Append("<!DOCTYPE html>")
@@ -4868,6 +4869,18 @@ Partial Class OC
         strBody.Append("                <div class=""portlet-body "">")
         strBody.Append("                    <table class=""mitablita"">")
         strBody.Append("                        <tr>")
+        strBody.Append("                            <td>Empresa</td>")
+        strBody.Append("                            <td>")
+        strBody.Append(UsuarioActual.Empresa.Empresa)
+        strBody.Append("</td>                        </tr>")
+        strBody.Append("                        <tr>")
+        strBody.Append("                        <tr>")
+        strBody.Append("                            <td>Proveedor</td>")
+        strBody.Append("                            <td>")
+        strBody.Append(Proveedor)
+        strBody.Append("</td>                        </tr>")
+        strBody.Append("                        <tr>")
+        strBody.Append("                        <tr>")
         strBody.Append("                            <td>Fecha</td>")
         strBody.Append("                            <td>")
         strBody.Append(DateTime.Now.ToString("dd/MM/yy"))
@@ -4888,9 +4901,15 @@ Partial Class OC
         strBody.Append(folio)
         strBody.Append("</td>                        </tr>")
         If importe.ToDouble > 0 Then
-            strBody.Append("                            <td>Importe:</td>")
+            strBody.Append("                            <td>Importe Anticipo:</td>")
             strBody.Append("                            <td>")
-            strBody.Append(importe)
+            strBody.AppendFormat("{0} {1}", importe, Abreviatura)
+            strBody.Append("</td>                        </tr>")
+        End If
+        If LblTotal.Text.Trim.ToDouble > 0 Then
+            strBody.Append("                            <td>Importe OC:</td>")
+            strBody.Append("                            <td>")
+            strBody.AppendFormat("{0} {1}", LblTotal.Text, Abreviatura)
             strBody.Append("</td>                        </tr>")
         End If
         strBody.Append("<tr><td colspan=""4"" ><a href=""")

Ventas/Ventas.aspx.vb

@@ -15241,7 +15241,7 @@ Partial Class Ventas
                 Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
                 Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
                 Asunto = Asunto.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text)
-                Asunto = Asunto.Replace("{""SerieFolio""}", $"{LblSerie.Text} - {TxtFolio.Text}")
+                Asunto = Asunto.Replace("{""SerieFolio""}", ObjFactura.SerieFolio)
             End If
 
             If Not EnviarFactura Then