From e73e065438c387c980229364f7ce465cd1b71b4d Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 10 Aug 2022 08:58:08 -0700 Subject: [PATCH 1/8] =?UTF-8?q?--=20cambio=20en=20prep=C3=B3liza?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntregaAlmacen.aspx.vb | 64 ++++++++---------------------- 1 file changed, 16 insertions(+), 48 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index aba81d922..66162fb19 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -718,19 +718,28 @@ Partial Class Inventarios_EntregaAlmacen If TipoMovimiento = 2 Then ' cuando es cancelación Dim Filtro As String '= If(ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString().Contiene({"Ing", "Dev", "Ped"}), "CveConcepto = 3", "CveConcepto = 9") + Dim FiltroPS As String = "" Select Case ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString() Case "Ing", "Ped" Filtro = "CveConcepto IN (3,40)" Case "Dev" 'cuand es devolucionventa=1, es cancelación de la devolución - If EsDevolucionVenta = 1 Then Filtro = "CveConcepto = 18" Else Filtro = "CveConcepto IN (3,40)" + If EsDevolucionVenta = 1 Then + Filtro = "CveConcepto = 18" + Else + Filtro = "CveConcepto IN (3,40)" 'cuando es devolución + For Each drr As DataRow In ObjInventario.DtResultados.Rows + FiltroPS = FiltroPS + "," + drr("CvePS").ToString + Next + FiltroPS = "AND CvePS IN (" & FiltroPS.Substring(1) & ")" 'elimino la primer comma + End If Case "DPe" Filtro = "CveConcepto = 9" Case Else Filtro = "CveConcepto = 9" End Select If ObjInventario.GetInv_Mov(ObjInventario.DtResultados.Rows(0)("CveVentaPadre").ToString().ToEntero(), UsuarioActual.CveEmpresa) Then - DtExistencias = ObjInventario.DtResultados.FiltraParametros($"CvePS Is Not NULL AND {Filtro}") + DtExistencias = ObjInventario.DtResultados.FiltraParametros($"CvePS Is Not NULL AND {Filtro} " & FiltroPS) If Not DtExistencias.Rows.Count > 0 Then Alert("La Venta original de la Devolución no tiene salida de Almacén.", TipoMensaje.MsgAdvertencia) @@ -2067,64 +2076,23 @@ Partial Class Inventarios_EntregaAlmacen Next End If - If Not ErrorMovInv Then + If Not ErrorMovInv AndAlso CveMovimientoSalida > 0 Then Dim CvePrePolizaSinCosto As Integer = ObjConta.AddPrePolizas("EA/SinCost", 53, 0, 0, 1, TxtFecha.Text.ToDate, "Entrega", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CvePrePolizaSinCosto > 0 Then + If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaSinCosto, True, 0, 0, 68, TxtObservaciones.Text, TxtObservaciones.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=False) Then + ErrorMovInv = True + End If + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaSinCosto, False, 0, 0, 68, TxtObservaciones.Text, TxtObservaciones.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=False) Then ErrorMovInv = True End If - If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaSinCosto, True, 0, 0, 68, TxtObservaciones.Text, TxtObservaciones.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=False) Then - ErrorMovInv = True - End If Else ErrorMovInv = True End If End If - - - Dim ImportePrePoliza As Decimal = 0D - - If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then - ImportePrePoliza = ObjInventario.DtResultados.SUMD("Total") - End If - - - Dim MovAlmacen As Boolean = True - - Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & 9).ToEntero - - If OrigenMov = 1 Then - MovAlmacen = True - Else - MovAlmacen = False - End If - - Dim ObjConta2 As New ClsContabilidad(ObjInventario.IniciaTransacSQL) - - Dim Concepto As String = "ARMPAQ2" - Dim CvePrePoliza = ObjConta2.AddPrePolizas("RE/GSC1/GSC3/RE/G4", 74, ImportePrePoliza, ImportePrePoliza, 1, TxtFecha.Text.ToDate, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - 'Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero - - If Not ObjConta2.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ImportePrePoliza, "RE/G4", 68, "RE/G4", TxtFecha.Text.ToDate, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimientoEntradaApartado, ImporteMX:=ImportePrePoliza, CveSubProyecto:=-1, Contabilizable:=False) Then - ErrorMovInv = True - End If - - If Not ObjConta2.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, ImportePrePoliza, "RE/GSC1/GSC3", 68, "RE/GSC1/GSC3", TxtFecha.Text.ToDate, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ImportePrePoliza, Contabilizable:=False) Then - ErrorMovInv = True - End If - - - If ObjConta2.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then - If ObjConta2.ValorPolizaDescuadre > 0 Then - GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta2.MensajePolizaDescuadre} Diferencia:{ObjConta2.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") - ErrorMovInv = True - End If - End If - - End If If Not ErrorMovInv Then From f275d1bd8703f22b469c6843e14f153699cb5fe2 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 10 Aug 2022 09:00:57 -0700 Subject: [PATCH 2/8] - --- Inventarios/KardexAlmacenHorizontal.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index f0c320597..37ff0ac0a 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -82,7 +82,7 @@ - Kardex Almacén Horizontal + Existencias Almacen From 4c8aa8c2a8f943138aa60216e2928df7630abb96 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 10 Aug 2022 09:25:19 -0700 Subject: [PATCH 3/8] -- propiedad CveCreditoDetalle, en objeto comprapago --- App_Code/ClsPaginas.vb | 1 + Compras/Compras.aspx.vb | 32 ++++++++++++++++++++++---------- 2 files changed, 23 insertions(+), 10 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index fe349f780..4f709540a 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9562,6 +9562,7 @@ Public Class ClsPaginas Public Property CveCompraAmortizacion As Integer = 0 Public Property OtroGastoIngreso As Decimal = 0 Public Property CveConceptoPago As Integer = -1 'no definido de inicio + Public Property CveCreditoDetalle As Integer = -1 End Class diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 3af2c50b1..fe2fe1bfd 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -5957,19 +5957,31 @@ Partial Class Compras_Compras ErrorPrepoliza = True End If - If TipoCreditoInteres Then + If importeMovimiento <> 0 Then + Dim Pago As New CompraPago + Pago.ImportePago = importeMovimiento + Pago.CveIE = CveIE + Pago.CveMonedaPago = 1 + Pago.CveCompraAmortizacion = -1 + Pago.CveCreditoDetalle = CveCreditoDetalle - Dim importeMovimientoIn As Decimal = ImporteIECredito - importeMovimiento - Dim importeMNIn As Decimal = importeMovimientoIn * tipoCambioActual * Multiplicador + ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta) - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoIn, importeMNIn, 41, Referencia, Concepto, CtaProveedorAcreedores, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then - ErrorPrepoliza = True - End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoIn, importeMNIn, 50, Referencia, Concepto, ViewState("IdCtaContDocsXPagar").ToString.ToEntero(), CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then - ErrorPrepoliza = True - - End If End If + + 'If TipoCreditoInteres Then + + ' Dim importeMovimientoIn As Decimal = ImporteIECredito - importeMovimiento + ' Dim importeMNIn As Decimal = importeMovimientoIn * tipoCambioActual * Multiplicador + + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoIn, importeMNIn, 41, Referencia, Concepto, CtaProveedorAcreedores, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + ' ErrorPrepoliza = True + ' End If + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoIn, importeMNIn, 50, Referencia, Concepto, ViewState("IdCtaContDocsXPagar").ToString.ToEntero(), CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + ' ErrorPrepoliza = True + + ' End If + 'End If End If importeMovimiento = 0 : importeMN = 0 If TipoCambioCompra > 1 AndAlso DdlMoneda.SelectedValue.ToEntero <> 1 Then Concepto += $" TC{TipoCambioCompra} ${importeMovimiento.FormatoNumero(2)}" From ccb986231d9862850be83d069fa0e9cf4d3720e7 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Wed, 10 Aug 2022 18:28:24 -0700 Subject: [PATCH 4/8] eFacturas solicitudes sat formato Solicitudes ingresos --- Compras/eFacturas.aspx | 413 +++++++++++++++----------- Compras/eFacturas.aspx.vb | 472 +++++++++++++++++++++--------- SAT/SolicitudesIngresoSat.aspx | 2 +- SAT/SolicitudesIngresoSat.aspx.cs | 22 +- 4 files changed, 593 insertions(+), 316 deletions(-) diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index a113abc55..de1251359 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -1008,202 +1008,275 @@ - -