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

App_Code/Timbrado.vb

@@ -2734,7 +2734,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
 
 #Region "C O M P L E M E N T O    D E    N O M I N A"
         If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then
-
+            cfdi.TieneSubsidio = True ' bandera par activar que se vaya la opción de totalotrosingresos si es igual a cero
             'cfdi.Esquema.AgregarEsquema("http://www.sat.gob.mx/nomina12 http://www.sat.gob.mx/sitio_internet/cfd/nomina/nomina12.xsd")
             cfdi.Nomina12(ObjCFDITimbre.Nomina.TipoNomina, ObjCFDITimbre.Nomina.FechaPago.ToString("yyyy-MM-dd"), ObjCFDITimbre.Nomina.FechaInicio.ToDate().ToString("yyyy-MM-dd"), ObjCFDITimbre.Nomina.FechaFin.ToDate().ToString("yyyy-MM-dd"), ObjCFDITimbre.Nomina.NumDiasPagados, If(ObjCFDITimbre.Nomina.Percepciones IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Percepciones.Count > 0, ObjCFDITimbre.Nomina.TotalPercepciones, 0), If(ObjCFDITimbre.Nomina.Deducciones IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Deducciones.Count > 0, ObjCFDITimbre.Nomina.TotalDeducciones, 0), If(ObjCFDITimbre.Nomina.OtrosPagos IsNot Nothing AndAlso ObjCFDITimbre.Nomina.OtrosPagos.Count > 0, ObjCFDITimbre.Nomina.TotalOtrosPagos, 0))
 
@@ -2742,7 +2742,6 @@ concep.DescripcionesEspecificas.NumeroSerie)
 
             If UsuarioActual.Empresa.UsaAC Then cfdi.Nomina12EntidadSNCF("IF", 90)
 
-
 #Region "Receptor"
 
             cfdi.Nomina12Receptor(ObjCFDITimbre.Nomina.Receptor.CURP,

Bancos/ConciliacionesBancarias.aspx.vb

@@ -182,7 +182,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
             If Not CBool(Dr("FueConciliado").ToString) And Dr("CveIE").ToString.ToEntero > 0 Then
                 For Each DrE As DataRow In DtDatosEdoCuenta.Rows
                     If ((Dr("FechaDocumento").ToString.ToDate = DrE("FechaDocumento").ToString.ToDate And Dr("Importe").ToString.ToDouble = DrE("Importe").ToString.ToDouble And Dr("Tipo").ToString = DrE("Tipo").ToString And DdlCriterio.SelectedValue.ToEntero = 1) Or (Dr("Importe").ToString.ToDouble = DrE("Importe").ToString.ToDouble And Dr("Tipo").ToString = DrE("Tipo").ToString And DdlCriterio.SelectedValue.ToEntero = 2)) And Not CBool(DrE("Seleccionado").ToString) And Not CBool(DrE("FueConciliado").ToString) And Not CBool(Dr("Seleccionado").ToString) Then
-                        Dim FechaConciliado As Date = TxtFechaAplicado.Text.ToDate 'If(Dr("FechaDocumento").ToString.ToDate < txtFechaI.Text.ToDate, TxtFechaAplicado.Text.ToDate, Dr("FechaDocumento").ToString.ToDate)
+                        Dim FechaConciliado As Date = If(Dr("FechaDocumento").ToString.ToDate < txtFechaI.Text.ToDate, TxtFechaAplicado.Text.ToDate, Dr("FechaDocumento").ToString.ToDate)
                         If Not ObjBancos.UpdateConciliacionBancaria(Dr("CveIE").ToString.ToEntero, FechaConciliado, -1, 1, 1, UsuarioActual.CveUsuario) Or
                            Not ObjBancos.UpdateConciliacionBancaria(Dr("CveIE").ToString.ToEntero, FechaConciliado, DrE("CveIEEstadoCuenta").ToString.ToEntero, 1, 2, UsuarioActual.CveUsuario) Then
                             ErrorTrans = True
@@ -289,7 +289,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
         Dim CveIE As Integer = 0
         For Each Gvr As GridViewRow In GvDatos.Rows
             If Gvr.FCCheckBox("ChkConciliado").Checked And Gvr.FCCheckBox("ChkConciliado").Enabled Then
-                Dim FechaConciliado As Date = TxtFechaAplicado.Text.ToDate 'If(Gvr.DataKey("FechaDocumento").ToString.ToDate < txtFechaI.Text.ToDate, TxtFechaAplicado.Text.ToDate, Gvr.DataKey("FechaDocumento").ToString.ToDate)
+                Dim FechaConciliado As Date = If(Gvr.DataKey("FechaDocumento").ToString.ToDate < txtFechaI.Text.ToDate, TxtFechaAplicado.Text.ToDate, Gvr.DataKey("FechaDocumento").ToString.ToDate)
                 If Not ObjBancos.UpdateConciliacionBancaria(Gvr.DataKey("CveIE").ToEntero, FechaConciliado, -1, 1, 1, UsuarioActual.CveUsuario) Then
                     ErrorTrans = True
                 Else
@@ -303,7 +303,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
         Next
         For Each Gvr As GridViewRow In GvEdoConciliacion.Rows
             If Gvr.FCCheckBox("ChkConciliado").Checked And Gvr.FCCheckBox("ChkConciliado").Enabled Then
-                Dim FechaConciliado As Date = TxtFechaAplicado.Text.ToDate 'If(Gvr.DataKey("FechaDocumento").ToString.ToDate < txtFechaI.Text.ToDate, TxtFechaAplicado.Text.ToDate, Gvr.DataKey("FechaDocumento").ToString.ToDate)
+                Dim FechaConciliado As Date = If(Gvr.DataKey("FechaDocumento").ToString.ToDate < txtFechaI.Text.ToDate, TxtFechaAplicado.Text.ToDate, Gvr.DataKey("FechaDocumento").ToString.ToDate)
                 If Not ObjBancos.UpdateConciliacionBancaria(CveIE, FechaConciliado, Gvr.DataKey("CveIEEstadoCuenta").ToEntero, 1, 2, UsuarioActual.CveUsuario) Then
                     'If Not ObjBancos.UpdateIEEstadoCuenta(Gvr.DataKey("CveIEEstadoCuenta").ToEntero, Gvr.DataKey("Importe").ToDouble, True, CveIE, Gvr.DataKey("Referencia").ToString,
                     '                                      Gvr.DataKey("Tipo").ToString, Gvr.DataKey("FechaDocumento").ToDate, Gvr.DataKey("CveCuenta").ToEntero) Then

Bancos/FluctuacionCambiaria.aspx.vb

@@ -641,7 +641,7 @@ Partial Class Bancos_FluctuacionCambiaria
     End Sub
 
     Private Function AjusteFluctuacion(CvePrePoliza As Integer, TipoFluctuacion As Integer, CveConcepto As Integer, FechaUltimoDaMes As Date, ByRef ObjConta As ClsContabilidad, Optional CveVenta As Integer = -1, Optional CveCliente As Integer = -1, Optional CveCompra As Integer = -1, Optional CveProveedor As Integer = -1) As Boolean
-        If Not UsuarioActual.CveEmpresa.Contiene(119, 172, 174) Then Return True
+        If Not UsuarioActual.CveEmpresa.Contiene(119, 172, 174, 189) Then Return True
 
         Dim ErrorRegistrar As Boolean = False
         Dim tdt As DataTable = VerificacionFluctuacion(TipoFluctuacion, FechaUltimoDiaMes)

Compras/Compras.aspx.vb

@@ -9803,7 +9803,7 @@ Partial Class Compras_Compras
                         respuesta = False 'La fecha de la compra esta por fuera de lo permitido mes actual o mes anterior
 
                         If FechaCompra.Month > MesReembolsoInt Then
-                            Alert($"La fecha de la compra que se quiere registrar esta adelantada al mes de la comprobación (Reembolso {TxtRembolsoNumero.Text} ,Fecha comprobación {FechaReembolso.ToString("dd/MM/yyyy")}).", TipoMensaje.MsgAdvertencia)
+                            Alert($"La fecha de la compra que se quiere registrar esta adelantada al mes de la comprobación (Reembolso {TxtRembolsoNumero.Text}  Personal: {DdlPersonal.SelectedItem.Text}  ,Fecha comprobación {FechaReembolso.ToString("dd/MM/yyyy")}).", TipoMensaje.MsgAdvertencia)
                         Else
                             Alert($"La fecha de la compra que se quiere registrar es anterior al mes permitido por la comprobación (Reembolso {TxtRembolsoNumero.Text}, Fecha comprobación {FechaReembolso.ToString("dd/MM/yyyy")}).", TipoMensaje.MsgAdvertencia)
                         End If

Contabilidad/RepIVA.aspx.cs

@@ -391,8 +391,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
                 for (int k = firstColumnIndex2; k <= lastColumnIndex2; k++)
                 {
                     if (k > 0)
-                    {
+                    {                       
-                        bool flag = true;
                         switch (NombreHoja)
                         {
                             case "IVA Trasladado":

Export/ExpDetalle.aspx

@@ -5,8 +5,10 @@
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
-    Exportación:
+    <span>
-    <asp:Label runat="server" Text="Exportación" ID="LblExp"></asp:Label>
+    <asp:Label runat="server" ID="LblTipoOperacion"></asp:Label>
+    <asp:Label runat="server" ID="LblCveExportacion"></asp:Label>
+</span>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
     <li id="liImprimir" runat="server">

Export/ExpDetalle.aspx.cs

@@ -56,16 +56,13 @@ public partial class Export_ExpDetalle : ClsPaginas
 
             LblTipoExp.InnerText = EsImportacion ? "Tipo Importación:" : "Tipo Exportación:";
 
-            if (EsImportacion)
+            // Asigna el texto descriptivo
-            {
+            LblTipoOperacion.Text = EsImportacion ? "Importación: " : "Exportación: ";
-                LblExp.Text = "Importaciones";
-            }
-            else
-            {
-                LblExp.Text = "Exportación";
-            }
 
+            // Asigna el número de clave
             CveExportacion = !string.IsNullOrEmpty(Request["CveExportacion"]) ? Request["CveExportacion"].ToEntero() : -1;
+            LblCveExportacion.Text = CveExportacion > 0 ? CveExportacion.ToString() : "";
+
             InicializarValores();
             CargaDatos();
         }
@@ -152,7 +149,7 @@ public partial class Export_ExpDetalle : ClsPaginas
                 DTExportaciones = Exportaciones.DtResultados;
                 if (DTExportaciones.Rows.Count > 0)
                 {
-                    LblExp.Text = DTExportaciones.FiltroPrimeroValor("CveExportacion");
+                    LblCveExportacion.Text = DTExportaciones.FiltroPrimeroValor("CveExportacion");
 
                     DdlSubProyecto.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveSubProyecto");
 
@@ -1031,7 +1028,9 @@ public partial class Export_ExpDetalle : ClsPaginas
         int CveEmpresa = UsuarioActual.CveEmpresa;
         DataTable DTExportaciones = new DataTable();
         ClsExportaciones Exportaciones = new ClsExportaciones();
-        if (Exportaciones.GetExportacion(CveExportacion, CveEmpresa)) 
+
+        bool EsExportacion = !EsImportacion;
+        if (Exportaciones.GetExportacion(CveExportacion, CveEmpresa, EsExportacion)) 
         {
             DTExportaciones = Exportaciones.DtResultados;
             if (DTExportaciones.Rows.Count > 0)
@@ -1040,9 +1039,12 @@ public partial class Export_ExpDetalle : ClsPaginas
                 string ClienteExportador = DTExportaciones.FiltroPrimeroValor("ClienteExportador");
                 string DirExportador = DTExportaciones.FiltroPrimeroValor("DirExportador");
                 string RFCExp = DTExportaciones.FiltroPrimeroValor("RFCExp");
+                string PPSExp = DTExportaciones.FiltroPrimeroValor("PPSExp");
+                string IMMEXexp = DTExportaciones.FiltroPrimeroValor("IMMEXexp");
                 string ClienteImportador = DTExportaciones.FiltroPrimeroValor("ClienteImportador");
                 string DirImportador = DTExportaciones.FiltroPrimeroValor("DirImportador");
                 string RFCImp = DTExportaciones.FiltroPrimeroValor("RFCImp");
+                string PPSImp = DTExportaciones.FiltroPrimeroValor("PPSImp");
                 string IMMEXimp = DTExportaciones.FiltroPrimeroValor("IMMEXimp");
                 string NumFactura = DTExportaciones.FiltroPrimeroValor("SerieFolio");
                 string ClaveSATPedimento = DTExportaciones.FiltroPrimeroValor("ClaveSATPedimento");
@@ -1072,6 +1074,7 @@ public partial class Export_ExpDetalle : ClsPaginas
                 string ClienteConsignatario = DTExportaciones.FiltroPrimeroValor("ClienteConsignatario");
                 string DirConsignatario = DTExportaciones.FiltroPrimeroValor("DirConsignatario");
                 string RFCCon = DTExportaciones.FiltroPrimeroValor("RFCCon");
+                string PPSCon = DTExportaciones.FiltroPrimeroValor("PPSCon");
                 string IMMEXcon = DTExportaciones.FiltroPrimeroValor("IMMEXcon");
 
                 decimal IncFletes = 0.00m;
@@ -1087,6 +1090,18 @@ public partial class Export_ExpDetalle : ClsPaginas
                 decimal TotalInc = 0.00m;
                 decimal TotalDec = 0.00m;
 
+                string Sellos = "";
+                for (int i = 1; i <= 3; i++)
+                {
+                    string sello = DTExportaciones.FiltroPrimeroValor($"Sello{i}");
+                    if (sello != "")
+                    {
+                        if(Sellos == "")
+                            Sellos += sello;
+                        else
+                            Sellos += $", {sello}";
+                    }
+                }
                 string DescContenedor = DTExportaciones.FiltroPrimeroValor("DescripcionContenedor");
                 string ContenedorPlaca = DTExportaciones.FiltroPrimeroValor("ContenedorPlaca");
                 string Proveedor = DTExportaciones.FiltroPrimeroValor("Proveedor");
@@ -1106,9 +1121,12 @@ public partial class Export_ExpDetalle : ClsPaginas
                 para.Add(new ReportParameter("ClienteExportador", ClienteExportador));
                 para.Add(new ReportParameter("DirExportador", DirExportador));
                 para.Add(new ReportParameter("RFCExp", RFCExp));
+                para.Add(new ReportParameter("PPSExp", PPSExp));
+                para.Add(new ReportParameter("IMMEXexp", IMMEXexp));
                 para.Add(new ReportParameter("ClienteImportador", ClienteImportador));
                 para.Add(new ReportParameter("DirImportador", DirImportador));
                 para.Add(new ReportParameter("RFCImp", RFCImp));
+                para.Add(new ReportParameter("PPSImp", PPSImp));
                 para.Add(new ReportParameter("IMMEXimp", IMMEXimp));
                 para.Add(new ReportParameter("NumFactura", NumFactura));
                 para.Add(new ReportParameter("ClaveSATPedimento", ClaveSATPedimento));
@@ -1122,6 +1140,7 @@ public partial class Export_ExpDetalle : ClsPaginas
                 para.Add(new ReportParameter("ClienteConsignatario", ClienteConsignatario));
                 para.Add(new ReportParameter("DirConsignatario", DirConsignatario));
                 para.Add(new ReportParameter("RFCCon", RFCCon));
+                para.Add(new ReportParameter("PPSCon", PPSCon));
                 para.Add(new ReportParameter("IMMEXcon", IMMEXcon));
 
                 ClsExportaciones Gastos = new ClsExportaciones();
@@ -1159,6 +1178,7 @@ public partial class Export_ExpDetalle : ClsPaginas
                 para.Add(new ReportParameter("DecOtros", DecOtros.ToString("#,###.####")));
                 para.Add(new ReportParameter("TotalDec", TotalDec.ToString("#,###.####")));
 
+                para.Add(new ReportParameter("Sellos", Sellos));
                 para.Add(new ReportParameter("DescContenedor", DescContenedor));
                 para.Add(new ReportParameter("ContenedorPlaca", ContenedorPlaca));
                 para.Add(new ReportParameter("Proveedor", Proveedor));
@@ -1227,14 +1247,24 @@ public partial class Export_ExpDetalle : ClsPaginas
                     }
                 }
 
-                string NombreArchivo = $"Exportacion_{CveExportacion}";
+                string NombreArchivo;
+                string Formato;
+
+                if (EsExportacion)
+                {
+                    NombreArchivo = $"Exportacion_{CveExportacion}";
+                    Formato = "FormatoExportacion.mrt";
+                }
+                else
+                {
+                    NombreArchivo = $"Importacion_{CveExportacion}";
+                    Formato = "FormatoImportacion.mrt";
+                }
                 string CveVenta = DTExportaciones.FiltroPrimeroValor("CveVenta"); ;
-                if (CveVenta != "" && CveVenta != "-1")
+                if (EsExportacion && CveVenta != "" && CveVenta != "-1")
                 {
                     NombreArchivo = NumFactura;
                 }
-
-                string Formato = "FormatoImportacion.mrt";
                 para.Add(new ReportParameter("Formato", "PDF"));
                 string Ruta = ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\{UsuarioActual.CveEmpresa}\Formatos\{Formato}";
 

Nomina/RepMovtosPermanentes.aspx

@@ -207,7 +207,7 @@
                             <asp:Label ID="lblAplicado" runat="server" Text='<%# Eval("MontoAplicado","{0:N2}")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Acumulado">
+                    <asp:TemplateField HeaderText="Acumulado" ItemStyle-HorizontalAlign="Right">
                         <ItemTemplate>
                             <asp:Label ID="lblsaldo" runat="server" Text='<%# Eval("Acumulado","{0:N2}")%>'> </asp:Label>
                         </ItemTemplate>

OC/RepOC.aspx.vb

@@ -402,15 +402,16 @@ Partial Class RepOC
                 Dim Cantidad As Integer = DtOC.COUNT("CveOrdenCompra")
                 Dim TotalPesos As Double = DtOC.SUM("Total", "CveMoneda = 1")
                 Dim TotalDolares As Double = DtOC.SUM("Total", "CveMoneda = 2")
-                Dim Total As Double = TotalPesos + (TotalDolares * GlobalTipoCambio)
+                'Dim Total As Double = TotalPesos + (TotalDolares * GlobalTipoCambio)
+                Dim TotalMN As Decimal = DtOC.AsEnumerable() _
+                    .Sum(Function(row) Math.Round(Convert.ToDecimal(row.Field(Of Decimal)("Total")) * Convert.ToDecimal(row.Field(Of Decimal)("TipoCambio")), 2))
 
-                MuestraIndicador(DivIndicadores, "green-haze", "fa fa-money", "Órdenes de Compra", Cantidad.ToString, "Cantidad", "$" + Total.FormatoNumero, "Total", "$" + TotalPesos.FormatoNumero, "Pesos", "$" + TotalDolares.FormatoNumero, "Dólares")
+
+                MuestraIndicador(DivIndicadores, "green-haze", "fa fa-money", "Órdenes de Compra", Cantidad.ToString, "Cantidad", "$" + TotalMN.FormatoNumero, "Total", "$" + TotalPesos.FormatoNumero, "Pesos", "$" + TotalDolares.FormatoNumero, "Dólares")
                 UPPIndicador.Update()
 
-
                 DivIndicadoresCompradoRecibido.Visible = True
                 DivIndicadoresCompradoRecibido.InnerHtml = String.Empty
-
                 Dim Recibidos As Decimal = DtOC.SUM("Comprado")
                 Dim Comprados As Decimal = DtOC.SUM("Recibido")
 

Ventas/ProductosServicios.aspx

@@ -286,7 +286,7 @@
                                             <i></i>
                                         </div>
 
-                                        <div class="row" runat="server" visible="false">
+                                        <div class="row" runat="server" visible="false" id="divPSExtranjero">
                                             <div class="col-md-12">
                                                 <div class="form-group form-md-line-input input-iconright">
                                                     <asp:TextBox ID="TxtPSExtranjero" TextMode="MultiLine" Rows="2" CssClass="form-control" runat="server" MaxLength="846"></asp:TextBox>

Ventas/ProductosServicios.aspx.vb

@@ -414,6 +414,10 @@ Partial Class ProductosyServicios
             divPrecio.Visible = True
         End If
 
+        If UsuarioActual.CveRol = 1 Then
+            divPSExtranjero.Visible = True
+        End If
+
         If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then '' empresa deduce IEPS
             divIEPS.Visible = True
         End If