Contabilidad/DiarioPagos.aspx.vb

@@ -599,7 +599,7 @@ Partial Class Contabilidad_DiarioPagos
 
 
                                 Select Case UsuarioActual.CveEmpresa
-                                    Case 13
+                                    Case 13, 83
                                         Select Case gvr.DataKey("CveTipoTransaccion")
                                             Case "1" 'cheque
                                                 Folio = gvr.DataKey("Folio")
@@ -791,7 +791,7 @@ Partial Class Contabilidad_DiarioPagos
                                     End If
 
                                     'registro los movimientos en proveedores, cuando es de contado que toque 
-                                    If UsuarioActual.CveEmpresa = 13 AndAlso Not EsContabilizada AndAlso Opcion = 1 AndAlso Math.Abs(CargoProveedor) <= 1 AndAlso Math.Abs(AbonoProveedor) <= 1 Then
+                                    If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso Not EsContabilizada AndAlso Opcion = 1 AndAlso Math.Abs(CargoProveedor) <= 1 AndAlso Math.Abs(AbonoProveedor) <= 1 Then
                                         CargoProveedor += CompraPagadoTotal
                                         AbonoProveedor += CompraPagadoTotal
                                     End If
@@ -835,7 +835,7 @@ Partial Class Contabilidad_DiarioPagos
                                     End If
 
                                     Dim ttTipoCambioPago As Double = TipoCambioPago
-                                    If UsuarioActual.CveEmpresa = 13 Then ttTipoCambioPago = TipoCambioCompra
+                                    If UsuarioActual.CveEmpresa.Contiene(13, 83) Then ttTipoCambioPago = TipoCambioCompra
 
                                     If IVAAcreditable > 0 Then 'iva Acreditable 
 
@@ -927,8 +927,7 @@ Partial Class Contabilidad_DiarioPagos
 
                                         If SimplificaRetIVA = False Then CompraRetIVA = CompraPagadoRetIVA
                                         'no registra la retencion de iva al pagar
-                                        If UsuarioActual.CveEmpresa = 13 Then IdCuentaRetIVACirculacion = 0
-
+                                        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then IdCuentaRetIVACirculacion = 0
 
                                         ConceptoTmp = If(CveMoneda = 2, String.Format("{0} TC {1}", ConceptoDetalle, TipoCambioFechaCompra), ConceptoDetalle)
                                         If CompraRetIVA > 0 AndAlso IdCuentaRetIVACirculacion > 0 AndAlso Not Conta.AddMovimiento(IDPoliza, IdCuentaRetIVACirculacion, False, CompraPagadoRetIVA * TipoCambioFechaCompra, gvrc.FCHiddenField("HdnSerieFolio").Value, ConceptoTmp, 0, Fecha, gvrc.FCHiddenField("HdnCveCompra").Value.ContaReferencia(TipoContaReferencia.Compra), If(MonExt, CompraRetIVA, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For

Contabilidad/PlantillasPolizasDetalle.aspx.vb

@@ -61,7 +61,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
             ObjPlantillaPolizasTipo.Dispose()
 
             Dim dt As DataTable = Nothing
-            If UsuarioActual.Empresa.UsaContabilidad Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                 Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
 
                 If Conta.GetCuentas(-1, "-1", 1) Then
@@ -257,13 +257,12 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
                                                                                 DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
                     TxtOrden.Text = ""
                     If Not ChkSeguirAgregando.Checked Then
-                        updatatos()
                         Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
                     Else
                         RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
                         UpModal.Update()
                     End If
-
+                    updatatos()
                 Else
                     ErrorDetalle = True
                 End If

Contabilidad/PopUpAuxiliar.aspx.vb

@@ -210,7 +210,7 @@ Partial Class PopUpAuxiliar
                 e.Row.FCLiteral("LtlConcepto").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("ConceptoContable"))
             End If
 
-            If e.Row.DBCampo("CveConceptoContable").Contiene("91", "251", "301") Then 'desaplicar NC 
+            If e.Row.DBCampo("CveConceptoContable").Contiene("91", "294", "251", "301") Then 'desaplicar NC 
 
                 e.Row.FCLinkButton("LnkDesAplicar").Visible = True
                 e.Row.FCLinkButton("imgD").Visible = False

Contabilidad/RepEstadoResultados.aspx.vb

@@ -441,7 +441,7 @@ Partial Class Contabilidad_RepEstadoResultados
         Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
 
-        If ObjConta.GetEstadoResultadosMensual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte) Then
+        If ObjConta.GetEstadoResultadosMensual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, DdlSegmentoNegocio.SelectedValue.ToEntero) Then
             DtDatosMensual = ObjConta.DtResultados
         Else
             DtDatosMensual = Nothing
@@ -818,7 +818,7 @@ Partial Class Contabilidad_RepEstadoResultados
         Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
 
-        If ObjConta.GetEstadoResultadosAnual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte) Then
+        If ObjConta.GetEstadoResultadosAnual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, DdlSegmentoNegocio.SelectedValue.ToEntero) Then
             DtDatosAnual = ObjConta.DtResultados
         Else
             DtDatosAnual = Nothing