-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Aplica
+ Inventario
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Almacén
+
+
+
+
+
+
+
+
<%--
- --%>
-
-
- Almacén Consignación
-
-
-
-
-
-
-
-
+ --%>
+
+
+ Almacén Consignación
+
+
+
+
+
+
+
+
<%--
- --%>
-
-
-
-
+
+ <%--MODAL PREGUNTA IEPS y Otros Impuestos--%>
+
-
-
+
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Aplica
- Inventario
-
-
-
-
-
-
-
-
-
-
-
-
-
- Almacén
-
-
-
-
-
-
-
-
+ --%>
+
+
+
+
-
-
-
+
-
-
+
+
+
-
-
-
+
+
-
+
+
+
-
<%--
--%>
- Proveedor:
- <%--Proveedor: --%>
- <%-- Proveedor: --%>
-
-
-
-
- Tipo:
-
-
-
-
-
-
-
-
- # O.C.:
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Proveedor:
+ <%--Proveedor: --%>
+ <%-- Proveedor: --%>
+
+
- Fecha Factura:
-
-
-
-
-
-
-
-
-
-
-
-
-
- Descripción:
-
-
-
-
- Refacturación:
-
-
-
-
- ¿Es No Deducible?
-
-
-
-
+ --%>
+
-
-
+
+
+ Tipo:
+
+
+
+
+
+
+
+
+ # O.C.:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+ Fecha Factura:
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Descripción:
+
+
+
+
+ Refacturación:
+
+
+
+
+ ¿Es No Deducible?
+
+
+
+
<%--
+
+
Tipo Gasto:
--%>
-
@@ -333,1591 +333,1635 @@
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
-
-
+
+
-
+
-
+
+
+
+ Sucursal:
+
+
+
+
+
+
+ Estatus:
+
+
+
+
+
+
+ +
+ Importe:
+
-
- Saldo:
-
+
+
+
+
+ Saldo:
+
-
- Contabilizada:
-
-
-
-
- Tipo Factura:
-
-
-
-
- Validada SAT:
-
-
-
- No
- Si
-
-
-
- Capturó:
-
-
-
-
- F. Captura
-
-
-
-
- Tipo Compra:
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- La factura no se puede registrar:
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
- <%--width="100%"--%>
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%-- 0 --%>
+
+
+
+
+
+ <%-- 1 --%>
+
+
+
+
+
+ <%-- 3 --%>
+
+
+
+
+ <%-- 4 --%>
+
+
+
+
+
+ <%-- 6 --%>
+
+
+
+
+ <%-- 9 --%>
+
+
+
+
+
+ <%-- 11 --%>
+
+
+
+
+ <%-- 12 --%>
+
+
+
+
+ <%-- 13 --%>
+
+
+
+
+ <%-- 14 --%>
+
+
+
+
+ <%-- 15 --%>
+
+
+
+
+ <%-- 16 --%>
+
+
+
+
+ <%-- 17 --%>
+
+
+
+
+
+
+
+
+ | # | -Cant | -Unidad | + + + +|||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| # | +Cant | +Unidad | Clasificación
+
+
+
+
-
-
- - Producto o Servicio |
- Observación | -
-
+
+
+ + Producto o Servicio |
+ Observación | +
+
-
-
-
- |
+
+
+ Tipo de Gasto
-
-
-
- |
- P.U. | -% IVA | -Total | -¿No Deducible? | -Comandos | -
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| - |
- |
- - |
-
-
-
-
- <%----%>
-
-
-
-
-
- |
-
- |
- - | ||||||||
-
-
-
- -
-
-
-
-
-
-
-
+
+
+
+
+
+ P.U.
+ % IVA
+ Total
+ Comandos
+
+
+
+
+ ¿No Deducible?
+
+
+
+
+
+
+
+ <%----%>
+
+
+
+
+
+
+
+
+
+
+
+ +
+
+
+
+
+
+
+
+
+
-
-
-
- Factura
-
-
-
-
- Fecha
-
-
-
-
- Total
-
-
-
-
- Anticipo/NC
-
+
+
+
+
+ Factura
+
+
+
+
+ Fecha
+
+
+
+
+ Total
+
+
+
+
+ Anticipo/NC
+
-
-
- Mon
-
+
+
+
+
+ Mon
+
-
-
-
-
-
-
- Aux
-
-
-
-
-
-
-
-
-
-
-
+
+
-
-
+
+ | - | - | Original | -- | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
-
|
-
- |
-
- |
- - | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Descuentos: | -
- |
-
- |
- - | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Amort. Ant.: | -
- |
-
- |
+
+
+
+ ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| + | + | Original | ++ | ||||
+
|
+
+ |
+
+ |
+ + | ||||
| Descuentos: | +
+ |
+
+ |
+ + | ||||
| Amort. Ant.: | +
+ |
+
+ |
- - | + +
- |
- |||
| SubTotal 2: | -
- |
-
- |
- - | ||||
| IVA: | -
- |
-
- |
-
-
- |
+ ||||
| SubTotal 2: | +
+ |
+
+ |
+ + | ||||
| IVA: | +
+ |
+
+ |
+
+
+ |
-
+
+
<%--
| --%>
- |||
| Ret. IVA: | -
- |
-
- |
-
- |
-
- |
- |||
| Ret ISR: | -
- |
-
- |
- + | --%> +||||
| Ret. IVA: | +
+ |
+
+ |
+
+ |
+
+ |
+ |||
| Ret ISR: | +
+ |
+
+ |
+
|
-
- |
- |||
| IEPS: | -
- |
-
- |
- - | ||||
| O.Imp: | -
- |
-
- |
- - | ||||
| Redondeo: | -
- |
-
- |
- - | ||||
| Total: | -
- |
-
- |
- - | ||||
|
-
+ |
+
+ |
+ ||||||
| IEPS: | +
+ |
+
+ |
+ + | ||||
| O.Imp: | +
+ |
+
+ |
+ + | ||||
| Redondeo: | +
+ |
+
+ |
+ + | ||||
| Total: | +
+ |
+
+ |
+ + | ||||
|
+
TC:
-
- |
- |||||||
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+ -
+
+
+
+
+
+
+
+
-
+
-
+
- - Aplica consignación:
-
-
-
-
+
- Consignación:
-
- Folio Consignación:
-
+
-
-
- 
- |
-
|
- |
-
- Inventario
-
-
-
+
+ |
+
+ |
+
|
+ |
+
+ Inventario
+
+
+
-
+
-
-
-
-
-
+ --%>
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- <%-- MODAL SERIE-LOTE ALMACEN --%>
-
-
-
-
-
-
+
+
+
+
+
+
-
-
-
-
-
+
+
+
+
+
-
-
-
-
- Producto
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
-
-
-
- | Almacen: | -
- |
-
-
- -
-
-
-
-
-
-
+
+
-
-
+
-
-
+
-
+
+
-
+
+
-
-
-
- <%--********* INICIAN MODALES ***********--%>
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
<%--
@@ -1961,321 +2005,328 @@
- --%>
-
-
- Activos Fijos
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+ --%>
+
+
+ Activos Fijos
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
+
-
+
+
+
+ -
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ +
+
+
+
+
+
+
+
+ | Almacen: | +
+ |
+
+
+ +
+
+
+
+
+
+
+
+
+
+
-
+
+
-
-
+
-
-
+
-
+
-
+
- - Tipo Cambio:
-
-
-
-
-
-
-
-
-
- Advertencia:
-
-
-
-
-
-
-
-
-
-
- Advertencia:
-
-
-
-
-
-
-
-
-
-
- Nota:
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Promoción:
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Ordenes de Compra con Almacén:
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
-
+
+
-
+
+
-
+
-
+
-
-
-
+
+
+
+
+
+
+
+
+
+ Advertencia:
+
+
+
+
+
+
+
+
+
+
+ Advertencia:
+
+
+
+
+
+
+
+
+
+
+ Nota:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Promoción:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Ordenes de Compra con Almacén:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- <%--
-
-
-
-
-
- <%--
-
- <%--
-
-
- -
| - | - - - | Importes Vinculados | -- | Calculados | - <%-- --%> -||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| - | Tipo De Cambio | -
- |
- - - |
- |
- <%-- --%>
- ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| - | Subtotal | -
- |
-
-
- - |
- |
- <%-- --%>
- ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| + + + |
| + | + + + | Importes Vinculados | ++ | Calculados | + <%-- --%> +
| + | Tipo De Cambio | +
+ |
+ + + |
+ |
+ <%-- --%>
+
| + | Subtotal | +
+ |
+
+
+ + |
+ |
+ <%-- --%>
+
| Descuento - | -
- |
-
-
- - |
- |
- <%-- --%>
- |
| + + |
+ |
+
+
+ + |
+ |
+ <%-- --%>
+ |
| Subtotal 2 - | -
- |
-
- - |
- |
- |
| + + |
+ |
+
+ + |
+ |
+ |
| IEPS - | -
- |
-
-
- - |
- |
- |
| + + |
+ |
+
+
+ + |
+ |
+ |
| IVA - | -
- |
-
-
- - |
- |
- <%-- --%>
- |
| + + |
+ |
+
+
+ + |
+ |
+ <%-- --%>
+ |
| Ret IVA - | -
- |
-
-
- - |
- |
- <%-- --%>
- |
| + + |
+ |
+
+
+ + |
+ |
+ <%-- --%>
+ |
| Ret ISR - | -
- |
-
-
- - |
- |
- <%-- --%>
- |
| + + |
+ |
+
+
+ + |
+ |
+ <%-- --%>
+ |
| Total - | -
- |
-
- - |
- |
- <%-- --%>
-
+
-
+
+
+
+
+
-
+
+
+
-
-
-
+
+
+
+
+
+
+
+
Clasificación
-
+ + + + +
Producto/Servicio -
-
-
-
-
- +
+ + + + +
Producto/Servicio -
| --%> - | - | - | |||||||||||||||||||||||||||||||||||||||||||||
| + + + + |
| --%> + | + | + |
| Subtotal - | -
- |
- |
| + + |
+ |
+ |
| Descuento - | -
- |
- |
| + + |
+ |
+ |
| Subtotal 2 - | -
- |
- |
| + + |
+ |
+ |
| IEPS - | -
- |
- |
| + + |
+ |
+ |
| IVA - | -
- |
- |
| + + |
+ |
+ |
| Ret IVA - | -
- |
- |
| + + |
+ |
+ |
| Ret ISR - | -
- |
- |
| + + |
+ |
+ |
| Anticipos: - | -
- |
- |
| + + |
+ |
+ |
| Total - | -
- |
-
-
-
-
- -
-
-
-
-
+
+
+
+ +
+
+
+
+ |
-
-
- |
-
| # | -Cantidad | -Unidad | -Producto | -Observación | -Vinculación AF | -Horómetro / Odómetro | -Mantenimiento | -Dividir | -
|
+
+
+ |
+
| # | +Cantidad | +Unidad | +Producto | +Observación | +Vinculación AF | +Horómetro / Odómetro | +Mantenimiento | +Dividir | +
-
-
-
- | # | -Cantidad | -Unidad | -Producto | -Observación | -Vinculacion AF | -
+
+
+
+ | # | +Cantidad | +Unidad | +Producto | +Observación | +Vinculacion AF | +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
- <%--
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
<%--
--%> -
- --%> -
-
-
-
-
- | # | -Cantidad | -Unidad | -Producto | -Observación | -Referencia | -
- |
+
|---|
| # | +Cantidad | +Unidad | +Producto | +Observación | +Referencia | +
+ |
Personal
- - |
- Desglosar | -
|---|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- <%--
--%> +
+
<%--
--%> -
- --%> -
-
--%> +
+
-
-
-
-
+
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+ <%--<%--Reembolsos--%>
+
<%--
--%>
-
-
-
-
- | Método Pago: | -
- |
- |
| Fecha Pago: | -
-
-
- |
-
- |
-
|
- |
-
- |
- |
|
- |
- ||
| Método Pago: | +
+ |
+ |
| Fecha Pago: | +
+
+
+ |
+
+ |
+
|
+ |
+
+ |
+ |
|
+ |
+ ||
| Reembolso:
- |
-
| # |
-
|
- |
-
|
- |
-
|
- |
-
| # |
+
|
+ |
+
|
+ |
+
|
+ |
+
| Numero de Reembolso:
| --%>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- + --%> +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--
| @@ -2521,402 +2574,404 @@ |
-
-
-
-
-
+
+
+
+
+
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
<%----%>
-
-
+
+
+
+
+
+
+
-
-
+
-
+
+
-
+
-
-
+ <%----%>
+ Bitácora
+
+
+
-
<%--
-
-
-
Agregar
-
--%>
- -
-
-
-
-
-
-
-
- Fecha
-
-
-
-
- Fecha Agenda
-
-
-
-
- Usuario
-
-
-
-
- Descripción
-
-
-
-
- Archivo
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
-
-
-
+
+
+
+
+
+
+
+
+ Fecha
+
+
+
+
+ Fecha Agenda
+
+
+
+
+ Usuario
+
+
+
+
+ Descripción
+
+
+
+
+ Archivo
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
- Cancelar Compra
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Historial de Modificación
-
-
-
-
-
-
-
-
-
- Fecha
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Asociación de Acarreos
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%-- MODAL SERIE-LOTE ALMACEN --%>
+
+
+
+
+
+
+
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Cancelar Compra
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Historial de Modificación
+
+
+
+
+
+
+
+
+
+ Fecha
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Asociación de Acarreos
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
- <%--MODAL PREGUNTA IEPS y Otros Impuestos--%>
-
+
+
+
-
-
-
-
-
- <%--MODAL IR A OC--%>
-
-
-
-
-
-
-
-
- <%--FLETES--%>
-
-
-
-
-
-
-
-
-
- Ordenes de compra vinculadas
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+ <%--MODAL IR A OC--%>
+
+
+
+
+
+
+
+
+ <%--FLETES--%>
+
+
+
+
+
+
+
+
+
+ Ordenes de compra vinculadas
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+ <%-- COMPLEMENTOS PAGO --%>
+
-
-
-
+
+ <%-- PS NO REGISTRADO - AGREGAR ALIAS A PRODUCTO--%>
+
-
-
-
-
-
-
-
-
-
- -
-
+
+
-
-
- Bancos
- Créditos
- Acreedores
- Caja Chica
- Viáticos
- Deudores
-
-
-
-
- -
-
-
- - -
-
-
- -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
-
- Caja Chica:
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
| - |
-
| - |
-
-
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
-
-
-
-
-
-
-
-
-
+
--%>
+
+
+
+
+
+
-
-
-
- <%--MODAL AGREGAR/EDITAR PS--%>
-
+
+
+
+
+
+
+
+
+
+
-
+
+
+ Bancos
+ Créditos
+ Acreedores
+ Caja Chica
+ Viáticos
+ Deudores
+
+
+
+
+ +
+
+
+ +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ +
+
+
+
+
+
+ Caja Chica:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ +
| + |
+
| + |
+
+
-
-
-
-
-
-
-
-
-
-
- D.D
- Comision
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
+
+
+
+
+
+
+
+
+
Observaciones:
-
-
-
-
-
- -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
- -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
-
-
- - -
-
- -
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+ D.D
+ Comision
+
+
+
-
-
-
-
+
+
+
+
-
-
-
-
-
-
-
+
+
+
+
+
-
-
-
-
-
-
-
-
-
- Folio Pago
-
-
-
-
- Factura
-
-
-
-
- Saldo
-
+
+
+
+
+
+
+ +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ +
+
+
+
+
+ +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ +
+
+
+
+
+
+
+ + +
+
+ +
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
+
+
+
+
+
+
+
+
+
+ Folio Pago
+
+
+
+
+ Factura
+
+
+
+
+ Saldo
+
-
-
- Fecha
-
+
+
+
+
+ Fecha
+
-
-
- Saldo Abonar
-
-
-
-
+
+
+
+ Saldo Abonar
+
+
+
+
<%--
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
+
+
-
-
-
+
+
+
+
+
+
- -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
+
+
+
-
-
-
+
+
+
+
+ <%--MODAL AGREGAR/EDITAR PS--%>
+
+
-
- <%-- PS NO REGISTRADO - AGREGAR ALIAS A PRODUCTO--%>
-
+
+
+
-
-
-
-
-
-
- <%-- UM NO REGISTRADA - AGREGAR ALIAS/EQUIVALENCIA --%>
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+ <%-- UM NO REGISTRADA - AGREGAR ALIAS/EQUIVALENCIA --%>
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
- <%-- COMPLEMENTOS PAGO --%>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- <%-- ACTUALIZAR TIPO CAMBIO PREPOLIZA --%>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- <%-- MODAL FLETES E IMPORTACIONES --%>
-
-
-
-
-
-
-
-
- - Productos a devolver -
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%-- ACTUALIZAR TIPO CAMBIO PREPOLIZA --%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%-- MODAL FLETES E IMPORTACIONES --%>
+
+
+
+
+
+
+
+
+ Productos a devolver +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -5197,18 +5318,18 @@
+
--%>
+
+
+
+
+
+
+
@@ -5220,25 +5341,25 @@
-
+
@@ -5261,21 +5382,21 @@
-
-
-
+
+
-
@@ -5285,15 +5406,17 @@
- Sub Total:
-
+
-
+
@@ -5261,21 +5382,21 @@
-
-
-
+
+
-
@@ -5285,15 +5406,17 @@
+
+
+
+
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 84bf44ec2..257981658 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -436,6 +436,7 @@ Partial Class Contratos_ContratoObra
LnkModalAddPSControl.Visible = True
LnkModalAddPresupuestoVentas.Visible = True
LnkModalAddPresupuestoControl.Visible = True
+ LnkModalAddMaquinariaFlotilla.Visible = True
End If
@@ -1824,6 +1825,7 @@ Partial Class Contratos_ContratoObra
Row("Rubro") = DdlRubro.SelectedItem.Text
If DdlRubro.SelectedValue.ToEntero = 3 Then
+
Row("CveActividad") = DdlActividades.SelectedValue.ToEntero
Row("Actividad") = DdlActividades.SelectedItem.Text
Row("Dias") = TxtDias.Text.ToEntero
@@ -1838,6 +1840,23 @@ Partial Class Contratos_ContratoObra
Row("PS") = DdlActividades.SelectedItem.Text
Row("CodigoPS") = DdlActividades.SelectedItem.Text
+
+ ElseIf DdlRubro.SelectedValue.ToEntero = 4 Then
+
+ Row("CveActividad") = -1
+ Row("Actividad") = ""
+ Row("Dias") = TxtDias.Text.ToEntero
+ Row("CveSubTipoActivoFijo") = DdlSubTipoActivoFijo.SelectedValue.ToEntero
+
+
+ Row("CveUM") = -1
+ Row("UM") = ""
+ Row("CveClasificacion") = -1
+ Row("Clasificacion") = ""
+ Row("CvePS") = -1
+ Row("PS") = DdlSubTipoActivoFijo.SelectedItem.Text
+ Row("CodigoPS") = DdlSubTipoActivoFijo.SelectedItem.Text
+
Else
Row("CveActividad") = -1
Row("Actividad") = ""
@@ -1903,11 +1922,22 @@ Partial Class Contratos_ContratoObra
If CveRubro = 3 Then
+ CveSubTipoActivoFijo = -1
CveActividad = DdlActividades.SelectedValue.ToEntero
Dias = TxtDias.Text.ToEntero
CvePS = -1
CveUM = -1
+
+ ElseIf CveRubro = 4 Then
+
+ CveSubTipoActivoFijo = DdlSubTipoActivoFijo.SelectedValue.ToEntero
+ CveActividad = -1
+ Dias = TxtDias.Text.ToEntero
+
+ CvePS = -1
+ CveUM = -1
+
Else
CvePS = DdlProductowsInsumos.SelectedValue.ToEntero
CveUM = DdlUMInsumos.SelectedValue.ToEntero
@@ -1923,23 +1953,45 @@ Partial Class Contratos_ContratoObra
Dim ObjContratos As New ClsContratos
If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, "", False, "", CveRubro:=CveRubro, CveActividad:=CveActividad, CveSubTipoActivoFijo:=CveSubTipoActivoFijo, Dias:=Dias) Then
- If Autorizado Then
- Dim msj As String = String.Format("Se realizaron los siguientes cambios, el Presupuesto Interno se modificó: {1} {0} {2:C2} a {3} {0} {4:C2}",
- row("PS").ToString, row("Cantidad").ToString, row("PU").ToString, Cantidad, PU)
- guardarBitacora(msj)
- End If
+ 'If Autorizado Then
+ ' Dim msj As String = String.Format("Se realizaron los siguientes cambios, el Presupuesto Interno se modificó: {1} {0} {2:C2} a {3} {0} {4:C2}",
+ ' row("PS").ToString, row("Cantidad").ToString, row("PU").ToString, Cantidad, PU)
+ ' guardarBitacora(msj)
+ 'End If
+
+
row("Cantidad") = Cantidad
row("CantidadContratada") = Cantidad
row("PU") = PU
row("Total") = Cantidad * PU
row("CveUM") = CveUM
- row("UM") = DdlUMInsumos.SelectedItem.Text
+
row("NoIdentificacion") = "" 'NoIdentificacion
row("LimitarCantidad") = False
+
+ row("CveActividad") = CveActividad
+ row("CveSubTipoActivoFijo") = CveSubTipoActivoFijo
+ row("Dias") = Dias
+
+
+ If CveRubro = 3 Then
+ row("PS") = DdlActividades.SelectedItem.Text
+ row("CodigoPS") = DdlActividades.SelectedItem.Text
+ row("UM") = ""
+ ElseIf CveRubro = 4 Then
+ row("PS") = DdlSubTipoActivoFijo.SelectedItem.Text
+ row("CodigoPS") = DdlSubTipoActivoFijo.SelectedItem.Text
+ row("UM") = ""
+ Else
+ row("UM") = DdlUMInsumos.SelectedItem.Text
+ End If
+
TmpDT.AcceptChanges()
+
Alert("Cambios realizados correctamente.", TipoMensaje.MsgInformacion)
RegistraScript("$('#ModalControlAddPS').modal('hide')")
+
Else
Alert("Error al Actualizar Detalle", TipoMensaje.MsgError)
End If
@@ -2320,6 +2372,8 @@ Partial Class Contratos_ContratoObra
GvDatosVentasAvance.Visible = True
GvDatosVentasAvanceInterno.Visible = False
+ GvDatosVentasAvanceInternoRH.Visible = False
+ GvDatosVentasAvanceInternoMaquinaria.Visible = False
'Dim Btn = CType(sender, LinkButton)
'Dim Parametros = Btn.CommandArgument.Split("|"c)
@@ -2332,7 +2386,7 @@ Partial Class Contratos_ContratoObra
Dim ObjContratos As New ClsContratos
- If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 1) Then
+ If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 1, -1, UsuarioActual.CveEmpresa) Then
GvDatosVentasAvance.DataSource = ObjContratos.DtResultados
RegistraScript("$('#ModalVentasAvance').modal('show');RecargaAvances = true;")
Else
@@ -2357,26 +2411,61 @@ Partial Class Contratos_ContratoObra
Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
- GvDatosVentasAvance.Visible = False
- GvDatosVentasAvanceInterno.Visible = True
+
Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero
Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
Dim CodigoPS As String = GvRow.DataKey("CodigoPS")
Dim Clasificacion As String = GvRow.DataKey("Clasificacion")
+ Dim CveRubro As Integer = GvRow.DataKey("CveRubro").ToEntero
+
+
+
+
+ GvDatosVentasAvance.Visible = False
+
+ If CveRubro = 3 Then
+ GvDatosVentasAvanceInterno.Visible = False
+ GvDatosVentasAvanceInternoRH.Visible = True
+ GvDatosVentasAvanceInternoMaquinaria.Visible = False
+ ElseIf CveRubro = 4 Then
+ GvDatosVentasAvanceInterno.Visible = False
+ GvDatosVentasAvanceInternoRH.Visible = False
+ GvDatosVentasAvanceInternoMaquinaria.Visible = True
+ Else
+ GvDatosVentasAvanceInterno.Visible = True
+ GvDatosVentasAvanceInternoRH.Visible = False
+ GvDatosVentasAvanceInternoMaquinaria.Visible = False
+ End If
Dim ObjContratos As New ClsContratos
- If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 2) Then
- GvDatosVentasAvanceInterno.DataSource = ObjContratos.DtResultados
+ If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 2, CveRubro, UsuarioActual.CveEmpresa) Then
+
+ If CveRubro = 3 Then
+ GvDatosVentasAvanceInternoRH.DataSource = ObjContratos.DtResultados
+ ElseIf CveRubro = 4 Then
+ GvDatosVentasAvanceInternoMaquinaria.DataSource = ObjContratos.DtResultados
+ Else
+ GvDatosVentasAvanceInterno.DataSource = ObjContratos.DtResultados
+ End If
+
RegistraScript("$('#ModalVentasAvance').modal('show');RecargaAvances = true;")
Else
Alert("Ocurrió un error al obtener el Listado de Ventas de Avance. Por favor vuelva a intentar", TipoMensaje.MsgError)
End If
- ObjContratos.Dispose()
- GvDatosVentasAvanceInterno.DataBind()
+ ObjContratos.Dispose()
+
+ If CveRubro = 3 Then
+ GvDatosVentasAvanceInternoRH.DataBind()
+ ElseIf CveRubro = 4 Then
+ GvDatosVentasAvanceInternoMaquinaria.DataBind()
+ Else
+ GvDatosVentasAvanceInterno.DataBind()
+ End If
+
LbTituloModalVentasAvance.Text = "Compras de Avance"
@@ -4163,22 +4252,43 @@ Partial Class Contratos_ContratoObra
DVDias.Visible = True
DVActividadesRH.Visible = True
+ DVSubTipoActivoFijo.Visible = False
DVClasificacion.Visible = False
DVPS.Visible = False
DVUM.Visible = False
DdlActividades.SelectedValueExist(gvRow.DataKey("CveActividad"))
+ DdlSubTipoActivoFijo.SelectedValueExist(-1)
TxtDias.Text = gvRow.DataKey("Dias")
+
+ ElseIf CveRubro = 4 Then
+
+
+ DVDias.Visible = True
+ DVActividadesRH.Visible = False
+ DVSubTipoActivoFijo.Visible = True
+
+
+ DVClasificacion.Visible = False
+ DVPS.Visible = False
+ DVUM.Visible = False
+
+ DdlActividades.SelectedValueExist(-1)
+ DdlSubTipoActivoFijo.SelectedValueExist(gvRow.DataKey("CveSubTipoActivoFijo"))
+ TxtDias.Text = gvRow.DataKey("Dias")
+
Else
DVDias.Visible = False
DVActividadesRH.Visible = False
+ DVSubTipoActivoFijo.Visible = False
DVClasificacion.Visible = True
DVPS.Visible = True
DVUM.Visible = True
DdlActividades.SelectedValueExist(-1)
+ DdlSubTipoActivoFijo.SelectedValueExist(-1)
TxtDias.Text = "0"
End If
@@ -4218,18 +4328,22 @@ Partial Class Contratos_ContratoObra
UpModalVentasAddPS.Update()
End Sub
+
Private Sub LimpiarModalControl()
DdlActividades.Items.Clear()
+ DdlSubTipoActivoFijo.Items.Clear()
+
DdlActividades.DataSource = GlobalDTRHActividades(UsuarioActual.CveEmpresa)
DdlActividades.DataBind()
-
DdlActividades.Items.Insert(0, New ListItem("Seleccione una", "-1"))
+ DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa)
+ DdlSubTipoActivoFijo.DataBind()
+ DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
TxtCantidadInsumos.Text = ""
- 'ChkLimitarInsumos.Checked = False
- 'TxtNoIdentificacionvInsumos.Text = ""
DdlClasificacionAddInsumos.SelectedValueExist(-1)
DdlProductowsInsumos.txtText.Value = ""
@@ -4238,8 +4352,6 @@ Partial Class Contratos_ContratoObra
TxtPUInsumos.Text = ""
DdlRubro.SelectedValue = "2"
- ' DdlRubro_SelectedIndexChanged(Nothing, Nothing)
-
DVClasificacion.Visible = True
DVPS.Visible = True
@@ -4263,7 +4375,33 @@ Partial Class Contratos_ContratoObra
End Sub
+ Private Sub LimpiarModalMaquinaria()
+ DdlPersonal.Items.Clear()
+
+
+
+
+ DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
+ DdlPersonal.DataBind()
+ DdlPersonal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+ Dim Objcontratos As New ClsContratos
+ If Objcontratos.GetContratosMaquinariaFlotillaSubTipoAF(CveContrato, UsuarioActual.CveEmpresa) Then
+ DdlSubTipoAF.DataSource = Objcontratos.DtResultados
+ End If
+ Objcontratos.Dispose()
+ DdlSubTipoAF.DataBind()
+ DdlSubTipoAF.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+
+ TxtFechaMaquinaria.Text = ""
+
+
+
+ UpModalMaquinariaFlotilla.Update()
+
+ End Sub
Protected Sub BtnCargaPresupuesto_Click(sender As Object, e As EventArgs)
@@ -4287,7 +4425,7 @@ Partial Class Contratos_ContratoObra
DTCargaPresupuesto = CargaPreSupuestoExcel("Insumos")
DTCargaPresupuestoManoObra = CargaPreSupuestoExcel("ManoObra")
- DTCargaPresupuestoFlotillas = CargaPreSupuestoExcel("Flotillas")
+ DTCargaPresupuestoFlotillas = CargaPreSupuestoExcel("Maquinaria")
ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas)
@@ -4579,6 +4717,7 @@ Partial Class Contratos_ContratoObra
Row("Observacion") = ""
DTPS.Rows.Add(Row)
+ Else
End If
End If
@@ -4590,6 +4729,48 @@ Partial Class Contratos_ContratoObra
If Not DTCargaPresupuestoFlotillas Is Nothing Then
+ For Each DrowPS As DataRow In DTCargaPresupuestoFlotillas.Rows
+
+ Dim CveSubTipoActivoFijo As Integer = 0
+ Dim SubTipoActivoFijo As String = DrowPS("SubTipoAF").ToString
+
+ CveSubTipoActivoFijo = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubTipoActivoFijo", $" SubTipoActivoFijo = '{DrowPS("SubTipoAF").ToString }'").ToEntero
+
+ If CveSubTipoActivoFijo > 0 Then
+
+ Dim Row As DataRow = DTPS.NewRow()
+ Row("Cantidad") = DrowPS("Cantidad").ToString.ToDouble
+ Row("CantidadContratada") = DrowPS("Cantidad").ToString.ToDouble
+ Row("CveUM") = -1
+ Row("UM") = "Maquinaria Flotilla"
+ Row("CveClasificacion") = -1
+ Row("Clasificacion") = ""
+ Row("CvePS") = -1
+ Row("PS") = SubTipoActivoFijo
+ Row("CodigoPS") = SubTipoActivoFijo
+ Row("PU") = DrowPS("PU").ToString.ToDouble
+ Row("Total") = DrowPS("Cantidad").ToString.ToDouble * DrowPS("PU").ToString.ToDouble
+
+ Row("CveTipoPresupuesto") = 1
+ Row("CveRubro") = 3
+ Row("CveActividad") = -1
+ Row("CveSubTipoActivoFijo") = CveSubTipoActivoFijo
+ Row("Dias") = DrowPS("Horas").ToString.ToEntero
+
+ Row("NoIdentificacion") = ""
+ Row("OCInterna") = ""
+ Row("LimitarCantidad") = 0
+ Row("Observacion") = ""
+
+ DTPS.Rows.Add(Row)
+ Else
+
+ End If
+
+
+ Next
+
+
End If
@@ -4643,6 +4824,7 @@ Partial Class Contratos_ContratoObra
NrowTmpDT("Rubro") = Row("Rubro")
NrowTmpDT("Actividad") = Row("Actividad")
NrowTmpDT("SubTipoActivoFijo") = Row("SubTipoActivoFijo")
+ NrowTmpDT("Dias") = Row("Dias")
NrowTmpDT("CveContratoDetalle") = ObjContratos.DtResultados.Rows(0)("CveContratoDetalle")
@@ -4975,13 +5157,28 @@ Partial Class Contratos_ContratoObra
Protected Sub DdlRubro_SelectedIndexChanged(sender As Object, e As EventArgs)
- If DdlRubro.SelectedValue.ToEntero = 3 Then
+ If DdlRubro.SelectedValue.ToEntero = 3 Then 'Rubro RH
DVDias.Visible = True
DVActividadesRH.Visible = True
DVClasificacion.Visible = False
DVPS.Visible = False
DVUM.Visible = False
+
+ DVSubTipoActivoFijo.Visible = False
+
+
+ ElseIf DdlRubro.SelectedValue.ToEntero = 4 Then 'Rubro Maquinaria florilla herramienta
+
+ DVDias.Visible = True
+ DVActividadesRH.Visible = False
+
+ DVClasificacion.Visible = False
+ DVPS.Visible = False
+ DVUM.Visible = False
+
+ DVSubTipoActivoFijo.Visible = True
+
Else
DVDias.Visible = False
DVActividadesRH.Visible = False
@@ -4990,11 +5187,89 @@ Partial Class Contratos_ContratoObra
DVPS.Visible = True
DVUM.Visible = True
+ DVSubTipoActivoFijo.Visible = False
+
End If
UpModalControlAddPS.Update()
End Sub
+
+ Protected Sub LnkModalAddMaquinariaFlotilla_Click(sender As Object, e As EventArgs)
+
+ LimpiarModalMaquinaria()
+ RegistraScript("$('#ModalMaquinaria').modal('show');")
+
+ End Sub
+
+
+ Protected Sub DdlSubTipoAF_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubTipoAF.SelectedIndexChanged
+
+ DdlAF.Items.Clear()
+
+ If DdlSubTipoAF.SelectedIndex > 0 Then
+
+
+ Dim CveSubTipoActivoFijo As Integer = 0
+
+ Dim Separador As Char() = {"-"c}
+
+ Try
+ CveSubTipoActivoFijo = DdlSubTipoAF.SelectedValue.Split(Separador)(0).ToEntero
+ Catch ex As Exception
+ CveSubTipoActivoFijo = 0
+ End Try
+
+ If CveSubTipoActivoFijo > 0 Then
+ DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa, -1).FiltraParametros(String.Format("CveSubTipoActivoFijo IN ({0})", CveSubTipoActivoFijo))
+ End If
+
+ Else
+ DdlAF.DataSource = Nothing
+
+ End If
+
+ DdlAF.DataBind()
+
+
+
+ DdlAF.Items.Insert(0, New ListItem("Todos", "-1"))
+
+ UpModalMaquinariaFlotilla.Update()
+
+ End Sub
+
+
+ Protected Sub BtnModalMaquinariaAdd_Click(sender As Object, e As EventArgs)
+
+ Dim CveContratoDetalle As Integer = 0
+
+ Dim Separador As Char() = {"-"c}
+
+ Try
+ CveContratoDetalle = DdlSubTipoAF.SelectedValue.Split(Separador)(1).ToEntero
+ Catch ex As Exception
+ CveContratoDetalle = 0
+ End Try
+
+ Dim ObjContrato As New ClsContratos
+
+ If ObjContrato.AddContratosMaquinariaFlotilla(DdlAF.SelectedValue.ToEntero, TxtFechaMaquinaria.Text.ToDate, DdlPersonal.SelectedValue.ToEntero, TxtMaquinariaImporte.Text.ToDecimal, CveContratoDetalle) Then
+
+
+ If Not ChkModalMaquinaria.Checked Then
+ RegistraScript("$('#ModalMaquinaria').modal('hide');")
+ End If
+
+ Alert("Registro agregado correctamente.")
+
+ End If
+
+ ObjContrato.Dispose()
+
+ End Sub
+
+
End Class
diff --git a/Empresas/119/Formatos/NotaDevolucion.rdlc b/Empresas/119/Formatos/NotaDevolucion.rdlc
index 01485fb10..c1f00da0f 100644
--- a/Empresas/119/Formatos/NotaDevolucion.rdlc
+++ b/Empresas/119/Formatos/NotaDevolucion.rdlc
@@ -3,40 +3,6 @@
+
+
+
+
+
+
+
+
+
+
+
+
+ Maquinaria Flotilla
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ +
Movimiento de Salida Folio: {0}", link) Next + + End If 'APARTADO diff --git a/Inventarios/RecepcionUsados.aspx b/Inventarios/RecepcionUsados.aspx index f5b6dcc47..73a3c86bf 100644 --- a/Inventarios/RecepcionUsados.aspx +++ b/Inventarios/RecepcionUsados.aspx @@ -494,8 +494,8 @@
{0}", mensaje2) diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index 320899cee..95743d634 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/Inventarios/ResguardoMaterial.aspx.vb @@ -802,6 +802,7 @@ Partial Class Inventarios_ResguardoMaterial Private Sub Guardar(Concepto As Integer) Dim ObjInventario As New ClsInventarios Dim ObjEventos As New ClsOIEventos(ObjInventario.IniciaTransacSQL()) 'Inicia la transacción + Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL()) Dim TieneError = False Dim MensajeError As String = "" Dim ImporteConcepto = 0.0 @@ -854,6 +855,7 @@ Partial Class Inventarios_ResguardoMaterial If Not TieneError Then CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 2, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservaciones.Text, CvePersonal:=CvePersonal, CveMovimientoRelacionado:=CveMovimientoSalida, CveCliente:=CveCliente, CveProveedor:=CveProveedor, Modulo:="ResgMat2") FolioEntrada = ObjInventario.Folio + Dim Importe As Decimal = 0 If CveMovimientoEntrada <= 0 Then MensajeError = "Ocurrió un error al guardar el movimiento de entrada correctamente. Por favor vuelva a intentar." @@ -862,6 +864,7 @@ Partial Class Inventarios_ResguardoMaterial If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then Dim CveSeccionAlmacen As Integer = 0 + Importe = ObjInventario.DtResultados.SUMD("Total").RoundSQL For Each Dr As DataRow In ObjInventario.DtResultados.Rows If CBool(Dr("AplicaSeccion")) Then CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestino.SelectedValue.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero @@ -880,6 +883,10 @@ Partial Class Inventarios_ResguardoMaterial Next End If End If + + 'registra la prepoliza + + ContabilizaMovimientoAlmacen(ObjConta, Fecha, "Resguardo", "ResgMat", CveMovimientoSalida, CveMovimientoEntrada, Importe, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False) End If Case 24 'LIBERACION @@ -914,6 +921,7 @@ Partial Class Inventarios_ResguardoMaterial If Not TieneError Then CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, 23, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveMovimientoRelacionado:=CveMovimientoSalida, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True, Modulo:="ResgMat4") FolioEntrada = ObjInventario.Folio + Dim Importe As Decimal = 0 If CveMovimientoEntrada <= 0 Then MensajeError = "Ocurrió un error al guardar el movimiento de entrada correctamente. Por favor vuelva a intentar." @@ -921,6 +929,7 @@ Partial Class Inventarios_ResguardoMaterial Else If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then Cont = 0 + Importe = ObjInventario.DtResultados.SUMD("Total").RoundSQL For Each Dr As DataRow In ObjInventario.DtResultados.Rows Dim CveSeccionAlmacen As Integer = DiccionarioSecciones(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.ToEntero If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then @@ -932,6 +941,9 @@ Partial Class Inventarios_ResguardoMaterial Cont += 1 Next End If + + ContabilizaMovimientoAlmacen(ObjConta, Fecha, "Resguardo", "ResgMat", CveMovimientoSalida, CveMovimientoEntrada, Importe, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False) + End If End If @@ -981,6 +993,25 @@ Partial Class Inventarios_ResguardoMaterial ObjInventario.Dispose() ObjEventos.Dispose() End Sub + + Public Function ContabilizaMovimientoAlmacen(ByRef ObjConta As ClsContabilidad, Fecha As Date, Concepto As String, Modulo As String, CveMovimientoSalida As Integer, CveMovimientoEntrada As Integer, Importe As Decimal, CveUsuario As Integer, CveEmpresa As Integer, Contabilizable As Boolean) As Integer + Dim Retorno As Integer = -1 + Dim ErrorMovInv As Boolean = False + + Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas(Modulo, 53, 0, 0, 1, Fecha, Concepto, CveUsuario, CveEmpresa) + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, "", 68, Concepto, Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=Importe, Contabilizable:=Contabilizable) Then + ErrorMovInv = True + End If + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, "", 68, Concepto, Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=Importe, Contabilizable:=Contabilizable) Then + ErrorMovInv = True + End If + + If Not ErrorMovInv Then Retorno = CvePrePoliza + + Return Retorno + End Function + Private Function AgregarAgenda(ByRef ObjEventos As ClsOIEventos, FolioEntrada As Integer, FolioSalida As Integer) As Boolean Dim TieneError As Boolean = False Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1", CveAgendaTipo = 4, Prioridad = 3, CveTipoEvento = 2, Importe = -1 diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index baf983a9c..828eadeda 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -214,7 +214,11 @@ Partial Class Inventarios_TrasladoSolicitud Else TrGuia.Visible = False End If - BtnEliminar.Visible = True + + If UsuarioActual.TienePermisoProceso(313) Then + BtnEliminar.Visible = True + End If + BtnGuardar.Enabled = False TxtObservaciones.Enabled = False TxtFecha.Enabled = False @@ -563,6 +567,8 @@ Partial Class Inventarios_TrasladoSolicitud Dim CodigoPS As String = "" + + 'Aqui poner permiso para poder evitar permiso de traslado If ObjInventarios.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then If ObjInventarios.DtResultados.Rows.Count > 0 Then @@ -1037,9 +1043,6 @@ Partial Class Inventarios_TrasladoSolicitud MandaCorreoRechazo(LbFolio.Text.ToEntero, CveTraspasoSolicitud, CveUsuarioSolicita, TxtMotivoRechazo.Text) CargaDatos() RegistraScript("$('#ModalRechazarTraslado').modal('hide');") - - - End If End Sub diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index 06766458f..eaf48f3d2 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -650,7 +650,7 @@
+ <%--
--%>