Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Compras/Compras.aspx.vb

@@ -16708,11 +16708,11 @@ Partial Class Compras_Compras
 
         End If
 
-        If UsuarioActual.Empresa.CveEmpresa = 158 AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 AndAlso DdlSubProyecto.SelectedValue.ToEntero.Contiene(11881, 11882, 11886) Then
+        'If UsuarioActual.Empresa.CveEmpresa = 158 AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 AndAlso DdlSubProyecto.SelectedValue.ToEntero.Contiene(11881, 11882, 11886) Then
-            RfvDdlCultivosCuadro.Visible = True
+        '    RfvDdlCultivosCuadro.Visible = True
-        Else
+        'Else
-            RfvDdlCultivosCuadro.Visible = False
+        '    RfvDdlCultivosCuadro.Visible = False
-        End If
+        'End If
 
     End Sub
     Private Sub DdlPSChange()

Contabilidad/PopUpAuxiliar.aspx.vb

@@ -219,6 +219,16 @@ Partial Class PopUpAuxiliar
                 Else
                     e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveVentaAmortizacion"), e.Row.DBCampo("CveVenta"))
                 End If
+            ElseIf e.Row.DBCampo("CveConceptoContable").Contiene("60", "272") Then 'desaplicar NC Compra
+
+                e.Row.FCLinkButton("LnkDesAplicar").Visible = True
+                e.Row.FCLinkButton("LnkDesAplicar").CommandName = "DesAplicarCompra"
+                e.Row.FCLinkButton("imgD").Visible = False
+                If e.Row.DBCampo("CveConceptoContable").Contiene("272") Then
+                    e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveCompraAmortizacion"))
+                Else
+                    e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompraAmortizacion"), e.Row.DBCampo("CveCompra"))
+                End If
             End If
 
             If e.Row.DBCampo("TipoReferencia").ToEntero = 1 Then
@@ -387,7 +397,6 @@ Partial Class PopUpAuxiliar
             Else
                 Return ViewState("CvePrePolizaNegativa").ToString.ToEntero
             End If
-
         End Get
         Set(value As Integer)
             ViewState("CvePrePolizaNegativa") = value
@@ -395,7 +404,6 @@ Partial Class PopUpAuxiliar
     End Property
 
 
-
     Private Sub AgregaPolizaNegativo(CvePrePoliza As Integer)
 
         Dim ObjContabilidad As New ClsContabilidad
@@ -405,8 +413,6 @@ Partial Class PopUpAuxiliar
         Dim CvePrePolizaNueva As Integer = ObjContabilidad.AddPrePolizasNegativa(CvePrePoliza, UsuarioActual.CveUsuario, TxtConceptoCancelacion.Text, UsuarioActual.CveEmpresa, TxtFechaCancelacion.Text.ToDate)
 
         If Not CvePrePolizaNueva > 0 Then
-
-
             TieneError = True
         End If
 
@@ -482,6 +488,40 @@ Partial Class PopUpAuxiliar
 
         End If
 
+        If e.CommandName = "DesAplicarCompra" Then
+
+            Dim CvePrePoliza, CveCompra, CveCompraAmortizacion As Integer
+            Dim TieneError = False
+
+            Dim St As String() = e.CommandArgument.ToString.Split("|"c)
+            If St.Length > 0 Then
+                CvePrePoliza = St(0).ToEntero
+                CveCompra = St(1).ToEntero
+                CveCompraAmortizacion = St(2).ToEntero
+            End If
+
+            If CvePrePoliza > 0 Then
+                Dim Conta As New ClsContabilidad()
+                Conta.IniciaTransacSQL()
+
+                If Not Conta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+                    TieneError = True
+                End If
+
+                If Not TieneError AndAlso Not Conta.DesAplicarPago(CvePrePoliza, 272, CveCompra, CveCompraAmortizacion) Then
+                    TieneError = True
+                End If
+
+                If Not TieneError Then
+                    Conta.Commit()
+                    Alert("Pago Desaplicado.", TipoMensaje.ToastInformacion)
+                Else
+                    Conta.RollBack()
+                    Alert("Pago no fue desaplicado.", TipoMensaje.ToastError)
+                End If
+            End If
+
+        End If
 
 
     End Sub

Contabilidad2/RepEstadoResultadosHorizontal.aspx

@@ -38,6 +38,10 @@
         .showgrph .chkgraf {
             visibility: inherit;
         }
+
+        .table>tbody>tr>td{
+            vertical-align:bottom;
+        }
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -1480,8 +1480,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor)
             e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor)
             e.Row.FCHyperLink("HLAbril").ForeColor = If(e.Row.DataKey("Abril").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
-            e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
+            e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor)
-            e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor)
+            e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJunio").ForeColor)
             e.Row.FCHyperLink("HLJulio").ForeColor = If(e.Row.DataKey("Julio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJulio").ForeColor)
             e.Row.FCHyperLink("HLAgosto").ForeColor = If(e.Row.DataKey("Agosto").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAgosto").ForeColor)
             e.Row.FCHyperLink("HLSeptiembre").ForeColor = If(e.Row.DataKey("Septiembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLSeptiembre").ForeColor)

Inventarios/TraspasoAlmacen.aspx.vb

@@ -945,6 +945,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Serie = If(gvr.DataKey("Serie") = "", "-1", gvr.DataKey("Serie"))
             Lote = If(gvr.DataKey("Lote") = "", "-1", gvr.DataKey("Lote"))
             FechaCaducidad = If(gvr.DataKey("FechaCaducidad") = "", MinFecha, gvr.DataKey("FechaCaducidad").ToDate)
+            Dim MsgAdicional As String = ""
 
             If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then
                 'si hay existencia en almacen costeado, lo tengo que sacar
@@ -957,15 +958,11 @@ Partial Class Inventarios_TraspasoAlmacen
                 ' para asegurarnos que lo pendiente por surtir se pueda surtir con otras series, consultamos de nuevo, pero a nivel producto, para checar existencia
 
                 If ExistenciaSinPendiente > 0 AndAlso Existencia <= 0 AndAlso PendienteporSurtir > 0 Then
+                    MsgAdicional = " Pendiente por surtir: " & PendienteporSurtir.FormatoNumero(0)
                     If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd 23:59")) Then
                         'si hay existencia en almacen costeado, lo tengo que sacar
                         Existencia = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal
                         'si la existencia del producto en general, supera a lo pendiente, entonces la serie si se puede sacar.
-                        If Existencia > PendienteporSurtir Then
-                            Existencia = ExistenciaSinPendiente
-                        Else
-                            Existencia = ExistenciaSinPendiente - PendienteporSurtir
-                        End If
 
                     End If
                 End If
@@ -975,7 +972,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             If Existencia < 0 Then
                 ErrorExistencia = True
-                TextoExistencia.AppendFormat("-<b>#{0}</b> {1} {2} &nbsp; Existencia: <b>{3}</b><br/>", gvr.DataKey("No"), gvr.DataKey("PS"), If(gvr.DataKey("Serie").ToString().Trim().Length > 0, $" &nbsp; Serie: <b>{gvr.DataKey("Serie")}</b>", ""), (Existencia + gvr.FCTextBox("TxtCantidad2").Text.ToEntero))
+                TextoExistencia.AppendFormat("-<b>#{0}</b> {1} {2} &nbsp; Existencia: <b>{3}</b>{4}<br/>", gvr.DataKey("No"), gvr.DataKey("PS"), If(gvr.DataKey("Serie").ToString().Trim().Length > 0, $" &nbsp; Serie: <b>{gvr.DataKey("Serie")}</b>", ""), (Existencia + gvr.FCTextBox("TxtCantidad2").Text.ToEntero), MsgAdicional)
             End If
         Next
 

OC/OC.aspx

@@ -338,7 +338,7 @@
                                     <div class="col-md-3" runat="server" id="DvNumRemision2" visible="false">
                                         <asp:TextBox ID="TxtNumRemision" runat="server" MaxLength="10" Width="80%"  onblur="ValidaNumRemision()"></asp:TextBox>
                                         <asp:Button ID="BtnValidaNumRemision" ClientIDMode="Static" OnClick="BtnValidaNumRemision_Click"   Style="display: none;" runat="server" />
-                                        <asp:LinkButton runat="server" Visible="false" ID="LnkActualziarNumRemision" OnClick="LnkActualziarNumRemision_Click"  
+                                        <asp:LinkButton runat="server" Visible="false" ID="LnkActualizarNumRemision" OnClick="LnkActualizarNumRemision_Click"  
                                             data-toggle="confirmation" data-popout="true" data-original-title="Actualizar número remisión"
                                             data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" 
                                             ToolTip="¿Está seguro que desea actualizar el número de remisión?" />

OC/OC.aspx.vb

@@ -844,11 +844,8 @@ Partial Class OC_OC
                 DdlCultivosCuadro.DataBind()
                 DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
-                If UsuarioActual.CveRol = 1 Then
+                DvNumRemision1.Visible = True
-                    DvNumRemision1.Visible = True
+                DvNumRemision2.Visible = True
-                    DvNumRemision2.Visible = True
-                End If
-
 
             End If
 
@@ -2637,7 +2634,7 @@ Partial Class OC_OC
 
             If GeneraReq Then
 
-                If Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "REQ", CveProveedor, OC.IniciaTransacSQL) Then
+                If TxtNumRemision.Text.Trim() <> "" AndAlso Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "REQ", CveProveedor, OC.IniciaTransacSQL) Then
                     TieneError = True
                 End If
 
@@ -8762,20 +8759,17 @@ Partial Class OC_OC
         Return Retorno
 
     End Function
-
-
-
     Private Function ValidaNumRemision(NumRemision As String, TipoOC As String, CveProveedor As Integer, Optional OcTransaccion As SqlClient.SqlTransaction = Nothing, Optional CveOrdenCompraValida As Integer = -1) As Boolean
         Dim NumRemisionValida As Boolean = False
-        LnkActualziarNumRemision.Visible = False
+        LnkActualizarNumRemision.Visible = False
 
         If NumRemision.Trim.Length > 0 Then
-            If UsuarioActual.Empresa.Funcionalidad(590) = "1" AndAlso UsuarioActual.CveRol = 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
-
                 Dim ObjOC As New ClsOC(OcTransaccion)
                 If ObjOC.GetVerificaNumRemision(CveProveedor, TipoOC, NumRemision, UsuarioActual.CveEmpresa, CveOrdenCompraValida) Then
                     If ObjOC.DtResultados.Rows.Count > 0 Then
                         Alert($"La remision  ya se encuentra asignada a la { If(TipoOC = "OC", "Orden de compra", "Requisición")}  <a target='_blank' class='Texto' href='./OC.aspx?OC={ObjOC.DtResultados.Rows(0)("CveOrdenCompra").ToString()}' >{ObjOC.DtResultados.Rows(0)("Folio").ToString() }</a>.", TipoMensaje.MsgAdvertencia)
+                        TxtNumRemision.Text = ""
                     Else
                         NumRemisionValida = True
                     End If
@@ -8786,18 +8780,13 @@ Partial Class OC_OC
         Else
             NumRemisionValida = True
         End If
-
-
         If NumRemisionValida Then
-
             If CveOrdenCompra > 0 And BtnGuardar.Enabled And BtnGuardar.Visible Then
-                LnkActualziarNumRemision.Visible = True
+                LnkActualizarNumRemision.Visible = True
             End If
-
         End If
 
         UPPEmp.Update()
-
         Return NumRemisionValida
 
     End Function
@@ -8808,13 +8797,9 @@ Partial Class OC_OC
 
     End Sub
 
-    Protected Sub LnkActualziarNumRemision_Click(sender As Object, e As EventArgs)
+    Protected Sub LnkActualizarNumRemision_Click(sender As Object, e As EventArgs)
 
-
+        If NumeroRemisionOriginal.Trim = TxtNumRemision.Text.Trim Then Exit Sub
-
-        If NumeroRemisionOriginal.Trim = TxtNumRemision.Text.Trim Then
-            Exit Sub
-        End If
 
         If ValidaNumRemision(TxtNumRemision.Text.Trim(), TipoOC, DdlProveedores.SelectedValue.ToEntero, Nothing, If(CveOrdenCompra > 0, CveOrdenCompra, -1)) Then
 
@@ -8845,6 +8830,5 @@ Partial Class OC_OC
             Alert("El número de remisión no es valido.")
         End If
 
-
     End Sub
 End Class

Sistemas/Empresa.aspx

@@ -44,6 +44,7 @@
                         <asp:Button ID="BtnCargarCuentas" runat="server" ClientIDMode="Static" Text="CargaCuentas" Style="display: none;" />
                         <asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
                         <ajax:TabContainer ID="Tab" runat="server" Width="100%" ActiveTabIndex="0">
+                            
                             <ajax:TabPanel HeaderText="Empresa" ID="TabPanel1" runat="server">
                                 <ContentTemplate>
 
@@ -152,14 +153,14 @@
                                                                 <asp:TextBox ID="TxtLocalidad" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
                                                             </td>
                                                         </tr>
-                                                        <tr>
+                                                      <%--  <tr>
                                                             <td>Régimen:</td>
                                                             <td>
                                                                 <asp:TextBox ID="TxtRegimen" runat="server" MaxLength="100" Width="350px"></asp:TextBox>
                                                                 <asp:RequiredFieldValidator ID="RFVRegimen" runat="server" ControlToValidate="TxtRegimen" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Regimen'</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                                 <ajax:ValidatorCalloutExtender ID="VCERegimen" runat="server" HighlightCssClass="vco" TargetControlID="RFVRegimen" Width="300px"></ajax:ValidatorCalloutExtender>
                                                             </td>
-                                                        </tr>
+                                                        </tr>--%>
                                                         <tr>
                                                             <td>Régimen:</td>
                                                             <td>
@@ -708,7 +709,7 @@
                                     </div>
                                 </ContentTemplate>
                             </ajax:TabPanel>
-                            <ajax:TabPanel HeaderText="Contabilidad" ID="TabPanel3" runat="server">
+                            <ajax:TabPanel HeaderText="Contabilidad" ID="TabContabilidad" runat="server" Visible="false">
                                 <ContentTemplate>
                                     <div class="row">
                                         <div class="col-md-6">

Sistemas/Empresa.aspx.vb

@@ -108,6 +108,21 @@ Partial Class Sistemas_Empresa
     End Property
 
 
+    Public Property TipoContabilidad As Integer
+        Get
+            If ViewState("TipoContabilidad") Is Nothing Then
+                ViewState("TipoContabilidad") = -1
+            End If
+
+            Return CType((ViewState("TipoContabilidad")), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("TipoContabilidad") = value
+        End Set
+    End Property
+
+
+
     Enum EnumOpActualizaArchivosCer
         SinOpcion
         KEY
@@ -186,6 +201,9 @@ Partial Class Sistemas_Empresa
             End If
             ConfiguracionEmpresa()
 
+
+
+
         End If
     End Sub
 
@@ -231,7 +249,7 @@ Partial Class Sistemas_Empresa
                     ChkSendMailSSL.Checked = .SendMailSSL
                     ChkMostrarRetIVA.Checked = .MostrarRetIVA
                     ChkMostrarRetISR.Checked = .MostrarRetISR
-                    TxtRegimen.Text = .Regimen
+                    'TxtRegimen.Text = .Regimen
                     ChkEstatusFacturacion.Checked = .EstatusFacturacion
                     TxtTimbres.Text = .Timbres.ToString
                     ChkUsaContabilidad.Checked = .UsaContabilidad
@@ -280,6 +298,7 @@ Partial Class Sistemas_Empresa
                     ChkReqCentroCostos.Checked = .RequiereCentroCostos
                     DdlTerminalTipo.SelectedValue = .PV_TerminalTipo.ToString
                     TxtImporte.Text = .Importe.ToString
+                    TipoContabilidad = .TipoContabilidad
 
                     'NUEVOS
                     TxtAreaGeografica.Text = .AreaGeografica
@@ -490,7 +509,7 @@ Partial Class Sistemas_Empresa
                                       TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim,
                                       DdlTipoFacturacion.SelectedValue, TxtBIUsuario.Text.Trim, TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim,
                                       TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, TxtBanner.Text.Trim, UsuarioActual.CveUsuario, ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked,
-                                      ChkMostrarRetISR.Checked, TxtRegimen.Text.Trim, ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim,
+                                      ChkMostrarRetISR.Checked, "-1", ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim,
                                       TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, ChkUsaContabilidad.Checked, ChkUsaBancos.Checked, ChkUsaVentas.Checked, ChkUsaCxC.Checked,
                                       ChkUsaCompras.Checked, ChkUsaInventarios.Checked, ChkUsaRH.Checked, ChkUsaNomina.Checked, ChkUsaOS.Checked, TxtBDContPAQi.Text.Trim, TxtServerContPAQi.Text.Trim,
                                       TxtUsrContPAQi.Text.Trim, TxtPwdContPAQi.Text.Trim, TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero, ChkBuzon_SSL.Checked,
@@ -537,7 +556,7 @@ Partial Class Sistemas_Empresa
             If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim,
                                          TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, DdlTipoFacturacion.SelectedItem.ToString, TxtBIUsuario.Text.Trim,
                                          TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, TxtBanner.Text.Trim, ChkEstatus.Checked,
-                                         ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, TxtRegimen.Text.Trim, ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim,
+                                         ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "-1", ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim,
                                          TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, ChkUsaContabilidad.Checked, ChkUsaBancos.Checked,
                                          ChkUsaVentas.Checked, ChkUsaCxC.Checked, ChkUsaCompras.Checked, ChkUsaInventarios.Checked, ChkUsaRH.Checked, ChkUsaNomina.Checked, ChkUsaOS.Checked, TxtBDContPAQi.Text.Trim,
                                          TxtServerContPAQi.Text.Trim, TxtUsrContPAQi.Text.Trim, TxtPwdContPAQi.Text.Trim, TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero,
@@ -1255,6 +1274,9 @@ Partial Class Sistemas_Empresa
             BtnEliminar.Visible = False
             BiInform.Visible = False
         End If
+        If TipoContabilidad = 2 Then
+            TabContabilidad.Visible = True
+        End If
     End Sub
 #End Region
 
@@ -1303,18 +1325,36 @@ Partial Class Sistemas_Empresa
 
 #Region "TAB CONTABILIDAD - CLASIFICACION DE IVA"
     Private Sub ActualizaNombresCuentas()
+
+        'If Not DtClasificacionIVA.Columns.Contains("CuentaXAcreditar") Then
+        '    DtClasificacionIVA.Columns.Add("CuentaXAcreditar", GetType(Integer))
+        'End If
+        'If Not DtClasificacionIVA.Columns.Contains("CuentaAcreditable") Then
+        '    DtClasificacionIVA.Columns.Add("CuentaAcreditable", GetType(Integer))
+        'End If
+        'If Not DtClasificacionIVA.Columns.Contains("CuentaXTrasladar") Then
+        '    DtClasificacionIVA.Columns.Add("CuentaXTrasladar", GetType(Integer))
+        'End If
+        'If Not DtClasificacionIVA.Columns.Contains("CuentaTrasladado") Then
+        '    DtClasificacionIVA.Columns.Add("CuentaTrasladado", GetType(Integer))
+        'End If
+
         For Each Dr As DataRow In DtClasificacionIVA.Rows
             If Dr("IdCtaIVAXAcreditar").ToString.ToEntero > 0 Then
-                Dr("CuentaXAcreditar") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAXAcreditar").ToString}").Rows(0)("CtaCodigo").ToString
+                'Dr("CuentaXAcreditar") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAXAcreditar").ToString}").Rows(0)("CtaCodigo").ToString
+                Dr("CuentaXAcreditar") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVAXAcreditar").ToString}").ToString.ToEntero
             End If
             If Dr("IdCtaIVAAcreditable").ToString.ToEntero > 0 Then
-                Dr("CuentaAcreditable") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAAcreditable").ToString}").Rows(0)("CtaCodigo").ToString
+                'Dr("CuentaAcreditable") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAAcreditable").ToString}").Rows(0)("CtaCodigo").ToString
+                Dr("CuentaAcreditable") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVAAcreditable").ToString}").ToString.ToEntero
             End If
             If Dr("IdCtaIVAXTrasladar").ToString.ToEntero > 0 Then
-                Dr("CuentaXTrasladar") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAXTrasladar").ToString}").Rows(0)("CtaCodigo").ToString
+                'Dr("CuentaXTrasladar") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAXTrasladar").ToString}").Rows(0)("CtaCodigo").ToString
+                Dr("CuentaXTrasladar") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVAXTrasladar").ToString}").ToString.ToEntero
             End If
             If Dr("IdCtaIVATrasladado").ToString.ToEntero > 0 Then
-                Dr("CuentaTrasladado") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVATrasladado").ToString}").Rows(0)("CtaCodigo").ToString
+                'Dr("CuentaTrasladado") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVATrasladado").ToString}").Rows(0)("CtaCodigo").ToString
+                Dr("CuentaTrasladado") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVATrasladado").ToString}").ToString.ToEntero
             End If
         Next
         DtClasificacionIVA.AcceptChanges()
@@ -1361,12 +1401,16 @@ Partial Class Sistemas_Empresa
         Dim ObjEmpresas As New ClsSisEmpresas()
         If ObjEmpresas.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
             If ObjEmpresas.Empresa.UsaContabilidad Then
+
+                'If ObjEmpresas.Empresa.TipoContabilidad = 2 Then
                 Dim Cuenta As New ClsContPAQi(ObjEmpresas.Empresa)
-                If Cuenta.GetCuentas(-1, "-1", -1) Then
+                    If Cuenta.GetCuentas(-1, "-1", -1) Then
-                    DtCuentas = Cuenta.DtResultados
+                        DtCuentas = Cuenta.DtResultados
-                End If
+                    End If
-                Cuenta.Dispose()
+                    Cuenta.Dispose()
-                Try
+                    'End If
+
+                    Try
                     DdlIVAXAcreditarModal.DataSource = DtCuentas : DdlIVAXAcreditarModal.DataBind()
                 Catch ex As Exception
                 End Try