AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-09-26 18:39:23 -07:00
parent e29acbcfb8 4f4a8b72b1
commit cebc07b26a
9 changed files with 128 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Compras/Compras.aspx.vb
View File

@@ -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
RfvDdlCultivosCuadro.Visible = True
Else
RfvDdlCultivosCuadro.Visible = False
End If
'If UsuarioActual.Empresa.CveEmpresa = 158 AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 AndAlso DdlSubProyecto.SelectedValue.ToEntero.Contiene(11881, 11882, 11886) Then
' RfvDdlCultivosCuadro.Visible = True
'Else
' RfvDdlCultivosCuadro.Visible = False
'End If
End Sub
Private Sub DdlPSChange()

48
Contabilidad/PopUpAuxiliar.aspx.vb
View File

@@ -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

4
Contabilidad2/RepEstadoResultadosHorizontal.aspx
View File

@@ -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">

4
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -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)

9
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -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

2
OC/OC.aspx
View File

@@ -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?" />

34
OC/OC.aspx.vb
View File

@@ -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
DvNumRemision2.Visible = True
End If
DvNumRemision1.Visible = True
DvNumRemision2.Visible = True
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
End If
If NumeroRemisionOriginal.Trim = TxtNumRemision.Text.Trim Then Exit Sub
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

7
Sistemas/Empresa.aspx
View File

@@ -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">

68
Sistemas/Empresa.aspx.vb
View File

@@ -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