diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index eea2fc4d8..ad35ebb1e 100644 --- a/App_Code/ClsCompras.vb +++ b/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 diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 95962b005..4f57d07db 100644 --- a/App_Code/ClsInventarios.vb +++ b/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 diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index 11a4ee92f..2aedb7722 100644 Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index f5e9f3ecb..e37fd5697 100644 --- a/Compras/Compras.aspx.vb +++ b/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 "E" : 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")) + 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 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 + If Not ObjInventario.AddFletesCompras(CveFlete, CveCompra) Then 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 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 - ErrorTrans = True - End If - If Not ObjCompras.AddFletesCompras(CveFlete, CveCompra:=CveCompra) Then - ErrorTrans = True - End If - Else - ErrorTrans = True + If Not ObjInventario.AddFletescompras(CveFlete, CveCompra) Then + 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 diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb index 8a46beef4..171409d9b 100644 --- a/Inventarios/AjustesSeccionAlmacen.aspx.vb +++ b/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() diff --git a/Inventarios/Fletes.aspx b/Inventarios/Fletes.aspx index 5461ff213..bcd2bac64 100644 --- a/Inventarios/Fletes.aspx +++ b/Inventarios/Fletes.aspx @@ -120,7 +120,7 @@
- Compras + COMPRAS DE PRODUCTOS
@@ -133,7 +133,7 @@ - + <%-- @@ -162,7 +162,7 @@
- Compras Gasto + Costo Indirecto
@@ -185,13 +185,13 @@ - + - + <%-- - + --%>
diff --git a/Inventarios/Fletes.aspx.vb b/Inventarios/Fletes.aspx.vb index 27c2b1c77..31217cb1a 100644 --- a/Inventarios/Fletes.aspx.vb +++ b/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 diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx index e0791c45f..44dbb2eb4 100644 --- a/Inventarios/RecepcionAlmacen.aspx +++ b/Inventarios/RecepcionAlmacen.aspx @@ -79,7 +79,13 @@
- + +
+
+ +
+
+
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 2872e1c6c..53d9e0acb 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/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 diff --git a/Inventarios/RepFletes.aspx b/Inventarios/RepFletes.aspx index 0c39960a0..16f6d5ba8 100644 --- a/Inventarios/RepFletes.aspx +++ b/Inventarios/RepFletes.aspx @@ -17,9 +17,9 @@ -
  • + <%--
  • Registrar Nuevo Flete -
    • + --%>     @@ -42,12 +42,12 @@
    Proveedor:
    -
    +
    -
    Fecha Inicio:
    -
    -
    +
    Fecha Inicio:
    +
    +
    @@ -58,9 +58,9 @@
    -
    Fecha Fin:
    -
    -
    +
    Fecha Fin:
    +
    +
    @@ -71,6 +71,14 @@
    +
    Opción:
    +
    + + + + + +
    @@ -81,8 +89,8 @@ - - + <%-- + --%>
    Facturas de Costo IndirectoDocumento (OC/Compra)Facturas de Costo IndirectoDocumento (OC/Compra)
    @@ -91,17 +99,33 @@
    - + - - - - - - + + + + + + + + + + + + + + + + <%-- + + --%> + + + + <%-- - + --%> diff --git a/Inventarios/RepFletes.aspx.vb b/Inventarios/RepFletes.aspx.vb index 3c4d2787d..92cbf419b 100644 --- a/Inventarios/RepFletes.aspx.vb +++ b/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 Liga = If(Modalidad = 1, "/OC/OC.aspx?OC", "/Compras/Compras.aspx?CveCompra") + Dim TipoCon As Integer = e.Row.DBCampo("TipoCon").ToString.ToEntero + 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 = $"{If(Modalidad = 1, "OC: ", "Compra: ")}{e.Row.DBCampo("FolioDocumento")}" - e.Row.Cells(5).Text = $"{e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString}" - e.Row.Cells(6).Text = $"{e.Row.DBCampo("DescripcionDocumento")}" - e.Row.Cells(7).Text = $"{e.Row.DBCampo("TotalDocumento")}" + 'e.Row.Cells(4).Text = $"{If(Modalidad = 1, "OC: ", "Compra: ")}{e.Row.DBCampo("FolioDocumento")}" + 'e.Row.Cells(5).Text = $"{e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString}" + 'e.Row.Cells(6).Text = $"{e.Row.DBCampo("DescripcionDocumento")}" + 'e.Row.Cells(7).Text = $"{e.Row.DBCampo("TotalDocumento")}" End If End Sub diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx index a123a8239..9617b6a33 100644 --- a/TareasProgramadas/Tareas119.ashx +++ b/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 TFPUsr = "Toor"; - //string FTPPass = "agj-3500"; + string FTPServer = "ftp://127.0.0.1/"; + string TFPUsr = "Toor"; + string FTPPass = "agj-3500"; - string FTPServer = "ftp://us2.hostedftp.com"; - string TFPUsr = "agrojam"; - string FTPPass = "A12345678"; + //string FTPServer = "ftp://us2.hostedftp.com"; + //string TFPUsr = "agrojam"; + //string FTPPass = "A12345678"; bool ErrorProceso = false; @@ -198,8 +198,8 @@ public class TareasJam : IHttpHandler DTAlmacenes.AcceptChanges(); - DataTable dtCloned = DTVentas.Clone(); - dtCloned.Columns[3].DataType = typeof(string); + DataTable dtCloned = DTVentas.Clone(); + 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"); - dRow[3] = tmpString; + DateTime tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd").ToDate(); + dRow[3] = tmpDate; } DTVentas.AcceptChanges(); - dtCloned = DTAlmacenes.Clone(); - dtCloned.Columns[3].DataType = typeof(string); + dtCloned = DTAlmacenes.Clone(); + 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"); - dRow[3] = tmpString; + DateTime tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd").ToDate(); + 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 = "oscar.irigoyen@adssistemas.mx"; + // string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;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); diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 1e3cdac65..4601aba6d 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1196,15 +1196,14 @@ Partial Class Clientes End Sub - Private Sub CargaSubProyectoss() - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - DdlSubProyecto.DataBind() + Private Sub CargaSubProyectoss() + + 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) - 'If UsuarioActual.CveSucursal = -1 Then - ' DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - 'Else - ' DdlSubProyecto.SelectedValue = UsuarioActual.CveSucursal.ToString - 'End If + DdlSubProyecto.DataBind() + + End Sub Private Sub CargaMetodosPago() DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ")