From a3a0e6e36cd7500a3f14509fef8d6ae4448f6ee0 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 28 Sep 2020 10:19:39 -0700 Subject: [PATCH 1/7] =?UTF-8?q?se=20quit=C3=B3=20la=20columna=20de=20CveCo?= =?UTF-8?q?mpra=20a=20la=20tabla=20de=20fletes?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsCompras.vb | 33 ++++ Compras/Compras.aspx.vb | 19 +- Inventarios/Fletes.aspx | 71 ++++++-- Inventarios/Fletes.aspx.vb | 345 +++++++++++++++++++------------------ 4 files changed, 275 insertions(+), 193 deletions(-) diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 33dc7e050..fe1e33d06 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -3071,6 +3071,39 @@ 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/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 14d802679..13afb3f39 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -19218,13 +19218,13 @@ Partial Class Compras_Compras Dr = ObjInventario.DtResultados.Rows(0) End If End If - If Dr IsNot Nothing Then - If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then - Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia) - ObjInventario.Dispose() - Exit Sub - End If - End If + 'If Dr IsNot Nothing Then + ' If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then + ' Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia) + ' ObjInventario.Dispose() + ' Exit Sub + ' End If + 'End If ObjInventario.Dispose() End If @@ -19257,8 +19257,11 @@ Partial Class Compras_Compras 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 + ErrorTrans = True End If Case 2 If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then diff --git a/Inventarios/Fletes.aspx b/Inventarios/Fletes.aspx index 5e83888b3..5461ff213 100644 --- a/Inventarios/Fletes.aspx +++ b/Inventarios/Fletes.aspx @@ -63,34 +63,34 @@ -
+ <%--
Modalidad -
-
+
--%> + <%--
-
-
-
+
--%> + <%--
+ <%-- +
--%> -
+ <%-- -
-
-
+
--%> + <%--
--%> + <%--
--%> + <%--
Proveedor:
@@ -107,12 +107,51 @@
-
+
--%> +
+ + +
+
+
+ + Compras +
+
+ +
+
+
+
+
+ + + + + + + + <%-- + +
+ +
+ + --%> + + +
+
+
+
+ + +
@@ -128,13 +167,13 @@
-
+ <%--
Agregar compra de gasto
-
+
--%>
diff --git a/Inventarios/Fletes.aspx.vb b/Inventarios/Fletes.aspx.vb index d0d318b96..27c2b1c77 100644 --- a/Inventarios/Fletes.aspx.vb +++ b/Inventarios/Fletes.aspx.vb @@ -81,27 +81,27 @@ Partial Class Compras_Fletes TxtFecha.Text = ObjInv.DtResultados.Rows(0)("Fecha").ToString If ObjInv.DtResultados.Rows(0)("CveOC").ToString.ToEntero > 0 Then - DdlModalidad.SelectedValue = "1" + 'DdlModalidad.SelectedValue = "1" Else - DdlModalidad.SelectedValue = "2" + 'DdlModalidad.SelectedValue = "2" End If - CambiaModalidad() - HdnCveOC.Value = ObjInv.DtResultados.Rows(0)("CveOC").ToString - HdnCveCompra.Value = ObjInv.DtResultados.Rows(0)("CveCompra").ToString + 'CambiaModalidad() + 'HdnCveOC.Value = ObjInv.DtResultados.Rows(0)("CveOC").ToString + 'HdnCveCompra.Value = ObjInv.DtResultados.Rows(0)("CveCompra").ToString - LbOCProveedor.Text = ObjInv.DtResultados.Rows(0)("RazonSocial").ToString - HLOCFolio.Text = ObjInv.DtResultados.Rows(0)("FolioDocumento").ToString - HLOCFolio.NavigateUrl = If(HdnCveOC.Value.ToEntero > 0, $"/OC/OC.aspx?OC={HdnCveOC.Value}", $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}") - LbOCImporte.Text = $"{ObjInv.DtResultados.Rows(0)("TotalDocumento").ToString.FormatoNumero} {ObjInv.DtResultados.Rows(0)("Moneda").ToString}" + 'LbOCProveedor.Text = ObjInv.DtResultados.Rows(0)("RazonSocial").ToString + 'HLOCFolio.Text = ObjInv.DtResultados.Rows(0)("FolioDocumento").ToString + 'HLOCFolio.NavigateUrl = If(HdnCveOC.Value.ToEntero > 0, $"/OC/OC.aspx?OC={HdnCveOC.Value}", $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}") + 'LbOCImporte.Text = $"{ObjInv.DtResultados.Rows(0)("TotalDocumento").ToString.FormatoNumero} {ObjInv.DtResultados.Rows(0)("Moneda").ToString}" If ObjInv.GetFleteDetalle(CveFlete) Then DtCompras = ObjInv.DtResultados Else Alert("Ocurrió un error al cargar el detalle del flete", TipoMensaje.MsgError) End If - + CargarComprasRelacionadas() Else - Alert("No se encontró el flete", TipoMensaje.MsgInformacion) + Alert("No se encontró el flete", TipoMensaje.MsgAdvertencia) End If Else Alert("Ocurrió un error al cargar el flete", TipoMensaje.MsgError) @@ -123,168 +123,168 @@ Partial Class Compras_Fletes #Region " VINCULA DOCUMENTO PRINCIPAL - OC | COMPRA " Protected Sub DdlModalidad_SelectedIndexChanged(sender As Object, e As EventArgs) - CambiaModalidad() + 'CambiaModalidad() UpRegistro.Update() End Sub - Private Sub CambiaModalidad() - HdnCveOC.Value = "-1" - HdnCveCompra.Value = "-1" + 'Private Sub CambiaModalidad() + ' HdnCveOC.Value = "-1" + ' HdnCveCompra.Value = "-1" - LbOCProveedor.Text = "" - HLOCFolio.Text = "" - HLOCFolio.NavigateUrl = "#" - LbOCImporte.Text = "" + ' LbOCProveedor.Text = "" + ' HLOCFolio.Text = "" + ' HLOCFolio.NavigateUrl = "#" + ' LbOCImporte.Text = "" - DivVincularOC.Visible = DdlModalidad.SelectedValue = "1" - DivVincularCompra.Visible = DdlModalidad.SelectedValue = "2" - End Sub + ' DivVincularOC.Visible = DdlModalidad.SelectedValue = "1" + ' DivVincularCompra.Visible = DdlModalidad.SelectedValue = "2" + 'End Sub - Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs) - VinculaOC() - End Sub - Private Sub VinculaOC() - If HdnCveOC.Value <> "-1" AndAlso IsNumeric(HdnCveOC.Value) AndAlso HdnCveOC.Value.ToEntero > 0 Then - Dim ObjInv As New ClsInventarios - Dim ObjOC As New ClsOC - If ObjInv.GetFletes(UsuarioActual.CveEmpresa, CveOC:=HdnCveOC.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0 Then - If ObjOC.GetOC(HdnCveOC.Value.ToEntero, UsuarioActual.CveEmpresa) Then - If ObjOC.DtResultados.Rows.Count > 0 Then - LbOCProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString - HLOCFolio.Text = $"{ObjOC.DtResultados.Rows(0)("Folio").ToString}" - HLOCFolio.NavigateUrl = $"/OC/OC.aspx?OC={HdnCveOC.Value}" - LbOCImporte.Text = $"$ {ObjOC.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjOC.DtResultados.Rows(0)("Moneda").ToString}" - End If - Else - HdnCveOC.Value = "-1" - End If - Else - Alert($"La orden de compra ya forma parte del flete: {ObjInv.DtResultados.Rows(0)("Folio")}. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - End If - ObjInv.Dispose() - ObjOC.Dispose() - End If - UpRegistro.Update() - End Sub - Protected Sub BtnVincularCompra_Click(sender As Object, e As EventArgs) - VincularCompra() - End Sub - Private Sub VincularCompra() + 'Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs) + ' VinculaOC() + 'End Sub + 'Private Sub VinculaOC() + ' If HdnCveOC.Value <> "-1" AndAlso IsNumeric(HdnCveOC.Value) AndAlso HdnCveOC.Value.ToEntero > 0 Then + ' Dim ObjInv As New ClsInventarios + ' Dim ObjOC As New ClsOC + ' If ObjInv.GetFletes(UsuarioActual.CveEmpresa, CveOC:=HdnCveOC.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0 Then + ' If ObjOC.GetOC(HdnCveOC.Value.ToEntero, UsuarioActual.CveEmpresa) Then + ' If ObjOC.DtResultados.Rows.Count > 0 Then + ' LbOCProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString + ' HLOCFolio.Text = $"{ObjOC.DtResultados.Rows(0)("Folio").ToString}" + ' HLOCFolio.NavigateUrl = $"/OC/OC.aspx?OC={HdnCveOC.Value}" + ' LbOCImporte.Text = $"$ {ObjOC.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjOC.DtResultados.Rows(0)("Moneda").ToString}" + ' End If + ' Else + ' HdnCveOC.Value = "-1" + ' End If + ' Else + ' Alert($"La orden de compra ya forma parte del flete: {ObjInv.DtResultados.Rows(0)("Folio")}. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) + ' End If + ' ObjInv.Dispose() + ' ObjOC.Dispose() + ' End If + ' UpRegistro.Update() + 'End Sub + 'Protected Sub BtnVincularCompra_Click(sender As Object, e As EventArgs) + ' VincularCompra() + 'End Sub + 'Private Sub VincularCompra() - If Not (HdnCveCompra.Value <> "-1" AndAlso IsNumeric(HdnCveCompra.Value) AndAlso HdnCveCompra.Value.ToEntero > 0) Then - Alert("No hay compra seleccionaada", TipoMensaje.MsgAdvertencia) - Exit Sub - End If + ' If Not (HdnCveCompra.Value <> "-1" AndAlso IsNumeric(HdnCveCompra.Value) AndAlso HdnCveCompra.Value.ToEntero > 0) Then + ' Alert("No hay compra seleccionaada", TipoMensaje.MsgAdvertencia) + ' Exit Sub + ' End If - Dim ObjCompras As New ClsCompras - Dim ObjInv As New ClsInventarios - Dim ErrorAgregar = False - Dim RowCompras As DataRow = Nothing + ' Dim ObjCompras As New ClsCompras + ' Dim ObjInv As New ClsInventarios + ' Dim ErrorAgregar = False + ' Dim RowCompras As DataRow = Nothing - If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then - RowCompras = ObjCompras.DtResultados.Rows(0) - If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompra.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then - ErrorAgregar = True - Alert($"La compra ya forma parte del flete: {ObjCompras.DtResultados.Rows(0)("Folio")}. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - End If - Else - ErrorAgregar = True - Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError) - End If + ' If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then + ' RowCompras = ObjCompras.DtResultados.Rows(0) + ' If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompra.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then + ' ErrorAgregar = True + ' Alert($"La compra ya forma parte del flete: {ObjCompras.DtResultados.Rows(0)("Folio")}. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) + ' End If + ' Else + ' ErrorAgregar = True + ' Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError) + ' End If - If Not ErrorAgregar Then - If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then - ErrorAgregar = True - Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - End If - End If + ' If Not ErrorAgregar Then + ' If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then + ' ErrorAgregar = True + ' Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) + ' End If + ' End If - If Not ErrorAgregar Then - LbOCProveedor.Text = ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString - HLOCFolio.Text = $"{ObjCompras.DtResultados.Rows(0)("Folio").ToString}" - HLOCFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}" - LbOCImporte.Text = $"$ {ObjCompras.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjCompras.DtResultados.Rows(0)("Moneda").ToString}" - Else - HdnCveCompra.Value = "-1" - End If + ' If Not ErrorAgregar Then + ' LbOCProveedor.Text = ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString + ' HLOCFolio.Text = $"{ObjCompras.DtResultados.Rows(0)("Folio").ToString}" + ' HLOCFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}" + ' LbOCImporte.Text = $"$ {ObjCompras.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjCompras.DtResultados.Rows(0)("Moneda").ToString}" + ' Else + ' HdnCveCompra.Value = "-1" + ' End If - ObjCompras.Dispose() - ObjInv.Dispose() + ' ObjCompras.Dispose() + ' ObjInv.Dispose() - End Sub + 'End Sub #End Region #Region " AGREGA COMPRA GASTO " - Protected Sub BtnVincularCompraGasto_Click(sender As Object, e As EventArgs) - AgregaCompraGasto() - End Sub - Protected Sub ImgAgregarCompraGasto_Click(sender As Object, e As ImageClickEventArgs) - AgregaCompraGasto() - End Sub - Private Sub AgregaCompraGasto() + 'Protected Sub BtnVincularCompraGasto_Click(sender As Object, e As EventArgs) + ' AgregaCompraGasto() + 'End Sub + 'Protected Sub ImgAgregarCompraGasto_Click(sender As Object, e As ImageClickEventArgs) + ' AgregaCompraGasto() + 'End Sub + 'Private Sub AgregaCompraGasto() - If Not (HdnCveCompraGasto.Value <> "-1" AndAlso IsNumeric(HdnCveCompraGasto.Value) AndAlso HdnCveCompraGasto.Value.ToEntero > 0) Then - Alert("No hay compra de gasto seleccionaada", TipoMensaje.MsgAdvertencia) - Exit Sub - End If + ' If Not (HdnCveCompraGasto.Value <> "-1" AndAlso IsNumeric(HdnCveCompraGasto.Value) AndAlso HdnCveCompraGasto.Value.ToEntero > 0) Then + ' Alert("No hay compra de gasto seleccionaada", TipoMensaje.MsgAdvertencia) + ' Exit Sub + ' End If - Dim ObjCompras As New ClsCompras - Dim ObjInv As New ClsInventarios(ObjCompras.IniciaTransacSQL) - Dim ErrorAgregar = False - Dim RowCompras As DataRow = Nothing + ' Dim ObjCompras As New ClsCompras + ' Dim ObjInv As New ClsInventarios(ObjCompras.IniciaTransacSQL) + ' Dim ErrorAgregar = False + ' Dim RowCompras As DataRow = Nothing - If ObjCompras.GetCompras(HdnCveCompraGasto.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then - RowCompras = ObjCompras.DtResultados.Rows(0) - If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompraGasto.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then - ErrorAgregar = True - Alert($"La compra ya forma parte del flete: {ObjCompras.DtResultados.Rows(0)("Folio")}. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - End If - Else - ErrorAgregar = True - Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError) - End If + ' If ObjCompras.GetCompras(HdnCveCompraGasto.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then + ' RowCompras = ObjCompras.DtResultados.Rows(0) + ' If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompraGasto.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then + ' ErrorAgregar = True + ' Alert($"La compra ya forma parte del flete: {ObjCompras.DtResultados.Rows(0)("Folio")}. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) + ' End If + ' Else + ' ErrorAgregar = True + ' Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError) + ' End If - If HdnCveCompraGasto.Value.ToEntero = HdnCveOC.Value.ToEntero Then - ErrorAgregar = True - Alert("La Compra seleccionada como gasto es la orden de compra del pedimento. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - End If + ' If HdnCveCompraGasto.Value.ToEntero = HdnCveOC.Value.ToEntero Then + ' ErrorAgregar = True + ' Alert("La Compra seleccionada como gasto es la orden de compra del pedimento. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) + ' End If - If Not ErrorAgregar Then - If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then - ErrorAgregar = True - Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - End If - End If + ' If Not ErrorAgregar Then + ' If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then + ' ErrorAgregar = True + ' Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) + ' End If + ' End If - If Not ErrorAgregar Then - If Not GvDatos.Rows.Count > 0 Then - DtCompras = RowCompras.Table.Clone - DtCompras.Columns.Add("CveFleteDetalle", Type.GetType("System.Int32")) - End If - If CveFlete > 0 Then - If Not ObjInv.AddFleteDetalle(CveFlete, RowCompras("CveCompra").ToString.ToEntero) Then - ErrorAgregar = True - Alert("Ocurrió un error al agregar la compra. Por favor intente de nuevo.", TipoMensaje.MsgError) - End If - End If - End If + ' If Not ErrorAgregar Then + ' If Not GvDatos.Rows.Count > 0 Then + ' DtCompras = RowCompras.Table.Clone + ' DtCompras.Columns.Add("CveFleteDetalle", Type.GetType("System.Int32")) + ' End If + ' If CveFlete > 0 Then + ' If Not ObjInv.AddFleteDetalle(CveFlete, RowCompras("CveCompra").ToString.ToEntero) Then + ' ErrorAgregar = True + ' Alert("Ocurrió un error al agregar la compra. Por favor intente de nuevo.", TipoMensaje.MsgError) + ' End If + ' End If + ' End If - If Not ErrorAgregar Then - ObjCompras.Commit() - DtCompras.ImportRow(RowCompras) - CargaGrid() - If CveFlete > 0 Then - Alert("La orden de compra se agregó correctamente.", TipoMensaje.MsgInformacion) - End If - Else - ObjCompras.RollBack() - End If + ' If Not ErrorAgregar Then + ' ObjCompras.Commit() + ' DtCompras.ImportRow(RowCompras) + ' CargaGrid() + ' If CveFlete > 0 Then + ' Alert("La orden de compra se agregó correctamente.", TipoMensaje.MsgInformacion) + ' End If + ' Else + ' ObjCompras.RollBack() + ' End If - HdnCveCompraGasto.Value = "-1" - ObjCompras.Dispose() - ObjInv.Dispose() + ' HdnCveCompraGasto.Value = "-1" + ' ObjCompras.Dispose() + ' ObjInv.Dispose() - End Sub + 'End Sub Private Sub GvDireccionesEnvio_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting Dim TieneError = False If CveFlete > 0 AndAlso GvDatos.Rows(e.RowIndex).DataKey("CveFleteDetalle").ToEntero > 0 Then @@ -312,18 +312,18 @@ Partial Class Compras_Fletes #Region " GUARDAR " Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) - Select Case DdlModalidad.SelectedValue.ToEntero - Case 1 - If Not HdnCveOC.Value.ToEntero > 0 Then - Alert("Tiene que tener vinculada una OC", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - Case 2 - If Not HdnCveCompra.Value.ToEntero > 0 Then - Alert("Tiene que tener vinculada una Compra", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - End Select + 'Select Case DdlModalidad.SelectedValue.ToEntero + ' Case 1 + ' 'If Not HdnCveOC.Value.ToEntero > 0 Then + ' ' Alert("Tiene que tener vinculada una OC", TipoMensaje.MsgAdvertencia) + ' ' Exit Sub + ' 'End If + ' Case 2 + ' 'If Not HdnCveCompra.Value.ToEntero > 0 Then + ' ' Alert("Tiene que tener vinculada una Compra", TipoMensaje.MsgAdvertencia) + ' ' Exit Sub + ' 'End If + 'End Select If Not DtCompras.Rows.Count > 0 Then Alert("Tiene que tener compras de gastos agregadas", TipoMensaje.MsgAdvertencia) @@ -336,7 +336,7 @@ Partial Class Compras_Fletes Dim CveFleteTemporal As Integer = 0 If CveFlete < 0 Then - If ObjInv.AddFlete(LblFolio.Text, TxtDescripcion.Text.Trim, TxtFecha.Text.ToDate, HdnCveOC.Value.ToEntero, HdnCveCompra.Value.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjInv.AddFlete(LblFolio.Text, TxtDescripcion.Text.Trim, TxtFecha.Text.ToDate, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then CveFleteTemporal = ObjInv.CveFlete Else ErrorFlete = True @@ -352,7 +352,7 @@ Partial Class Compras_Fletes ErrorFlete = True End If Else - If Not ObjInv.UpdateFlete(CveFlete, TxtDescripcion.Text, TxtFecha.Text.ToDate, HdnCveOC.Value.ToEntero, HdnCveCompra.Value.ToEntero, UsuarioActual.CveUsuario) Then + If Not ObjInv.UpdateFlete(CveFlete, TxtDescripcion.Text, TxtFecha.Text.ToDate, -1, -1, UsuarioActual.CveUsuario) Then ErrorFlete = True End If End If @@ -410,25 +410,32 @@ Partial Class Compras_Fletes If Archivo.Exists Then Dim ImporteGrid As Double = DtCompras.SUM("SubTotal") - Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0) - Dim ImporteData As Double = ImporteStr.ToDouble() + 'Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0) + 'Dim ImporteData As Double = ImporteStr.ToDouble() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("Folio", LblFolio.Text)) params.Add(New ReportParameter("Descripcion", TxtDescripcion.Text)) params.Add(New ReportParameter("Fecha", TxtFecha.Text)) - params.Add(New ReportParameter("Modalidad", If(DdlModalidad.SelectedValue = "-1", "Por Orden de Compra", "Factura de Compra"))) - params.Add(New ReportParameter("Proveedor", LbOCProveedor.Text)) - params.Add(New ReportParameter("FolioModalidad", HLOCFolio.Text)) - params.Add(New ReportParameter("Importe", (ImporteGrid + ImporteData).ToString())) + params.Add(New ReportParameter("Modalidad", "Factura de Compra")) + params.Add(New ReportParameter("Proveedor", "")) + params.Add(New ReportParameter("FolioModalidad", "")) + params.Add(New ReportParameter("Importe", (ImporteGrid).ToString())) ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Fletes.rdlc", DtCompras, params, String.Format("Costo Indirecto - {0}", LblFolio.Text), RDSName:="DataSet1") End If 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 From 53bf07107965df7b834abaf0f9bc382bd04f5577 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 28 Sep 2020 18:33:51 -0700 Subject: [PATCH 2/7] Cambio entre portales (portal del proveedor) --- App_Code/ClsSisUsuarios.vb | 109 ++++++++++++++++++++++- Sistemas/PopUpAddUsuario.aspx.vb | 16 +++- Sistemas/PopUpSeleccionarEmpresa.aspx | 17 ++++ Sistemas/PopUpSeleccionarEmpresa.aspx.vb | 62 ++++++++++--- 4 files changed, 191 insertions(+), 13 deletions(-) diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb index 298590f13..c1f9e640a 100644 --- a/App_Code/ClsSisUsuarios.vb +++ b/App_Code/ClsSisUsuarios.vb @@ -416,7 +416,7 @@ Public Class ClsSisUsuarios End Function - Public Function ValidaUsuarioPortalCliente(Clave As String, Usuario As String, Password As String) As Usuario + Public Function ValidaUsuarioPortalCliente(CveCliente As Integer, Usuario As String, Password As String) As Usuario Dim Retorno As Usuario = Nothing DataAdapter("PA_Sis_UsuariosGet") @@ -442,7 +442,7 @@ Public Class ClsSisUsuarios Retorno.Rol = Data.Rows(0)("Rol").ToString 'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero - Retorno.CveCliente = Clave.ToEntero + Retorno.CveCliente = CveCliente Retorno.ClienteGPS = False Retorno.Portal = True Retorno.Referencia = Data.Rows(0)("Referencia").ToString @@ -473,6 +473,64 @@ Public Class ClsSisUsuarios Return Retorno End Function + Public Function ValidaUsuarioPortalProveedor(CveProveedor As Integer, Usuario As String, Password As String) As Usuario + Dim Retorno As Usuario = Nothing + + DataAdapter("PA_Sis_UsuariosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUsuario", SqlDbType.Int).Value = -1 + .Add("@CveRol", SqlDbType.Int).Value = -1 + .Add("@Usuario", SqlDbType.VarChar).Value = Usuario + .Add("@Contraseña", SqlDbType.VarChar).Value = Password + .Add("@EsLogIn", SqlDbType.Bit).Value = 1 + End With + + Try + SqlAdapter.Fill(Data) + If Data.Rows.Count > 0 Then + Retorno = New Usuario + + Retorno.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero + Retorno.Usuario = Usuario + Retorno.Contraseña = Data.Rows(0)("Contraseña").ToString + Retorno.Nombre = Data.Rows(0)("Nombre").ToString + Retorno.CveRol = Data.Rows(0)("CveRol").ToString.ToEntero + Retorno.Rol = Data.Rows(0)("Rol").ToString + 'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString + Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero + Retorno.CveProveedor = CveProveedor + Retorno.ClienteGPS = False + Retorno.Portal = True + Retorno.Referencia = Data.Rows(0)("Referencia").ToString + Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False) + 'Retorno.Liga = Data.Rows(0)("Liga").ToString + 'cargo los modulos del usuario y genero el menú + Dim dttmp As DataTable = GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveProveedor) + + Dim UsuariosModulos As New HybridDictionary + For Each Row As DataRow In dttmp.Rows + UsuariosModulos.Add(Convert.ToInt32(Row("CveModulo")), Row("CveModulo").ToString) + Next + + Retorno.Modulos = UsuariosModulos + ''cargo los procesos del usuario + dttmp = GetUsuariosRolesProcesos(Retorno.CveUsuario) + Dim UsuariosProcesos As New HybridDictionary + For Each Row As DataRow In dttmp.Rows + UsuariosProcesos.Add(Convert.ToInt32(Row("CveProceso")), Row("CveProceso").ToString) + Next + Retorno.Procesos = UsuariosProcesos + End If + + Catch ex As SqlException + OnError("Ocurrio un error al Iniciar Acceso a Sitio.", ex) + Retorno = Nothing + End Try + + Return Retorno + End Function + #Region "U S U A R I O - I N D I C A D O R E S" Public Function getUsuarioIndicadores(_CveUsuario As Integer, _CveEmpresa As Integer, _CveRol As Integer) As DataTable @@ -2740,6 +2798,30 @@ Public Class ClsSisUsuarios .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error el acceso a clientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AddUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Sis_UsuariosProveedoresAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + Try SqlAdapter.Fill(Data) Retorno = True @@ -2755,6 +2837,29 @@ Public Class ClsSisUsuarios Return Retorno End Function + Public Function GetUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Sis_UsuariosProveedorGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al obtener el acceso a proveedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function #End Region diff --git a/Sistemas/PopUpAddUsuario.aspx.vb b/Sistemas/PopUpAddUsuario.aspx.vb index 58101c3ed..22ed375a3 100644 --- a/Sistemas/PopUpAddUsuario.aspx.vb +++ b/Sistemas/PopUpAddUsuario.aspx.vb @@ -371,7 +371,8 @@ Partial Class Sistemas_PopUpAddUsuario ' Return 'End If - If UsuarioActual.Empresa.CvePlataforma = 1 Then + 'SI ES UN USUARIO DEL ERP, DEBE DARLE ACCESO AL CLIENTE + If UsuarioActual.Empresa.CvePlataforma = 1 AndAlso CveCliente > 0 Then Dim DtClientesAcceso As DataTable = Nothing If Not HuboError AndAlso ObjUsuarios.GetUsuarioCliente(CveUsuario, CveCliente) Then 'DEBE AGREGAR EL USUARIO AL CLIENTE @@ -383,6 +384,19 @@ Partial Class Sistemas_PopUpAddUsuario Else HuboError = True End If + 'SI ES UN USUARIO DEL ERP, DEBE DARLE ACCESO AL PROVEEDOR + ElseIf UsuarioActual.Empresa.CvePlataforma = 1 AndAlso CveProveedor > 0 Then + Dim DtProveedoresAcceso As DataTable = Nothing + If Not HuboError AndAlso ObjUsuarios.GetUsuarioProveedor(CveUsuario, CveProveedor) Then + 'DEBE AGREGAR EL USUARIO AL PROVEEDOR + If ObjUsuarios.DtResultados.Rows.Count = 0 Then + If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioProveedor(CveUsuario, CveProveedor) Then + HuboError = True + End If + End If + Else + HuboError = True + End If ElseIf UsuarioActual.Empresa.CvePlataforma = 3 Then If Not ObjUsuarios.UpdateUsuario(LtlUsuario.Text.Trim, TxtNombre.Text, -1, TxtEmail.Text, -1, -1, False, True, -1, CveUsuario, -1, -1) Then HuboError = True diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx b/Sistemas/PopUpSeleccionarEmpresa.aspx index 4ba92eb82..38fdabe9d 100644 --- a/Sistemas/PopUpSeleccionarEmpresa.aspx +++ b/Sistemas/PopUpSeleccionarEmpresa.aspx @@ -75,6 +75,20 @@ + + + + Portal del Proveedor + + + + + + + +
@@ -110,6 +124,9 @@ function Ir4() { gotourl('/PortalCliente/PortalCliente.aspx'); } + function Ir5() { + gotourl('/PortalProveedor/PortalProveedor.aspx'); + } function buscarDT() { $('.TxtBusqueda').on('keyup', function () { diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb index 04470a006..d0f150423 100644 --- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb +++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb @@ -12,8 +12,6 @@ Partial Class PopUpSeleccionarEmpresa Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then CType(Me.Master, BaseMasterPage).EsPopup = True - 'CType(Me.Master, BaseMasterPage).PopupWidth = HdnAncho.Value.ToEntero - 'RegistraScript("alertSize();") GetEmpresas() End If End Sub @@ -26,10 +24,14 @@ Partial Class PopUpSeleccionarEmpresa LtlTotalRegistros.Text = Dt.Rows.Count.ToString.FormatoNumero(0) GvEmpresas.DataSource = Dt.FiltraParametros("CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)", "Empresa") GvPortalRastreo.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa") - GvPortalCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 6 AND CveCliente IS NOT NULL", "Empresa") + GvPortalCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 6 AND CveCliente IS NOT NULL", "Empresa") + GvPortalProveedor.DataSource = Dt.FiltraParametros("CvePlataforma = 7 AND CveProveedor IS NOT NULL", "Empresa") Else LtlTotalRegistros.Text = "0" GvEmpresas.DataSource = Nothing + GvPortalRastreo.DataSource = Nothing + GvPortalCliente.DataSource = Nothing + GvPortalProveedor.DataSource = Nothing Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia) End If End If @@ -37,6 +39,7 @@ Partial Class PopUpSeleccionarEmpresa GvEmpresas.DataBind() GvPortalRastreo.DataBind() GvPortalCliente.DataBind() + GvPortalProveedor.DataBind() UPDatos.Update() @@ -116,7 +119,6 @@ Partial Class PopUpSeleccionarEmpresa End If End Sub - Protected Sub GvPortalCliente_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalCliente.RowCommand If e.CommandName = "Cambia" Then Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow) @@ -125,7 +127,7 @@ Partial Class PopUpSeleccionarEmpresa Dim ObjUsuario As New ClsSisUsuarios Dim Usuario As Usuario = Nothing - Usuario = ObjUsuario.ValidaUsuarioPortalCliente(gvr.DataKey("CveCliente"), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña")) + Usuario = ObjUsuario.ValidaUsuarioPortalCliente(gvr.DataKey("CveCliente").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña")) ObjUsuario.Dispose() @@ -155,7 +157,48 @@ Partial Class PopUpSeleccionarEmpresa End If End If - End Sub + End Sub + Protected Sub GvPortalProveedor_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalProveedor.RowCommand + If e.CommandName = "Cambia" Then + Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow) + + If gvr IsNot Nothing Then + + Dim ObjUsuario As New ClsSisUsuarios + Dim Usuario As Usuario = Nothing + Usuario = ObjUsuario.ValidaUsuarioPortalProveedor(gvr.DataKey("CveProveedor").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña")) + + ObjUsuario.Dispose() + + If Usuario IsNot Nothing Then + Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario) + + Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion + Usuario.ModoSimulacion = ModoSimulacion + ADSSession.ADSSessionConfig.sessionUser = Usuario + ADSSession.ADSSessionConfig.sessionDpage = False + + If dt IsNot Nothing Then + If dt.Rows.Count >= 1 Then + If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True + Usuario.CvePlataforma = 7 + UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero() + ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa) + CreaObjetoEmpresa(Usuario) + 'si la contraseña es la prederminada, pide la nueva contraseña + 'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False) + RegistraScript("Ir5();") + End If + End If + dt.Dispose() + End If + + End If + + End If + End Sub + +#Region "F U N C I O N E S" Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click RegistraScript(String.Format("$get('tdContenido').style.height='{0}px'; $get('tdContenido').style.width='{1}px'", HdnAlto.Value.ToEntero - 30, HdnAncho.Value.ToEntero - 30)) End Sub @@ -181,8 +224,6 @@ Partial Class PopUpSeleccionarEmpresa End If ObjEmpresa.Dispose() End Sub - - Private Sub GuardaLogR(Mensaje As String) Dim ArchivoW As IO.StreamWriter Dim MensajeLog As String = "" @@ -209,6 +250,7 @@ Partial Class PopUpSeleccionarEmpresa End Try ArchivoW.Close() ArchivoW.Dispose() - End Sub - + End Sub +#End Region + End Class \ No newline at end of file From 81b2ef824a71383455819b7f7d7ab4fa46fff85c Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 29 Sep 2020 15:55:12 -0700 Subject: [PATCH 3/7] Cambios entre portales --- Sistemas/PopUpSeleccionarEmpresa.aspx | 2 +- Sistemas/PopUpSeleccionarEmpresa.aspx.vb | 15 ++++++++++++--- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx b/Sistemas/PopUpSeleccionarEmpresa.aspx index 38fdabe9d..efd3192d7 100644 --- a/Sistemas/PopUpSeleccionarEmpresa.aspx +++ b/Sistemas/PopUpSeleccionarEmpresa.aspx @@ -29,7 +29,7 @@
- diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb index d0f150423..32de18d83 100644 --- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb +++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb @@ -21,11 +21,20 @@ Partial Class PopUpSeleccionarEmpresa If Dt IsNot Nothing Then If Dt.Rows.Count > 0 Then - LtlTotalRegistros.Text = Dt.Rows.Count.ToString.FormatoNumero(0) - GvEmpresas.DataSource = Dt.FiltraParametros("CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)", "Empresa") + Dim NumRegistros As Integer = 0 + GvEmpresas.DataSource = Dt.FiltraParametros("(CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)) AND CvePlataformaUsuario NOT IN (6,7)", "Empresa") + NumRegistros += DirectCast(GvEmpresas.DataSource, System.Data.DataTable).Rows.Count + GvPortalRastreo.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa") + NumRegistros += DirectCast(GvPortalRastreo.DataSource, System.Data.DataTable).Rows.Count + GvPortalCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 6 AND CveCliente IS NOT NULL", "Empresa") - GvPortalProveedor.DataSource = Dt.FiltraParametros("CvePlataforma = 7 AND CveProveedor IS NOT NULL", "Empresa") + NumRegistros += DirectCast(GvPortalCliente.DataSource, System.Data.DataTable).Rows.Count + + GvPortalProveedor.DataSource = Dt.FiltraParametros("CvePlataforma = 7 AND CveProveedor IS NOT NULL", "Empresa") + NumRegistros += DirectCast(GvPortalProveedor.DataSource, System.Data.DataTable).Rows.Count + + LtlTotalRegistros.Text = NumRegistros.ToString().FormatoNumero(0) Else LtlTotalRegistros.Text = "0" GvEmpresas.DataSource = Nothing From f53dc040c2af42edf6c6772e7f8b868058714e3e Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 29 Sep 2020 15:55:29 -0700 Subject: [PATCH 4/7] Validacion en WS --- asmx/WSApp.asmx | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx index fa5c03748..7917b12e9 100644 --- a/asmx/WSApp.asmx +++ b/asmx/WSApp.asmx @@ -548,15 +548,19 @@ Public Class WSApp Salida.CveSubProyecto = UsuarioActual.CveSubProyecto Salida.Procesos = UsuarioActual.Procesos.Values.Cast(Of String).ToList() - If ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then + If UsuarioActual.CveCliente > 0 AndAlso ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then If ObjClientes.DtResultados.Rows.Count > 0 Then Salida.Cliente = ObjClientes.Nombre Salida.CvePrecioLista = ObjClientes.CvePrecioLista - Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0) - End If - End If - - retorno = JsonConvert.SerializeObject(Salida) + Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0) + + retorno = JsonConvert.SerializeObject(Salida) + End If + Else + retorno = "{}" + End If + + Else retorno = "{}" End If From 6a6c7a70d8b90595b05f01a46d1a41d3406a1b9c Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 29 Sep 2020 16:56:48 -0700 Subject: [PATCH 5/7] Talamus --- TareasProgramadas/Tareas119.ashx | 56 +++++++++++++++++--------------- 1 file changed, 30 insertions(+), 26 deletions(-) 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); From 1ebf415d92435f220936eefe98fb2549002f8012 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 29 Sep 2020 18:42:01 -0700 Subject: [PATCH 6/7] =?UTF-8?q?se=20agreg=C3=B3=20otra=20tabla=20para=20ju?= =?UTF-8?q?ntar=20varios=20costos=20indirectos=20en=20un=20solo=20flete?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsInventarios.vb | 25 ++++++++++++++ Inventarios/Fletes.aspx | 12 +++---- Inventarios/RepFletes.aspx | 62 ++++++++++++++++++++++++----------- Inventarios/RepFletes.aspx.vb | 21 ++++++++---- 4 files changed, 88 insertions(+), 32 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 95962b005..293c971d4 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") 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/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 From d3b24d810b46644cd14ddc6502c2824fd06f71ac Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 29 Sep 2020 20:06:47 -0700 Subject: [PATCH 7/7] Cargar Tipos de comrpa segun tipo de documento --- Compras/Compras.aspx.vb | 41 +++++++++++++++++++++++++++++++++-------- 1 file changed, 33 insertions(+), 8 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index f5e9f3ecb..963b4f3a6 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 @@ -10144,7 +10162,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 +10170,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 +10211,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 +10258,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 +10374,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 +10492,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 +16353,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 +16382,9 @@ Partial Class Compras_Compras End If + UPCondicionesPago.Update() + End Sub