Empreasas no mistrar Pestaña contabilidad si el tipo de conta es diferente de 2, quira control de regimen , correcion estado resultados horizontal, alineacion vertical y color de junio
This commit is contained in:
Oscar Irigoyen
@@ -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">
|
||||
|
||||
@@ -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("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").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("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)
|
||||
|
||||
@@ -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">
|
||||
|
||||
@@ -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
|
||||
DtCuentas = Cuenta.DtResultados
|
||||
End If
|
||||
Cuenta.Dispose()
|
||||
Try
|
||||
If Cuenta.GetCuentas(-1, "-1", -1) Then
|
||||
DtCuentas = Cuenta.DtResultados
|
||||
End If
|
||||
Cuenta.Dispose()
|
||||
'End If
|
||||
|
||||
Try
|
||||
DdlIVAXAcreditarModal.DataSource = DtCuentas : DdlIVAXAcreditarModal.DataBind()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Reference in New Issue
Block a user