Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/ClsCompras.vb

@@ -3074,39 +3074,6 @@ Public Class ClsCompras
         Return Retorno
     End Function
 
-    Public Function GetFletesCompras(CveFlete As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Comp_FletesComprasGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al querer obtener las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-        Return Retorno
-    End Function
-
-    Public Function AddFletesCompras(CveFlete As Integer, Optional CveCompra As Integer = -1, Optional CveOC As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Comp_FletesComprasAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
-            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
-            .Add("@CveOC", SqlDbType.Int).Value = CveOC
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al querer agregar las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-        Return Retorno
-    End Function
-
 #Region "REPORTE PUE SIN PAGO"
 
     Public Function GetPUESinPago(FI As DateTime, FF As DateTime, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean

App_Code/ClsInventarios.vb

@@ -4543,6 +4543,31 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
+    Public Function GetFletesRep(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1,
+                                 Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha,
+                                 Optional FechaFin As Date = MaxFecha, Optional TipoGasto As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_FletesRep")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Folio", SqlDbType.VarChar).Value = Folio
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveOC", SqlDbType.Int).Value = CveOC
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@TipoGasto", SqlDbType.Int).Value = TipoGasto
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de flete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
     Public Function RecepcionAlmacenFleteGet(CveFlete As Integer, CveOrdenCompra As Integer, CveCompra As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_RecepcionAlmacenFleteGet")
@@ -4563,6 +4588,65 @@ Public Class ClsInventarios
     End Function
 #End Region
 
+#Region "   FLETES COMPRAS   "
+
+    Public Function GetFletesCompras(CveFlete As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_FletesComprasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al querer obtener las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function AddFletesCompras(CveFlete As Integer, Optional CveCompra As Integer = -1, Optional CveOC As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_FletesComprasAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveOC", SqlDbType.Int).Value = CveOC
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al querer agregar las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function PendientesAlmacenFletesComprasGet(CveFlete As Integer, CveProveedor As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Inv_PendientesAlmacenFletesComprasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las Importaciones pendientes de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+#End Region
+
+
 #Region "   FLETES DETALLE   "
     Public Function AddFleteDetalle(CveFlete As Integer, CveCompra As Integer) As Boolean
         Dim Retorno As Boolean = False

Compras/Compras.aspx.vb

@@ -1743,8 +1743,26 @@ Partial Class Compras_Compras
                     Select Case TipoComprobante
                         Case "ingreso" : DdlTipoComprobante.SelectedValue = "Fac" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
                         Case "egreso" : DdlTipoComprobante.SelectedValue = "NC" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) : ChkAplicaNotaCredito.Enabled = False
-                        Case "I" : DdlTipoComprobante.SelectedValue = "Fac" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
+                        Case "I"
-                        Case "E" : DdlTipoComprobante.SelectedValue = "NC" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) : ChkAplicaNotaCredito.Enabled = False
+                            DdlTipoComprobante.SelectedValue = "Fac"
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC"))
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
+                            DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6"))
+                            DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11"))
+                        Case "E"
+                            DdlTipoComprobante.SelectedValue = "NC"
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac"))
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                            ChkAplicaNotaCredito.Enabled = False
+
+
+
+                            DdlTipoCompra.Items.Clear()
+                            DdlTipoCompra.Items.Add(New ListItem("Seleccione", "-1"))
+                            DdlTipoCompra.Items.Add(New ListItem("NC Con Productos", "6"))
+                            DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11"))
+
+
                     End Select
 
                     'DIV ALIAS
@@ -4543,19 +4561,13 @@ Partial Class Compras_Compras
                                         Case 237
                                             Select Case FleteImportacionOpcion
                                                 Case 1
-                                                    Dim Dr As DataRow = Nothing
+                                                    If Not ObjInventario.AddFletesCompras(CveFlete, CveCompra) Then
-                                                    If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, CveFlete) Then
-                                                        If ObjInventario.DtResultados.Rows.Count > 0 Then
-                                                            Dr = ObjInventario.DtResultados.Rows(0)
-                                                        End If
-                                                    End If
-                                                    If Dr IsNot Nothing Then
-                                                        If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then
-                                                            ErrorOC = True
-                                                        End If
-                                                    Else
                                                         ErrorOC = True
                                                     End If
+                                                    ''actualiza la compra para que no se surta en almacen. sino por el flete o importación
+                                                    'If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+                                                    '    ErrorOC = True
+                                                    'End If
                                                 Case 2
                                                     If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then
                                                         ErrorOC = True
@@ -10144,7 +10156,7 @@ Partial Class Compras_Compras
                     '        ErrorPrepoliza = True
                     '    End If
                     Case 6
-                        Dim CveProveedorConcepto As Integer = 0, CveAcreedor As Integer = 0, CveIE As Integer = 0, CveColectiva As Integer = 0, CveCreditoDetalle As Integer = 0
+                        Dim CveProveedorConcepto As Integer = 0, CveIE As Integer = 0, CveCreditoDetalle As Integer = 0
                         Dim ConceptoPersonal As String = "", Concepto As String = ""
 
                         If Not ObjConta.GetPrePolizasDetalle(CvePrePoliza) Then
@@ -10152,9 +10164,7 @@ Partial Class Compras_Compras
                         Else
                             If ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (6,68,49,205,176)").Rows.Count > 0 Then
                                 CveProveedorConcepto = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveProveedor").ToString.ToEntero
-                                CveAcreedor = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveAcreedor").ToString.ToEntero
                                 CveIE = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveIE").ToString.ToEntero
-                                CveColectiva = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveColectiva").ToString.ToEntero
                                 CveCreditoDetalle = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveCreditoDetalle").ToString.ToEntero
                                 Concepto = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("Concepto").ToString
                             End If
@@ -10195,7 +10205,7 @@ Partial Class Compras_Compras
                                 End If
 
                                 If importeMovimiento <> 0 Then
-                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then
                                         ErrorPrepoliza = True
                                     End If
                                 End If
@@ -10242,7 +10252,7 @@ Partial Class Compras_Compras
                                             CveCuenta = 0
                                         End If
 
-                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                             ErrorPrepoliza = True
                                         End If
 
@@ -10358,7 +10368,7 @@ Partial Class Compras_Compras
                                 'AGREGA MOVIMIENTO
                                 If importeMovimiento <> 0 Then
                                     Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
-                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then
                                         ErrorPrepoliza = True
                                     End If
                                 End If
@@ -10476,6 +10486,10 @@ Partial Class Compras_Compras
         _TipoComprobante = ValorXML(nodo, "tipoDeComprobante")
         TipoCambio = ValorXML(nodo, "TipoCambio", "1").ToDouble
 
+
+
+
+
         If Version = "3.3" Then
             Dim drm As DataRow = GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago")))
             If drm IsNot Nothing Then
@@ -16333,7 +16347,10 @@ Partial Class Compras_Compras
     End Sub
 
     Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+
         If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
+
             If DdlTipoComprobante.SelectedValue = "NC" Then
                 DivReembolso.Visible = False
                 RBLPago.Items(2).Enabled = False
@@ -16359,7 +16376,9 @@ Partial Class Compras_Compras
 
 
         End If
+
         UPCondicionesPago.Update()
+
     End Sub
 
 
@@ -19247,22 +19266,13 @@ Partial Class Compras_Compras
                 Case 237
                     Select Case FleteImportacionOpcion
                         Case 1
-                            Dim Dr As DataRow = Nothing
+                            If Not ObjInventario.AddFletescompras(CveFlete, CveCompra) Then
-                            If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, CveFlete) Then
+                                ErrorTrans = True
-                                If ObjInventario.DtResultados.Rows.Count > 0 Then
-                                    Dr = ObjInventario.DtResultados.Rows(0)
-                                End If
-                            End If
-                            If Dr IsNot Nothing Then
-                                If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then
-                                    ErrorTrans = True
-                                End If
-                                If Not ObjCompras.AddFletesCompras(CveFlete, CveCompra:=CveCompra) Then
-                                    ErrorTrans = True
-                                End If
-                            Else
-                                    ErrorTrans = True
                             End If
+                            '''actualiza la compra para que no se surta en almacen. sino por el flete o importación
+                            ''If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+                            ''    ErrorTrans = True
+                            ''End If
                         Case 2
                             If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then
                                 ErrorTrans = True

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -13,7 +13,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
     End Sub
 
     Private Sub CargaCombos()
-        Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,14)")
+        Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,14,16)")
 
         DdlAlmacen.DataSource = DtAlmacenes
         DdlAlmacen.DataBind()
@@ -121,7 +121,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
                     For Each Row As DataRow In resultado.Rows
                         Dim CvePS = Row("CvePS").ToString().ToEntero()
-                        'Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
+                        Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
                         Dim PU As Decimal = Row("PUOriginal").ToString().ToDecimal()
                         Dim CveUM As Integer = Row("CveUM").ToString().ToEntero()
                         Dim CveSeccionAlmacen As Integer = Lista(Row("CvePS").ToString().ToEntero()) 'GvD.Rows(ind).FCDropDownList("DDlS").SelectedValue.ToEntero ' IfNull(Row("CveSeccionAlmacen"), "-1").ToString().ToEntero()

Inventarios/Fletes.aspx

@@ -120,7 +120,7 @@
                         <div class="portlet-title">
                             <div class="caption font-green">
                                 <i class="icon-pin font-green"></i>
-                                <span class="caption-subject bold uppercase">Compras</span>
+                                <span class="caption-subject bold uppercase">COMPRAS DE PRODUCTOS</span>
                             </div>
                             <div class="tools">
                                 <a href="javascript:;" class="collapse"></a>
@@ -133,7 +133,7 @@
                                         <Columns>
                                             <asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-Width="30%" />
                                             <asp:HyperLinkField HeaderText="Serie-Folio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataTextField="SerieFolio" ItemStyle-Width="10%" Target="_blank" />
-                                            <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
+                                            <asp:BoundField HeaderText="Total Productos" DataField="Total" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
                                             <asp:BoundField HeaderText="Moneda" ItemStyle-HorizontalAlign="Center" DataField="Abreviatura" ItemStyle-Width="10%" />
                                             <asp:BoundField HeaderText="TC" ItemStyle-HorizontalAlign="Center" DataField="TipoCambio" ItemStyle-Width="5%" />
                                             <%--<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" >
@@ -162,7 +162,7 @@
                         <div class="portlet-title">
                             <div class="caption font-green">
                                 <i class="icon-pin font-green"></i>
-                                <span class="caption-subject bold uppercase">Compras Gasto</span>
+                                <span class="caption-subject bold uppercase">Costo Indirecto</span>
                             </div>
                             <div class="tools">
                                 <a href="javascript:;" class="collapse"></a>
@@ -185,13 +185,13 @@
                                             <asp:BoundField HeaderText="Tipo" DataField="TipoDocto" DataFormatString="{0:d}" ItemStyle-Width="10%" />
                                             <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="10%" />
                                             <asp:BoundField HeaderText="Descripción" DataField="Descripcion" ItemStyle-Width="20%" />
-                                            <asp:BoundField HeaderText="Importe" DataField="SubTotal" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
+                                            <asp:BoundField HeaderText="Total Indirecto" DataField="SubTotal" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
                                             <asp:BoundField HeaderText="Moneda" DataField="Abreviatura" ItemStyle-Width="10%" />
-                                            <asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
+                                            <%--<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
                                                 <ItemTemplate>
                                                     <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
                                                 </ItemTemplate>
-                                            </asp:TemplateField>
+                                            </asp:TemplateField>--%>
                                         </Columns>
                                     </asp:GridView>
                                 </div>

Inventarios/Fletes.aspx.vb

@@ -99,7 +99,11 @@ Partial Class Compras_Fletes
                 Else
                     Alert("Ocurrió un error al cargar el detalle del flete", TipoMensaje.MsgError)
                 End If
-                CargarComprasRelacionadas()
+
+                If ObjInv.GetFletesCompras(CveFlete, UsuarioActual.CveEmpresa) Then
+                    GvComprasVinculadas.DataSource = ObjInv.DtResultados
+                End If
+
             Else
                 Alert("No se encontró el flete", TipoMensaje.MsgAdvertencia)
             End If
@@ -109,6 +113,7 @@ Partial Class Compras_Fletes
 
         ObjInv.Dispose()
         CargaGrid()
+        GvComprasVinculadas.DataBind()
         UpRegistro.Update()
 
     End Sub
@@ -428,14 +433,5 @@ Partial Class Compras_Fletes
 
     End Sub
 
-    Private Sub CargarComprasRelacionadas()
-        Dim ObjCompras As New ClsCompras
-        If ObjCompras.GetFletesCompras(CveFlete, UsuarioActual.CveEmpresa) Then
-            GvComprasVinculadas.DataSource = ObjCompras.DtResultados
-        End If
-        ObjCompras.Dispose()
-        GvComprasVinculadas.DataBind()
-    End Sub
-
 
 End Class

Inventarios/RecepcionAlmacen.aspx

@@ -79,7 +79,13 @@
                             <label runat="server" visible="false" id="LblFletes" class="col-md-1 truncate" style="text-align: right;">Folio:</label>
                             <div runat="server" visible="false" id="DivFletes" class="col-md-2" style="display: inline">
                                 <div style="width: 100px; float: left;">
-                                    <asp:DropDownList ID="DdlFletes" runat="server" DataValueField="CveFlete" DataTextField="FolioDescripcion" CssClass="select2me" Style="width: 100px !important;"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlFletes" runat="server" DataValueField="CveFlete" DataTextField="FolioDescripcion" OnSelectedIndexChanged="DdlFletes_SelectedIndexChanged" AutoPostBack="true" CssClass="select2me" Style="width: 100px !important;"></asp:DropDownList>
+                                </div>
+                            </div>
+                            <label runat="server" visible="false" id="LblIndirectoFactura" class="col-md-1 truncate" style="text-align: right;">Factura:</label>
+                            <div runat="server" visible="false" id="DivDdlIndirectoFactura" class="col-md-2" style="display: inline">
+                                <div style="width: 100px; float: left;">
+                                    <asp:DropDownList ID="DdlIndirectoFactura" runat="server" DataValueField="CveCompra" DataTextField="SerieFolio" CssClass="select2me" Style="width: 100px !important;"></asp:DropDownList>
                                 </div>
                             </div>
                         </div>

Inventarios/RecepcionAlmacen.aspx.vb

@@ -613,6 +613,8 @@ Partial Class Inventarios_RecepcionAlmacen
             Case 4
                 LblFletes.Visible = True
                 DivFletes.Visible = True
+                LblIndirectoFactura.Visible = True
+                DivDdlIndirectoFactura.Visible = True
         End Select
 
         CargaFoliosRecepcion()
@@ -711,6 +713,30 @@ Partial Class Inventarios_RecepcionAlmacen
         DdlFletes.DataBind()
         DdlFletes.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
+
+    Protected Sub DdlFletes_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaFletesFactura()
+    End Sub
+    Private Sub CargaFletesFactura()
+
+        DdlIndirectoFactura.Items.Clear()
+
+        Dim ObjInventarios As New ClsInventarios
+        If DdlFletes.SelectedValue.ToEntero > 0 Then
+            If ObjInventarios.GetFletesCompras(DdlFletes.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+                DdlIndirectoFactura.DataSource = ObjInventarios.DtResultados
+            Else
+                Alert("Ocurrió un error al obtener las Compras pendientes de recibir del proveedor. Por favor vuelva a intentar", TipoMensaje.MsgError)
+            End If
+        End If
+        ObjInventarios.Dispose()
+
+        DdlIndirectoFactura.DataBind()
+        DdlIndirectoFactura.Items.Insert(0, New ListItem("Todos", "-1"))
+
+    End Sub
+
+
 #End Region
 
 #Region "  CARGA POR SURTIR - GV  "
@@ -1119,7 +1145,7 @@ Partial Class Inventarios_RecepcionAlmacen
             If ObjInventario.DtResultados.Rows.Count > 0 Then
                 CveFleteSurtir = pCveImportacion
                 CveFleteOrdenCompra = ObjInventario.DtResultados.Rows(0)("CveOC").ToString.ToEntero
-                CveFleteCompra = ObjInventario.DtResultados.Rows(0)("CveCompra").ToString.ToEntero
+                CveFleteCompra = DdlIndirectoFactura.SelectedValue.ToEntero 'ObjInventario.DtResultados.Rows(0)("CveCompra").ToString.ToEntero
                 CveImportacionCompra = CveFleteCompra ' se iguala para que al guardar el movimiento, se toma esta variable
                 LbProveedor.Text = ObjInventario.DtResultados.Rows(0)("RazonSocial").ToString
                 HLFolio.Text = ObjInventario.DtResultados.Rows(0)("Folio").ToString

Inventarios/RepFletes.aspx

@@ -17,9 +17,9 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
     <asp:UpdatePanel runat="server">
         <ContentTemplate>
-            <li>
+            <%--<li>
                 <asp:LinkButton ID="ImgAdd" PostBackUrl="/Inventarios/Fletes.aspx" CommandArgument="-1" runat="server"><i class="fa fa-plus-circle"></i> Registrar Nuevo Flete</asp:LinkButton>
-            </li>
+            </li>--%>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
@@ -42,12 +42,12 @@
                                 <asp:TextBox runat="server" Width="80px" ID="TxtFolio"></asp:TextBox>
                             </div>
                             <div class="col-md-1" style="max-width: 100px;">Proveedor:</div>
-                            <div class="col-md-3">
+                            <div class="col-sm-2">
                                 <asp:DropDownList runat="server" ID="DdlProveedor" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList>
                             </div>
-                            <div class="col-md-1" style="max-width: 90px">Fecha Inicio:</div>
+                            <div class="col-md-1" style="max-width: 120px">Fecha Inicio:</div>
-                            <div class="col-md-2">
+                            <div class="col-md-1">
-                                <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy" style="margin-bottom: -15px;">
+                                <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding:unset" >
                                     <asp:TextBox ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Onblur="Recalculafechapago();" ValidationGroup="GrpGuardar" Width="80px" ClientIDMode="Static"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton runat="server" ID="ImgFechaI" class="btn default"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
@@ -58,9 +58,9 @@
                                     <ajax:ValidatorCalloutExtender ID="VCOFechaI" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
                                 </div>
                             </div>
-                            <div class="col-md-1" style="max-width: 70px">Fecha Fin:</div>
+                            <div class="col-md-1" style="max-width: 120px">Fecha Fin:</div>
-                            <div class="col-md-2">
+                            <div class="col-md-1">
-                                <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy" style="margin-bottom: -15px;">
+                                <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding:unset" >
                                     <asp:TextBox ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Onblur="Recalculafechapago();" ValidationGroup="GrpGuardar" Width="80px" ClientIDMode="Static"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton runat="server" ID="ImgFechaF" class="btn default"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
@@ -71,6 +71,14 @@
                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                                 </div>
                             </div>
+                            <div class="col-md-1" style="max-width: 70px;">Opción:</div>
+                            <div class="col-sm-2">
+                                <asp:DropDownList runat="server" ID="DdlTipoGasto" Width="100%" CssClass="select2me">
+                                    <asp:ListItem Text="Todo" Value="-1" />
+                                    <asp:ListItem Text="Costo Indirectos multiples facturas" Value="1" Selected="True" />
+                                    <asp:ListItem Text="Costo Indirecto en misma factura" Value="2" />
+                                </asp:DropDownList>
+                            </div>
                         </div>
                     </div>
                 </div>
@@ -81,8 +89,8 @@
     <table class="table  Widthall ">
         <tr>
             <td style="font-size: 14px; width: 20%; border-right: 3px solid white;"></td>
-            <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 35%; border-right: 3px solid white;">Facturas de Costo Indirecto</td>
+            <%--<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 35%; border-right: 3px solid white;">Facturas de Costo Indirecto</td>
-            <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Documento (OC/Compra)</td>
+            <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Documento (OC/Compra)</td>--%>
         </tr>
     </table>
     <a target="_blank" href="#"></a>
@@ -91,17 +99,33 @@
         <div class="col-md-12">
             <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
-                    <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay fletes" ToolTip="Fletes" OnRowDataBound="GvDatos_RowDataBound" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
+                    <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay fletes" ToolTip="Fletes" OnRowDataBound="GvDatos_RowDataBound" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None" DataKeyNames="CveFlete">
                         <Columns>
-                            <asp:HyperLinkField HeaderText="Proveedor" Target="_blank" DataTextField="RazonSocial" ItemStyle-Width="20%" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataNavigateUrlFields="CveProveedor" />
+                            <asp:TemplateField HeaderText="Folio">
-                            <asp:HyperLinkField HeaderText="Folio" Target="_blank" ItemStyle-HorizontalAlign="Center" DataTextField="Folio" ItemStyle-Width="5%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
+                                <ItemTemplate>
-                            <asp:HyperLinkField HeaderText="Fecha" Target="_blank" DataTextField="Fecha" ItemStyle-HorizontalAlign="Center" DataTextFormatString="{0:d}" ItemStyle-Width="10%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
+                                    <asp:HyperLink ID="HlkFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
-                            <asp:HyperLinkField HeaderText="Descripción" Target="_blank" DataTextField="Descripcion" ItemStyle-Width="20%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
+                                </ItemTemplate>
-                            
+                            </asp:TemplateField>
-                            <asp:BoundField HeaderText="Folio" DataField="FolioDocumento" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
+                            <asp:TemplateField HeaderText="Fecha">
+                                <ItemTemplate>
+                                    <asp:HyperLink ID="HlkFecha" runat="server" Text='<%# Eval("Fecha", "{0:dd/M/yyyy}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Descripción">
+                                <ItemTemplate>
+                                    <asp:HyperLink ID="HlkDescripcion" runat="server" Text='<%# Eval("Descripcion")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <%--<asp:HyperLinkField HeaderText="Folio" ID="HlkFolio" runat="server" Target="_blank" ItemStyle-HorizontalAlign="Center" DataTextField="Folio" ItemStyle-Width="5%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
+                            <asp:HyperLinkField HeaderText="Fecha" ID="HlkFecha" runat="server" Target="_blank" DataTextField="Fecha" ItemStyle-HorizontalAlign="Center" DataTextFormatString="{0:d}" ItemStyle-Width="10%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
+                            <asp:HyperLinkField HeaderText="Descripción" ID="HlkDescripcion" runat="server" Target="_blank" DataTextField="Descripcion" ItemStyle-Width="20%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />--%>
+                            <asp:BoundField HeaderText="Total Productos" DataField="Importe" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right" />
+                            <asp:BoundField HeaderText="Total Indirectos" DataField="Costo" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right" />
+                            <asp:BoundField HeaderText="Total" DataField="General" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right" />
+                            <%--<asp:BoundField HeaderText="Folio" DataField="FolioDocumento" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
                             <asp:BoundField HeaderText="Fecha"  DataField="FechaDocumento" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" ItemStyle-Width="10%" />
                             <asp:BoundField HeaderText="Descripción" DataField="DescripcionDocumento" ItemStyle-Width="20%" />
-                            <asp:BoundField HeaderText="Importe" DataField="TotalDocumento" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}"  ItemStyle-Width="5%" />
+                            <asp:BoundField HeaderText="Importe" DataField="TotalDocumento" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}"  ItemStyle-Width="5%" />--%>
                         </Columns>
                     </asp:GridView>
                 </ContentTemplate>

Inventarios/RepFletes.aspx.vb

@@ -40,7 +40,8 @@ Partial Class Compras_RepFletes
     Private Sub CargaDatos()
         Dim ObjInv As New ClsInventarios
         If TxtFolio.Text <> "" Then TxtFechaI.Text = MinFecha.ToShortDateString : TxtFechaF.Text = MaxFecha.ToShortDateString
-        If ObjInv.GetFletes(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedor.SelectedValue.ToString.ToEntero, -1, -1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate) Then
+        If ObjInv.GetFletesRep(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedor.SelectedValue.ToString.ToEntero, -1, -1,
+                               TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, TipoGasto:=DdlTipoGasto.SelectedValue.ToEntero()) Then
             DtFletes = ObjInv.DtResultados
         End If
         ObjInv.Dispose()
@@ -55,13 +56,19 @@ Partial Class Compras_RepFletes
     Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            Dim Modalidad = e.Row.DBCampo("Modalidad").ToString.ToEntero
+            Dim TipoCon As Integer = e.Row.DBCampo("TipoCon").ToString.ToEntero
-            Dim Liga = If(Modalidad = 1, "/OC/OC.aspx?OC", "/Compras/Compras.aspx?CveCompra")
+            Dim CveFlete As Integer = e.Row.DBCampo("CveFlete").ToEntero()
+            Dim Url As String = If(TipoCon = -1, String.Format("/Compras/Compras.aspx?CveCompra={0}", CveFlete), String.Format("/Inventarios/Fletes.aspx?CveFlete={0}", CveFlete))
+            e.Row.FCHyperLink("HlkFolio").NavigateUrl = Url
+            e.Row.FCHyperLink("HlkFecha").NavigateUrl = Url
+            e.Row.FCHyperLink("HlkDescripcion").NavigateUrl = Url
+            'Dim Modalidad = e.Row.DBCampo("Modalidad").ToString.ToEntero
+            'Dim Liga = If(Modalidad = 1, "/OC/OC.aspx?OC", "/Compras/Compras.aspx?CveCompra")
 
-            e.Row.Cells(4).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{If(Modalidad = 1, "OC: ", "Compra: ")}{e.Row.DBCampo("FolioDocumento")}</a>"
+            'e.Row.Cells(4).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{If(Modalidad = 1, "OC: ", "Compra: ")}{e.Row.DBCampo("FolioDocumento")}</a>"
-            e.Row.Cells(5).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString}</a>"
+            'e.Row.Cells(5).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString}</a>"
-            e.Row.Cells(6).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("DescripcionDocumento")}</a>"
+            'e.Row.Cells(6).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("DescripcionDocumento")}</a>"
-            e.Row.Cells(7).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("TotalDocumento")}</a>"
+            'e.Row.Cells(7).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("TotalDocumento")}</a>"
 
         End If
     End Sub

TareasProgramadas/Tareas119.ashx

@@ -94,14 +94,14 @@ public class TareasJam : IHttpHandler
 
         //"ftp://us2.hostedftp.com/", "agrojam", "A12345678";
 
-        //string FTPServer = "ftp://127.0.0.1/";
+        string FTPServer = "ftp://127.0.0.1/";
-        //string TFPUsr = "Toor";
+        string TFPUsr = "Toor";
-        //string FTPPass = "agj-3500";
+        string FTPPass = "agj-3500";
 
 
-        string FTPServer = "ftp://us2.hostedftp.com";
+        //string FTPServer = "ftp://us2.hostedftp.com";
-        string TFPUsr = "agrojam";
+        //string TFPUsr = "agrojam";
-        string FTPPass = "A12345678";
+        //string FTPPass = "A12345678";
 
         bool ErrorProceso = false;
 
@@ -198,8 +198,8 @@ public class TareasJam : IHttpHandler
                 DTAlmacenes.AcceptChanges();
 
 
-                DataTable dtCloned =  DTVentas.Clone();
+                DataTable dtCloned = DTVentas.Clone();
-                dtCloned.Columns[3].DataType = typeof(string);
+                dtCloned.Columns[3].DataType = typeof(DateTime);
 
                 foreach (DataRow row in DTVentas.Rows)
                 {
@@ -207,17 +207,17 @@ public class TareasJam : IHttpHandler
                 }
 
                 DTVentas = dtCloned;
-                foreach(DataRow dRow in DTVentas.Rows)
+                foreach (DataRow dRow in DTVentas.Rows)
                 {
-                    string tmpString = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd");
+                    DateTime tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd").ToDate();
-                    dRow[3] = tmpString;
+                    dRow[3] = tmpDate;
                 }
 
                 DTVentas.AcceptChanges();
 
 
-                dtCloned =  DTAlmacenes.Clone();
+                dtCloned = DTAlmacenes.Clone();
-                dtCloned.Columns[3].DataType = typeof(string);
+                dtCloned.Columns[3].DataType = typeof(DateTime);
 
                 foreach (DataRow row in DTAlmacenes.Rows)
                 {
@@ -225,10 +225,10 @@ public class TareasJam : IHttpHandler
                 }
 
                 DTAlmacenes = dtCloned;
-                foreach(DataRow dRow in DTAlmacenes.Rows)
+                foreach (DataRow dRow in DTAlmacenes.Rows)
                 {
-                    string tmpString = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd");
+                    DateTime tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd").ToDate();
-                    dRow[3] = tmpString;
+                    dRow[3] = tmpDate;
                 }
                 DTAlmacenes.AcceptChanges();
 
@@ -252,6 +252,16 @@ public class TareasJam : IHttpHandler
 
             SpreadsheetInfo.SetLicense(Extensiones.ModExtensiones.SerialGemBoxSpreadsheet());
 
+            var workbookAlmacenes = new ExcelFile();
+            var worksheetAlmacenes = workbookAlmacenes.Worksheets.Add("Almacenes");
+            worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions()
+            {
+                ColumnHeaders = true,
+                StartRow = 0
+            });               
+            worksheetAlmacenes.Columns[3].Style.NumberFormat = "yyyy/MM/dd";
+            workbookAlmacenes.Save(RutaAlmacenes);
+
             var workbookProductos = new ExcelFile();
             var worksheetProductos = workbookProductos.Worksheets.Add("Productos");
             worksheetProductos.InsertDataTable(DTProductos, new InsertDataTableOptions()
@@ -268,6 +278,7 @@ public class TareasJam : IHttpHandler
                 ColumnHeaders = true,
                 StartRow = 0
             });
+            worksheetVentas.Columns[3].Style.NumberFormat = "yyyy/MM/dd";
             workbookVentas.Save(RutaVentas);
 
 
@@ -281,14 +292,7 @@ public class TareasJam : IHttpHandler
             workbookClientes.Save(RutaClientes);
 
 
-            var workbookAlmacenes = new ExcelFile();
+        
-            var worksheetAlmacenes = workbookAlmacenes.Worksheets.Add("Almacenes");
-            worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions()
-            {
-                ColumnHeaders = true,
-                StartRow = 0
-            });
-            workbookAlmacenes.Save(RutaAlmacenes);
 
 
             var FInfoProductos = new FileInfo(RutaProductos);
@@ -434,8 +438,8 @@ public class TareasJam : IHttpHandler
 
 
             ClsSisMail Correo = new ClsSisMail();
-            string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx";
+           // string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx";
-            //string Para = "oscar.irigoyen@adssistemas.mx";
+            string Para = "oscar.irigoyen@adssistemas.mx";
             string Asunto = ErrorProceso ? $"Carga Layout Corteva  {DateTime.Now.ToString("yyyy-MM-dd")}" : $"Carga Layout Corteva Error {DateTime.Now.ToString("yyyy-MM-dd")}";
 
             Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo, Archivos:ListaArchivos);

Ventas/Clientes.aspx.vb

@@ -1197,14 +1197,13 @@ Partial Class Clientes
 
     End Sub
     Private Sub CargaSubProyectoss()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+
         DdlSubProyecto.DataBind()
 
-        'If UsuarioActual.CveSucursal = -1 Then
+
-        '    DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        'Else
-        '    DdlSubProyecto.SelectedValue = UsuarioActual.CveSucursal.ToString
-        'End If
     End Sub
     Private Sub CargaMetodosPago()
         DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ")