-- se depuró/limpió la variables idctaXXX
This commit is contained in:
@@ -801,28 +801,6 @@ Partial Class Sistemas_DefinicionEmpresa
|
||||
|
||||
End If
|
||||
|
||||
'CLASIFICACIONES DE IVAS
|
||||
If DtClasificacionIVA IsNot Nothing OrElse DtClasificacionIVA.Rows.Count > 0 Then
|
||||
For Each Dr As DataRow In DtClasificacionIVA.Rows
|
||||
If Not Dr("CveClasificacion").ToString.ToEntero > 0 Then
|
||||
If Not ObjGral.RemoveClasificacionPorcentaje(Dr("CveClasificacionPorcentaje").ToString.ToEntero) Then
|
||||
TextoError = "Ocurrió un error al guardar los cambios de la empresa"
|
||||
End If
|
||||
ElseIf Dr("CveClasificacionPorcentaje").ToString.ToEntero = 0 Then
|
||||
If Not ObjGral.AddClasificacionPorcentaje(Dr("CveClasificacion").ToString.ToEntero, Dr("PorcentajeIVA").ToString.ToDouble,
|
||||
Dr("IdCtaIVAXAcreditar").ToString.ToEntero, Dr("IdCtaIVAAcreditable").ToString.ToEntero,
|
||||
Dr("IdCtaIVAXTrasladar").ToString.ToEntero, Dr("IdCtaIVATrasladado").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
TextoError = "Ocurrió un error al guardar los cambios de la empresa"
|
||||
End If
|
||||
ElseIf Dr("CveClasificacionPorcentaje").ToString.ToEntero > 0 Then
|
||||
If Not ObjGral.UpdateClasificacionPorcentaje(Dr("CveClasificacionPorcentaje").ToString.ToEntero, Dr("CveClasificacion").ToString.ToEntero, Dr("PorcentajeIVA").ToString.ToDouble,
|
||||
Dr("IdCtaIVAXAcreditar").ToString.ToEntero, Dr("IdCtaIVAAcreditable").ToString.ToEntero,
|
||||
Dr("IdCtaIVAXTrasladar").ToString.ToEntero, Dr("IdCtaIVATrasladado").ToString.ToEntero) Then
|
||||
TextoError = "Ocurrió un error al guardar los cambios de la empresa"
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
'RECARGA EMPRESA
|
||||
If TextoError = "" Then
|
||||
@@ -837,79 +815,9 @@ Partial Class Sistemas_DefinicionEmpresa
|
||||
Next
|
||||
End If
|
||||
|
||||
' GlobalDTClasificacionPorcentaje(CveEmpresa) = Nothing
|
||||
|
||||
End If
|
||||
|
||||
'AGREGAR FUNCIONALIDADES
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 201, DdlProveedores)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 211, DdlClientes)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 208, DdlInventario)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 216, DdlGasto)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 209, DdlBancos)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 205, DdlDeudores)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 202, DdlAcreedores)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 203, DdlDocxPagar)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 212, DdlAnticipoCliente)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 204, DdlAnticipoProveedores)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 218, DdlCaja)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 215, DdlFyE)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 221, DdlActivoFijo)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 246, DdlClientes)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 237, DdlAnticipoCliente)
|
||||
|
||||
''AGREGAR FUNCIONALIDADES
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 232, DdlProveedoresSIG)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 233, DdlClientesSIG)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 239, DdlInventarioSIG)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 240, DdlGastoSIG)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 241, DdlBancosSIG)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 234, DdlDeudoresSIG)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 235, DdlAcreedoresSIG)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 236, DdlDocxPagarSIG)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 237, DdlAnticipoClienteSIG)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 238, DdlAnticipoProveedoresSIG)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 242, DdlCajaSIG)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 243, DdlFyESIG)
|
||||
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 244, DdlActivoFijoSIG)
|
||||
|
||||
'TRIGGER
|
||||
'If TextoError = "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" Then
|
||||
|
||||
' If UsuarioActual.Empresa.UsaContabilidad Then
|
||||
|
||||
' If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
' 'CREA OBJETO EMPRESA
|
||||
' If ObjEmpresas.GetEmpresas(TxtCveEmpresa.Text.ToEntero, "-1", "-1", "-1", "-1") Then
|
||||
' Dim Empresa As New Empresa
|
||||
' Empresa = ObjEmpresas.Empresa
|
||||
|
||||
' ObjContPAQ = New ClsContPAQi(Empresa)
|
||||
|
||||
' If ObjContPAQ.Conectado Then
|
||||
' 'ADD
|
||||
' If BDContPAQ = "" Then
|
||||
' If Not ObjContPAQ.TRIGGER(TxtBDContPAQi.Text.Trim) Then
|
||||
' TextoError = "Los datos de conexion al servidor de contabilidad son incorrectos"
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' 'UPDATE
|
||||
' If BDContPAQ <> "" And (BDContPAQ <> TxtBDContPAQi.Text.Trim Or ServerContPAQ <> TxtServerContPAQi.Text.Trim) Then
|
||||
' If Not ObjContPAQ.TRIGGER(TxtBDContPAQi.Text.Trim) Then
|
||||
' TextoError = "Los datos de conexion al servidor de contabilidad son incorrectos"
|
||||
' End If
|
||||
' End If
|
||||
' Else
|
||||
' TextoError = "Los datos de conexion al servidor de contabilidad son incorrectos"
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' Else
|
||||
' Alert("La empresa tiene la información para el uso de contabilidad pero no se tiene activada", TipoMensaje.MsgAdvertencia)
|
||||
' End If
|
||||
'End If
|
||||
|
||||
If TextoError = "" Then
|
||||
ObjEmpresas.Commit()
|
||||
@@ -1504,354 +1412,7 @@ Partial Class Sistemas_DefinicionEmpresa
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "TAB CONTABILIDAD - CLASIFICACION DE IVA"
|
||||
Private Sub ActualizaNombresCuentas()
|
||||
|
||||
|
||||
|
||||
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.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.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.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.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVATrasladado").ToString}").ToString.ToEntero
|
||||
End If
|
||||
Next
|
||||
DtClasificacionIVA.AcceptChanges()
|
||||
End Sub
|
||||
'Private Sub InicializaClasificacionIVA(ObjEmpresas As ClsSisEmpresas)
|
||||
' CreaDtClasificacionIVA()
|
||||
' CargaCuentasIVA(ObjEmpresas)
|
||||
' CargaClasificaciones()
|
||||
' CargaClasificacionesIVA()
|
||||
'End Sub
|
||||
'Private Sub CargaClasificacionesIVA()
|
||||
' Dim ObjGral As New ClsGenerales
|
||||
' If ObjGral.GetClasificacionPorcentaje(UsuarioActual.CveEmpresa, Opcion:=2) Then
|
||||
' DtClasificacionIVA = ObjGral.DtResultados.Copy
|
||||
' ActualizaNombresCuentas()
|
||||
' GvClasificacionIVA.DataSource = DtClasificacionIVA
|
||||
' End If
|
||||
' ObjGral.Dispose()
|
||||
' GvClasificacionIVA.DataBind()
|
||||
' UpClasificacionIVA.Update()
|
||||
'End Sub
|
||||
'Private Sub CargaClasificaciones()
|
||||
' DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
|
||||
' DdlClasificacion.DataBind()
|
||||
' DdlClasificacion.Items.Insert(0, New ListItem("-", "-1"))
|
||||
'End Sub
|
||||
'Private Sub CreaDtClasificacionIVA()
|
||||
' DtClasificacionIVA = New DataTable
|
||||
' DtClasificacionIVA.Columns.Add("CveClasificacionPorcentaje", GetType(Integer))
|
||||
' DtClasificacionIVA.Columns.Add("CveClasificacion", GetType(Integer))
|
||||
' DtClasificacionIVA.Columns.Add("Clasificacion", GetType(String))
|
||||
' DtClasificacionIVA.Columns.Add("PorcentajeIVA", GetType(Double))
|
||||
' DtClasificacionIVA.Columns.Add("CuentaXAcreditar", GetType(String))
|
||||
' DtClasificacionIVA.Columns.Add("IdCtaIVAXAcreditar", GetType(Integer))
|
||||
' DtClasificacionIVA.Columns.Add("CuentaAcreditable", GetType(String))
|
||||
' DtClasificacionIVA.Columns.Add("IdCtaIVAAcreditable", GetType(Integer))
|
||||
' DtClasificacionIVA.Columns.Add("CuentaXTrasladar", GetType(String))
|
||||
' DtClasificacionIVA.Columns.Add("IdCtaIVAXTrasladar", GetType(Integer))
|
||||
' DtClasificacionIVA.Columns.Add("CuentaTrasladado", GetType(String))
|
||||
' DtClasificacionIVA.Columns.Add("IdCtaIVATrasladado", GetType(Integer))
|
||||
'End Sub
|
||||
'Private Sub CargaCuentasIVA(ByRef ObjEmpresas As ClsSisEmpresas)
|
||||
|
||||
' If ObjEmpresas.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
||||
' If ObjEmpresas.Empresa.UsaContabilidad And ObjEmpresas.Empresa.TipoContabilidad = 2 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()
|
||||
' 'End If
|
||||
|
||||
' Try
|
||||
' DdlIVAXAcreditarModal.DataSource = DtCuentas : DdlIVAXAcreditarModal.DataBind()
|
||||
' Catch ex As Exception
|
||||
' End Try
|
||||
' Try
|
||||
' DdlIVAAcreditableModal.DataSource = DtCuentas : DdlIVAAcreditableModal.DataBind()
|
||||
' Catch ex As Exception
|
||||
' End Try
|
||||
' Try
|
||||
' DdlIVAXTrasladarModal.DataSource = DtCuentas : DdlIVAXTrasladarModal.DataBind()
|
||||
' Catch ex As Exception
|
||||
' End Try
|
||||
' Try
|
||||
' DdlIVATrasladadoModal.DataSource = DtCuentas : DdlIVATrasladadoModal.DataBind()
|
||||
' Catch ex As Exception
|
||||
' End Try
|
||||
' End If
|
||||
|
||||
|
||||
' End If
|
||||
|
||||
' 'ObjEmpresas.Dispose()
|
||||
' DdlIVAXAcreditarModal.Items.Insert(0, New ListItem("-", "-1"))
|
||||
' DdlIVAAcreditableModal.Items.Insert(0, New ListItem("-", "-1"))
|
||||
' DdlIVAXTrasladarModal.Items.Insert(0, New ListItem("-", "-1"))
|
||||
' DdlIVATrasladadoModal.Items.Insert(0, New ListItem("-", "-1"))
|
||||
'End Sub
|
||||
'Protected Sub LnkEliminarClasificacionIVA_Click(sender As Object, e As EventArgs)
|
||||
' Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
||||
' If DtClasificacionIVA.Rows(gvRow.RowIndex)("CveClasificacionPorcentaje").ToString.ToEntero = 0 Then
|
||||
' DtClasificacionIVA.Rows(gvRow.RowIndex).Delete()
|
||||
' Else
|
||||
' DtClasificacionIVA.Rows(gvRow.RowIndex)("CveClasificacion") = -1
|
||||
' End If
|
||||
' DtClasificacionIVA.AcceptChanges()
|
||||
' GvClasificacionIVA.DataSource = DtClasificacionIVA
|
||||
' GvClasificacionIVA.DataBind()
|
||||
' UpClasificacionIVA.Update()
|
||||
'End Sub
|
||||
'Protected Sub LnkAgregarClasificacionIVA_Click(sender As Object, e As EventArgs)
|
||||
' LimpiaClasificacionIVA()
|
||||
' Modalidad = "A"
|
||||
' RegistraScript("$('#DModalClasificacionIVA').modal()")
|
||||
' UpModalClasificacionIVA.Update()
|
||||
'End Sub
|
||||
'Protected Sub LnkEditarClasificacionIVA_Click(sender As Object, e As EventArgs)
|
||||
' LimpiaClasificacionIVA()
|
||||
' Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
||||
' Modalidad = "U"
|
||||
' Index = gvRow.RowIndex
|
||||
' CveClasificacionPorcentaje = gvRow.DataKey("CveClasificacionPorcentaje").ToEntero()
|
||||
' DdlClasificacion.SelectedValueExist(gvRow.DataKey("CveClasificacion"))
|
||||
' TxtPorcentajeIVA.Text = gvRow.DataKey("PorcentajeIVA")
|
||||
' DdlIVAXAcreditarModal.SelectedValueExist(gvRow.DataKey("IdCtaIVAXAcreditar"))
|
||||
' DdlIVAAcreditableModal.SelectedValueExist(gvRow.DataKey("IdCtaIVAAcreditable"))
|
||||
' DdlIVAXTrasladarModal.SelectedValueExist(gvRow.DataKey("IdCtaIVAXTrasladar"))
|
||||
' DdlIVATrasladadoModal.SelectedValueExist(gvRow.DataKey("IdCtaIVATrasladado"))
|
||||
' RegistraScript("$('#DModalClasificacionIVA').modal()")
|
||||
' UpModalClasificacionIVA.Update()
|
||||
'End Sub
|
||||
|
||||
'Private Sub LimpiaClasificacionIVA()
|
||||
' TxtPorcentajeIVA.Text = ""
|
||||
' DdlClasificacion.SelectedIndex = 0
|
||||
' DdlIVAXAcreditarModal.SelectedIndex = 0
|
||||
' DdlIVAAcreditableModal.SelectedIndex = 0
|
||||
' DdlIVAXTrasladarModal.SelectedIndex = 0
|
||||
' DdlIVATrasladadoModal.SelectedIndex = 0
|
||||
' UpModalClasificacionIVA.Update()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub BtnClasificacionIVA_Click(sender As Object, e As EventArgs)
|
||||
' If Modalidad = "A" Then
|
||||
' Dim Row As DataRow = DtClasificacionIVA.NewRow()
|
||||
' Row("CveClasificacionPorcentaje") = 0
|
||||
' Row("CveClasificacion") = DdlClasificacion.SelectedValue.ToEntero
|
||||
' Row("Clasificacion") = DdlClasificacion.SelectedItem.Text
|
||||
' Row("PorcentajeIVA") = TxtPorcentajeIVA.Text.ToDouble
|
||||
' Row("CuentaXAcreditar") = DdlIVAXAcreditarModal.SelectedItem.Text
|
||||
' Row("IdCtaIVAXAcreditar") = DdlIVAXAcreditarModal.SelectedValue.ToEntero
|
||||
' Row("CuentaAcreditable") = DdlIVAAcreditableModal.SelectedItem.Text
|
||||
' Row("IdCtaIVAAcreditable") = DdlIVAAcreditableModal.SelectedValue.ToEntero
|
||||
' Row("CuentaXTrasladar") = DdlIVAXTrasladarModal.SelectedItem.Text
|
||||
' Row("IdCtaIVAXTrasladar") = DdlIVAXTrasladarModal.SelectedValue.ToEntero
|
||||
' Row("CuentaTrasladado") = DdlIVATrasladadoModal.SelectedItem.Text
|
||||
' Row("IdCtaIVATrasladado") = DdlIVATrasladadoModal.SelectedValue.ToEntero
|
||||
' DtClasificacionIVA.Rows.InsertAt(Row, DtClasificacionIVA.Rows.Count)
|
||||
' ElseIf Modalidad = "U" Then
|
||||
' DtClasificacionIVA.Rows(Index)("CveClasificacion") = DdlClasificacion.SelectedValue.ToEntero
|
||||
' DtClasificacionIVA.Rows(Index)("Clasificacion") = DdlClasificacion.SelectedItem.Text
|
||||
' DtClasificacionIVA.Rows(Index)("PorcentajeIVA") = TxtPorcentajeIVA.Text.ToDouble
|
||||
' DtClasificacionIVA.Rows(Index)("CuentaXAcreditar") = DdlIVAXAcreditarModal.SelectedItem.Text
|
||||
' DtClasificacionIVA.Rows(Index)("IdCtaIVAXAcreditar") = DdlIVAXAcreditarModal.SelectedValue.ToEntero
|
||||
' DtClasificacionIVA.Rows(Index)("CuentaAcreditable") = DdlIVAAcreditableModal.SelectedItem.Text
|
||||
' DtClasificacionIVA.Rows(Index)("IdCtaIVAAcreditable") = DdlIVAAcreditableModal.SelectedValue.ToEntero
|
||||
' DtClasificacionIVA.Rows(Index)("CuentaXTrasladar") = DdlIVAXTrasladarModal.SelectedItem.Text
|
||||
' DtClasificacionIVA.Rows(Index)("IdCtaIVAXTrasladar") = DdlIVAXTrasladarModal.SelectedValue.ToEntero
|
||||
' DtClasificacionIVA.Rows(Index)("CuentaTrasladado") = DdlIVATrasladadoModal.SelectedItem.Text
|
||||
' DtClasificacionIVA.Rows(Index)("IdCtaIVATrasladado") = DdlIVATrasladadoModal.SelectedValue.ToEntero
|
||||
' End If
|
||||
' DtClasificacionIVA.AcceptChanges()
|
||||
' ActualizaNombresCuentas()
|
||||
' GvClasificacionIVA.DataSource = DtClasificacionIVA
|
||||
' GvClasificacionIVA.DataBind()
|
||||
' UpClasificacionIVA.Update()
|
||||
' RegistraScript("$('#DModalClasificacionIVA').modal('hide')")
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvClasificacionIVA_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If Not e.Row.DBCampo("CveClasificacion").ToEntero > 0 Then
|
||||
' e.Row.Visible = False
|
||||
' End If
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
'Protected Sub LnkOpenModalDatosFiel_Click(sender As Object, e As EventArgs)
|
||||
' TxtFielPass.Text = ""
|
||||
' TxtFielArchivoCER.Text = ""
|
||||
' TxtFielArchivoKey.Text = ""
|
||||
' RegistraScript("$('#ModalUpFiel').modal();")
|
||||
'End Sub
|
||||
|
||||
'Protected Sub LnkUpDatosFiel_Click(sender As Object, e As EventArgs)
|
||||
' Dim Password As String = TxtFielPass.Text
|
||||
' Dim akey As String
|
||||
' Dim acer As String
|
||||
' Dim pemkey As String
|
||||
' Dim pemcer As String
|
||||
' Dim pfxname As String
|
||||
' Dim Archivopfx As String
|
||||
' Dim Archivokey As Archivo = Nothing
|
||||
' Dim Archivocer As Archivo = Nothing
|
||||
|
||||
' Dim dirbase = ""
|
||||
' Dim dirbasepfx = ""
|
||||
' If EmpresaEditar IsNot Nothing Then
|
||||
' dirbase = String.Format("{0}Certificados\Fiel\", EmpresaEditar.Ruta)
|
||||
' dirbasepfx = String.Format("{0}Certificados\", EmpresaEditar.Ruta)
|
||||
' Else
|
||||
' dirbase = String.Format("{0}Empresas\{1}\Certificados\Fiel\", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
|
||||
' dirbasepfx = String.Format("{0}Empresas\{1}\Certificados\", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
|
||||
' End If
|
||||
|
||||
' If (Not Directory.Exists(dirbase)) Then
|
||||
' Directory.CreateDirectory(dirbase)
|
||||
' End If
|
||||
|
||||
' Dim Filesgral As List(Of Archivo) = TxtFielArchivoCER.getfiles().Archivos
|
||||
' If Filesgral.Count > 0 Then
|
||||
' Archivocer = Filesgral(0)
|
||||
' End If
|
||||
' Filesgral = TxtFielArchivoKey.getfiles().Archivos
|
||||
' If Filesgral.Count > 0 Then
|
||||
' Archivokey = Filesgral(0)
|
||||
' End If
|
||||
' If Not IsNothing(Archivokey) AndAlso Not IsNothing(Archivocer) And Password.Length > 0 Then
|
||||
' akey = String.Format("{0}{1}", dirbase, Archivokey.filenameO)
|
||||
' If File.Exists(akey) Then
|
||||
' File.Delete(akey)
|
||||
' End If
|
||||
' File.Copy(Archivokey.FileUrl, akey)
|
||||
' acer = String.Format("{0}{1}", dirbase, Archivocer.filenameO)
|
||||
' If File.Exists(acer) Then
|
||||
' File.Delete(acer)
|
||||
' End If
|
||||
' File.Copy(Archivocer.FileUrl, acer)
|
||||
' Archivopfx = Archivokey.filenameO.Substring(0, Archivokey.filenameO.Length - 4)
|
||||
' pemkey = String.Format("{0}{1}.pem", dirbase, Archivopfx)
|
||||
' pfxname = String.Format("{0}{1}.pfx", dirbasepfx, Archivopfx)
|
||||
' pemcer = String.Format("{0}{1}.pem", dirbase, Archivokey.filenameO.Substring(0, Archivocer.filenameO.Length - 4))
|
||||
|
||||
' If File.Exists(pemkey) Then
|
||||
' File.Delete(pemkey)
|
||||
' End If
|
||||
|
||||
' If File.Exists(pfxname) Then
|
||||
' File.Delete(pfxname)
|
||||
' End If
|
||||
|
||||
' If File.Exists(pemcer) Then
|
||||
' File.Delete(pemcer)
|
||||
' End If
|
||||
|
||||
' Dim resultado As New StringBuilder
|
||||
' resultado.AppendLine("<br/>PAso 1:<br/>")
|
||||
' resultado.AppendLine(execCommand({"cd C:\Generar PFX\", String.Format("openssl.exe x509 -inform DER -in ""{0}"" -out ""{1}""", acer, pemcer)}))
|
||||
' resultado.AppendLine("<br/>PAso 2:<br/>")
|
||||
' resultado.AppendLine(execCommand({"cd C:\Generar PFX\", String.Format("openssl pkcs8 -inform DER -in ""{0}"" -passin pass:""{1}"" -out ""{2}""", akey, Password, pemkey)}))
|
||||
' resultado.AppendLine("<br/>Paso 3:<br/>")
|
||||
' resultado.AppendLine(execCommand({"cd C:\Generar PFX\", String.Format("openssl pkcs12 -export -out ""{0}"" -inkey ""{1}"" -in ""{2}"" -passout pass:""{3}""", pfxname, pemkey, pemcer, Password)}))
|
||||
' resultado.AppendLine("<br/>")
|
||||
' 'Alert(resultado.ToString())
|
||||
|
||||
' If File.Exists(pemkey) Then
|
||||
' File.Delete(pemkey)
|
||||
' End If
|
||||
' If File.Exists(pemcer) Then
|
||||
' File.Delete(pemcer)
|
||||
' End If
|
||||
' If File.Exists(acer) Then
|
||||
' File.Delete(acer)
|
||||
' End If
|
||||
' If File.Exists(akey) Then
|
||||
' File.Delete(akey)
|
||||
' End If
|
||||
' If File.Exists(Archivocer.FileUrl) Then
|
||||
' File.Delete(Archivocer.FileUrl)
|
||||
' End If
|
||||
' If File.Exists(Archivokey.FileUrl) Then
|
||||
' File.Delete(Archivokey.FileUrl)
|
||||
' End If
|
||||
' If Not File.Exists(pfxname) Then
|
||||
' Archivopfx = ""
|
||||
' Password = ""
|
||||
' End If
|
||||
' Dim objempresa As New ClsSisEmpresas
|
||||
' objempresa.UpEmpresaFiel(UsuarioActual.CveEmpresa, Password, $"{Archivopfx}.pfx")
|
||||
' objempresa.Dispose()
|
||||
' lblPassFiel.Text = Password
|
||||
' LblPfx.Text = $"{Archivopfx}.pfx"
|
||||
' Alert("La Fiel se ha actualizado")
|
||||
' UpmodalFiel.Update()
|
||||
' RegistraScript("$('#ModalUpFiel').modal('hide');")
|
||||
' Else
|
||||
' Alert("Favor de llenar todos los campos : <br/>-Contraseña<br/>-Archivo CER<br/>-Archivo KEY", TipoMensaje.MsgAdvertencia)
|
||||
' End If
|
||||
'End Sub
|
||||
'Public Function execCommand(command As String()) As String
|
||||
|
||||
' Dim proceso As Diagnostics.Process = New Diagnostics.Process()
|
||||
' proceso.StartInfo.FileName = "cmd.exe"
|
||||
' proceso.StartInfo.CreateNoWindow = True
|
||||
' proceso.StartInfo.RedirectStandardInput = True
|
||||
' proceso.StartInfo.RedirectStandardOutput = True
|
||||
' proceso.StartInfo.UseShellExecute = False
|
||||
' proceso.Start()
|
||||
' For Each c As String In command
|
||||
' proceso.StandardInput.WriteLine(c)
|
||||
|
||||
' Next
|
||||
' proceso.StandardInput.Flush()
|
||||
' proceso.StandardInput.Close()
|
||||
' proceso.WaitForExit()
|
||||
' Return proceso.StandardOutput.ReadToEnd()
|
||||
'End Function
|
||||
'Private Sub CargaTareasProgramadas()
|
||||
' Dim objTP As New ClsTareasProgramadas()
|
||||
' ChkDescargaMasivaSat.Checked = False
|
||||
' If objTP.GetTareasProgramadas(UsuarioActual.CveEmpresa) AndAlso objTP.DtResultados.Rows.Count > 0 Then
|
||||
' ChkDescargaMasivaSat.Checked = (objTP.DtResultados.COUNT("CveTareaProgramada", "CveTareaProgramada=1") > 0)
|
||||
' End If
|
||||
' objTP.Dispose()
|
||||
'End Sub
|
||||
'Protected Sub ChkDescargaMasivaSat_CheckedChanged(sender As Object, e As EventArgs)
|
||||
' Dim objTP As New ClsTareasProgramadas()
|
||||
' If ChkDescargaMasivaSat.Checked Then
|
||||
' If objTP.AddTareasProgramadas(UsuarioActual.CveEmpresa, 1, DateTime.Now.ToString("yyyy/MM/dd"), "", 0, "", DateTime.Now.ToString("yyyy/MM/dd"), DateTime.Now.ToString("yyyy/MM/dd"), "", "", 0, 1) Then
|
||||
' Alert("La tarea programada de descarga masiva del sat a agregado satisfactoriamente")
|
||||
' End If
|
||||
' Else
|
||||
' If objTP.RemoveTareasProgramadas(1, UsuarioActual.CveEmpresa) Then
|
||||
' Alert("La tarea programada de descarga masiva del sat se ha removido satisfactoriamente")
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' objTP.Dispose()
|
||||
'End Sub
|
||||
Protected Sub LnkRegistrarPAC3_Click(sender As Object, e As EventArgs)
|
||||
If UsuarioActual.CveEmpresa > 0 Then
|
||||
RegistrarPAC3()
|
||||
|
||||
@@ -761,501 +761,26 @@
|
||||
</div>
|
||||
|
||||
<div class="col-md-6">
|
||||
<div class="portlet light smmallpadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Cuentas Contables</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse"></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<table border="0" width="100%">
|
||||
<tr>
|
||||
<td width="200px">Cuenta Cambiaria:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DddlCuentaGananciaCambiaria" Width="50%" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Cuenta Perdida Cambiaria:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlCuentaPerdidaCambiaria" Width="50%" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Cuenta Descuento Venta:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlCuentaDescuentoVenta" Width="50%" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Cuenta Otros Ingresos:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlCuentaOtrosIngresos" Width="50%" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Asiento Contable Compras Contado:</td>
|
||||
<td>
|
||||
<asp:CheckBox ID="ChkAsientoContable" runat="server" /></td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="portlet light smmallpadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">IVAs </span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse"></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<table border="0" width="100%">
|
||||
<tr>
|
||||
<td width="120px">IVA por Acreditar:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlIVAxAcreditar" runat="server" Width="60%" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>IVA Acreditable:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlIVAAcreditable" runat="server" Width="60%" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>IVA por Trasladar:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlIVAxTrasladar" runat="server" Width="60%" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>IVA Trasladado</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlIVATrasladado" runat="server" Width="60%" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>IVA Retenciones:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlIVARetenciones" runat="server" Width="60%" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>ISR Circulación:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlISRCirculacion" runat="server" Width="60%" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Dev Sobre Venta:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlDSV" runat="server" Width="60%" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Impuestos Locales:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlImpuestosLocales" runat="server" Width="60%" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>IEPS por Acreditar:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlIEPSxAcreditar" runat="server" Width="60%" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td>IEPS Acreditable:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlIEPSAcreditable" runat="server" Width="60%" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
|
||||
|
||||
<tr>
|
||||
<td>IEPS por Trasladar:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlIEPSxTrasladar" runat="server" Width="60%" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
|
||||
|
||||
<tr>
|
||||
<td>IEPS Trasladado:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlIEPSTrasladado" runat="server" Width="60%" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
|
||||
|
||||
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
<div class="col-md-6">
|
||||
<div class="portlet light smmallpadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">CUENTAS PADRES </span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse"></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
|
||||
<asp:TabContainer runat="server" ID="TabPadres">
|
||||
<asp:TabPanel ID="ContPAQ" runat="server" HeaderText="ContPAQ">
|
||||
<ContentTemplate>
|
||||
<table border="0" width="100%">
|
||||
|
||||
<tr>
|
||||
<td width="120px">Proveedores:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlProveedores" runat="server" Width="60%" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Clientes:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlClientes" runat="server" Width="60%" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Inventario:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlInventario" runat="server" Width="60%" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Gasto:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlGasto" runat="server" Width="60%" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Bancos:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlBancos" runat="server" Width="60%" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Deudores:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlDeudores" runat="server" Width="60%" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Acreedores:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlAcreedores" runat="server" Width="60%" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Doc. por Pagar:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlDocxPagar" runat="server" Width="60%" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Anticipo Cliente:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlAnticipoCliente" runat="server" Width="60%" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Anticipo Proveedores:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlAnticipoProveedores" runat="server" Width="60%" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Caja</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlCaja" runat="server" Width="60%" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>FyE:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlFyE" runat="server" Width="60%" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Activo Fijo:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlActivoFijo" runat="server" Width="60%" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</asp:TabPanel>
|
||||
|
||||
<%--<ajax:TabPanel ID="TabContSIG" runat="server" HeaderText="ContSIG">
|
||||
<ContentTemplate>
|
||||
<table border="0" width="100%">
|
||||
|
||||
<tr>
|
||||
<td width="120px">Proveedores:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlProveedoresSIG" runat="server" Width="60%" AppendDataBoundItems="true" class="select2me" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Clientes:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlClientesSIG" runat="server" Width="60%" AppendDataBoundItems="true" class="select2me" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Inventario:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlInventarioSIG" runat="server" Width="60%" AppendDataBoundItems="true" class="select2me" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Gasto:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlGastoSIG" runat="server" Width="60%" AppendDataBoundItems="true" class="select2me" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Bancos:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlBancosSIG" runat="server" Width="60%" AppendDataBoundItems="true" class="select2me" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Deudores:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlDeudoresSIG" runat="server" Width="60%" AppendDataBoundItems="true" class="select2me" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Acreedores:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlAcreedoresSIG" runat="server" Width="60%" AppendDataBoundItems="true" class="select2me" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Doc. por Pagar:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlDocxPagarSIG" runat="server" Width="60%" AppendDataBoundItems="true" class="select2me" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Anticipo Cliente:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlAnticipoClienteSIG" runat="server" Width="60%" AppendDataBoundItems="true" class="select2me" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Anticipo Proveedores:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlAnticipoProveedoresSIG" runat="server" Width="60%" AppendDataBoundItems="true" class="select2me" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Caja</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlCajaSIG" runat="server" Width="60%" AppendDataBoundItems="true" class="select2me" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>FyE:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlFyESIG" runat="server" Width="60%" AppendDataBoundItems="true" class="select2me" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Activo Fijo:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlActivoFijoSIG" runat="server" Width="60%" AppendDataBoundItems="true" class="select2me" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>--%>
|
||||
|
||||
|
||||
|
||||
</asp:TabContainer>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="portlet light smmallpadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">CLASIFICACIONES DE IVAS</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse"></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<asp:UpdatePanel ID="UpClasificacionIVA" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="btn-group pull-right">
|
||||
<asp:Button ID="LnkAgregarClasificacionIVA" CssClass="btn green-haze btn-outline btn-circle btn-sm" OnClick="LnkAgregarClasificacionIVA_Click" runat="server" Text="Agregar" />
|
||||
</div>
|
||||
<br />
|
||||
<br />
|
||||
<asp:GridView ID="GvClasificacionIVA" runat="server" GridLines="None"
|
||||
CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true"
|
||||
AutoGenerateColumns="False"
|
||||
DataKeyNames="CveClasificacionPorcentaje,CveClasificacion,PorcentajeIVA,IdCtaIVAXTrasladar,
|
||||
IdCtaIVATrasladado,IdCtaIVAXAcreditar,IdCtaIVAAcreditable"
|
||||
OnRowDataBound="GvClasificacionIVA_RowDataBound">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="PorcentajeIVA" HeaderText="IVA" ItemStyle-HorizontalAlign="Center" />
|
||||
<asp:BoundField DataField="CuentaXAcreditar" HeaderText="X Acreditar" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="CuentaAcreditable" HeaderText="Acreditable" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="CuentaXTrasladar" HeaderText="X Trasladar" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="CuentaTrasladado" HeaderText="Trasladado" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditarClasificacionIVA" OnClick="LnkEditarClasificacionIVA_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
|
||||
<asp:LinkButton ID="LnkEliminarClasificacionIVA" runat="server" OnClick="LnkEliminarClasificacionIVA_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar la clasificación de iva?" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div id="DModalClasificacionIVA" class="modal ADS fade" role="dialog">
|
||||
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalClasificacionIVA" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-content">
|
||||
<div class="modal-header ">
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="ltlHuertitulo" runat="server" Text="Clasificación IVA"></asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtPorcentajeIVA" CssClass="form-control" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVPorcentajeIVA" runat="server" ControlToValidate="TxtPorcentajeIVA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Porcentaje IVA''</b> es necesario, por favor ingréselo." ValidationGroup="VGMClasificacionIVA"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEPorcentajeIVA" runat="server" HighlightCssClass="vco" TargetControlID="RFVPorcentajeIVA"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:FilteredTextBoxExtender ID="FIETTPorcentajeIVA" TargetControlID="TxtPorcentajeIVA" FilterType="Numbers,Custom" ValidChars="." runat="server" />
|
||||
<label for="<%= TxtPorcentajeIVA.ClientID.ToString()%>">Porcentaje IVA:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlClasificacion" CssClass="form-control select2me" runat="server" DataTextField="Clasificacion" DataValueField="CveClasificacion" AppendDataBoundItems="true" Style="width: 100%"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVClasificacion" runat="server" ControlToValidate="DdlClasificacion" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificacion''</b> es necesario, por favor ingréselo." ValidationGroup="VGMClasificacionIVA"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEClasificacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVClasificacion"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlIVAXAcreditarModal" CssClass="form-control select2me" runat="server" DataTextField="CtaCodigo" DataValueField="Id" AppendDataBoundItems="true" Style="width: 100%"></asp:DropDownList>
|
||||
<label for="<%= DdlIVAXAcreditarModal.ClientID.ToString()%>">IVA X Acreditar:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlIVAAcreditableModal" CssClass="form-control select2me" runat="server" DataTextField="CtaCodigo" DataValueField="Id" AppendDataBoundItems="true" Style="width: 100%"></asp:DropDownList>
|
||||
<label for="<%= DdlIVAAcreditableModal.ClientID.ToString()%>">IVA Acreditable:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlIVAXTrasladarModal" CssClass="form-control select2me" runat="server" DataTextField="CtaCodigo" DataValueField="Id" AppendDataBoundItems="true" Style="width: 100%"></asp:DropDownList>
|
||||
<label for="<%= DdlIVAXTrasladarModal.ClientID.ToString()%>">IVA X Trasladar:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlIVATrasladadoModal" CssClass="form-control select2me" runat="server" DataTextField="CtaCodigo" DataValueField="Id" AppendDataBoundItems="true" Style="width: 100%"></asp:DropDownList>
|
||||
<label for="<%= DdlIVATrasladadoModal.ClientID.ToString()%>">IVA Trasladado:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnClasificacionIVA" OnClick="BtnClasificacionIVA_Click" runat="server" Text="Agregar" CssClass="btn btn-primary" ValidationGroup="VGMClasificacionIVA" />
|
||||
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user