diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index ddea8c483..6792fb427 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -464,7 +464,7 @@ Partial Class Bancos_FluctuacionCambiaria If Not ErrorRegistrar Then Conta.Commit() BtnGeneraCompras.Visible = False - Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) + Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) Else Conta.RollBack() Alert("Error al generar la fluctuación", TipoMensaje.MsgError) @@ -547,7 +547,7 @@ Partial Class Bancos_FluctuacionCambiaria If Not ErrorRegistrar Then Conta.Commit() BtnGeneraComprasAnt.Visible = False - Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) + Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) Else Conta.RollBack() Alert("Error al generar la fluctuación", TipoMensaje.MsgError) @@ -648,7 +648,7 @@ Partial Class Bancos_FluctuacionCambiaria If Not ErrorRegistrar Then Conta.Commit() BtnGeneraVentas.Visible = False - Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) + Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) Else Conta.RollBack() @@ -745,7 +745,7 @@ Partial Class Bancos_FluctuacionCambiaria If Not ErrorRegistrar Then Conta.Commit() BtnClientesAnticipos.Visible = False - Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) + Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) Else Conta.RollBack() diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 5c3e6548a..2df209c95 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -4886,11 +4886,10 @@
Saldo: $
- -
+
- + @@ -4915,6 +4914,11 @@ + + + + +
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 35a212363..72bb963e5 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3048,8 +3048,10 @@ Partial Class Compras_Compras 'ELIMINAR A FUERZAS If UsuarioActual.TienePermisoProceso(77) Then - If Not (IdPoliza > 0) Then - BtnEliminarCompra.Visible = True + BtnEliminarCompra.Visible = True + If CompraSaldo <> TxtTotal.Text.ToDouble AndAlso dr("TipoDocto").ToString = "Fac" Then + BtnEliminarCompra.Enabled = False + BtnEliminarCompra.ToolTip = "La compra tiene pagos asociados, elimine los pagos primero." End If End If @@ -3061,7 +3063,7 @@ Partial Class Compras_Compras If UsuarioActual.Empresa.UsaAC Then BtnEliminarCompra.Attributes.Add("data-original-title", String.Format("¿Está seguro que desea eliminar la Compra, {0} y la Poliza Asociada?", StrInventario)) - Else + ElseIf BtnEliminarCompra.Enabled Then BtnEliminarCompra.Attributes.Add("data-original-title", String.Format("¿Está seguro que desea eliminar la Compra y {0}?", StrInventario)) End If End If @@ -6600,7 +6602,7 @@ Partial Class Compras_Compras 'no es necesario, ya se está interpretandoe l usado como producto Dim ConceptoContabilizacionNC = 225 - Dim tCveClasif As Integer = -1 + Dim tCveClasif As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero Dim tCveSubProyecto As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero Dim CveMovimientoDevolucion As Integer = -1 @@ -6612,11 +6614,14 @@ Partial Class Compras_Compras 'cuando es garantía. If DdlTipoCompra.SelectedValue = "12" Then ConceptoContabilizacionNC = 259 - tCveClasif = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero End If Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" + If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then + ErrorMovInv = True + End If + If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then RegistroCuentaPuente = True Dim ImporteTransito As Decimal = 0 @@ -16205,7 +16210,7 @@ Partial Class Compras_Compras 'HACEMOS CALCULOS SubTotalIVA = TmpDT.SUM("IVA") SubTotalIEPSIVA = TmpDT.SUM("IEPSPSIVA") - SubTotal = (TmpDT.SUM("Total") + TmpDT.SUM("Descuento")).RoundSQL(6) + SubTotal = (TmpDT.SUM("Total") + TmpDT.SUM("Descuento")).RoundSQL(8) RetIVA = TmpDT.SUM("RetIVA") RetISR = TmpDT.SUM("RetISR") IEPSPS = TmpDT.SUM("IEPSPS") @@ -16674,7 +16679,7 @@ Partial Class Compras_Compras ViewState("RetIVA") = GvRow.DataKey("RetIVAPorcentaje").ToDouble ViewState("RetISR") = GvRow.DataKey("RetISRPorcentaje").ToDouble - TxtPrecio.Text = GvRow.DataKey("PU").ToDecimal.ToString("#,##0.00####") + TxtPrecio.Text = GvRow.DataKey("PU").ToDecimal.ToString("#,##0.00########") TxtDescuentoModal.Text = GvRow.DataKey("Descuento").ToDecimal.ToString("#,##0.00####") LblTotalPS.Text = GvRow.DataKey("Total").FormatoNumero @@ -18271,7 +18276,7 @@ Partial Class Compras_Compras End If Else If ChkNCInvNC.Checked Then - Alert("Niguna de las facturas seleccionadas cuenta con productos pendientes de darles entrada.", TipoMensaje.MsgAdvertencia) + Alert("Ninguna de las facturas seleccionadas cuenta con productos pendientes de darles entrada.", TipoMensaje.MsgAdvertencia) ChkNCInvNC.Checked = False UpChkNCInvNC.Update() Exit Sub @@ -18360,15 +18365,18 @@ Partial Class Compras_Compras 'Dim ObjCompras As New ClsCompras 'Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL) 'Dim TieneError = False - - 'For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows - ' If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then - ' If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, Gvr.DataKey("CveCompra").ToEntero, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then - ' TieneError = True - ' Exit For - ' End If - ' End If - 'Next + Dim i As Integer = 0 + For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows + If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then + If i < TmpDT.Rows.Count Then + TmpDT.Rows(i)("CveOrdenCompraDetalle") = Gvr.DataKey("CveOrdenCompraDetalle") + End If + 'If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, Gvr.DataKey("CveCompra").ToEntero, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then + ' TieneError = True + ' Exit For + 'End If + End If + Next 'If Not TieneError Then ' Alert("Se guardo la devolución correctamente", TipoMensaje.MsgInformacion) @@ -20492,6 +20500,10 @@ Partial Class Compras_Compras dRow8_5("Descuento") = dRow8_5("Descuento").ToString.ToDecimal * Mul85 dRow8_5("Total") = dRow8_5("Total").ToString.ToDecimal * Mul85 dRow8_5("NoDeducible") = 0 + If DdlAsignaSubProyecto.SelectedValue.ToEntero > 0 Then + dRow8_5("CveSubProyecto") = DdlAsignaSubProyecto.SelectedValue.ToEntero + dRow8_5("SubProyecto") = DdlAsignaSubProyecto.SelectedItem.Text + End If psCvePs = 700563 rowPS = GlobalDTPS(UsuarioActual.CveEmpresa, psCvePs).Rows(0) @@ -20518,6 +20530,11 @@ Partial Class Compras_Compras dRow91_5("Descuento") = dRow91_5("Descuento").ToString.ToDecimal * Mul91_5 dRow91_5("Total") = dRow91_5("Total").ToString.ToDecimal * Mul91_5 dRow91_5("NoDeducible") = 1 + If DdlAsignaSubProyecto.SelectedValue.ToEntero > 0 Then + dRow91_5("CveSubProyecto") = DdlAsignaSubProyecto.SelectedValue.ToEntero + dRow91_5("SubProyecto") = DdlAsignaSubProyecto.SelectedItem.Text + End If + DTProtateo.Rows.Add(dRow8_5) DTProtateo.Rows.Add(dRow91_5) Consec = Consec + 2 diff --git a/Contabilidad/ContabilizacionCompras.aspx b/Contabilidad/ContabilizacionCompras.aspx index 9f2eaf940..a655fde16 100644 --- a/Contabilidad/ContabilizacionCompras.aspx +++ b/Contabilidad/ContabilizacionCompras.aspx @@ -191,7 +191,7 @@ - + diff --git a/Contabilidad/ContabilizacionCompras.aspx.cs b/Contabilidad/ContabilizacionCompras.aspx.cs index aed42c95a..1217aa139 100644 --- a/Contabilidad/ContabilizacionCompras.aspx.cs +++ b/Contabilidad/ContabilizacionCompras.aspx.cs @@ -144,6 +144,7 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas if (UsuarioActual.Empresa.TipoContabilidad == 1) // conta SIG { e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("FolioPoliza").ToEntero() > 0; + e.Row.FCHyperLink("HLPoliza").Text = $"Póliza: {e.Row.DBCampo("FolioPoliza")}"; e.Row.FCHyperLink("HLPoliza").NavigateUrl = $"/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}"; } else diff --git a/Contabilidad/ContabilizacionVentas.aspx b/Contabilidad/ContabilizacionVentas.aspx index 3bd4788a6..407c6b052 100644 --- a/Contabilidad/ContabilizacionVentas.aspx +++ b/Contabilidad/ContabilizacionVentas.aspx @@ -158,7 +158,7 @@ - + diff --git a/Contabilidad/ContabilizacionVentas.aspx.cs b/Contabilidad/ContabilizacionVentas.aspx.cs index 42f262ef1..3232a689d 100644 --- a/Contabilidad/ContabilizacionVentas.aspx.cs +++ b/Contabilidad/ContabilizacionVentas.aspx.cs @@ -129,7 +129,16 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas e.Row.FCHyperLink("HplEdicion").Visible = true; } - e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("IdPoliza").ToEntero() > 0; + if (UsuarioActual.Empresa.TipoContabilidad == 1) + { + e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("FolioPoliza").ToEntero() > 0; + e.Row.FCHyperLink("HLPoliza").Text = $"Póliza: {e.Row.DBCampo("FolioPoliza")}" ; + e.Row.FCHyperLink("HLPoliza").NavigateUrl = $"/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}"; + } + else + { + e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("IdPoliza").ToEntero() > 0; + } contP.Dispose(); GvD.DataBind(); @@ -409,20 +418,29 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas int index = Convert.ToInt32(row.RowIndex); int CvePrePoliza = GvV.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero(); - + ObjMov.IniciaTransacSQL(); + bool HuboError = false; if (ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa)) { - if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5))// por default manda la opcion 5, para ajustar a fluctuacion + var usuario = UsuarioActual; + if (ObjMov.ValidacionesPrePoliza(CvePrePoliza, ref usuario, Opcion:5,AutoConta:false))// por default manda la opcion 5, para ajustar a fluctuacion { - + Alert("Se ha simplificado la poliza correctamente", ModExtensiones.TipoMensaje.MsgInformacion); } - Alert("Se ha simplificado la poliza correctamente", ModExtensiones.TipoMensaje.MsgInformacion); + else + { HuboError = true; } } else { + HuboError = true; Alert("Ocurrió un error al simplificar la póliza", ModExtensiones.TipoMensaje.MsgError); } + if (!HuboError) + { ObjMov.Commit(); } + else + { ObjMov.RollBack(); } + ObjMov.Dispose(); cargaPolizas(); } diff --git a/Contabilidad/RegPoliza.aspx b/Contabilidad/RegPoliza.aspx index eaee667a9..5cf040c61 100644 --- a/Contabilidad/RegPoliza.aspx +++ b/Contabilidad/RegPoliza.aspx @@ -548,6 +548,7 @@ + Prep  <%----%> diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb index 9b89d7ad8..564ecad8c 100644 --- a/Contabilidad/RegPoliza.aspx.vb +++ b/Contabilidad/RegPoliza.aspx.vb @@ -2,6 +2,7 @@ Option Strict On Imports System.Data +Imports System.Drawing Imports Extensiones 'Imports System.Activities.Statements 'Imports msExcel = Microsoft.Office.Interop.Excel @@ -11,8 +12,7 @@ Imports Extensiones Partial Class RegPoliza Inherits ClsPaginas - Private Shared missing As Object = System.Reflection.Missing.Value - 'Dim RemoveMovimientos As New ArrayList() + #Region "P R O P E R T Y" Private Property NumRow As Integer Private Property IDPoliza As Integer @@ -213,6 +213,8 @@ Partial Class RegPoliza End If ObjConta.Dispose() + + Else Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia) BtnConsultar.Enabled = False @@ -624,110 +626,6 @@ Partial Class RegPoliza End Sub - '#Region "E X C E L" - ' Private Function GetMacro() As String - ' Dim SB As New StringBuilder - ' SB.Append(" Sub AddRow(Row As String) " & vbLf) - ' SB.Append(" Rows(Row & "":"" & Row).Select " & vbLf) - ' SB.Append(" Selection.Copy " & vbLf) - ' SB.Append(" Selection.Insert Shift:=xlDown " & vbLf) - ' SB.Append(" Rows(Row+1 & "":"" & Row+1).Select " & vbLf) - ' SB.Append(" Selection.ClearContents " & vbLf) - ' SB.Append(" End Sub " & vbLf) - ' Return SB.ToString - ' End Function - - ' Private Sub GeneraPDF() - ' Dim Msg As New StringBuilder - ' Dim Excel As msExcel.Application = New msExcel.Application() - ' Dim VB_Module As VBComponent = Nothing - ' Excel.Visible = True - ' Excel.ScreenUpdating = True - ' Excel.DisplayAlerts = True - ' Dim ArchivoBase As New System.IO.FileInfo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza.xlsm") - ' 'ArchivoBase.CopyTo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & LtlNumeroPoliza.Text.ToString() & ".xlsm", True) - ' ArchivoBase.CopyTo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & TxtNumeroPoliza.Text.ToString() & ".xlsm", True) - ' 'Dim ArchivoTemp As New System.IO.FileInfo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & LtlNumeroPoliza.Text.ToString() & ".xlsm") - ' Dim ArchivoTemp As New System.IO.FileInfo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & TxtNumeroPoliza.Text.ToString() & ".xlsm") - - ' Dim Libro As msExcel.Workbook = Excel.Workbooks.Open(ArchivoTemp.FullName, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing) - ' Libro.Activate() - - ' Dim Hoja As msExcel.Worksheet = CType(Libro.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet) - ' Hoja.Visible = Microsoft.Office.Interop.Excel.XlSheetVisibility.xlSheetVisible - ' Hoja.Activate() - ' VB_Module = CType(Libro.VBProject.VBComponents.Add(Microsoft.Vbe.Interop.vbext_ComponentType.vbext_ct_StdModule), VBComponent) - ' VB_Module.CodeModule.AddFromString(GetMacro) - - ' 'Encabezado - ' Hoja.Range("A1:A1").Value = UsuarioActual.Empresa.Empresa.ToString.Trim - ' Hoja.Range("F2:F2").Value = "Impresión de póliza del " + TxtFechaPoliza.Text.Trim.ToDate.ToShortDateString + " al " + TxtFechaPoliza.Text.Trim.ToDate.ToShortDateString - ' Hoja.Range("K2:K2").Value = TxtFechaPoliza.Text.Trim.ToDate.ToShortDateString - - ' 'Linea 1 datos de la poliza - ' Dim CeldaI As Integer = 9 - ' Dim CeldaF As Integer = 9 - ' Hoja.Range("A" & CeldaF & ":A" & CeldaF).Value = TxtFechaPoliza.Text.Trim.ToDate.ToShortDateString - ' Hoja.Range("C" & CeldaF & ":C" & CeldaF).Value = DdlTipoPoliza.SelectedItem.ToString.Trim - ' 'Hoja.Range("E" & CeldaF & ":E" & CeldaF).Value = LtlNumeroPoliza.Text.Trim - ' Hoja.Range("E" & CeldaF & ":E" & CeldaF).Value = TxtNumeroPoliza.Text.Trim - ' Hoja.Range("F" & CeldaF & ":F" & CeldaF).Value = TxtConcepto.Text.Trim - - ' CeldaF = CeldaF + 1 - ' 'Movimientos de la poliza Debe de haceptar 36 renglones de excel - ' For Each Row As DataRow In TmpDT.Rows - ' Libro.Application.Run("AddRow", (CeldaF - 1).ToString, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, - ' missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing) - ' Hoja.Range("A" & CeldaF & ":A" & CeldaF).Value = Row("NumMovto").ToString.Trim - ' Hoja.Range("B" & CeldaF & ":B" & CeldaF).Value = Row("Referencia").ToString.Trim - ' Hoja.Range("D" & CeldaF & ":D" & CeldaF).Value = Row("CuentaFormato").ToString.Trim - ' Hoja.Range("F" & CeldaF & ":F" & CeldaF).Value = Row("Cuenta").ToString.Trim - ' If Row("Cargo").ToString.ToDouble <> 0 Then - ' Hoja.Range("J" & CeldaF & ":J" & CeldaF).Value = Row("Cargo").ToString.FormatoNumero - ' End If - ' If Row("Abono").ToString.ToDouble <> 0 Then - ' Hoja.Range("K" & CeldaF & ":K" & CeldaF).Value = Row("Abono").ToString.FormatoNumero - ' End If - ' CeldaF = CeldaF + 1 - ' Libro.Application.Run("AddRow", (CeldaF - 1).ToString, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, - ' missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing) - ' Hoja.Range("F" & CeldaF & ":F" & CeldaF).Value = Row("Concepto").ToString.Trim - ' CeldaF = CeldaF + 1 - ' Next - ' Hoja.Range("J" & CeldaF & ":J" & CeldaF).Value = TmpDT.SUM("Cargo").FormatoNumero - ' Hoja.Range("K" & CeldaF & ":K" & CeldaF).Value = TmpDT.SUM("Abono").FormatoNumero - - ' 'Exportar PDF - ' 'Dim pdfFileOut As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & LtlNumeroPoliza.Text.ToString() & ".pdf" - ' Dim pdfFileOut As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & TxtNumeroPoliza.Text.ToString() & ".pdf" - ' Dim outputFileName As Object = pdfFileOut - ' Dim fileFormat As msExcel.XlFixedFormatType = msExcel.XlFixedFormatType.xlTypePDF - ' Libro.ExportAsFixedFormat(fileFormat, outputFileName, missing, missing, missing, missing, missing, missing, missing) - ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Hoja) - ' Hoja = Nothing - ' Dim saveChanges As Object = msExcel.XlSaveAction.xlDoNotSaveChanges - ' CType(Libro, msExcel._Workbook).Close(saveChanges, missing, missing) - ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Libro) - ' Libro = Nothing - ' Excel.Quit() - ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Excel) - ' Excel = Nothing - ' GC.Collect() - ' GC.WaitForPendingFinalizers() - ' ArchivoTemp.Delete() - - ' Dim Descargas As New StringBuilder() - ' 'Descargas.AppendFormat("
  • PDF
    • ", UsuarioActual.CveEmpresa, LtlNumeroPoliza.Text) - ' Descargas.AppendFormat("
  • PDF
    • ", UsuarioActual.CveEmpresa, TxtNumeroPoliza.Text) - - ' Alert("
    La impresión se generó correctamente.


    Descargas:
      " & Descargas.ToString & "
    ", TipoMensaje.MsgInformacion) - ' 'RegistraScript("AbrirVentana('/Ventas/PopUpImprimir.aspx?CveVenta=" & If(EsVistaPrevia, UsuarioActual.CveUsuario.ToString, VentaFolio) & "&Ext=PDF', 700, 400, 'N', 'ImpVenta')") - - - ' End Sub - - '#End Region - #Region " P O L I Z A S - C O M P L E M E N T A R I A S " Private Sub CargaPolizaComplementaria(tIDPoliza As Integer) @@ -982,17 +880,26 @@ Partial Class RegPoliza If ObjConta.GetPrePoliza(-1, UsuarioActual.CveEmpresa, IDPoliza) Then If ObjConta.DtResultados.Rows.Count > 0 Then CvePrePoliza = ObjConta.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero + If UsuarioActual.CveRol = 1 Then + BtnNuevo.BackColor = Color.Yellow + BtnNuevo.ToolTip = CvePrePoliza.ToString + HplCvePrep.Visible = True + HplCvePrep.NavigateUrl = "/Contabilidad/RegPrePolizas.aspx?CvePrePoliza=" & CvePrePoliza + + End If End If End If If UsuarioActual.TienePermisoProceso(145) Then - BtnEliminar.Visible = True - End If - ' CargaDevoluciones() + BtnEliminar.Visible = True End If - - + ' CargaDevoluciones() End If + If Request("Regenera") IsNot Nothing AndAlso Request("Regenera").ToString = "1" Then + GeneraPrePoliza(tIDPoliza, DT, CvePrePoliza) + End If + + End If ObjPoliza.Dispose() ObjConta.Dispose() @@ -1244,6 +1151,82 @@ Partial Class RegPoliza ObjContabilidad.Dispose() End Sub + + Private Sub GeneraPrePoliza(tIdPoliza As Integer, dtt As DataTable, tCvePrePoliza As Integer) + Dim ObjConta As New ClsContabilidad() + ObjConta.IniciaTransacSQL() + Dim ObjContaq As New ClsContPAQi(UsuarioActual.Empresa) + ObjContaq.IniciaTransacSQL() + Dim ErrorRegistro As Boolean = False + Dim dr As DataRow = dtt.FiltroPrimero("") + Dim tCvePrePolizaOriginal As Integer = tCvePrePoliza + + If tCvePrePoliza <= 0 Then + tCvePrePoliza = ObjConta.AddPrePolizas("RegPreP/Man", 53, 0, 0, 1, dr("FechaPol").ToString.ToDate, If(dr("ConceptoPoliza").ToString = "", ".", dr("ConceptoPoliza").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, + FolioFijo:=dr("Folio").ToString.ToEntero) + Else + 'ocultar los que ya están registrados en la prepóliza + If ObjConta.GetPrePolizasDetalle(tCvePrePoliza, UsuarioActual.CveEmpresa) Then + For Each drtt As DataRow In ObjConta.DtResultados.FiltraParametros("Contabilizable = 1").Rows + ObjConta.UpdateContabilizable(drtt("CvePrePolizaDetalle").ToString.ToEntero, False) + Next + End If + End If + + If tCvePrePoliza > 0 Then + Dim dtc As DataTable = Nothing + If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then + dtc = ObjConta.DtResultados + End If + + For Each drt As DataRow In dtt.Rows + 'PrePólizaDetalle + Dim tCveCuenta As Integer = dtc.FiltroPrimeroValor("CveCuenta", $"IdCompaq={drt("IdCuenta")}").ToEntero + Dim tCveSub As Integer = If(drt("IdSegNeg").ToString <> "", GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto ='{drt("SegNeg")}'").ToEntero, -1) + 'If tCveSub <= 0 AndAlso drt("IdSegNeg").ToString.ToEntero = 0 Then 'toma el primero + ' tCveSub = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero + 'End If + If ObjConta.AddPrePolizasDetalle(tCvePrePoliza, drt("TipoMovto").ToString = "True", + drt("Importe").ToString.ToDecimal, + drt("Concepto").ToString, 299, + drt("Concepto").ToString, Now, + drt("IdCuenta").ToString.ToEntero, 0, + CveSubProyecto:=tCveSub, + ImporteMX:=drt("Importe").ToString.ToDecimal, CveCuenta:=tCveCuenta) Then + 'registro + If Not ObjContaq.UpdateMovimientoPrePolizaDetalle(drt("IdPoliza").ToString.ToEntero, + drt("Id").ToString.ToEntero, + ObjConta.CvePrePolizaDetalle) Then + ErrorRegistro = True + Exit For + End If + Else + ErrorRegistro = True + Exit For + End If + Next + + If Not ErrorRegistro AndAlso tCvePrePolizaOriginal <= 0 AndAlso Not ObjConta.UpdatePrePoliza(dr("FechaPol").ToString.ToDate, dr("Folio").ToString.ToEntero, -1, tIdPoliza, tCvePrePoliza, UsuarioActual.CveEmpresa, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + ErrorRegistro = True + End If + Else + ErrorRegistro = True + End If + + If Not ErrorRegistro Then + Alert($"Ver Póliza   ") + ObjConta.Commit() + ObjContaq.Commit() + Else + ObjConta.RollBack() + ObjContaq.RollBack() + End If + + ObjConta.Dispose() + ObjContaq.Dispose() + + End Sub + #End Region #Region "Historial de Modificacion" @@ -1259,53 +1242,6 @@ Partial Class RegPoliza End Sub #End Region - 'Protected Sub TxtNumeroPoliza_TextChanged(sender As Object, e As EventArgs) Handles TxtNumeroPoliza.TextChanged - ' If HdnFolioPoliza.Value.ToEntero <> TxtNumeroPoliza.Text.Trim.ToEntero Then - ' BtnGuardar.OnClientClick = "return confirm('Intenta cambiar el número de la póliza?')" - ' Else - ' BtnGuardar.OnClientClick = "" - ' End If - ' upDatos.Update() - 'End Sub - - 'Protected Sub TxtFechaPoliza_TextChanged(sender As Object, e As EventArgs) Handles TxtFechaPoliza.TextChanged - ' If HdnFechaPoliza.Value.ToDate.ToShortDateString <> TxtFechaPoliza.Text.ToDate.ToShortDateString Then - ' BtnGuardar.OnClientClick = "return confirm('Intenta cambiar la fecha de la póliza?')" - ' Else - ' BtnGuardar.OnClientClick = "" - ' End If - ' upDatos.Update() - ' upTitulos.Update() - 'End Sub - - 'Protected Sub DdlTipoPoliza_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoPoliza.SelectedIndexChanged - ' If HdnTipoPoliza.Value <> DdlTipoPoliza.SelectedValue Then - ' BtnGuardar.OnClientClick = "return confirm('Intenta Cambiar el tipo de póliza?')" - ' Else - ' BtnGuardar.OnClientClick = "" - ' End If - ' upDatos.Update() - ' upTitulos.Update() - 'End Sub - - 'TmpDT = Nothing - 'GvDatos.DataBind() - 'TxtFechaPoliza.Text = "" - 'TxtFecha.Text = "" - 'DdlTipoPoliza.SelectedIndex = 0 - 'TxtNumero.Text = "" - ''LtlNumeroPoliza.Text = "-" - 'TxtNumeroPoliza.Text = "-" - 'HdnIdPoliza.Value = "" - 'TxtConcepto.Text = "" - 'TxtReferencia.Text = "" - 'DdlCuenta.SelectedIndex = 0 - 'DdlSegNeg.SelectedIndex = 0 - 'TxtNombreConcepto.Text = "" - 'TxtCargo.Text = "" - 'TxtAbono.Text = "" - 'LblCargo.Text = "0.00" - 'LblAbono.Text = "0.00" Private Sub limpia() HdnCveCuenta.Value = "" diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 26240fae6..421e49bb0 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -300,7 +300,7 @@
    -
    +
    @@ -416,12 +416,12 @@ -
    +
    - Movimientos2 + Movimientos.
    @@ -551,14 +551,14 @@ - + - + @@ -614,7 +614,7 @@
    - +
    @@ -622,7 +622,7 @@
    - +
    @@ -657,11 +657,7 @@
    - - -
    -
    @@ -893,7 +889,7 @@
    - +
    @@ -901,7 +897,7 @@
    - +
    diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 169028c41..d213f08be 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1,12 +1,8 @@  Imports System.Data -Imports System.Net.NetworkInformation -Imports ADSNetLibrary.SIGAPI.Models.OC.Response 'Imports DocumentFormat.OpenXml Imports Extensiones Imports GemBox.Spreadsheet -Imports Microsoft.JScript -Imports Microsoft.Reporting.WebForms Partial Class ContabilidadC_RegPrePolizaS Inherits ClsPaginas @@ -260,6 +256,8 @@ Partial Class ContabilidadC_RegPrePolizaS 'End If Tick = DateTime.Now.Ticks.ToString + TxtTotalCargos.Attributes.Add("readonly", "readonly") + TxtTotalAbonos.Attributes.Add("readonly", "readonly") CveMoneda = 1 ViewState("CvePrePoliza") = 0 @@ -778,6 +776,7 @@ Partial Class ContabilidadC_RegPrePolizaS CargaSubProyectos() CargaCuentasContables() End If + divPrePolizas.Visible = True GvPrePoliza.Visible = True DivAgregarConceptos.Visible = False divMovtos.Visible = False @@ -786,6 +785,7 @@ Partial Class ContabilidadC_RegPrePolizaS Else DivAgregarConceptos.Visible = False divMovtos.Visible = True + divPrePolizas.Visible = False UPMovs.Update() End If @@ -936,12 +936,15 @@ Partial Class ContabilidadC_RegPrePolizaS End If 'validaciones - If Not (TotalCargos = TotalAbonos AndAlso (GvPrePoliza.Rows.Count > 0 Or GvMov.Rows.Count > 0)) AndAlso UsuarioActual.CveRol <> 1 Then + If ((GvPrePoliza.Visible AndAlso GvPrePoliza.Rows.Count = 0) OrElse ((GvMov.Visible AndAlso GvMov.Rows.Count = 0))) Then + Alert(" No se han especificado partidas", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + If (TotalCargos <> TotalAbonos) Then Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia) Exit Sub End If - If Not CvePrePoliza > 0 Then For Each Gvr As GridViewRow In GvMov.Rows @@ -1119,10 +1122,9 @@ Partial Class ContabilidadC_RegPrePolizaS If CveIE > 0 AndAlso gvr.DataKey("CveConceptoContable").ToEntero = 30 Then MensajeAlert.AppendFormat("

    Folio Bancario: {1}", CveIE, FolioIE) End If - Next - If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaInsertada, 1) Then + If MsgError = "" AndAlso Not ObjMov.ValidacionesPrePoliza(CvePrePolizaInsertada, UsuarioActual) Then If ObjMov.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePolizaInsertada}", "LogPrePolizas") MsgError = ObjMov.MensajePolizaDescuadre diff --git a/Contabilidad2/RepSituacionFinanciera.aspx b/Contabilidad2/RepSituacionFinanciera.aspx index fa55f44f0..e122aab97 100644 --- a/Contabilidad2/RepSituacionFinanciera.aspx +++ b/Contabilidad2/RepSituacionFinanciera.aspx @@ -547,7 +547,7 @@

    Total del Activo:

    - + @@ -571,7 +571,7 @@ - + diff --git a/Contabilidad2/RepSituacionFinanciera.aspx.vb b/Contabilidad2/RepSituacionFinanciera.aspx.vb index 516435df9..3e2dfd059 100644 --- a/Contabilidad2/RepSituacionFinanciera.aspx.vb +++ b/Contabilidad2/RepSituacionFinanciera.aspx.vb @@ -333,9 +333,9 @@ Partial Class AC2_SituacionFinanciera 'PATRIMONIO Dim DtPatrimonioContribuido = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta in (5,6,8,7)") - Dim DtPatrimonioGenerado = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta in (6,8)") - Dim DtPatrimonioActualizacion = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta=7") - Dim DtUtilidad = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta=5") + 'Dim DtPatrimonioGenerado = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta in (6,8)") + 'Dim DtPatrimonioActualizacion = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta=7") + 'Dim DtUtilidad = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta=5") 'Dim DtPatrimonioContribuido = DtDatos.FiltraParametros("Tipo in ('F') AND Orden LIKE '%/00031%' ") 'Dim DtPatrimonioGenerado = DtDatos.FiltraParametros("Tipo in ('F') AND Orden LIKE '%/00032%' ") diff --git a/Empresas/119/Formatos/Remision.rdlc b/Empresas/119/Formatos/Remision.rdlc index 3294ad6ef..20118437f 100644 --- a/Empresas/119/Formatos/Remision.rdlc +++ b/Empresas/119/Formatos/Remision.rdlc @@ -685,11 +685,39 @@ Right + + + + Moneda: + + + + + + + + =Parameters!MonedaAbreviatura.Value + + + + + Textbox4 0.04117in 5.62784in - 0.99993in + 1.12493in 2.66068in 2