diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 4f7e0a8e2..aa8df4163 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -388,7 +388,7 @@ Public Class ClsContabilidad Public Function GetProveedoresAuxiliar(CveProveedor As Integer, CveConceptoContable As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, - Optional Opcion As Integer = 1, Optional CveTipoProveedor As Integer = -1) As Boolean + Optional Opcion As Integer = 1, Optional CveTipoProveedor As Integer = -1, Optional Contabilizable As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_ProveedoresAuxiliar") @@ -402,6 +402,7 @@ Public Class ClsContabilidad .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor + .Add("@Contabilizable", SqlDbType.Int).Value = Contabilizable End With Try diff --git a/Compras/ProveedoresAuxiliar.aspx b/Compras/ProveedoresAuxiliar.aspx index 8afae6a37..4ef950a21 100644 --- a/Compras/ProveedoresAuxiliar.aspx +++ b/Compras/ProveedoresAuxiliar.aspx @@ -131,6 +131,14 @@ + +
+ + + + + +
diff --git a/Compras/ProveedoresAuxiliar.aspx.vb b/Compras/ProveedoresAuxiliar.aspx.vb index 9b727b010..926764dfe 100644 --- a/Compras/ProveedoresAuxiliar.aspx.vb +++ b/Compras/ProveedoresAuxiliar.aspx.vb @@ -81,7 +81,7 @@ Partial Class Compras_ProveedoresAuxiliar 'Falta PA If ObjConta.GetProveedoresAuxiliar(DdlProveeedores.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, - DdlOpcion.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero) Then + DdlOpcion.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero, DdlOpcionContabilizable.SelectedValue.ToEntero) Then If DdlOpcion.SelectedValue.ToEntero = 2 Then GvP.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 5 AND Importe >= 0,0,1) = 1 ") Else diff --git a/Empresas/57/Formatos/Factura.rdlc b/Empresas/57/Formatos/Factura.rdlc index d09c31329..b7edb3bc0 100644 --- a/Empresas/57/Formatos/Factura.rdlc +++ b/Empresas/57/Formatos/Factura.rdlc @@ -816,8 +816,15 @@ Normal + + + + + - =Parameters!RFC.Value + GOTE811117236 @@ -1304,7 +1311,7 @@ Textbox19 1.53208in - 0.04514in + 0.05471in 0.23611in 0.85387in 17 @@ -1379,9 +1386,8 @@ - Cuidad + Ciudad @@ -1391,7 +1397,7 @@ Textbox19 1.7682in - 0.04514in + 0.05471in 0.25in 0.85387in 19 diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index ed7c76b25..fdb708148 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -470,7 +470,7 @@
- +
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 8b3f9aa69..f9323c604 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -926,6 +926,24 @@ Partial Class Inventarios_TraspasoAlmacen End If End If End If + Else + If Not ErrorMovInv Then + Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, TxtObservaciones.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then + + Dim resultado As DataTable = ObjInventario.DtResultados + Dim importe As Decimal = resultado.SUM("Total").ToDecimal + Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorio.SelectedValue.ToEntero)).ToEntero + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then + ErrorMovInv = True + End If + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 289, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then + ErrorMovInv = True + End If + End If + End If End If @@ -989,7 +1007,7 @@ Partial Class Inventarios_TraspasoAlmacen If ErrorExistencia Then CargaGvDatos() End If - + ObjConta.Dispose() ObjInventario.Dispose() End Sub @@ -1573,6 +1591,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim Folio = 0 Dim ErrorMovInv As Boolean = False Dim TextoError = "" + Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL()) '' verifica que no se halla recibido previamente, si ya se recibió da salida If ObjInventario.GetMovimientosTransitorios(CveAlmacenDestino, -1, CveAlmacenTransitorio, -1, FolioBusqueda, UsuarioActual.CveEmpresa) Then @@ -1644,7 +1663,23 @@ Partial Class Inventarios_TraspasoAlmacen End If Cont += 1 Next - + If Not ErrorMovInv Then + Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, TxtObservacionesRecepcion.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then + + Dim resultado As DataTable = ObjInventario.DtResultados + Dim importe As Decimal = resultado.SUM("Total").ToDecimal + Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 289, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then + ErrorMovInv = True + End If + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then + ErrorMovInv = True + End If + End If + End If End If @@ -1773,6 +1808,7 @@ Partial Class Inventarios_TraspasoAlmacen Alert(TextoError, TipoMensaje.MsgError) End If ObjInventario.Dispose() + ObjConta.Dispose() CargaRecepcion() Else Alert("No hay movimientos para el traspaso", TipoMensaje.MsgAdvertencia) diff --git a/OC/OC.aspx b/OC/OC.aspx index edde3253c..695e0f215 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -591,7 +591,7 @@
- + <%-- --%>