Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
218
PyME/Contabilidad/CatCuentas.aspx
Normal file
218
PyME/Contabilidad/CatCuentas.aspx
Normal file
@@ -0,0 +1,218 @@
|
||||
<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatCuentas.aspx.vb" Inherits="Contabilidad_CatCuentas" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
<style>
|
||||
#treeviewarbolmiarbol, .catcuentascontarbol .catcuentasarbol {
|
||||
width: 100%;
|
||||
}
|
||||
|
||||
#listviewbuscar {
|
||||
width: 50%;
|
||||
}
|
||||
|
||||
.aradd {
|
||||
margin-left: 15px;
|
||||
background-color: #1caf9a;
|
||||
color: #ffffff;
|
||||
font-weight: 300;
|
||||
padding: 2px 7px 3px 8px;
|
||||
text-align: center;
|
||||
height: 15px;
|
||||
border-radius: 18px !important;
|
||||
vertical-align: middle;
|
||||
}
|
||||
|
||||
.aradd::before {
|
||||
font: normal normal normal 14px/1 FontAwesome;
|
||||
font-size: 9px !important;
|
||||
content: "\f067";
|
||||
}
|
||||
|
||||
.aredit {
|
||||
margin-left: 15px;
|
||||
background-color: #E87E04;
|
||||
color: #ffffff;
|
||||
font-weight: 300;
|
||||
padding: 2px 7px 3px 8px;
|
||||
text-align: center;
|
||||
height: 15px;
|
||||
border-radius: 18px !important;
|
||||
vertical-align: middle;
|
||||
}
|
||||
|
||||
.aredit::before {
|
||||
font: normal normal normal 14px/1 FontAwesome;
|
||||
font-size: 9px !important;
|
||||
content: "\f040";
|
||||
}
|
||||
</style>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||
Catálogo de Cuentas Contables
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
|
||||
|
||||
<asp:UpdatePanel ID="UpCuentas" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="catcuentascontarbol">
|
||||
<fieldset>
|
||||
<legend>Cuentas</legend>
|
||||
<div class="catcuentasarbol">
|
||||
<div id="treeviewarbolmiarbol">
|
||||
<asp:Literal ID="Literal1" Visible="false" runat="server"></asp:Literal>
|
||||
<ADS:Arbol runat="server" ID="ArbolCuentas"></ADS:Arbol>
|
||||
</div>
|
||||
</div>
|
||||
</fieldset>
|
||||
</div>
|
||||
|
||||
<div class="catcuentasform">
|
||||
|
||||
|
||||
<asp:TextBox ID="Textbuscar" Style="display: none;" runat="server"></asp:TextBox>
|
||||
<asp:HiddenField ID="HdnID" runat="server" Value="" ClientIDMode="Static" />
|
||||
<asp:Button ID="editar" runat="server" Style="display: none;" Text="Buscar" />
|
||||
<asp:Button ID="agregar" Style="display: none;" runat="server" Text="Buscar" />
|
||||
<asp:Button ID="borrar" Style="display: none;" runat="server" Text="borrar" />
|
||||
<fieldset>
|
||||
<legend>Información de la cuenta</legend>
|
||||
<div class="form-line">
|
||||
<div class="catcuentas left">Cuenta</div>
|
||||
<div class="catcuentas right">
|
||||
<asp:TextBox ID="Tcuenta" runat="server" Enabled="False" MaxLength="30" Width="140px" ClientIDMode="Static"></asp:TextBox>
|
||||
<ajax:MaskedEditExtender TargetControlID="Tcuenta" ID="MEECuenta" runat="server" MaskType="Number" AutoComplete="True" AutoCompleteValue="0" />
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-line">
|
||||
<div class="catcuentas left">Nombre</div>
|
||||
<div class="catcuentas right">
|
||||
<asp:TextBox ID="Tnombre" Style="width: 100%;" runat="server" MaxLength="50"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
<hr />
|
||||
<div class="form-line">
|
||||
<div class="catcuentas left">Subcuenta de</div>
|
||||
<div class="catcuentas right">
|
||||
<asp:TextBox ID="Tsubcuenta" runat="server" Enabled="False" Width="140px" ClientIDMode="Static"></asp:TextBox>
|
||||
<br />
|
||||
<asp:Label ID="LblSubCuenta" runat="server" Text="" Font-Italic="True" Font-Size="7pt" ClientIDMode="Static"></asp:Label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-line">
|
||||
<div class="catcuentas left">Tipo de Cuenta</div>
|
||||
<div class="catcuentas right">
|
||||
<asp:DropDownList ID="DTcuenta" CssClass="form-control input-sm input-small select2me" runat="server">
|
||||
<asp:ListItem Selected="True" Text="Seleccione " Value="-1"></asp:ListItem>
|
||||
<asp:ListItem Text="Activo Deudora " Value="A"></asp:ListItem>
|
||||
<asp:ListItem Text="Activo Acreedora " Value="B"></asp:ListItem>
|
||||
<asp:ListItem Text="Pasivo Deudora " Value="C"></asp:ListItem>
|
||||
<asp:ListItem Text="Pasivo Acreedora " Value="D"></asp:ListItem>
|
||||
<asp:ListItem Text="Capital Deudora " Value="E"></asp:ListItem>
|
||||
<asp:ListItem Text="Capital Acreedora " Value="F"></asp:ListItem>
|
||||
<asp:ListItem Text="Resultados Deudora " Value="G"></asp:ListItem>
|
||||
<asp:ListItem Text="Resultados Acreedora" Value="H"></asp:ListItem>
|
||||
<asp:ListItem Text="Estadisticas Deudora" Value="I"></asp:ListItem>
|
||||
<asp:ListItem Text="Estadisticas Acredora " Value="J"></asp:ListItem>
|
||||
<asp:ListItem Text="Orden Deudora " Value="K"></asp:ListItem>
|
||||
<asp:ListItem Text="Orden Acreedora " Value="L"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-line">
|
||||
<div class="catcuentas left">Cuenta Mayor</div>
|
||||
<div class="catcuentas right">
|
||||
<asp:DropDownList ID="DcuentaMayor" CssClass="form-control input-sm input-small select2me" runat="server">
|
||||
<asp:ListItem Selected="True" Text="Seleccione " Value="-1"></asp:ListItem>
|
||||
<asp:ListItem Text="Mayor " Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="No " Value="2"></asp:ListItem>
|
||||
<asp:ListItem Text="Titulo " Value="3"></asp:ListItem>
|
||||
<asp:ListItem Text="SubTitulo " Value="4"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-line">
|
||||
<div class="catcuentas left">Agrupador SAT</div>
|
||||
<div class="catcuentas right">
|
||||
<asp:DropDownList ID="DdlAgrupadorSAT" DataTextField="CodigoNombre" DataValueField="Id" CssClass="form-control input-sm input-small select2me" Width="100%" runat="server">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-line">
|
||||
<div class="catcuentas left">Moneda</div>
|
||||
<div class="catcuentas right">
|
||||
<asp:DropDownList ID="DdlMoneda" DataTextField="Moneda" DataValueField="CveMoneda" CssClass="form-control input-sm input-small select2me" runat="server">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-line">
|
||||
<div class="catcuentas left">Dígito agrupador</div>
|
||||
<div class="catcuentas right">
|
||||
<asp:TextBox ID="TxtDigAgrup" Style="width: 40px;" runat="server"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-line">
|
||||
<div class="catcuentas left">Nombre en ingles</div>
|
||||
<div class="catcuentas right">
|
||||
<asp:TextBox ID="TxtNomIngles" Style="width: 100%;" runat="server"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
<asp:Button ID="Guardar" CssClass="btn btn-primary" Visible="false" runat="server" Text="Guardar" />
|
||||
<asp:Button ID="nuevacuenta" CssClass="btn btn-success" Visible="false" runat="server" Text="Guardar" />
|
||||
<asp:Button ID="BtnEliminar" CssClass="btn btn-danger" Visible="false" runat="server" Text="Eliminar" OnClientClick="return confirm('Esta seguro de eliminar la cuenta?')" />
|
||||
</fieldset>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
|
||||
|
||||
<asp:Content ID="content7" ContentPlaceHolderID="JS" runat="server">
|
||||
<script>
|
||||
function buscararbolito(inputid, ulid) {
|
||||
|
||||
var texto = $("input#" + inputid).val();
|
||||
if ((texto == '') && ($('ul#' + ulid))) {
|
||||
$('ul#' + ulid + '').removeClass("listainvicible");
|
||||
}
|
||||
else {
|
||||
if ($('ul#' + ulid).hasClass('listainvicible') == false) {
|
||||
$('ul#' + ulid).addClass("listainvicible");
|
||||
}
|
||||
if ($('ul#' + ulid + ' li.livisible')) {
|
||||
$('ul#' + ulid + ' li.livisible').removeClass("livisible");
|
||||
}
|
||||
if ($('ul#' + ulid + ' input:checked')) {
|
||||
$('ul#' + ulid + ' input:checked').prop('checked', false);
|
||||
}
|
||||
if ($('ul#' + ulid + ' li:contains("' + texto + '") > input[type=checkbox]')) {
|
||||
$('ul#' + ulid + ' li:contains("' + texto + '") > input[type=checkbox]').prop('checked', true);
|
||||
}
|
||||
if ($('ul#' + ulid + ' li:contains("' + texto + '")')) {
|
||||
$('ul#' + ulid + ' li:contains("' + texto + '")').addClass("livisible");
|
||||
}
|
||||
if ($('ul#' + ulid + ' label:contains("' + texto + '") ~ ul li')) {
|
||||
$('ul#' + ulid + ' label:contains(""' + texto + '"") ~ ul li').addClass("livisible");
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
jQuery(document).ready(function () {
|
||||
Sys.Application.add_load(function (s, e) {
|
||||
buscararbolito('C_ArbolCuentas_Abuscar', 'C_ArbolCuentas_miarbol')
|
||||
});
|
||||
});
|
||||
</script>
|
||||
</asp:Content>
|
||||
289
PyME/Contabilidad/CatCuentas.aspx.vb
Normal file
289
PyME/Contabilidad/CatCuentas.aspx.vb
Normal file
@@ -0,0 +1,289 @@
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class Contabilidad_CatCuentas
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "Propiedades"
|
||||
|
||||
Private Property DtDatos As DataTable
|
||||
Get
|
||||
Return CType(ViewState("DtDatos"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DtDatos") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property IDSelected As Integer
|
||||
Get
|
||||
Return ViewState("idsel").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("idsel") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaMonedas()
|
||||
CargaDatos()
|
||||
CargaAgrupadorSAT()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaMonedas()
|
||||
DdlMoneda.DataSource = GlobalDTMonedas
|
||||
DdlMoneda.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaAgrupadorSAT()
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
|
||||
If ObjConta.GetAgrupadoresSAT(UsuarioActual.CveEmpresa) Then
|
||||
DdlAgrupadorSAT.DataSource = ObjConta.DtResultados
|
||||
End If
|
||||
|
||||
ObjConta.Dispose()
|
||||
DdlAgrupadorSAT.DataBind()
|
||||
DdlAgrupadorSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
|
||||
If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
DtDatos = ObjConta.DtResultados
|
||||
End If
|
||||
|
||||
'para obtener la mascara, tomo el primer dato y reemplazo los numeros por cero
|
||||
Dim Mascara As String = "####-####-###"
|
||||
If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
|
||||
Mascara = "0000"
|
||||
End If
|
||||
|
||||
MEECuenta.Mask = Mascara.Replace("0", "9")
|
||||
MEECuenta.AutoComplete = True
|
||||
MEECuenta.AutoCompleteValue = Mascara
|
||||
|
||||
ArbolCuentas.DataSource = DtDatos
|
||||
ArbolCuentas.nivel = "CtaInicial"
|
||||
ArbolCuentas.nodoid = "CveCuenta"
|
||||
ArbolCuentas.padre = "CvePadre"
|
||||
ArbolCuentas.titulo = "CtaCodigo"
|
||||
|
||||
ObjConta.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Function getNodospadreHijos(nodo As Integer) As DataTable
|
||||
Return DtDatos.FiltraParametros(String.Format("CveCuenta = {0}", nodo))
|
||||
End Function
|
||||
|
||||
Protected Sub agregar_Click(sender As Object, e As EventArgs) Handles ArbolCuentas.addclick
|
||||
|
||||
Dim dt As New DataTable
|
||||
Dim obj As ADServerControl.DragableItem = DirectCast(sender, ADServerControl.DragableItem)
|
||||
|
||||
LimpiarCampos()
|
||||
|
||||
IDSelected = obj.Cve
|
||||
dt = getNodospadreHijos(IDSelected)
|
||||
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
Dim dr As DataRow = dt.Rows(0)
|
||||
Tcuenta.Text = Trim(dr("CuentaFormato").ToString.Replace("-", "").ToString)
|
||||
Tsubcuenta.Text = dr("CuentaFormato").ToString()
|
||||
DTcuenta.SelectedValue = dr("Tipo").ToString()
|
||||
DcuentaMayor.SelectedValue = dr("CtaMayor").ToString
|
||||
LblSubCuenta.Text = dr("Nombre").ToString
|
||||
End If
|
||||
|
||||
Tcuenta.Enabled = True
|
||||
nuevacuenta.Visible = True
|
||||
UpDatos.Visible = True
|
||||
UpDatos.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub editar_Click(sender As Object, e As EventArgs) Handles ArbolCuentas.editclick
|
||||
Dim dt As DataTable
|
||||
Dim obj As ADServerControl.DragableItem = DirectCast(sender, ADServerControl.DragableItem)
|
||||
|
||||
LimpiarCampos()
|
||||
|
||||
IDSelected = obj.Cve
|
||||
dt = getNodospadreHijos(IDSelected)
|
||||
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
Dim dr As DataRow = dt.Rows(0)
|
||||
Dim drt As DataRow
|
||||
Dim Hijos As Integer
|
||||
|
||||
Tcuenta.Text = dr("CuentaFormato").ToString.Replace("-", "").ToString
|
||||
Tnombre.Text = dr("Nombre").ToString()
|
||||
DTcuenta.SelectedValue = dr("Tipo").ToString()
|
||||
DcuentaMayor.SelectedValue = dr("CtaMayor").ToString
|
||||
DdlMoneda.SelectedValue = dr("CveMoneda").ToString
|
||||
|
||||
If dr("CveAgrupadorSAT").ToString.ToEntero = 0 Then
|
||||
DdlAgrupadorSAT.SelectedValue = -1
|
||||
Else
|
||||
DdlAgrupadorSAT.SelectedValue = dr("CveAgrupadorSAT").ToString
|
||||
End If
|
||||
|
||||
TxtDigAgrup.Text = dr("DigAgrup").ToString
|
||||
TxtNomIngles.Text = dr("NomIdioma").ToString
|
||||
|
||||
Hijos = DtDatos.FiltraParametros(String.Format("CvePadre = {0}", IDSelected)).Rows.Count
|
||||
|
||||
If Hijos = 0 Then BtnEliminar.Visible = True
|
||||
|
||||
dt = getNodospadreHijos(dr("CvePadre").ToString.ToEntero)
|
||||
If dt.Rows.Count > 0 Then
|
||||
drt = dt.Rows(0)
|
||||
Tsubcuenta.Text = drt("Codigo").ToString
|
||||
LblSubCuenta.Text = drt("Nombre").ToString
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Guardar.Visible = True
|
||||
UpDatos.Visible = True
|
||||
UpDatos.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub Guardar_Click(sender As Object, e As EventArgs) Handles Guardar.Click
|
||||
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
Dim customerRow As Data.DataRow
|
||||
Dim item As CheckBox
|
||||
|
||||
If Tnombre.Text.Trim = "" Then Alert("Se debe ingresar un nombre a la Cuenta.", TipoMensaje.MsgError) : Exit Sub
|
||||
|
||||
If Not ObjConta.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToString.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString) Then
|
||||
Alert("Ocurrió un error al actualizar la Cuenta.", TipoMensaje.MsgError)
|
||||
Exit Sub
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
|
||||
customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0)
|
||||
customerRow("Nombre") = Tnombre.Text
|
||||
DtDatos.AcceptChanges()
|
||||
|
||||
CargaDatos()
|
||||
ArbolCuentas.DataSource = DtDatos
|
||||
|
||||
item = DirectCast(ArbolCuentas.FindControl(String.Format("chk{0}", IDSelected)), CheckBox)
|
||||
item.Text = String.Format("{0} - {1}", customerRow("CuentaFormato").ToString, Tnombre.Text)
|
||||
LimpiarCampos()
|
||||
UpDatos.Update()
|
||||
|
||||
Alert("La Cuenta se guardó correctamente.")
|
||||
|
||||
End Sub
|
||||
Protected Sub nuevacuenta_Click(sender As Object, e As EventArgs) Handles nuevacuenta.Click
|
||||
|
||||
If Tnombre.Text.Trim = "" Then Alert("Se debe asignar un nombre a la Cuenta.", TipoMensaje.MsgError) : Exit Sub
|
||||
If Tcuenta.Text.Trim = "" Then Alert("Se debe asignar una Cuenta", TipoMensaje.MsgError) : Exit Sub
|
||||
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
Dim CuentaEfectivo As Integer = 0
|
||||
Dim Afectable As Integer = If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable
|
||||
|
||||
Dim idnew = ObjConta.AddCuenta(IDSelected, Tcuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
|
||||
DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString)
|
||||
|
||||
If idnew > 0 Then
|
||||
Dim dr As DataRow = DtDatos.NewRow
|
||||
Dim item As ADServerControl.DragableItem
|
||||
Dim objul As ADServerControl.DragableUL
|
||||
|
||||
dr("CveCuenta") = idnew
|
||||
dr("CuentaFormato") = Tcuenta.Text
|
||||
dr("Nombre") = Tnombre.Text
|
||||
dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text)
|
||||
dr("Tipo") = DTcuenta.SelectedValue.ToString
|
||||
dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString
|
||||
dr("CvePadre") = IDSelected
|
||||
dr("Codigo") = Tnombre.Text
|
||||
dr("CveMoneda") = DdlMoneda.SelectedValue.ToEntero
|
||||
dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero
|
||||
dr("NomIdioma") = TxtNomIngles.Text.Trim
|
||||
|
||||
DtDatos.Rows.Add(dr)
|
||||
ArbolCuentas.DataSource = DtDatos
|
||||
|
||||
item = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
|
||||
objul = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL)
|
||||
|
||||
item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1
|
||||
|
||||
If (IsNothing(objul)) Then
|
||||
objul = New ADServerControl.DragableUL
|
||||
objul.ID = String.Format("ul{0}", item.Cve)
|
||||
item.Controls.Add(objul)
|
||||
End If
|
||||
|
||||
ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text))
|
||||
|
||||
LimpiarCampos()
|
||||
|
||||
UpDatos.Update()
|
||||
CargaDatos()
|
||||
|
||||
Alert("La Cuenta se guardó correctamente.")
|
||||
End If
|
||||
|
||||
ObjConta.Dispose()
|
||||
End Sub
|
||||
Private Sub LimpiarCampos()
|
||||
Tcuenta.Text = ""
|
||||
Tnombre.Text = ""
|
||||
DTcuenta.SelectedValue = "-1"
|
||||
DcuentaMayor.SelectedValue = "-1"
|
||||
DdlAgrupadorSAT.SelectedValue = "-1"
|
||||
DdlMoneda.SelectedValue = "1"
|
||||
TxtDigAgrup.Text = ""
|
||||
TxtNomIngles.Text = ""
|
||||
Guardar.Visible = False
|
||||
nuevacuenta.Visible = False
|
||||
Tcuenta.Enabled = False
|
||||
BtnEliminar.Visible = False
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
|
||||
Dim customerRow As Data.DataRow
|
||||
Dim item As ADServerControl.DragableItem
|
||||
Dim padre As ADServerControl.DragableItem
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
|
||||
ObjConta.IniciaTransacSQL()
|
||||
|
||||
If ObjConta.RemoveCuenta(IDSelected.ToEntero) Then
|
||||
|
||||
customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0)
|
||||
customerRow("CvePadre") = "-5"
|
||||
DtDatos.AcceptChanges()
|
||||
|
||||
ArbolCuentas.DataSource = DtDatos
|
||||
item = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
|
||||
padre = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", item.CvePadre)), ADServerControl.DragableItem)
|
||||
padre.Attributes.Item("data-hijos") = padre.Attributes.Item("data-hijos").ToEntero - 1
|
||||
ArbolCuentas.Controls.Remove(item)
|
||||
RegistraScript(String.Format("$('#{0}').click();", editar.ClientID))
|
||||
|
||||
LimpiarCampos()
|
||||
UpCuentas.Update()
|
||||
|
||||
ObjConta.Commit()
|
||||
Alert("La Cuenta ha sido eliminada", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
ObjConta.RollBack()
|
||||
Alert("La Cuenta no pudo ser eliminada", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ObjConta.Dispose()
|
||||
End Sub
|
||||
End Class
|
||||
471
PyME/Contabilidad/ContabilizacionCompras.aspx
Normal file
471
PyME/Contabilidad/ContabilizacionCompras.aspx
Normal file
@@ -0,0 +1,471 @@
|
||||
<%@ Page Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="ContabilizacionCompras.aspx.cs" Inherits="Contabilidad_ContabilizacionCompras" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||
Diario de Movimientos
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UPPFiltros" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="portlet solid grey-cascade portlet-filter">
|
||||
<div class="portlet-title portlet-filterT smalltitle">
|
||||
<div class="tools">
|
||||
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" CssClass="btn btn-primary" />
|
||||
<asp:CheckBox ID="chkexpand" ClientIDMode="Static" CssClass="hidden" runat="server" />
|
||||
<a href="javascript;" data-idchekbox='chkexpand' class='<%= Convert.ToBoolean(chkexpand.Checked) ? "collapse" : "expand" %>'></a>
|
||||
</div>
|
||||
<div class="titlefiltros caption ">
|
||||
<div class="row">
|
||||
<label class="col-md-1 truncate">Proveedores:</label>
|
||||
<div class="col-md-3">
|
||||
<asp:DropDownList ID="DdlProveedores" Width="260px" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor">
|
||||
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 truncate">Fecha Inicio:</label>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
|
||||
<asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="ImgCalendarioI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="txtFechaI" PopupButtonID="ImgCalendarioI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<label class="col-md-1 truncate">Fecha Fin:</label>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
|
||||
<asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="ImgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CalendarExtender2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoFfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="portlet-body" <%= Convert.ToBoolean(chkexpand.Checked) ? "" : "style=\"display:none;\"" %>>
|
||||
<div class="row">
|
||||
<label class="col-md-1 truncate">Personal:</label>
|
||||
<div class="col-md-3">
|
||||
<asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" Width="260px" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal">
|
||||
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<br />
|
||||
|
||||
<asp:UpdatePanel ID="Updatetabs" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%">
|
||||
<ajax:TabPanel ID="TabCompras" runat="server" HeaderText="Compras">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:UpdatePanel ID="UpGvCompras" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnContabilizarCompras" runat="server" CssClass="btn btn-success" Text="Contabilizar" />
|
||||
</div>
|
||||
|
||||
<asp:GridView ID="GvPrePolizaCompras" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha,CveTipoPoliza" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Panel ID="PnlDetalleCompras" runat="server" CssClass="Texto">
|
||||
<asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" CssClass="table detallerow table-hover" Style="text-align: center; float: right; width: 95%;" DataKeyNames="IdCtaContable,Cargo,Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="ConceptoContable" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento">
|
||||
<ItemStyle HorizontalAlign="Left" Width="150px" />
|
||||
</asp:BoundField>
|
||||
<asp:BoundField DataField="Concepto" ItemStyle-HorizontalAlign="Left" HeaderText="Concepto">
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:BoundField>
|
||||
<asp:BoundField DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto">
|
||||
<ItemStyle HorizontalAlign="Left" Width="120px" />
|
||||
</asp:BoundField>
|
||||
<asp:BoundField DataField="IdCtaContable" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" ItemStyle-CssClass="truncate" HeaderText="Cuenta">
|
||||
<ItemStyle CssClass="truncate" Font-Italic="True" HorizontalAlign="Left" Width="150px" />
|
||||
</asp:BoundField>
|
||||
<asp:TemplateField HeaderText="Cargos">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlC" runat="server" Text='<%# Eval("Cargo", "{0:N2}") %>'></asp:Literal>
|
||||
<asp:Literal ID="LtlCME" runat="server" Text='<%# Eval("CargoME", "<br/>ME: {0:N2}") %>' Visible='<%# (Convert.ToDouble(Eval("CargoME")) != 0.00 )? true : false %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Right" Width="120px" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Abonos">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlA" runat="server" Text='<%# Eval("Abono", "{0:N2}") %>'></asp:Literal>
|
||||
<asp:Literal ID="LtlAME" runat="server" Text='<%# Eval("AbonoME", "<br/>ME: {0:N2}") %>' Visible='<%# (Convert.ToDouble(Eval("AbonoME")) != 0.00 )? true : false %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Right" Width="120px" />
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle Font-Size="Smaller" />
|
||||
</asp:GridView>
|
||||
</asp:Panel>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="">
|
||||
<ItemTemplate>
|
||||
<table width="100%" cellpadding="0" cellspacing="0">
|
||||
<tr class="SubTotales">
|
||||
<td style="width: 25px;">
|
||||
<asp:CheckBox ID="Chk" runat="server" />
|
||||
</td>
|
||||
<td>
|
||||
<table width="100%">
|
||||
<tr style="background-color: #949494; color: black;">
|
||||
<td style="width: 50px"></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:TextBox ID="TxtFechaCompras" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:TextBox></td>
|
||||
<td style="width: 50px; text-align: right;">Concepto:</td>
|
||||
<td style="width: 400px; text-align: left;">
|
||||
<asp:TextBox ID="TxtConceptoCompras" ItemStyle-HorizontalAlign="Left" Width="400px" runat="server" Text='<%# Eval("Concepto") %>'></asp:TextBox></td>
|
||||
<td style="width: 100px; text-align: right;">Poliza: </td>
|
||||
<td style="width: 70px; text-align: left;">
|
||||
<asp:Literal ID="LtPolizaTipoCompras" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
|
||||
<td style="width: 70px; text-align: left;"><asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" Visible="false" CssClass="Texto" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/PyME/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
|
||||
</tr>
|
||||
<tr style="color: black;">
|
||||
<td></td>
|
||||
<td style="width: 30px; text-align: right;">Factura:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:HyperLink Target="_blank" ID="HplFacturaVenta" runat="server" Text='<%# Eval("Serie")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}") %>'></asp:HyperLink></td>
|
||||
<td style="width: 50px; text-align: right;">Proveedor:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:HyperLink Target="_blank" ID="HplProveedorVenta" runat="server" Text='<%# Eval("NombreComercial")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveProveedor", "/Compras/Proveedores.aspx?CveProveedor={0}") %>'></asp:HyperLink></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblFechaVenta" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Label></td>
|
||||
<td style="width: 50px; text-align: right;">Total:</td>
|
||||
<td style="width: 50px; text-align: left;">
|
||||
<asp:Label ID="lblTotalVenta" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Label></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblMoneda" ItemStyle-HorizontalAlign="Left" runat="server" Text='<%# Eval("Moneda") %>'></asp:Label></td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
<ajax:TabPanel ID="TabPagos" runat="server" HeaderText="Pagos">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:UpdatePanel ID="UpGvPagos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnContabilizarPagos" runat="server" CssClass="btn btn-success" Text="Contabilizar" />
|
||||
</div>
|
||||
|
||||
<asp:GridView ID="GvPrePolizaPagos" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha,CveTipoPoliza" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Panel ID="PnlDetallePagos" runat="server">
|
||||
<asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow table-hover" Style="text-align: center; float: right; width: 95%;" DataKeyNames="IdCtaContable, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="ConceptoContable" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento" />
|
||||
<asp:BoundField DataField="Concepto" ItemStyle-HorizontalAlign="Left" HeaderText="Concepto" />
|
||||
<asp:BoundField DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto" />
|
||||
<asp:BoundField DataField="IdCtaContable" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" ItemStyle-CssClass="truncate" HeaderText="Cuenta" />
|
||||
<asp:TemplateField HeaderText="Cargos">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlC" runat="server" Text='<%# Eval("Cargo", "{0:N2}") %>'></asp:Literal>
|
||||
<asp:Literal ID="LtlCME" runat="server" Text='<%# Eval("CargoME", "<br/>ME: {0:N2}") %>' Visible='<%# (Convert.ToDouble(Eval("CargoME")) != 0.00 )? true : false %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Right" Width="120px" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Abonos">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlA" runat="server" Text='<%# Eval("Abono", "{0:N2}") %>'></asp:Literal>
|
||||
<asp:Literal ID="LtlAME" runat="server" Text='<%# Eval("AbonoME", "<br/>ME: {0:N2}") %>' Visible='<%# (Convert.ToDouble(Eval("AbonoME")) != 0.00 )? true : false %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Right" Width="120px" />
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle Font-Size="Smaller" />
|
||||
</asp:GridView>
|
||||
</asp:Panel>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="">
|
||||
<ItemTemplate>
|
||||
<table width="100%" cellpadding="0" cellspacing="0">
|
||||
<tr class="SubTotales">
|
||||
<td style="width: 25px;">
|
||||
<asp:CheckBox ID="Chk" runat="server" />
|
||||
</td>
|
||||
<td>
|
||||
<table width="100%">
|
||||
<tr style="background-color: #949494; color: black;">
|
||||
<td style="width: 50px"></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:TextBox ID="TxtFechaPagos" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:TextBox></td>
|
||||
<td style="width: 50px; text-align: right;">Concepto:</td>
|
||||
<td style="width: 400px; text-align: left;">
|
||||
<asp:TextBox ID="TxtConceptoPagos" ItemStyle-HorizontalAlign="Left" Width="400px" runat="server" Text='<%# Eval("Concepto") %>'></asp:TextBox></td>
|
||||
<td style="width: 100px; text-align: right;">Poliza: </td>
|
||||
<td style="width: 70px; text-align: left;">
|
||||
<asp:Literal ID="LtPolizaTipoPagos" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
|
||||
<td style="width: 70px; text-align: left;"><asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" Visible="false" CssClass="Texto" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/PyME/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
|
||||
</tr>
|
||||
<tr style="color: black;">
|
||||
<td></td>
|
||||
<td style="width: 30px; text-align: right;">Número:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:HyperLink Target="_blank" ID="HplFacturaPagos" runat="server" Text='<%# Eval("Serie")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}") %>'></asp:HyperLink></td>
|
||||
<td style="width: 50px; text-align: right;">Pagador:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblProveedorPagos" runat="server" Text='<%# Eval("NombreComercial")%>' CssClass="Texto"></asp:Label></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblFechaPagos" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Label></td>
|
||||
<td style="width: 50px; text-align: right;">Total:</td>
|
||||
<td style="width: 50px; text-align: left;">
|
||||
<asp:Label ID="lblTotalPagos" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Label></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblMoneda" ItemStyle-HorizontalAlign="Left" runat="server" Text='<%# Eval("Moneda") %>'></asp:Label></td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
<ajax:TabPanel ID="TabAnticipos" runat="server" HeaderText="Anticipos">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:UpdatePanel ID="UpGvAnticipos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnContabilizarAnticipos" runat="server" CssClass="btn btn-success" Text="Contabilizar" />
|
||||
</div>
|
||||
|
||||
<asp:GridView ID="GvPrePolizaAnticipos" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha,CveTipoPoliza" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Panel ID="PnlDetalleAnticipos" runat="server">
|
||||
<asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow table-hover" Style="text-align: center; float: right; width: 95%;" DataKeyNames="IdCtaContable, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="ConceptoContable" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento" />
|
||||
<asp:BoundField DataField="Concepto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" HeaderText="Concepto" />
|
||||
<asp:BoundField DataField="SubProyecto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto" />
|
||||
<asp:BoundField DataField="IdCtaContable" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" ItemStyle-CssClass="truncate" HeaderText="Cuenta" />
|
||||
<asp:BoundField DataField="Cargo" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Cargos" />
|
||||
<asp:BoundField DataField="Abono" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Abonos" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</asp:Panel>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="">
|
||||
<ItemTemplate>
|
||||
<table width="100%" cellpadding="0" cellspacing="0">
|
||||
<tr class="SubTotales">
|
||||
<td style="width: 25px;">
|
||||
<asp:CheckBox ID="Chk" runat="server" />
|
||||
</td>
|
||||
<td>
|
||||
<table width="100%">
|
||||
<tr style="background-color: #949494; color: black;">
|
||||
<td style="width: 50px"></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:TextBox ID="TxtFechaAnticipos" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:TextBox></td>
|
||||
<td style="width: 50px; text-align: right;">Concepto:</td>
|
||||
<td style="width: 400px; text-align: left;">
|
||||
<asp:TextBox ID="TxtConceptoAnticipos" ItemStyle-HorizontalAlign="Left" Width="400px" runat="server" Text='<%# Eval("Concepto") %>'></asp:TextBox></td>
|
||||
<td style="width: 100px; text-align: right;">Poliza: </td>
|
||||
<td style="width: 70px; text-align: left;">
|
||||
<asp:Literal ID="LtPolizaTipoAnticipos" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
|
||||
<td style="width: 70px; text-align: left;"><asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/PyME/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
|
||||
</tr>
|
||||
<tr style="color: black;">
|
||||
<td></td>
|
||||
<td style="width: 30px; text-align: right;">Número:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:HyperLink Target="_blank" ID="HplFacturaAnticipos" runat="server" Text='<%# Eval("Serie")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}") %>'></asp:HyperLink></td>
|
||||
<td style="width: 50px; text-align: right;">Pagador:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="LblProveedorAnticipos" runat="server" Text='<%# Eval("NombreComercial")%>' CssClass="Texto"></asp:Label></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblFechaAnticipos" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Label></td>
|
||||
<td style="width: 50px; text-align: right;">Total:</td>
|
||||
<td style="width: 50px; text-align: left;">
|
||||
<asp:Label ID="lblTotalAnticipos" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Label></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblMoneda" ItemStyle-HorizontalAlign="Left" runat="server" Text='<%# Eval("Moneda") %>'></asp:Label></td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
<ajax:TabPanel ID="TabAmortizaciones" runat="server" HeaderText="Amortizaciones">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:UpdatePanel ID="UpGvAmortizaciones" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnContabilizarAmortizaciones" runat="server" CssClass="btn btn-success" Text="Contabilizar" />
|
||||
</div>
|
||||
|
||||
<asp:GridView ID="GvPrePolizaAmortizaciones" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha,CveTipoPoliza" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Panel ID="PnlDetalleAmortizaciones" runat="server">
|
||||
<asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow table-hover" Style="text-align: center; float: right; width: 95%;" DataKeyNames="IdCtaContable, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="ConceptoContable" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento" />
|
||||
<asp:BoundField DataField="Concepto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="400px" HeaderText="Concepto" />
|
||||
<asp:BoundField DataField="SubProyecto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto" />
|
||||
<asp:BoundField DataField="IdCtaContable" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" ItemStyle-CssClass="truncate" HeaderText="Cuenta" />
|
||||
<asp:BoundField DataField="Cargo" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Cargos" />
|
||||
<asp:BoundField DataField="Abono" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Abonos" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</asp:Panel>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="">
|
||||
<ItemTemplate>
|
||||
<table width="100%" cellpadding="0" cellspacing="0">
|
||||
<tr class="SubTotales">
|
||||
<td style="width: 25px;">
|
||||
<asp:CheckBox ID="Chk" runat="server" />
|
||||
</td>
|
||||
<td>
|
||||
<table width="100%">
|
||||
<tr style="background-color: #949494; color: black;">
|
||||
<td style="width: 50px"></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:TextBox ID="TxtFechaAmortizaciones" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:TextBox></td>
|
||||
<td style="width: 50px; text-align: right;">Concepto:</td>
|
||||
<td style="width: 400px; text-align: left;">
|
||||
<asp:TextBox ID="TxtConceptoAmortizaciones" ItemStyle-HorizontalAlign="Left" Width="400px" runat="server" Text='<%# Eval("Concepto") %>'></asp:TextBox></td>
|
||||
<td style="width: 100px; text-align: right;">Poliza: </td>
|
||||
<td style="width: 70px; text-align: left;">
|
||||
<asp:Literal ID="LtPolizaTipoAmortizaciones" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
|
||||
<td style="width: 70px; text-align: left;"><asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/PyME/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
|
||||
</tr>
|
||||
<tr style="color: black;">
|
||||
<td></td>
|
||||
<td style="width: 30px; text-align: right;">Factura:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:HyperLink Target="_blank" ID="HplFacturaAmortizaciones" runat="server" Text='<%# Eval("Serie")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}") %>'></asp:HyperLink></td>
|
||||
<td style="width: 50px; text-align: right;">Proveedor:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:HyperLink Target="_blank" ID="HplProveedorAmortizaciones" runat="server" Text='<%# Eval("NombreComercial")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveProveedor", "/Compras/Proveedors.aspx?CveProveedor={0}") %>'></asp:HyperLink></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblFechaAmortizaciones" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Label></td>
|
||||
<td style="width: 50px; text-align: right;">Total:</td>
|
||||
<td style="width: 50px; text-align: left;">
|
||||
<asp:Label ID="lblTotalAmortizaciones" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Label></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblMoneda" ItemStyle-HorizontalAlign="Left" runat="server" Text='<%# Eval("Moneda") %>'></asp:Label></td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
</ajax:TabContainer>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
|
||||
<script type="text/javascript">
|
||||
function cargarGridHijo() {
|
||||
$('.detallerow').each(function (index) {
|
||||
var tr = $("<tr ></tr>")
|
||||
var td = $("<td colspan='99'></td>")
|
||||
var tb = $(this);
|
||||
tb.closest("tr").after(tr);
|
||||
td.append(tb);
|
||||
tr.append(td);
|
||||
});
|
||||
}
|
||||
|
||||
$(document).ready(function () {
|
||||
cargarGridHijo();
|
||||
|
||||
Sys.Application.add_load(function (s, e) {
|
||||
cargarGridHijo();
|
||||
});
|
||||
});
|
||||
</script>
|
||||
</asp:Content>
|
||||
267
PyME/Contabilidad/ContabilizacionCompras.aspx.cs
Normal file
267
PyME/Contabilidad/ContabilizacionCompras.aspx.cs
Normal file
@@ -0,0 +1,267 @@
|
||||
using System;
|
||||
using System.Collections.Generic;
|
||||
using System.Linq;
|
||||
using System.Web;
|
||||
using System.Web.UI;
|
||||
using System.Web.UI.WebControls;
|
||||
using Extensiones;
|
||||
using System.Data;
|
||||
|
||||
public partial class Contabilidad_ContabilizacionCompras : ClsPaginas
|
||||
{
|
||||
private DataTable DTmpC
|
||||
{
|
||||
get
|
||||
{
|
||||
return (DataTable)ViewState["DTmpC"];
|
||||
}
|
||||
set
|
||||
{
|
||||
ViewState["DTmpC"] = value;
|
||||
}
|
||||
}
|
||||
|
||||
protected void Page_Load(object sender, EventArgs e)
|
||||
{
|
||||
if (!IsPostBack)
|
||||
{
|
||||
ClsContabilidad ObjCont = new ClsContabilidad();
|
||||
ObjCont.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa);
|
||||
string[] columnas = new string[3] { "CveCuenta", "CuentaFormato", "Nombre" };
|
||||
DTmpC = ObjCont.DtResultados.FiltraParametros("", "", columnas);
|
||||
ObjCont.Dispose();
|
||||
|
||||
DdlProveedores.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
|
||||
DdlProveedores.DataBind();
|
||||
|
||||
DdlPersonal.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa);
|
||||
DdlPersonal.DataBind();
|
||||
|
||||
txtFechaI.Text = DateTime.Now.FirstDayOfMonth().AddMonths(-1).ToShortDateString();
|
||||
txtFechaF.Text = DateTime.Now.ToShortDateString();
|
||||
//CargaDatos();
|
||||
}
|
||||
|
||||
BtnConsultar.Click += new EventHandler(this.BtnConsultar_Click);
|
||||
BtnContabilizarCompras.Click += new EventHandler(this.BtnGuardarCompras_Click);
|
||||
BtnContabilizarPagos.Click += new EventHandler(this.BtnGuardarPagos_Click);
|
||||
BtnContabilizarAnticipos.Click += new EventHandler(this.BtnGuardarAnticipos_Click);
|
||||
BtnContabilizarAmortizaciones.Click += new EventHandler(this.BtnGuardarAmortizaciones_Click);
|
||||
}
|
||||
|
||||
protected void OnRowDataBound(object sender, GridViewRowEventArgs e)
|
||||
{
|
||||
|
||||
if (e.Row.RowType == DataControlRowType.DataRow)
|
||||
{
|
||||
GridView GvD = e.Row.FCGridView("GvD");
|
||||
int CvePrePoliza = e.Row.DataKey("CvePrePoliza").ToEntero();
|
||||
|
||||
e.Row.Cells[0].ToolTip = CvePrePoliza.ToString();
|
||||
|
||||
ClsContabilidad contP = new ClsContabilidad();
|
||||
|
||||
if (contP.GetContabilizacionDiarioDetalle(CvePrePoliza))
|
||||
{
|
||||
Double Abonos = 0;
|
||||
Double Cargos = 0;
|
||||
|
||||
Abonos = contP.DtResultados.SUM("Abono");
|
||||
Cargos = contP.DtResultados.SUM("Cargo");
|
||||
|
||||
if (Cargos != Abonos)
|
||||
{
|
||||
e.Row.FCCheckBox("Chk").Visible = false;
|
||||
}
|
||||
|
||||
GvD.DataSource = contP.DtResultados;
|
||||
}
|
||||
|
||||
if (UsuarioActual.CveRol == 1 || UsuarioActual.CveUsuario == 17 )
|
||||
{
|
||||
e.Row.FCHyperLink("HplEdicion").Visible = true;
|
||||
}
|
||||
|
||||
contP.Dispose();
|
||||
GvD.DataBind();
|
||||
|
||||
}
|
||||
|
||||
|
||||
}
|
||||
|
||||
private void Contabilizar(int CvePrepoliza, DateTime Fecha, string Concepto, ClsContabilidad Obj)
|
||||
{
|
||||
if (Obj.ContabilizarPrePoliza(CvePrepoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, Fecha, Concepto))
|
||||
{
|
||||
}
|
||||
}
|
||||
|
||||
private void BtnGuardarCompras_Click(object sender, EventArgs e)
|
||||
{
|
||||
ClsContabilidad ObjMov = new ClsContabilidad();
|
||||
|
||||
foreach (GridViewRow row in GvPrePolizaCompras.Rows)
|
||||
{
|
||||
CheckBox chk = row.FCCheckBox("Chk");
|
||||
TextBox txtFecha = row.FCTextBox("TxtFechaCompras");
|
||||
TextBox txtConcepto = row.FCTextBox("TxtConceptoCompras");
|
||||
|
||||
if (chk != null && chk.Checked)
|
||||
{
|
||||
DateTime Fecha = txtFecha.Text.ToDate();
|
||||
int CvePrepoliza = GvPrePolizaCompras.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero();
|
||||
string Concepto = txtConcepto.Text;
|
||||
|
||||
Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov);
|
||||
}
|
||||
}
|
||||
ObjMov.Dispose();
|
||||
|
||||
Alert("Se Contabilizaron Correctamente los Siguientes Folios: <br>" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion);
|
||||
CargaDatos();
|
||||
}
|
||||
|
||||
private void BtnGuardarPagos_Click(object sender, EventArgs e)
|
||||
{
|
||||
ClsContabilidad ObjMov = new ClsContabilidad();
|
||||
|
||||
foreach (GridViewRow row in GvPrePolizaPagos.Rows)
|
||||
{
|
||||
CheckBox chk = row.FCCheckBox("Chk");
|
||||
TextBox txtFecha = row.FCTextBox("TxtFechaPagos");
|
||||
TextBox txtConcepto = row.FCTextBox("TxtConceptoPagos");
|
||||
|
||||
if (chk != null && chk.Checked)
|
||||
{
|
||||
DateTime Fecha = txtFecha.Text.ToDate();
|
||||
int CvePrepoliza = GvPrePolizaPagos.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero();
|
||||
string Concepto = txtConcepto.Text;
|
||||
|
||||
Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov);
|
||||
}
|
||||
}
|
||||
ObjMov.Dispose();
|
||||
|
||||
Alert("Se Contabilizaron Correctamente los Siguientes Folios: <br>" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion);
|
||||
CargaDatos();
|
||||
}
|
||||
|
||||
private void BtnGuardarAnticipos_Click(object sender, EventArgs e)
|
||||
{
|
||||
ClsContabilidad ObjMov = new ClsContabilidad();
|
||||
|
||||
foreach (GridViewRow row in GvPrePolizaAnticipos.Rows)
|
||||
{
|
||||
CheckBox chk = row.FCCheckBox("Chk");
|
||||
TextBox txtFecha = row.FCTextBox("TxtFechaAnticipos");
|
||||
TextBox txtConcepto = row.FCTextBox("TxtConceptoAnticipos");
|
||||
|
||||
if (chk != null && chk.Checked)
|
||||
{
|
||||
DateTime Fecha = txtFecha.Text.ToDate();
|
||||
int CvePrepoliza = GvPrePolizaAnticipos.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero();
|
||||
string Concepto = txtConcepto.Text;
|
||||
|
||||
Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov);
|
||||
}
|
||||
}
|
||||
ObjMov.Dispose();
|
||||
|
||||
Alert("Se Contabilizaron Correctamente los Siguientes Folios: <br>" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion);
|
||||
CargaDatos();
|
||||
}
|
||||
|
||||
private void BtnGuardarAmortizaciones_Click(object sender, EventArgs e)
|
||||
{
|
||||
ClsContabilidad ObjMov = new ClsContabilidad();
|
||||
foreach (GridViewRow row in GvPrePolizaAmortizaciones.Rows)
|
||||
{
|
||||
CheckBox chk = row.FCCheckBox("Chk");
|
||||
TextBox txtFecha = row.FCTextBox("TxtFechaAmortizaciones");
|
||||
TextBox txtConcepto = row.FCTextBox("TxtConceptoAmortizaciones");
|
||||
|
||||
if (chk != null && chk.Checked)
|
||||
{
|
||||
DateTime Fecha = txtFecha.Text.ToDate();
|
||||
int CvePrepoliza = GvPrePolizaAmortizaciones.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero();
|
||||
string Concepto = txtConcepto.Text;
|
||||
|
||||
Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov);
|
||||
}
|
||||
}
|
||||
ObjMov.Dispose();
|
||||
|
||||
Alert("Se Contabilizaron Correctamente los Siguientes Folios: <br>" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion);
|
||||
CargaDatos();
|
||||
}
|
||||
|
||||
protected void BtnConsultar_Click(object sender, EventArgs e)
|
||||
{
|
||||
CargaDatos();
|
||||
}
|
||||
|
||||
private void CargaDatos()
|
||||
{
|
||||
DateTime FechaI = txtFechaI.Text.ToDate();
|
||||
DateTime FechaF = txtFechaF.Text.ToDate();
|
||||
|
||||
ClsContabilidad cont = new ClsContabilidad();
|
||||
|
||||
// Cargamos las Compras
|
||||
if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 1, FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero()))
|
||||
{
|
||||
GvPrePolizaCompras.DataSource = cont.DtResultados;
|
||||
GvPrePolizaCompras.DataBind();
|
||||
}
|
||||
|
||||
// Cargamos los pagos
|
||||
if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 2, FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero()))
|
||||
{
|
||||
|
||||
GvPrePolizaPagos.DataSource = cont.DtResultados;
|
||||
GvPrePolizaPagos.DataBind();
|
||||
}
|
||||
|
||||
// Cargamos las amortizaciones
|
||||
if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 101, FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero()))
|
||||
{
|
||||
GvPrePolizaAmortizaciones.DataSource = cont.DtResultados;
|
||||
GvPrePolizaAmortizaciones.DataBind();
|
||||
}
|
||||
|
||||
cont.Dispose();
|
||||
|
||||
UpGvCompras.Update();
|
||||
UpGvPagos.Update();
|
||||
UpGvAnticipos.Update();
|
||||
UpGvAmortizaciones.Update();
|
||||
}
|
||||
|
||||
protected void GvD_RowDataBound(object sender, GridViewRowEventArgs e)
|
||||
{
|
||||
if (e.Row.RowType == DataControlRowType.DataRow)
|
||||
{
|
||||
int cuenta = e.Row.DataKey("IdCtaContable").ToString().ToEntero();
|
||||
|
||||
|
||||
if (cuenta > 0)
|
||||
{
|
||||
DataRow dr = DTmpC.FiltroPrimero(String.Format("CveCuenta = {0}", cuenta));
|
||||
|
||||
if (dr != null) e.Row.Cells[3].Text = string.Format("{0}<br/>{1}", dr["CuentaFormato"], dr["Nombre"]);
|
||||
}
|
||||
else
|
||||
{
|
||||
e.Row.Cells[0].ForeColor = System.Drawing.Color.Red;
|
||||
|
||||
((GridViewRow)((GridView)e.Row.NamingContainer).BindingContainer).FCCheckBox("Chk").Visible = false;
|
||||
}
|
||||
|
||||
if (Convert.ToDecimal(e.Row.DataKey("Cargo").ToString()) == 0) e.Row.Cells[4].Text = "";
|
||||
|
||||
if (Convert.ToDecimal(e.Row.DataKey("Abono").ToString()) == 0) e.Row.Cells[5].Text = "";
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
423
PyME/Contabilidad/ContabilizacionVentas.aspx
Normal file
423
PyME/Contabilidad/ContabilizacionVentas.aspx
Normal file
@@ -0,0 +1,423 @@
|
||||
<%@ Page Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="ContabilizacionVentas.aspx.cs" Inherits="Contabilidad_ContabilizacionVentas" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||
Diario de Ventas
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UPPFiltros" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="portlet solid grey-cascade portlet-filter">
|
||||
<div class="portlet-title portlet-filterT smalltitle">
|
||||
<div class="tools">
|
||||
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" CssClass="btn btn-primary" OnClick="BtnConsultar_Click" />
|
||||
</div>
|
||||
<div class="titlefiltros caption ">
|
||||
<div class="row">
|
||||
<label class="col-md-1 truncate">Clientes:</label>
|
||||
<div class="col-md-3">
|
||||
<asp:DropDownList ID="DdlClientes" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente">
|
||||
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 truncate">Fecha Inicio:</label>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
|
||||
<asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="ImgCalendarioI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="txtFechaI" PopupButtonID="ImgCalendarioI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<label class="col-md-1 truncate">Fecha Fin:</label>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
|
||||
<asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="LinkButton1" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CalendarExtender2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoFfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<br />
|
||||
|
||||
<asp:UpdatePanel ID="UPPTabs" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%">
|
||||
<ajax:TabPanel ID="TabV" runat="server" HeaderText="Ventas">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<asp:UpdatePanel ID="UpGvVentas" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnContabilizarVentas" runat="server" CssClass="btn btn-success" Text="Contabilizar" />
|
||||
</div>
|
||||
|
||||
<asp:GridView ID="GvV" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Panel ID="PnlDetalleVentas" runat="server" CssClass="Texto">
|
||||
<asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow table-hover" Style="text-align: center; float: right; width: 95%;" DataKeyNames="IdCtaContable,Cargo,Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="ConceptoContable" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento" />
|
||||
<asp:BoundField DataField="Concepto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" HeaderText="Concepto" />
|
||||
<asp:BoundField DataField="SubProyecto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto" />
|
||||
<asp:BoundField DataField="" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Cuenta" />
|
||||
<asp:BoundField DataField="Cargo" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Cargos" />
|
||||
<asp:BoundField DataField="Abono" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Abonos" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</asp:Panel>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="">
|
||||
<ItemTemplate>
|
||||
<table width="100%" cellpadding="0" cellspacing="0">
|
||||
<tr class="SubTotales">
|
||||
<td style="width: 25px;">
|
||||
<asp:CheckBox ID="Chk" runat="server" />
|
||||
</td>
|
||||
<td>
|
||||
<table width="100%">
|
||||
<tr style="background-color: #949494; color: black;">
|
||||
<td style="width: 50px"></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:TextBox ID="TxtFechaVentas" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:TextBox></td>
|
||||
<td style="width: 50px; text-align: right;">Concepto:</td>
|
||||
<td style="width: 400px; text-align: left;">
|
||||
<asp:TextBox ID="TxtConceptoVentas" ItemStyle-HorizontalAlign="Left" Width="400px" runat="server" Text='<%# Eval("Concepto") %>'></asp:TextBox></td>
|
||||
<td style="width: 100px; text-align: right;">Poliza: </td>
|
||||
<td style="width: 70px; text-align: left;"><asp:Literal ID="LtPolizaTipoVentas" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
|
||||
<td style="width: 70px; text-align: left;"><asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/PyME/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
|
||||
|
||||
</tr>
|
||||
<tr style="color: black;">
|
||||
<td></td>
|
||||
<td style="width: 30px; text-align: right;">Factura:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:HyperLink Target="_blank" ID="HplFacturaVenta" runat="server" Text='<%# Eval("Serie")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}") %>'></asp:HyperLink></td>
|
||||
<td style="width: 50px; text-align: right;">Cliente:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:HyperLink Target="_blank" ID="HplClienteVenta" runat="server" Text='<%# Eval("NombreComercial")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveCliente", "/Ventas/Clientes.aspx?CveCliente={0}") %>'></asp:HyperLink></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblFechaVenta" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Label></td>
|
||||
<td style="width: 50px; text-align: right;">Total:</td>
|
||||
<td style="width: 50px; text-align: left;">
|
||||
<asp:Label ID="lblTotalVenta" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Label></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblMoneda" ItemStyle-HorizontalAlign="Left" runat="server" Text='<%# Eval("Moneda") %>'></asp:Label></td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
<ajax:TabPanel ID="TabP" runat="server" HeaderText="Pagos">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:UpdatePanel ID="UpGvPagos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnContabilizarPagos" runat="server" CssClass="btn btn-success" Text="Contabilizar" />
|
||||
</div>
|
||||
|
||||
<asp:GridView ID="GvP" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Panel ID="PnlDetallePagos" runat="server">
|
||||
<asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow table-hover" Style="text-align: center; float: right; width: 95%;" DataKeyNames="IdCtaContable, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="ConceptoContable" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento" />
|
||||
<asp:BoundField DataField="Concepto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" HeaderText="Concepto" />
|
||||
<asp:BoundField DataField="SubProyecto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto" />
|
||||
<asp:BoundField DataField="" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px" HeaderText="Cuenta" />
|
||||
<asp:BoundField DataField="Cargo" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Cargos" />
|
||||
<asp:BoundField DataField="Abono" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Abonos" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</asp:Panel>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="">
|
||||
<ItemTemplate>
|
||||
<table width="100%" cellpadding="0" cellspacing="0">
|
||||
<tr class="SubTotales">
|
||||
<td style="width: 25px;">
|
||||
<asp:CheckBox ID="Chk" runat="server" />
|
||||
</td>
|
||||
<td>
|
||||
<table width="100%">
|
||||
<tr style="background-color: #949494; color: black;">
|
||||
<td style="width: 50px"></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:TextBox ID="TxtFechaPagos" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:TextBox></td>
|
||||
<td style="width: 50px; text-align: right;">Concepto:</td>
|
||||
<td style="width: 400px; text-align: left;">
|
||||
<asp:TextBox ID="TxtConceptoPagos" ItemStyle-HorizontalAlign="Left" Width="400px" runat="server" Text='<%# Eval("Concepto") %>'></asp:TextBox></td>
|
||||
<td style="width: 100px; text-align: right;">Poliza: </td>
|
||||
<td style="width: 70px; text-align: left;"><asp:Literal ID="LtPolizaTipoPagos" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
|
||||
<td style="width: 70px; text-align: left;"><asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/PyME/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
|
||||
|
||||
</tr>
|
||||
<tr style="color: black;">
|
||||
<td></td>
|
||||
<td style="width: 30px; text-align: right;">Número:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:HyperLink Target="_blank" ID="HplFacturaPagos" runat="server" Text='<%# Eval("Serie")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}") %>'></asp:HyperLink></td>
|
||||
<td style="width: 50px; text-align: right;">Pagador:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblClientePagos" runat="server" Text='<%# Eval("NombreComercial")%>' CssClass="Texto"></asp:Label></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblFechaPagos" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Label></td>
|
||||
<td style="width: 50px; text-align: right;">Total:</td>
|
||||
<td style="width: 50px; text-align: left;">
|
||||
<asp:Label ID="lblTotalPagos" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Label></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblMoneda" ItemStyle-HorizontalAlign="Left" runat="server" Text='<%# Eval("Moneda") %>'></asp:Label></td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
<ajax:TabPanel ID="TabA" runat="server" HeaderText="Anticipos">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:UpdatePanel ID="UpGvAnticipos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnContabilizarAnticipos" runat="server" CssClass="btn btn-success" Text="Contabilizar" />
|
||||
</div>
|
||||
|
||||
<asp:GridView ID="GvA" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Panel ID="PnlDetalleAnticipos" runat="server">
|
||||
<asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow table-hover" Style="text-align: center; float: right; width: 95%;" DataKeyNames="IdCtaContable, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="ConceptoContable" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento" />
|
||||
<asp:BoundField DataField="Concepto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" HeaderText="Concepto" />
|
||||
<asp:BoundField DataField="SubProyecto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto" />
|
||||
<asp:BoundField DataField="" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px" HeaderText="Cuenta" />
|
||||
<asp:BoundField DataField="Cargo" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Cargos" />
|
||||
<asp:BoundField DataField="Abono" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Abonos" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</asp:Panel>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="">
|
||||
<ItemTemplate>
|
||||
<table width="100%" cellpadding="0" cellspacing="0">
|
||||
<tr class="SubTotales">
|
||||
<td style="width: 25px;">
|
||||
<asp:CheckBox ID="Chk" runat="server" />
|
||||
</td>
|
||||
<td>
|
||||
<table width="100%">
|
||||
<tr style="background-color: #949494; color: black;">
|
||||
<td style="width: 50px"></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:TextBox ID="TxtFechaAnticipos" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:TextBox></td>
|
||||
<td style="width: 50px; text-align: right;">Concepto:</td>
|
||||
<td style="width: 400px; text-align: left;">
|
||||
<asp:TextBox ID="TxtConceptoAnticipos" ItemStyle-HorizontalAlign="Left" Width="400px" runat="server" Text='<%# Eval("Concepto") %>'></asp:TextBox></td>
|
||||
<td style="width: 100px; text-align: right;">Poliza: </td>
|
||||
<td style="width: 70px; text-align: left;"><asp:Literal ID="LtPolizaTipoAnticipos" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
|
||||
<td style="width: 70px; text-align: left;"><asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/PyME/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
|
||||
|
||||
</tr>
|
||||
<tr style="color: black;">
|
||||
<td></td>
|
||||
<td style="width: 30px; text-align: right;">Número:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:HyperLink Target="_blank" ID="HplFacturaAnticipos" runat="server" Text='<%# Eval("Serie")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}") %>'></asp:HyperLink></td>
|
||||
<td style="width: 50px; text-align: right;">Pagador:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="LblClienteAnticipos" runat="server" Text='<%# Eval("NombreComercial")%>' CssClass="Texto"></asp:Label></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblFechaAnticipos" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Label></td>
|
||||
<td style="width: 50px; text-align: right;">Total:</td>
|
||||
<td style="width: 50px; text-align: left;">
|
||||
<asp:Label ID="lblTotalAnticipos" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Label></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblMoneda" ItemStyle-HorizontalAlign="Left" runat="server" Text='<%# Eval("Moneda") %>'></asp:Label></td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
<ajax:TabPanel ID="TabAm" runat="server" HeaderText="Amortizaciones">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:UpdatePanel ID="UpGvAmortizaciones" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnContabilizarAmortizaciones" runat="server" CssClass="btn btn-success" Text="Contabilizar" />
|
||||
</div>
|
||||
|
||||
<asp:GridView ID="GvPrePolizaAmortizaciones" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Panel ID="PnlDetalleAmortizaciones" runat="server">
|
||||
<asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow table-hover" Style="text-align: center; float: right; width: 95%;" DataKeyNames="IdCtaContable, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="ConceptoContable" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento" />
|
||||
<asp:BoundField DataField="Concepto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="400px" HeaderText="Concepto" />
|
||||
<asp:BoundField DataField="SubProyecto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto" />
|
||||
<asp:BoundField DataField="" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px" HeaderText="Cuenta" />
|
||||
<asp:BoundField DataField="Cargo" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Cargos" />
|
||||
<asp:BoundField DataField="Abono" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Abonos" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</asp:Panel>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="">
|
||||
<ItemTemplate>
|
||||
<table width="100%" cellpadding="0" cellspacing="0">
|
||||
<tr class="SubTotales">
|
||||
<td style="width: 25px;">
|
||||
<asp:CheckBox ID="Chk" runat="server" />
|
||||
</td>
|
||||
<td>
|
||||
<table width="100%">
|
||||
<tr style="background-color: #949494; color: black;">
|
||||
<td style="width: 50px"></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:TextBox ID="TxtFechaAmortizaciones" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:TextBox></td>
|
||||
<td style="width: 50px; text-align: right;">Concepto:</td>
|
||||
<td style="width: 400px; text-align: left;">
|
||||
<asp:TextBox ID="TxtConceptoAmortizaciones" ItemStyle-HorizontalAlign="Left" Width="400px" runat="server" Text='<%# Eval("Concepto") %>'></asp:TextBox></td>
|
||||
<td style="width: 100px; text-align: right;">Poliza: </td>
|
||||
<td style="width: 70px; text-align: left;"><asp:Literal ID="LtPolizaTipoAmortizaciones" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
|
||||
<td style="width: 70px; text-align: left;"><asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/PyME/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
|
||||
|
||||
</tr>
|
||||
<tr style="color: black;">
|
||||
<td></td>
|
||||
<td style="width: 30px; text-align: right;">Factura:</td>
|
||||
<td style="text-align: left; width: 80px;">
|
||||
<asp:HyperLink Target="_blank" ID="HplFacturaAmortizaciones" runat="server" Text='<%# Eval("Serie")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}") %>'></asp:HyperLink></td>
|
||||
<td style="width: 50px; text-align: right;">Cliente:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:HyperLink Target="_blank" ID="HplClienteAmortizaciones" runat="server" Text='<%# Eval("NombreComercial")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveCliente", "/Ventas/Clientes.aspx?CveCliente={0}") %>'></asp:HyperLink></td>
|
||||
<td style="width: 30px; text-align: right;">Fecha:</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblFechaAmortizaciones" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Label></td>
|
||||
<td style="width: 50px; text-align: right;">Total:</td>
|
||||
<td style="width: 50px; text-align: left;">
|
||||
<asp:Label ID="lblTotalAmortizaciones" ItemStyle-HorizontalAlign="Left" Width="70px" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Label></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:Label ID="lblMoneda" ItemStyle-HorizontalAlign="Left" runat="server" Text='<%# Eval("Moneda") %>'></asp:Label></td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
</ajax:TabContainer>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
|
||||
<script type="text/javascript">
|
||||
function cargarGridHijo() {
|
||||
$('.detallerow').each(function (index) {
|
||||
var tr = $("<tr ></tr>")
|
||||
var td = $("<td colspan='99'></td>")
|
||||
var tb = $(this);
|
||||
tb.closest("tr").after(tr);
|
||||
td.append(tb);
|
||||
tr.append(td);
|
||||
});
|
||||
}
|
||||
|
||||
$(document).ready(function () {
|
||||
cargarGridHijo();
|
||||
|
||||
Sys.Application.add_load(function (s, e) {
|
||||
cargarGridHijo();
|
||||
});
|
||||
});
|
||||
</script>
|
||||
</asp:Content>
|
||||
298
PyME/Contabilidad/ContabilizacionVentas.aspx.cs
Normal file
298
PyME/Contabilidad/ContabilizacionVentas.aspx.cs
Normal file
@@ -0,0 +1,298 @@
|
||||
using System;
|
||||
using System.Web.UI.WebControls;
|
||||
using Extensiones;
|
||||
using System.Data;
|
||||
|
||||
public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
|
||||
{
|
||||
private DataTable DTmpC
|
||||
{
|
||||
get
|
||||
{
|
||||
return (DataTable)ViewState["DTmpC"];
|
||||
}
|
||||
set
|
||||
{
|
||||
ViewState["DTmpC"] = value;
|
||||
}
|
||||
}
|
||||
|
||||
protected void Page_Load(object sender, EventArgs e)
|
||||
{
|
||||
if (!IsPostBack)
|
||||
{
|
||||
ClsContabilidad ObjCont = new ClsContabilidad();
|
||||
ObjCont.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa);
|
||||
string[] columnas = new string[3] { "CveCuenta", "CuentaFormato", "Nombre"};
|
||||
DTmpC = ObjCont.DtResultados.FiltraParametros("", "", columnas);
|
||||
ObjCont.Dispose();
|
||||
|
||||
DdlClientes.DataSource = get_GlobalDTCliente(UsuarioActual.CveEmpresa);
|
||||
DdlClientes.DataBind();
|
||||
|
||||
txtFechaI.Text = DateTime.Now.AddMonths(-1).FirstDayOfMonth().ToShortDateString();
|
||||
txtFechaF.Text = DateTime.Now.ToShortDateString();
|
||||
|
||||
//cargaPolizas();
|
||||
}
|
||||
|
||||
BtnContabilizarVentas.Click += new EventHandler(this.BtnGuardarVentas_Click);
|
||||
BtnContabilizarPagos.Click += new EventHandler(this.BtnGuardarPagos_Click);
|
||||
BtnContabilizarAnticipos.Click += new EventHandler(this.BtnGuardarAnticipos_Click);
|
||||
BtnContabilizarAmortizaciones.Click += new EventHandler(this.BtnGuardarAmortizaciones_Click);
|
||||
//BtnConsultar.Click += new EventHandler(this.BtnConsultar_Click);
|
||||
}
|
||||
|
||||
protected void OnRowDataBound(object sender, GridViewRowEventArgs e)
|
||||
{
|
||||
if (e.Row.RowType == DataControlRowType.DataRow)
|
||||
{
|
||||
GridView GvD = e.Row.FCGridView("GvD");
|
||||
int CvePrePoliza = e.Row.DataKey("CvePrePoliza").ToEntero();
|
||||
|
||||
ClsContabilidad contP = new ClsContabilidad();
|
||||
|
||||
if (contP.GetContabilizacionDiarioDetalle(CvePrePoliza))
|
||||
{
|
||||
Double Abonos = 0;
|
||||
Double Cargos = 0;
|
||||
|
||||
Abonos = contP.DtResultados.SUM("Abono");
|
||||
Cargos = contP.DtResultados.SUM("Cargo");
|
||||
|
||||
if (Cargos != Abonos)
|
||||
{
|
||||
e.Row.FCCheckBox("Chk").Visible = false;
|
||||
}
|
||||
|
||||
GvD.DataSource = contP.DtResultados;
|
||||
}
|
||||
|
||||
if (UsuarioActual.CveRol == 1 || UsuarioActual.CveUsuario == 17)
|
||||
{
|
||||
e.Row.FCHyperLink("HplEdicion").Visible = true;
|
||||
}
|
||||
|
||||
contP.Dispose();
|
||||
GvD.DataBind();
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
private void Contabilizar(int CvePrepoliza, DateTime Fecha, string Concepto, ClsContabilidad Obj)
|
||||
{
|
||||
if (Obj.ContabilizarPrePoliza(CvePrepoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, Fecha, Concepto))
|
||||
{
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
private void BtnGuardarVentas_Click(object sender, EventArgs e)
|
||||
{
|
||||
ClsContabilidad ObjMov = new ClsContabilidad();
|
||||
|
||||
foreach (GridViewRow row in GvV.Rows)
|
||||
{
|
||||
CheckBox chk = row.FCCheckBox("Chk");
|
||||
TextBox txtFecha = row.FCTextBox("TxtFechaVentas");
|
||||
TextBox txtConcepto = row.FCTextBox("TxtConceptoVentas");
|
||||
|
||||
if (chk != null && chk.Checked)
|
||||
{
|
||||
DateTime Fecha = txtFecha.Text.ToDate();
|
||||
int CvePrepoliza = GvV.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero();
|
||||
string Concepto = txtConcepto.Text;
|
||||
|
||||
Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov);
|
||||
}
|
||||
}
|
||||
ObjMov.Dispose();
|
||||
|
||||
Alert("Se Contabilizaron Correctamente los Siguientes Folios: <br>" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion);
|
||||
cargaPolizas();
|
||||
|
||||
}
|
||||
|
||||
private void BtnGuardarPagos_Click(object sender, EventArgs e)
|
||||
{
|
||||
ClsContabilidad ObjMov = new ClsContabilidad();
|
||||
|
||||
foreach (GridViewRow row in GvP.Rows)
|
||||
{
|
||||
CheckBox chk = row.FCCheckBox("Chk");
|
||||
TextBox txtFecha = row.FCTextBox("TxtFechaPagos");
|
||||
TextBox txtConcepto = row.FCTextBox("TxtConceptoPagos");
|
||||
|
||||
if (chk != null && chk.Checked)
|
||||
{
|
||||
DateTime Fecha = txtFecha.Text.ToDate();
|
||||
int CvePrepoliza = GvP.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero();
|
||||
string Concepto = txtConcepto.Text;
|
||||
|
||||
Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov);
|
||||
}
|
||||
}
|
||||
ObjMov.Dispose();
|
||||
|
||||
Alert("Se Contabilizaron Correctamente los Siguientes Folios: <br>" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion);
|
||||
cargaPolizas();
|
||||
|
||||
}
|
||||
|
||||
private void BtnGuardarAnticipos_Click(object sender, EventArgs e)
|
||||
{
|
||||
ClsContabilidad ObjMov = new ClsContabilidad();
|
||||
|
||||
foreach (GridViewRow row in GvA.Rows)
|
||||
{
|
||||
CheckBox chk = row.FCCheckBox("Chk");
|
||||
TextBox txtFecha = row.FCTextBox("TxtFechaAnticipos");
|
||||
TextBox txtConcepto = row.FCTextBox("TxtConceptoAnticipos");
|
||||
|
||||
if (chk != null && chk.Checked)
|
||||
{
|
||||
DateTime Fecha = txtFecha.Text.ToDate();
|
||||
int CvePrepoliza = GvA.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero();
|
||||
string Concepto = txtConcepto.Text;
|
||||
|
||||
Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov);
|
||||
}
|
||||
}
|
||||
ObjMov.Dispose();
|
||||
|
||||
Alert("Se Contabilizaron Correctamente los Siguientes Folios: <br>" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion);
|
||||
cargaPolizas();
|
||||
|
||||
}
|
||||
|
||||
private void BtnGuardarAmortizaciones_Click(object sender, EventArgs e)
|
||||
{
|
||||
ClsContabilidad ObjMov = new ClsContabilidad();
|
||||
|
||||
foreach (GridViewRow row in GvPrePolizaAmortizaciones.Rows)
|
||||
{
|
||||
CheckBox chk = row.FCCheckBox("Chk");
|
||||
TextBox txtFecha = row.FCTextBox("TxtFechaAmortizaciones");
|
||||
TextBox txtConcepto = row.FCTextBox("TxtConceptoAmortizaciones");
|
||||
|
||||
if (chk != null && chk.Checked)
|
||||
{
|
||||
DateTime Fecha = txtFecha.Text.ToDate();
|
||||
int CvePrepoliza = GvPrePolizaAmortizaciones.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero();
|
||||
string Concepto = txtConcepto.Text;
|
||||
|
||||
Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov);
|
||||
}
|
||||
}
|
||||
ObjMov.Dispose();
|
||||
|
||||
Alert("Se Contabilizaron Correctamente los Siguientes Folios: <br>" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion);
|
||||
cargaPolizas();
|
||||
|
||||
}
|
||||
|
||||
private void cargaPolizas()
|
||||
{
|
||||
|
||||
DateTime FechaI = txtFechaI.Text.ToDate();
|
||||
DateTime FechaF = txtFechaF.Text.ToDate();
|
||||
|
||||
ClsContabilidad cont = new ClsContabilidad();
|
||||
|
||||
// Cargamos las ventas
|
||||
if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 4, FechaI, FechaF))
|
||||
{
|
||||
if (DdlClientes.SelectedValue.ToEntero() > 0)
|
||||
{
|
||||
GvV.DataSource = cont.DtResultados.FiltraParametros($"CveCliente = {DdlClientes.SelectedValue}");
|
||||
}
|
||||
else
|
||||
{
|
||||
GvV.DataSource = cont.DtResultados;
|
||||
}
|
||||
GvV.DataBind();
|
||||
}
|
||||
|
||||
// Cargamos los pagos
|
||||
if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 11, FechaI, FechaF))
|
||||
{
|
||||
if (DdlClientes.SelectedValue.ToEntero() > 0)
|
||||
{
|
||||
GvP.DataSource = cont.DtResultados.FiltraParametros($"CveCliente = {DdlClientes.SelectedValue}");
|
||||
}
|
||||
else
|
||||
{
|
||||
GvP.DataSource = cont.DtResultados;
|
||||
}
|
||||
GvP.DataBind();
|
||||
}
|
||||
|
||||
// Cargamos los anticipos
|
||||
if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 12, FechaI, FechaF))
|
||||
{
|
||||
if (DdlClientes.SelectedValue.ToEntero() > 0)
|
||||
{
|
||||
GvA.DataSource = cont.DtResultados.FiltraParametros($"CveCliente = {DdlClientes.SelectedValue}");
|
||||
}
|
||||
else
|
||||
{
|
||||
GvA.DataSource = cont.DtResultados;
|
||||
}
|
||||
GvA.DataBind();
|
||||
}
|
||||
|
||||
// Cargamos las amortizaciones
|
||||
if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 10, FechaI, FechaF))
|
||||
{
|
||||
if (DdlClientes.SelectedValue.ToEntero() > 0)
|
||||
{
|
||||
GvPrePolizaAmortizaciones.DataSource = cont.DtResultados.FiltraParametros($"CveCliente = {DdlClientes.SelectedValue}");
|
||||
}
|
||||
else
|
||||
{
|
||||
GvPrePolizaAmortizaciones.DataSource = cont.DtResultados;
|
||||
}
|
||||
GvPrePolizaAmortizaciones.DataBind();
|
||||
}
|
||||
|
||||
cont.Dispose();
|
||||
|
||||
UpGvVentas.Update();
|
||||
UpGvPagos.Update();
|
||||
UpGvAnticipos.Update();
|
||||
UpGvAmortizaciones.Update();
|
||||
UPPTabs.Update();
|
||||
}
|
||||
|
||||
protected void BtnConsultar_Click(object sender, EventArgs e)
|
||||
{
|
||||
cargaPolizas();
|
||||
}
|
||||
|
||||
|
||||
protected void GvD_RowDataBound(object sender, GridViewRowEventArgs e)
|
||||
{
|
||||
if (e.Row.RowType == DataControlRowType.DataRow)
|
||||
{
|
||||
int cuenta = e.Row.DataKey("IdCtaContable").ToString().ToEntero();
|
||||
|
||||
|
||||
if (cuenta > 0) {
|
||||
DataRow dr = DTmpC.FiltroPrimero(String.Format("CveCuenta = {0}", cuenta));
|
||||
|
||||
if (dr != null) e.Row.Cells[3].Text = string.Format("{0}<br/>{1}", dr["CuentaFormato"], dr["Nombre"]);
|
||||
}
|
||||
else
|
||||
{
|
||||
e.Row.Cells[0].ForeColor = System.Drawing.Color.Red;
|
||||
|
||||
((GridViewRow)((GridView)e.Row.NamingContainer).BindingContainer).FCCheckBox("Chk").Visible = false;
|
||||
}
|
||||
|
||||
if (Convert.ToDecimal(e.Row.DataKey("Cargo").ToString()) == 0) e.Row.Cells[4].Text = "";
|
||||
|
||||
if (Convert.ToDecimal(e.Row.DataKey("Abono").ToString()) == 0) e.Row.Cells[5].Text = "";
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
207
PyME/Contabilidad/PlantillasPolizas.aspx
Normal file
207
PyME/Contabilidad/PlantillasPolizas.aspx
Normal file
@@ -0,0 +1,207 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PlantillasPolizas.aspx.vb" Inherits="Contabilidad_PlantillasPolizas" %>
|
||||
|
||||
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
<link href="/Metronic/assets/global/plugins/datatables/plugins/bootstrap/dataTables.bootstrap.css" rel="stylesheet" />
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
<style>
|
||||
.Widthall {
|
||||
width: 100% !important;
|
||||
}
|
||||
|
||||
.dataTables_scrollHeadInner {
|
||||
width: 100% !important;
|
||||
background-color: #dddddd;
|
||||
padding-left: 0px !important;
|
||||
}
|
||||
|
||||
.dataTables_scrollFoot {
|
||||
display: none;
|
||||
position: static;
|
||||
}
|
||||
|
||||
.table-scrollable {
|
||||
margin: 0px !important;
|
||||
}
|
||||
|
||||
.dataTables_scroll {
|
||||
margin-bottom: 0px;
|
||||
}
|
||||
|
||||
.table.dataTable {
|
||||
margin-top: 0px !important;
|
||||
}
|
||||
|
||||
.dataTables_scrollBody table th {
|
||||
padding: 0px !important;
|
||||
padding-right: 4px !important;
|
||||
padding-left: 4px !important;
|
||||
}
|
||||
|
||||
.sinlink td a {
|
||||
pointer-events: none;
|
||||
cursor: default;
|
||||
color: black;
|
||||
font-size: small;
|
||||
}
|
||||
|
||||
.white a {
|
||||
color: white !important;
|
||||
}
|
||||
</style>
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||
<asp:UpdatePanel runat="server">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivGoPlantillaDetalle" ID="ImgDevoluciones" runat="server"> <i class="fa fa-pencil"></i> Registrar Plantilla Póliza</asp:HyperLink>
|
||||
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||
Catálogo de Plantillas de Pólizas
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePlantillaPoliza, TipoPoliza, CveEmpresa" EmptyDataText="No se encontraron PlantillaPolizas Registrados" ToolTip="Listado de PlantillaPolizas" CssClass="table table-striped table-advance table-hoverv Widthall" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Plantilla Póliza" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPlantillaPoliza" runat="server" Text='<%# Eval("PlantillaPoliza", "{0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Tipo Póliza" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTipoPoliza" runat="server" Text='<%# Eval("TipoPolizaTexto", "{0:d}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="ImgE" OnClick="Edit_Click" runat="server" AlternateText="Editar" CausesValidation="False"
|
||||
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<div id="DivActualizarPlantilla" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 450px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModal" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="LtlTituloModal" runat="server">Editar Plantilla</asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<asp:Literal ID="LtlPlantillaPoliza" runat="server" Text="Plantilla"></asp:Literal>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<asp:DropDownList ID="DdlTiposPoliza" CssClass="form-control input-sm select2me" runat="server" DataValueField="CveTipoPoliza" DataTextField="TipoPoliza"></asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button id="BtnActualizarPlantilla" runat="server" class="btn btn-success" Text="Actualizar"/>
|
||||
<button id="BtnCancelarPlantilla" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
<asp:HiddenField ID="HdnModalidad" runat="server" Value="I" ClientIDMode="Static" />
|
||||
<asp:HiddenField ID="HdnID" runat="server" Value="-1" ClientIDMode="Static" />
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div id="DivGoPlantillaDetalle" class="modal fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
|
||||
<!-- Modal content-->
|
||||
<div class="modal-content">
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Label ID="Label7" runat="server" ClientIDMode="Static" Text="Selecccione Plantilla Poliza"></asp:Label></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel ID="Upplantillapoliza" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<asp:DropDownList ID="DdlPlantillaPoliza" CssClass="form-control input-sm select2me" Style="width: 400px !important" runat="server" DataValueField="CvePlantillaPoliza" DataTextField="PlantillaPoliza"></asp:DropDownList>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<asp:DropDownList ID="DdlTipoPolizaModal" CssClass="form-control input-sm select2me" runat="server" DataValueField="CveTipoPoliza" DataTextField="TipoPoliza"></asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:Button id="BtnAgregarPoliza" runat="server" class="btn btn-success" Text="Agregar"/>
|
||||
<button id="CancelarPoliza" type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
<script language="javascript" type="text/javascript">
|
||||
function C() {
|
||||
return confirm('¿Está seguro que desea eliminar la Plantilla y todos sus Detalles?');
|
||||
}
|
||||
</script>
|
||||
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
|
||||
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
|
||||
<script type="text/javascript">
|
||||
|
||||
function OrdenarGV() {
|
||||
var Tam = TamañoVentana();
|
||||
var Alto = Tam.height - 270;
|
||||
if (Alto < 100) {
|
||||
Alto = 100;
|
||||
}
|
||||
$('#C_GvDatos').DataTable({
|
||||
scrollY: Alto + 'px',
|
||||
scrollCollapse: true,
|
||||
paging: false,
|
||||
searching: false,
|
||||
info: false
|
||||
});
|
||||
$('#C_GvDatos').parent().parent().children().first().css("position", "static");
|
||||
}
|
||||
</script>
|
||||
|
||||
</asp:Content>
|
||||
124
PyME/Contabilidad/PlantillasPolizas.aspx.vb
Normal file
124
PyME/Contabilidad/PlantillasPolizas.aspx.vb
Normal file
@@ -0,0 +1,124 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Linq
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class Contabilidad_PlantillasPolizas
|
||||
Inherits ClsPaginas
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaDatos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub CargaDatos()
|
||||
Dim ObjPlantillaPolizas As New ClsContabilidad
|
||||
If ObjPlantillaPolizas.GetConta_PlantillasPolizasEmpresas(-1, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
GvDatos.DataSource = ObjPlantillaPolizas.DtResultados
|
||||
GvDatos.DataBind()
|
||||
|
||||
If ObjPlantillaPolizas.GetConta_PlantillasPolizas(-1, -1) Then
|
||||
DdlPlantillaPoliza.DataSource = ObjPlantillaPolizas.DtResultados.FiltraParametros("CvePlantillaPoliza NOT IN (1,2,3,4,7,10,11,12,32,60)", "", {"CvePlantillaPoliza", "PlantillaPoliza"})
|
||||
DdlPlantillaPoliza.DataBind()
|
||||
End If
|
||||
|
||||
If ObjPlantillaPolizas.GetConta_TiposPoliza(UsuarioActual.CveEmpresa) Then
|
||||
DdlTiposPoliza.DataSource = ObjPlantillaPolizas.DtResultados.FiltraParametros($"CveEmpresa={UsuarioActual.CveEmpresa} OR CveEmpresa IS NULL")
|
||||
DdlTipoPolizaModal.DataSource = ObjPlantillaPolizas.DtResultados.FiltraParametros($"CveEmpresa={UsuarioActual.CveEmpresa} OR CveEmpresa IS NULL")
|
||||
DdlTiposPoliza.DataBind()
|
||||
DdlTipoPolizaModal.DataBind()
|
||||
End If
|
||||
Else
|
||||
Me.GvDatos.DataSource = Nothing
|
||||
End If
|
||||
OrdenaDatos()
|
||||
UpDatos.Update()
|
||||
ObjPlantillaPolizas.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarPoliza_Click(sender As Object, e As EventArgs) Handles BtnAgregarPoliza.Click
|
||||
Dim ObjPlantillaPolizas As New ClsContabilidad
|
||||
|
||||
If ObjPlantillaPolizas.AddConta_PlantillasPolizasEmpresas(DdlPlantillaPoliza.SelectedValue.ToEntero, DdlTipoPolizaModal.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
Response.Redirect(String.Format("/Contabilidad/PlantillasPolizasDetalle.aspx?CvePlantillaPoliza={0}", DdlPlantillaPoliza.SelectedValue))
|
||||
Else
|
||||
Alert("Ocurrió un error al agregar la plantilla.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ObjPlantillaPolizas.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnActualizarPlantilla_Click(sender As Object, e As EventArgs) Handles BtnActualizarPlantilla.Click
|
||||
Dim ObjPlantillaPolizas As New ClsContabilidad
|
||||
|
||||
If ObjPlantillaPolizas.UpdateConta_PlantillasPolizasEmpresas(DdlPlantillaPoliza.SelectedValue.ToEntero, DdlTiposPoliza.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivActualizarPlantilla"))
|
||||
CargaDatos()
|
||||
Alert("La plantilla se actualizó correctamente.")
|
||||
Else
|
||||
Alert("Ocurrió un error al agregar la plantilla.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ObjPlantillaPolizas.Dispose()
|
||||
End Sub
|
||||
|
||||
#Region "G V D A T O S"
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.Cells(5).Width = Unit.Pixel(40)
|
||||
e.Row.Cells(6).Width = Unit.Pixel(40)
|
||||
End If
|
||||
|
||||
If e.Row.DataKey("CveEmpresa").ToEntero = 1 Then
|
||||
e.Row.FCLinkButton("ImgE").Visible = False
|
||||
e.Row.FCLinkButton("ImgD").Visible = False
|
||||
End If
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
e.Row.FCLiteral("LtlPlantillaPoliza").Text = "<a class=""Texto"" href=""/Contabilidad/PlantillasPolizasDetalle.aspx?CvePlantillaPoliza=" & e.Row.DBCampo("CvePlantillaPoliza") & """>" & e.Row.FCLiteral("LtlPlantillaPoliza").Text & "</a>"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
||||
Dim ObjPlantillaPolizas As New ClsContabilidad
|
||||
If ObjPlantillaPolizas.RemoveConta_PlantillasPolizasDetalle(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
If ObjPlantillaPolizas.RemoveConta_PlantillasPolizas(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
GvDatos.EditIndex = -1
|
||||
GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = ObjPlantillaPolizas.DtResultados
|
||||
CargaDatos()
|
||||
Alert("La Plantilla Poliza se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
End If
|
||||
ObjPlantillaPolizas.Dispose()
|
||||
End Sub
|
||||
|
||||
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
DdlTiposPoliza.SelectedValueExist(GvRow.DataKey("TipoPoliza"))
|
||||
|
||||
UpModal.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "DivActualizarPlantilla"))
|
||||
CargaDatos()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " O R D E N A M I E N T O JAVASCRIPT"
|
||||
Private Sub OrdenaDatos()
|
||||
If (GvDatos.Rows.Count > 0) Then
|
||||
GvDatos.UseAccessibleHeader = True
|
||||
GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
|
||||
RegistraScript("OrdenarGV();")
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
377
PyME/Contabilidad/PlantillasPolizasDetalle.aspx
Normal file
377
PyME/Contabilidad/PlantillasPolizasDetalle.aspx
Normal file
@@ -0,0 +1,377 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PlantillasPolizasDetalle.aspx.vb" Inherits="Contabilidad_PlantillasPolizasDetalle" %>
|
||||
|
||||
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
<link href="/Metronic/assets/global/plugins/datatables/plugins/bootstrap/dataTables.bootstrap.css" rel="stylesheet" />
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
<style>
|
||||
.Widthall {
|
||||
width: 100% !important;
|
||||
}
|
||||
|
||||
.dataTables_scrollHeadInner {
|
||||
width: 100% !important;
|
||||
background-color: #dddddd;
|
||||
padding-left: 0px !important;
|
||||
}
|
||||
|
||||
.dataTables_scrollFoot {
|
||||
display: none;
|
||||
position: static;
|
||||
}
|
||||
|
||||
.table-scrollable {
|
||||
margin: 0px !important;
|
||||
}
|
||||
|
||||
.dataTables_scroll {
|
||||
margin-bottom: 0px;
|
||||
}
|
||||
|
||||
.table.dataTable {
|
||||
margin-top: 0px !important;
|
||||
}
|
||||
|
||||
.dataTables_scrollBody table th {
|
||||
padding: 0px !important;
|
||||
padding-right: 4px !important;
|
||||
padding-left: 4px !important;
|
||||
}
|
||||
|
||||
.sinlink td a {
|
||||
pointer-events: none;
|
||||
cursor: default;
|
||||
color: black;
|
||||
font-size: small;
|
||||
}
|
||||
|
||||
.white a {
|
||||
color: white !important;
|
||||
}
|
||||
</style>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||
<li>
|
||||
<asp:HyperLink NavigateUrl="/Contabilidad/PlantillasPolizas.aspx" runat="server"><i class="fa fa-list"></i> Plantilla Póliza Listado</asp:HyperLink>
|
||||
</li>
|
||||
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||
Catálogo de Pantillas de Pólizas
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
<asp:UpdatePanel runat="server" ID="UpAgregar">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton runat="server" ID="BtnAgregarSucursalModal" OnClick="BtnAgregarSucursalModal_Click" data-toggle="tooltip" data-placement="left" title="Agregar un Concepto a la Póliza." Text="<i class='fa fa-plus'></i> Agregar Concepto"></asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<table class="table table-striped Widthall">
|
||||
<tr>
|
||||
<td>
|
||||
<table>
|
||||
<tr id="TRClave" runat="server">
|
||||
<td>
|
||||
<asp:Label ID="Label1" runat="server" Text="Clave Póliza:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtClave" type="number" runat="server" Width="300px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="rfvClave" runat="server" ControlToValidate="TxtPlantillaPoliza" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clave Póliza''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoClave" runat="server" HighlightCssClass="vco" TargetControlID="rfvClave" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
|
||||
|
||||
<td>
|
||||
<asp:Label ID="LblPlantillaPoliza" runat="server" Text="Plantilla Póliza:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtPlantillaPoliza" runat="server" Width="300px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVPP" runat="server" ControlToValidate="TxtPlantillaPoliza" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Plantilla Póliza''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEPP" runat="server" HighlightCssClass="vco" TargetControlID="RFVPP" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
|
||||
</tr>
|
||||
</table>
|
||||
<table id="tableopcional" runat="server">
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="LblTipoPoliza" runat="server" Text="Tipo de Póliza:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlTipoPoliza" runat="server" AppendDataBoundItems="true" DataTextField="Tipo" DataValueField="Id" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 95px !important;">
|
||||
<asp:ListItem Value="-1" Text="Seleccione" Selected="True"></asp:ListItem>
|
||||
<asp:ListItem Value="2" Text="Egreso"></asp:ListItem>
|
||||
<asp:ListItem Value="1" Text="Ingreso"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVDdlTipoPoliza" runat="server" ControlToValidate="DdlTipoPoliza" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Póliza''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCODdlTipoPoliza" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlTipoPoliza" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="LblTPP" runat="server" Text="Tipo Plantilla:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlTPP" runat="server" AppendDataBoundItems="true" DataTextField="TipoPlantillaPoliza" DataValueField="CveTipoPlantillaPoliza" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 138px !important;">
|
||||
<asp:ListItem Value="-1" Text="Seleccione" Selected="True"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVDdlTPP" runat="server" ControlToValidate="DdlTPP" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Plantilla''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEDdlTPP" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlTPP" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="LblEstatus" runat="server" Text="Estatus:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:CheckBox ID="ChkEstatus" Checked="true" runat="server" />
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="LblFechaIng" runat="server" Text="Fecha:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtFechaIng" runat="server" Enabled="false"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="LblUsuario" runat="server" Enabled="false" Text="Usuario:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtUsuario" runat="server" Enabled="false"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePlantillaPolizaDetalle, TipoMovimiento, CveSubProyecto, CveProveedor, CvePersonal, CveConcepto, IdCtaContable, Orden" EmptyDataText="No se encontraron Plantilla de Pólizas Registradas" ToolTip="Listado de Plantilla de Pólizas" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Concepto Contable">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlConcepto" runat="server" Text='<%# Eval("ConceptoContable", "{0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Tipo Movimiento">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTipoMovto" runat="server" Text='<%# Eval("TipoMovimiento", "{0}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Cuenta Contable">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlCtaContable" runat="server" Text='<%# Eval("IdCtaContable", "{0}") %>'>></asp:Literal>
|
||||
</ItemTemplate>
|
||||
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-Width="100px" HeaderText="SubProyecto">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-Width="100px" HeaderText="Razón Social">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlProveedor" runat="server" Text='<%# Eval("RazonSocial") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-Width="100px" HeaderText="Personal">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPersonal" runat="server" Text='<%# Eval("Personal") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Orden">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlOrden" runat="server" Text='<%# Eval("Orden", "{0}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Usuario">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlUsuario" runat="server" Text='<%#Eval("Usuario")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px">
|
||||
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="ImgE" OnClick="Edit_Click" runat="server" AlternateText="Editar" CausesValidation="False"
|
||||
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<table width="100%">
|
||||
<tr>
|
||||
<td align="center">
|
||||
<asp:Button ID="BtnGuardar" runat="server" Text="Guardar" OnClick="BtnGuardar_Click" ValidationGroup="GrpGuardar" class="btn btn-primary" />
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
|
||||
|
||||
<div id="divAgregarSucursal" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 450px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModal" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="LtlTituloModal" runat="server">Agregar Concepto Contable</asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlConcepto" CssClass="form-control input-sm select2me js-concepto-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpAgregar" AutoPostBack="true"></asp:DropDownList>
|
||||
<label for="<%= DdlConcepto.ClientID.ToString()%>">Concepto Contable</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlTipoMovimiento" CssClass="form-control input-sm select2me js-movimiento-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="TipoMovimiento" DataValueField="CveTipoMovimiento" Width="240px" ValidationGroup="GrpAgregar">
|
||||
<asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
<asp:ListItem Text="Abono" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="Cargo" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlTipoMovimiento.ClientID.ToString()%>">Tipo Movimiento:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlCtaContable" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="240px" ValidationGroup="GrpAgregar"></asp:DropDownList>
|
||||
<label for="<%= DdlCtaContable.ClientID.ToString()%>">Cuenta Contable:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DDLSubProyecto" CssClass="form-control input-sm select2me js-subproyecto-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="240px" ValidationGroup="GrpAgregar"></asp:DropDownList>
|
||||
<label for="<%= DDLSubProyecto.ClientID.ToString()%>">SubProyecto:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DDLProveedor" CssClass="form-control input-sm select2me js-referencia-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="240px" ValidationGroup="GrpAgregar"></asp:DropDownList>
|
||||
<label id="LblProveedor" runat="server" for="<%= DDLProveedor.ClientID.ToString()%>">Razón Social:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtOrden" CssClass="form-control " runat="server" MaxLength="4" CausesValidation="true"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server" ControlToValidate="TxtOrden" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Orden''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtOrden.ClientID.ToString()%>">Orden:</label>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me js-referencia-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="240px" ValidationGroup="GrpAgregar"></asp:DropDownList>
|
||||
<label id="LblPersonal" runat="server" for="<%= DdlPersonal.ClientID.ToString()%>">Personal:</label>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardarRegistro" />
|
||||
<button id="BtnCancelarSucursal" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
<asp:HiddenField ID="HdnModalidad" runat="server" Value="I" ClientIDMode="Static" />
|
||||
<asp:HiddenField ID="HdnID" runat="server" Value="-1" ClientIDMode="Static" />
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
<script type="text/javascript" language="javascript">
|
||||
function C() {
|
||||
return confirm('¿Está seguro que desea eliminar el Detalle de la Plantilla?');
|
||||
}
|
||||
|
||||
function validarNum(e) {
|
||||
tecla = (document.all) ? e.keyCode : e.which;
|
||||
if (tecla == 8) return true;
|
||||
patron = /\d/;
|
||||
te = String.fromCharCode(tecla);
|
||||
return patron.test(te);
|
||||
}
|
||||
function quitaNoNumero(obj) {
|
||||
patron = /\d/;
|
||||
if (!patron.test(obj.value)) {
|
||||
obj.value = "";
|
||||
}
|
||||
}
|
||||
</script>
|
||||
|
||||
<script type="text/javascript">
|
||||
function showDivEC() {
|
||||
$('#divAgregarSucursal').modal('show');
|
||||
}
|
||||
function hideDivEC() {
|
||||
$('#divAgregarSucursal').modal('hide');
|
||||
}
|
||||
|
||||
|
||||
function ShowDivRegistro() {
|
||||
$('#divAgregarSucursal').modal();
|
||||
}
|
||||
function HideDivRegistro() {
|
||||
$('#divAgregarSucursal').modal('hide');
|
||||
}
|
||||
|
||||
function SetValue(Hidden, Value) {
|
||||
document.getElementById(Hidden).value = Value;
|
||||
}
|
||||
|
||||
</script>
|
||||
|
||||
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
|
||||
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
|
||||
<script type="text/javascript">
|
||||
|
||||
function OrdenarGV() {
|
||||
var Tam = TamañoVentana();
|
||||
var Alto = Tam.height - 270;
|
||||
if (Alto < 100) {
|
||||
Alto = 100;
|
||||
}
|
||||
$('#C_GvDatos').DataTable({
|
||||
scrollY: Alto + 'px',
|
||||
scrollCollapse: true,
|
||||
paging: false,
|
||||
searching: false,
|
||||
info: false
|
||||
});
|
||||
$('#C_GvDatos').parent().parent().children().first().css("position", "static");
|
||||
}
|
||||
</script>
|
||||
|
||||
|
||||
</asp:Content>
|
||||
418
PyME/Contabilidad/PlantillasPolizasDetalle.aspx.vb
Normal file
418
PyME/Contabilidad/PlantillasPolizasDetalle.aspx.vb
Normal file
@@ -0,0 +1,418 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Linq
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class Contabilidad_PlantillasPolizasDetalle
|
||||
Inherits ClsPaginas
|
||||
#Region "PROPIEDADES"
|
||||
|
||||
Private Property DTSubProyectos As DataTable
|
||||
Get
|
||||
Return CType(ViewState("DTSubProyectos"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTSubProyectos") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property DTCuentasContables As DataTable
|
||||
Get
|
||||
Return CType(ViewState("DTCuentasContables"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTCuentasContables") = value
|
||||
End Set
|
||||
End Property
|
||||
Private ReadOnly Property CvePlantillaPoliza As Integer
|
||||
Get
|
||||
Return ViewState("CvePlantillaPoliza").ToString.ToEntero
|
||||
End Get
|
||||
End Property
|
||||
Public Property DTDetalle As DataTable
|
||||
Get
|
||||
Return CType(ViewState("DTDetalle"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTDetalle") = value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
ViewState("Orden") = ""
|
||||
TxtFechaIng.Text = Date.Today.ToString("dd/MM/yyyy")
|
||||
TxtUsuario.Text = UsuarioActual.CveUsuario.ToString
|
||||
CreadDTDetalle()
|
||||
|
||||
Dim ObjPlantillaPolizasTipo As New ClsContabilidad
|
||||
If ObjPlantillaPolizasTipo.GetConta_PlantillasPolizasTipo() Then
|
||||
Dim row As DataRow = ObjPlantillaPolizasTipo.DtResultados().NewRow()
|
||||
row("CveTipoPlantillaPoliza") = -1
|
||||
row("TipoPlantillaPoliza") = "Seleccione"
|
||||
ObjPlantillaPolizasTipo.DtResultados.Rows.Add(row)
|
||||
ObjPlantillaPolizasTipo.DtResultados.AcceptChanges()
|
||||
DdlTPP.DataSource = ObjPlantillaPolizasTipo.DtResultados()
|
||||
DdlTPP.DataBind()
|
||||
End If
|
||||
ObjPlantillaPolizasTipo.Dispose()
|
||||
|
||||
Dim dt As DataTable = Nothing
|
||||
If UsuarioActual.Empresa.UsaContabilidad Then
|
||||
Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
If Conta.GetCuentas(-1, "-1", 1) Then
|
||||
dt = Conta.DtResultados
|
||||
DTCuentasContables = Conta.DtResultados
|
||||
Session("DtCuentas") = Conta.DtResultados
|
||||
End If
|
||||
Conta.Dispose()
|
||||
End If
|
||||
CargaCuenta()
|
||||
CargaDDL()
|
||||
CargaDDLProveedor()
|
||||
CargarConcepto()
|
||||
ViewState("CvePlantillaPoliza") = 0
|
||||
|
||||
If Request("CvePlantillaPoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePlantillaPoliza")) AndAlso Request("CvePlantillaPoliza").ToEntero > 0 Then
|
||||
ViewState("CvePlantillaPoliza") = Request("CvePlantillaPoliza")
|
||||
TRClave.Visible = False
|
||||
TxtPlantillaPoliza.Enabled = False
|
||||
DdlTipoPoliza.Enabled = False
|
||||
DdlTPP.Enabled = False
|
||||
ChkEstatus.Enabled = False
|
||||
BtnGuardar.Visible = False
|
||||
tableopcional.Visible = False
|
||||
CargaDatos()
|
||||
CargaDatosPoliza(CvePlantillaPoliza)
|
||||
Else
|
||||
ViewState("CvePlantillaPoliza") = -1
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#Region "C A R G A - D A T O S"
|
||||
Public Sub CargaDatos()
|
||||
Dim ObjPlantillaPolizaDetalle As New ClsContabilidad
|
||||
If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(CvePlantillaPoliza, UsuarioActual.CveEmpresa) Then
|
||||
GvDatos.DataSource = ObjPlantillaPolizaDetalle.DtResultados
|
||||
ObjPlantillaPolizaDetalle.Dispose()
|
||||
GvDatos.DataBind()
|
||||
Else
|
||||
Me.GvDatos.DataSource = Nothing
|
||||
End If
|
||||
|
||||
OrdenaDatos()
|
||||
End Sub
|
||||
Public Sub CargaDatosPoliza(CvePlantillaPoliza As Integer)
|
||||
Dim ObjPlantillaPolizas As New ClsContabilidad
|
||||
If ObjPlantillaPolizas.GetConta_PlantillasPolizas(CvePlantillaPoliza, -1) Then
|
||||
TxtPlantillaPoliza.Text = ObjPlantillaPolizas.PlantillaPoliza
|
||||
DdlTipoPoliza.SelectedValue = ObjPlantillaPolizas.TipoPoliza.ToString
|
||||
DdlTPP.SelectedValue = ObjPlantillaPolizas.CveTipoPlantillaPoliza.ToString
|
||||
If ObjPlantillaPolizas.Estatus = "Activo" Then
|
||||
ChkEstatus.Checked = True
|
||||
End If
|
||||
TxtFechaIng.Text = ObjPlantillaPolizas.FechaIng.ToShortDateString
|
||||
TxtUsuario.Text = ObjPlantillaPolizas.Usuario
|
||||
BtnGuardar.Text = "Actualizar"
|
||||
Else
|
||||
End If
|
||||
|
||||
ObjPlantillaPolizas.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub LimpiaDatos()
|
||||
TxtPlantillaPoliza.Text = ""
|
||||
DdlTipoPoliza.SelectedValue = "-1"
|
||||
DdlTPP.SelectedValue = "-1"
|
||||
ChkEstatus.Checked = False
|
||||
ViewState("CvePlantillaPoliza") = -1
|
||||
GvDatos.DataSource = Nothing
|
||||
GvDatos.DataBind()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCuenta()
|
||||
DdlCtaContable.Items.Clear()
|
||||
DdlCtaContable.DataSource = DTCuentasContables
|
||||
DdlCtaContable.DataBind()
|
||||
DdlCtaContable.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargarConcepto()
|
||||
DdlConcepto.DataSource = GlobalDTContaConceptosContables(-1)
|
||||
DdlConcepto.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CreadDTDetalle()
|
||||
DTDetalle = New DataTable
|
||||
DTDetalle.Columns.Add("CvePlantillaPolizaDetalle", GetType(Integer)) 'Consec
|
||||
DTDetalle.Columns.Add("ConceptoContable", GetType(String))
|
||||
DTDetalle.Columns.Add("CveConcepto", GetType(Integer))
|
||||
DTDetalle.Columns.Add("TipoMovimiento", GetType(String))
|
||||
DTDetalle.Columns.Add("TipoMovto", GetType(Integer))
|
||||
DTDetalle.Columns.Add("IdCtaContable", GetType(Integer))
|
||||
DTDetalle.Columns.Add("Orden", GetType(String))
|
||||
DTDetalle.Columns.Add("Usuario", GetType(String))
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
|
||||
Dim ObjPlantillaPoliza As New ClsContabilidad
|
||||
Dim ErrorPlantilla = False
|
||||
Dim CvePlantilla = -1
|
||||
ObjPlantillaPoliza.IniciaTransacSQL()
|
||||
|
||||
If CvePlantillaPoliza < 0 Then
|
||||
If ObjPlantillaPoliza.AddConta_PlantillasPolizas(TxtClave.Text.ToEntero, TxtPlantillaPoliza.Text.Trim, DdlTPP.SelectedValue.ToEntero, DdlTipoPoliza.SelectedValue.ToEntero, ChkEstatus.Checked, TxtFechaIng.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
CvePlantilla = ObjPlantillaPoliza.CvePlantillaPoliza
|
||||
If DTDetalle.Rows.Count > 0 Then
|
||||
For Each Row As DataRow In DTDetalle.Rows
|
||||
If Not ObjPlantillaPoliza.AddConta_PlantillasPolizasDetalles(CvePlantilla, Row("CveConcepto").ToString.ToEntero, Row("TipoMovto").ToString.ToEntero, Row("IdCtaContable").ToString.ToEntero, Row("Orden").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero) Then
|
||||
ErrorPlantilla = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
ErrorPlantilla = True
|
||||
End If
|
||||
|
||||
Else
|
||||
If ObjPlantillaPoliza.UpdateConta_PlantillasPolizas(TxtPlantillaPoliza.Text.Trim, DdlTPP.SelectedValue.ToEntero, DdlTipoPoliza.SelectedValue.ToEntero, ChkEstatus.Checked, CvePlantillaPoliza) Then
|
||||
ObjPlantillaPoliza.Commit()
|
||||
ObjPlantillaPoliza.Dispose()
|
||||
LimpiaDatos()
|
||||
Alert("La Plantilla Póliza y sus Detalles fueron Actualizados correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Contabilidad/PlantillasPolizas.aspx?"";")
|
||||
Exit Sub
|
||||
Else
|
||||
ErrorPlantilla = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If Not ErrorPlantilla Then
|
||||
ObjPlantillaPoliza.Commit()
|
||||
LimpiaDatos()
|
||||
Alert("La Plantilla Póliza y su Detalle fue agregado correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Contabilidad/PlantillasPolizas.aspx?"";")
|
||||
Else
|
||||
ObjPlantillaPoliza.RollBack()
|
||||
Alert("Error al agregar la Plantilla Póliza y el Detalle.", TipoMensaje.MsgError)
|
||||
End If
|
||||
ObjPlantillaPoliza.Dispose()
|
||||
End Sub
|
||||
Public Sub updatatos()
|
||||
|
||||
Dim ObjPlantillaPolizaDetalle As New ClsContabilidad
|
||||
If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(-1, -1) Then
|
||||
ViewState("DTPlantillaPolizaDetalle") = ObjPlantillaPolizaDetalle.DtResultados.FiltraParametros(String.Format(" CvePlantillaPoliza={0} AND CveEmpresa = {1}", CvePlantillaPoliza, UsuarioActual.CveEmpresa))
|
||||
|
||||
GlobalDTContaPlantillasPolizasDetalle(CvePlantillaPoliza) = ObjPlantillaPolizaDetalle.DtResultados
|
||||
End If
|
||||
If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizas(-1, -1) Then
|
||||
GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = ObjPlantillaPolizaDetalle.DtResultados
|
||||
End If
|
||||
ObjPlantillaPolizaDetalle.Dispose()
|
||||
End Sub
|
||||
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
|
||||
OcultaDiv()
|
||||
Dim ObjPlantillaPolizaDetalle As New ClsContabilidad
|
||||
Dim Row As DataRow
|
||||
Dim ErrorActualizar = False
|
||||
Dim ErrorDetalle = False
|
||||
|
||||
|
||||
If HdnModalidad.Value = "I" Then
|
||||
If CvePlantillaPoliza > 0 Then
|
||||
If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero) Then
|
||||
TxtOrden.Text = ""
|
||||
updatatos()
|
||||
Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
UpTitulos.Update()
|
||||
Else
|
||||
ErrorDetalle = True
|
||||
End If
|
||||
Else
|
||||
Try
|
||||
Row = DTDetalle.NewRow
|
||||
Row("CvePlantillaPolizaDetalle") = DTDetalle.Rows.Count + 1
|
||||
Row("ConceptoContable") = DdlConcepto.SelectedItem.ToString
|
||||
Row("CveConcepto") = DdlConcepto.SelectedValue.ToEntero
|
||||
Row("TipoMovimiento") = DdlTipoMovimiento.SelectedItem.ToString
|
||||
Row("TipoMovto") = DdlTipoMovimiento.SelectedValue.ToEntero
|
||||
Row("IdCtaContable") = DdlCtaContable.SelectedValue.ToEntero
|
||||
Row("Orden") = TxtOrden.Text.Trim.ToEntero
|
||||
Row("Usuario") = UsuarioActual.Usuario
|
||||
|
||||
DTDetalle.Rows.Add(Row)
|
||||
|
||||
TxtOrden.Text = ""
|
||||
UpTitulos.Update()
|
||||
Catch ex As Exception
|
||||
ErrorDetalle = True
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
If HdnID.Value.ToEntero <> -1 Then
|
||||
If CvePlantillaPoliza > 0 Then
|
||||
If ObjPlantillaPolizaDetalle.UpdateConta_PlantillasPolizasDetalle(DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero,
|
||||
HdnID.Value.ToEntero, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero) Then
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
updatatos()
|
||||
Else
|
||||
ErrorActualizar = True
|
||||
End If
|
||||
Else
|
||||
Try
|
||||
Row = DTDetalle.NewRow
|
||||
Row("CvePlantillaPolizaDetalle") = DTDetalle.Rows.Count + 1
|
||||
Row("ConceptoContable") = DdlConcepto.SelectedItem.ToString
|
||||
Row("CveConcepto") = DdlConcepto.SelectedValue.ToEntero
|
||||
Row("TipoMovimiento") = DdlTipoMovimiento.SelectedItem.ToString
|
||||
Row("TipoMovto") = DdlTipoMovimiento.SelectedValue.ToEntero
|
||||
Row("IdCtaContable") = DdlCtaContable.SelectedValue.ToEntero
|
||||
Row("Orden") = TxtOrden.Text.Trim.ToEntero
|
||||
Row("Usuario") = UsuarioActual.Usuario
|
||||
DTDetalle.Rows.Add(Row)
|
||||
Catch ex As Exception
|
||||
ErrorActualizar = True
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
ObjPlantillaPolizaDetalle.Dispose()
|
||||
|
||||
CargaDatos()
|
||||
UpDatos.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "G V - D A T O S"
|
||||
|
||||
|
||||
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
Dim Cuenta As Integer = e.Row.DataKey("IdCtaContable").ToString.ToEntero
|
||||
e.Row.FCLiteral("LtlCtaContable").Text = DTCuentasContables.FiltroPrimeroValor("Nombre", $"Id = {Cuenta}")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
||||
Dim ObjPlantillaPolizaDetalle As New ClsContabilidad
|
||||
If CvePlantillaPoliza > 0 Then
|
||||
If ObjPlantillaPolizaDetalle.RemoveConta_PlantillasPolizasDetalle(CvePlantillaPoliza, GvDatos.Rows(e.RowIndex).DataKey("CvePlantillaPolizaDetalle").ToString.ToEntero) Then
|
||||
GvDatos.EditIndex = -1
|
||||
updatatos()
|
||||
Alert("El Concepto se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
Else
|
||||
Dim index = GvDatos.Rows(e.RowIndex).DataKey("CvePlantillaPolizaDetalle").ToString.ToEntero - 1
|
||||
DTDetalle.Rows.RemoveAt(index)
|
||||
End If
|
||||
ObjPlantillaPolizaDetalle.Dispose()
|
||||
CargaDatos()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Public Sub CargaDDL()
|
||||
|
||||
|
||||
DTSubProyectos = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
DDLSubProyecto.DataSource = DTSubProyectos
|
||||
DDLSubProyecto.DataBind()
|
||||
DDLSubProyecto.Items.Insert(0, New ListItem(" - ", "-1"))
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaDDLProveedor()
|
||||
DDLProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
DDLProveedor.DataBind()
|
||||
DDLProveedor.Items.Insert(0, New ListItem(" - ", "-1"))
|
||||
DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
|
||||
DdlPersonal.DataBind()
|
||||
DdlPersonal.Items.Insert(0, New ListItem(" - ", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub DdlConcepto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConcepto.SelectedIndexChanged
|
||||
If DdlConcepto.SelectedValue.Contiene("130", "29") Then
|
||||
DdlPersonal.Visible = True
|
||||
LblPersonal.Visible = True
|
||||
Else
|
||||
DdlPersonal.Visible = False
|
||||
LblPersonal.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#Region " O R D E N A M I E N T O JAVASCRIPT"
|
||||
Private Sub OrdenaDatos()
|
||||
If (GvDatos.Rows.Count > 0) Then
|
||||
GvDatos.UseAccessibleHeader = True
|
||||
GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
|
||||
RegistraScript("OrdenarGV();")
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
Private Sub OcultaDiv()
|
||||
ScriptManager.RegisterStartupScript(Me, Me.GetType, "Llave", "HideDivRegistro();", True)
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
HdnModalidad.Value = "U"
|
||||
HdnID.Value = GvRow.DataKey("CvePlantillaPolizaDetalle")
|
||||
DdlConcepto.SelectedValueExist(GvRow.DataKey("CveConcepto"))
|
||||
DdlTipoMovimiento.SelectedValueExist(IIf(GvRow.DataKey("TipoMovimiento") = "Abono", 1, 0).ToString)
|
||||
DdlCtaContable.SelectedValueExist(GvRow.DataKey("IdCtaContable"))
|
||||
DDLSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
|
||||
TxtOrden.Text = GvRow.DataKey("Orden")
|
||||
LbAgregar.Text = "Actualizar"
|
||||
LtlTituloModal.Text = String.Format("{0}{1}", "Actualizar Concepto: ", DdlConcepto.SelectedItem)
|
||||
|
||||
If DdlConcepto.SelectedValue.Contiene("130", "29") Then
|
||||
DdlPersonal.SelectedValueExist(GvRow.DataKey("CvePersonal"))
|
||||
DdlPersonal.Visible = True
|
||||
LblPersonal.Visible = True
|
||||
Else
|
||||
DdlPersonal.SelectedIndex = 0
|
||||
DdlPersonal.Visible = False
|
||||
LblPersonal.Visible = False
|
||||
End If
|
||||
UpModal.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
|
||||
CargaDatos()
|
||||
End Sub
|
||||
|
||||
Public Sub BtnAgregarSucursalModal_Click(sender As Object, e As EventArgs)
|
||||
DdlPersonal.Visible = False
|
||||
LblPersonal.Visible = False
|
||||
LbAgregar.Text = "Agregar"
|
||||
LtlTituloModal.Text = "Agregar Concepto Contable"
|
||||
DdlConcepto.SelectedIndex = 0
|
||||
DdlTipoMovimiento.SelectedIndex = 0
|
||||
DdlCtaContable.SelectedIndex = 0
|
||||
DDLSubProyecto.SelectedIndex = 0
|
||||
DDLProveedor.SelectedIndex = 0
|
||||
DdlPersonal.SelectedIndex = 0
|
||||
TxtOrden.Text = ""
|
||||
UpModal.Update()
|
||||
HdnModalidad.Value = "I"
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
1073
PyME/Contabilidad/RegPoliza.aspx
Normal file
1073
PyME/Contabilidad/RegPoliza.aspx
Normal file
File diff suppressed because it is too large
Load Diff
1267
PyME/Contabilidad/RegPoliza.aspx.vb
Normal file
1267
PyME/Contabilidad/RegPoliza.aspx.vb
Normal file
File diff suppressed because it is too large
Load Diff
556
PyME/Contabilidad/RegPrePoliza.aspx
Normal file
556
PyME/Contabilidad/RegPrePoliza.aspx
Normal file
@@ -0,0 +1,556 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegPrePoliza.aspx.vb" Inherits="Contabilidad_RegPrePoliza" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
<style>
|
||||
.GvMov input, .GvMov td {
|
||||
height: 20px !important;
|
||||
}
|
||||
|
||||
.GvSize tr > th:nth-child(1), .GvSize tr > th:nth-child(3), .GvSize tr > th:nth-child(5),
|
||||
.GvSize tr > td:nth-child(1), .GvSize tr > td:nth-child(3), .GvSize tr > td:nth-child(5) {
|
||||
width: 17%;
|
||||
}
|
||||
|
||||
.GvSize tr > th:nth-child(2), .GvSize tr > td:nth-child(2) {
|
||||
width: 9%;
|
||||
}
|
||||
|
||||
.GvSize tr > th:nth-child(4), .GvSize tr > th:nth-child(8),
|
||||
.GvSize tr > td:nth-child(4), .GvSize tr > td:nth-child(8) {
|
||||
width: 12%;
|
||||
}
|
||||
|
||||
.GvSize tr > th:nth-child(6), .GvSize tr > th:nth-child(7),
|
||||
.GvSize tr > td:nth-child(6), .GvSize tr > td:nth-child(7) {
|
||||
width: 8%;
|
||||
}
|
||||
</style>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||
<asp:Label ID="LblEncabezado" runat="server" Text=" Registro de Póliza"></asp:Label>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
<table border="0" cellpadding="0" cellspacing="0" width="100%">
|
||||
<tr>
|
||||
<td align="left" style="width: 665px;">
|
||||
|
||||
<asp:UpdatePanel ID="UPPDocumento" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div id="DivConceptoPrePoliza" runat="server" class="chequesie22">
|
||||
<div class="chequesie12">
|
||||
<div class="row">
|
||||
<label class="col-md-2 control-label text-left">Fecha: </label>
|
||||
<div class="col-md-4" style="width: 42%;">
|
||||
<div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
|
||||
<asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton runat="server" ID="ImgCalendario" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
|
||||
<ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFecha" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVFechaDocumento" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
</div>
|
||||
<div class="col-md-1" style="width: 5px;">
|
||||
<asp:CheckBox ID="ChkAutoConta" runat="server"></asp:CheckBox>
|
||||
</div>
|
||||
<label class="col-md-2">AutoContabilizar</label>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="chequesie22">
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<label class="col-md-2">Observaciones:</label>
|
||||
<div class="col-md-5">
|
||||
<asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="12" Width="400px" Rows="3" TextMode="MultiLine"></asp:TextBox>
|
||||
</div>
|
||||
|
||||
<label class="col-md-1">Movimiento:</label>
|
||||
<div class="col-md-4">
|
||||
<asp:DropDownList ID="DdlPlantilla" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="PlantillaPoliza" DataValueField="CvePlantillaPoliza" Width="250px" ValidationGroup="GrpGuardar">
|
||||
</asp:DropDownList>
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
<div class="row" id="trNotificar" runat="server" visible="False">
|
||||
<label class="col-md-2">Notificar:</label>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox ID="TxtNotificarA" CssClass="form-control input-sm" runat="server" MaxLength="12" Width="400px" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" id="trCuentaDeposito" runat="server" visible="False">
|
||||
<label class="col-md-2">Cuenta Depósito:</label>
|
||||
<div class="col-md-10">
|
||||
<asp:DropDownList ID="DdlCuentaDeposito" CssClass="form-control input-sm select2me" runat="server" DataTextField="CuentaDeposito" DataValueField="CveCuentaDeposito" Width="400px" AppendDataBoundItems="True"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVCuentaDeposito" runat="server" ControlToValidate="DdlCuentaDeposito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta de Depósito''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCECuentaDeposito" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuentaDeposito" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<br />
|
||||
</div>
|
||||
</div>
|
||||
<div class="chequesie22">
|
||||
<div class="row" id="DivAgregarConceptos" runat="server" visible="true">
|
||||
<div class="col-md-12">
|
||||
<table border="0" rules="none" style="border-collapse: collapse; min-width: 980px;" class="table table-striped GvSize mygvps Widthall">
|
||||
<tr class="Titulos TextTab">
|
||||
<th>Concepto</th>
|
||||
<th>Cta. Contable</th>
|
||||
<th>Referencia</th>
|
||||
<th>Descripción</th>
|
||||
<th>SubProyecto</th>
|
||||
<th>Cargo</th>
|
||||
<th>Abono</th>
|
||||
<th style="width: 100px;">Comandos</th>
|
||||
<th runat="server" visible="false" id="nomostrar2"></th>
|
||||
</tr>
|
||||
<tr class="TextTab">
|
||||
<th>
|
||||
<asp:DropDownList ID="DdlConceptosContables" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="160px">
|
||||
</asp:DropDownList><br />
|
||||
</th>
|
||||
<th>
|
||||
<asp:DropDownList ID="DdlCtaContable" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="160px">
|
||||
</asp:DropDownList><br />
|
||||
</th>
|
||||
<th>
|
||||
<asp:TextBox ID="TxtReferencia" runat="server" Rows="2" TextMode="MultiLine" Width="150px"></asp:TextBox>
|
||||
</th>
|
||||
<th>
|
||||
<asp:TextBox ID="TxtDescripcion" runat="server" Rows="2" TextMode="MultiLine" Width="150px"></asp:TextBox>
|
||||
</th>
|
||||
<th>
|
||||
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="160px">
|
||||
</asp:DropDownList><br />
|
||||
</th>
|
||||
<th>
|
||||
<asp:TextBox ID="TxtCargo" runat="server" Width="76px" Height="24px"></asp:TextBox>
|
||||
</th>
|
||||
<th>
|
||||
<asp:TextBox ID="TxtAbono" runat="server" Width="76px" Height="24px"></asp:TextBox>
|
||||
</th>
|
||||
<th align="center">
|
||||
<asp:LinkButton ID="LbAgregar" runat="server" CssClass="Texto" Enabled="true" Text="Agregar"></asp:LinkButton>
|
||||
</th>
|
||||
<th runat="server" visible="false" id="nomostrar"></th>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<asp:UpdatePanel ID="UPMovs" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<input id="HdnCveCuenta" runat="server" type="hidden" value="-1" clientidmode="Static" />
|
||||
<table style="width: 100%;" class="table GvSize table-striped table-advance table-hover">
|
||||
<tr class="Titulos">
|
||||
<th>Cuenta</th>
|
||||
<th>Referencia</th>
|
||||
<th>Descripción</th>
|
||||
<th>SubProyecto</th>
|
||||
<th>Ref. Bancaria</th>
|
||||
<th>Cargo</th>
|
||||
<th>Abono</th>
|
||||
<th></th>
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
<div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
|
||||
<asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Cuenta</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlCuenta" runat="server" Text='<%# Eval("Cuenta") %>'></asp:Literal><br />
|
||||
<asp:Label ID="LblCuentaCon" Font-Italic="true" Font-Size="7pt" runat="server" Text='<%# Eval("CodigoCuenta") %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Referencia</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlReferencia" runat="server" Text='<%# Eval("Referencia")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Concepto</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtConcepto" runat="server" Width="150px" Text='<%# Eval("Concepto")%>'></asp:TextBox>
|
||||
</ItemTemplate>
|
||||
<ItemStyle />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>SubProyecto</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="140px"></asp:DropDownList>
|
||||
</ItemTemplate>
|
||||
<ItemStyle />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Ref. Bancaria</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:DropDownList ID="DdlSaldos" CssClass="select2me" runat="server" DataValueField="CveIE" DataTextField="RazonSocialSaldo" Visible="false" Style="width: 150px;"></asp:DropDownList>
|
||||
</ItemTemplate>
|
||||
<ItemStyle />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Cargo</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtCargo" CssClass="txtcargo" runat="server" Style="text-align: right" Width="65px" Visible="False"></asp:TextBox>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Abono</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtAbono" CssClass="txtabono" runat="server" Style="text-align: right" Width="65px" Visible="False"></asp:TextBox>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Eliminar">
|
||||
<ItemTemplate>
|
||||
<asp:ImageButton Visible="false" ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" ImageUrl="/Imagenes/Btn_Delete.png" OnClientClick="javascript:return C();" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
<HeaderStyle CssClass="Titulos" />
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<asp:UpdatePanel ID="UpPrePoliza" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
|
||||
<asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePrePolizaDetalle, CveConceptoContable, IdCtaContable, CveSubProyecto" Width="100%" CssClass="table table-striped table-advance table-hover" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Movimiento</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlConceptoContable" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal><br />
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" Width="150px" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Concepto</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtConcepto" runat="server" MaxLength="100" CssClass="form-control input-sm" Text='<%# Eval("Concepto") %>'></asp:TextBox><br />
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" Width="380px" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>SubProyecto</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:DropDownList ID="DdlSubProyecto" runat="server" Width="150px" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList><br />
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" Width="150px" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Cuenta</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:DropDownList ID="DdlCtaContable" runat="server" Width="200px" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo"></asp:DropDownList><br />
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" Width="200px" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Cargo</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtCargo" runat="server" CssClass=" txtcargo form-control input-sm" Style="text-align: right" Text='<%# If(Eval("TipoMovto").ToString = "False", Eval("ImporteMN", "{0:N2}"), "") %>'></asp:TextBox><br />
|
||||
<asp:CompareValidator ID="CVCargo" runat="server" ControlToValidate="TxtCargo" Display="None" ErrorMessage="El campo <b>''Cargo''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCCCargo" runat="server" HighlightCssClass="vco" TargetControlID="CVCargo" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Abono</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtAbono" runat="server" CssClass=" txtabono form-control input-sm" Style="text-align: right" Text='<%# If(Eval("TipoMovto").ToString = "True", Eval("ImporteMN", "{0:N2}"), "") %>'></asp:TextBox><br />
|
||||
<asp:CompareValidator ID="CVAbono" runat="server" ControlToValidate="TxtAbono" Display="None" ErrorMessage="El campo <b>''Abono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCCAbono" runat="server" HighlightCssClass="vco" TargetControlID="CVAbono" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
<HeaderStyle CssClass="Titulos" />
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<table class="table table-striped table-advance table-hover Widthall">
|
||||
<tr>
|
||||
<td style="width: 730px"> </td>
|
||||
<th style="width: 70px;">
|
||||
<asp:TextBox ID="TxtTotalCargos" runat="server" Style="text-align: right" Enabled="false" Width="70px"></asp:TextBox></th>
|
||||
<th style="width: 70px;">
|
||||
<asp:TextBox ID="TxtTotalAbonos" runat="server" Style="text-align: right" Enabled="false" Width="70px"></asp:TextBox></th>
|
||||
</tr>
|
||||
<tr>
|
||||
<td colspan="3" style="text-align: center;">
|
||||
<asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:Button ID="BtnIEGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" class="btn btn-primary" />
|
||||
<asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
<script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
<script type="text/javascript" language="javascript">
|
||||
|
||||
function FnSuma(t, txt, importe) {
|
||||
|
||||
if (t.checked) {
|
||||
txt.value = FormatNumber(importe, 2, true, true, true);
|
||||
} else {
|
||||
txt.value = "";
|
||||
}
|
||||
|
||||
$get('TxtAbono').value = FormatNumber(SumaValores(), 2, true, true, true);
|
||||
|
||||
//alert(txt.value);
|
||||
}
|
||||
|
||||
//function FncImporte(t) {
|
||||
// $get('TxtImporte').value = FormatNumber(t.value, 2, true, true, true);
|
||||
// $get('HdnImporte').value = FormatNumber(t.value, 2, true, true, true);
|
||||
//}
|
||||
function FncImporte(txt, rowtxt, opcion) {
|
||||
|
||||
// opcion = 1, se registro desde el txtimporte
|
||||
if (opcion == 1) {
|
||||
$get(rowtxt).value = $get(txt).value == '' ? '' : FormatNumber(ToDouble($get(txt).value), 2, true, true, true);
|
||||
debugger;
|
||||
if ($get('ChkAbonoCuenta')) {
|
||||
$get('ChkAbonoCuenta').checked = ($get(txt).value > 2000);
|
||||
}
|
||||
FormatoMoneda($get(txt));
|
||||
} else {
|
||||
$get(txt).value = $get(rowtxt).value == '' ? '' : FormatNumber(ToDouble($get(rowtxt).value), 2, true, true, true);
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
function FncImporteCuenta(txt) {
|
||||
|
||||
if ($get('ChkAbonoCuenta')) {
|
||||
$get('ChkAbonoCuenta').checked = (parseFloat(txt.value.replace(/,/g, '')) > 2000);
|
||||
}
|
||||
FormatoMoneda(txt);
|
||||
}
|
||||
|
||||
function SumaValores() {
|
||||
var Importe = 0;
|
||||
var topLevelElem = document.getElementById("form1");
|
||||
var textBoxes = topLevelElem.getElementsByTagName("input");
|
||||
for (var i = 0; i < textBoxes.length; i++) {
|
||||
if (textBoxes[i].type == "text") {
|
||||
if (textBoxes[i].id.indexOf('C_GvMov_TxtAbono') >= 0) {
|
||||
if (textBoxes[i].value != '') {
|
||||
Importe = parseFloat(Importe) + parseFloat(textBoxes[i].value.split(',').join(''));
|
||||
alert(Importe);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
return Importe;
|
||||
|
||||
}
|
||||
|
||||
function FnCambia(chk, txt) {
|
||||
|
||||
if (txt.value != '') {
|
||||
chk.checked = true;
|
||||
} else {
|
||||
chk.checked = false;
|
||||
}
|
||||
$get('TxtImporte').value = FormatNumber(SumaValores(), 2, true, true, true);
|
||||
}
|
||||
function getCuenta(pId) {
|
||||
|
||||
$get('HdnCveCuenta').value = pId;
|
||||
|
||||
PageMethods.wsGetNombreCuenta(pId, OnSucceeded);
|
||||
|
||||
}
|
||||
|
||||
function OnSucceeded(result, userContext, methodName) {
|
||||
|
||||
if (methodName == 'wsGetNombreCuenta') {
|
||||
$get('TxtCuentaContable').value = result;
|
||||
}
|
||||
}
|
||||
|
||||
function myItemSelectedHandler(source, eventArgs) {
|
||||
|
||||
//debugger;
|
||||
var CC = $get('HdnCveCuenta');
|
||||
CC.value = eventArgs.get_value();
|
||||
|
||||
// var b = $get('C_Tabs_TabConyuge_BtnTruco');
|
||||
// b.Click;
|
||||
var aTargetElement = 'BtnSelCuenta';
|
||||
__doPostBack(aTargetElement, eventArgs.get_value());
|
||||
|
||||
//alert(" Key : " + eventArgs.get_text() + " Value : " + eventArgs.get_value());
|
||||
|
||||
}
|
||||
|
||||
function LimpiaImporte(t, txt) {
|
||||
|
||||
if (t.value != '' && $get(txt)) {
|
||||
$get(txt).value = '';
|
||||
}
|
||||
}
|
||||
|
||||
$(document).ready(
|
||||
function () {
|
||||
CargaTxtFunciones();
|
||||
|
||||
Sys.Application.add_load(function (s, e) {
|
||||
CargaTxtFunciones();
|
||||
});
|
||||
}
|
||||
);
|
||||
|
||||
function CargaTxtFunciones() {
|
||||
|
||||
$(".txtcargo").each(function () {
|
||||
|
||||
$(this).keyup(function () {
|
||||
calculateCargo();
|
||||
comparar();
|
||||
});
|
||||
});
|
||||
|
||||
|
||||
$(".txtabono").each(function () {
|
||||
|
||||
$(this).keyup(function () {
|
||||
calculateAbono();
|
||||
comparar();
|
||||
});
|
||||
});
|
||||
|
||||
}
|
||||
|
||||
function comparar() {
|
||||
|
||||
var TextoCargos = document.getElementById('<%= TxtTotalCargos.ClientID %>');
|
||||
var TextoAbonos = document.getElementById('<%= TxtTotalAbonos.ClientID %>');
|
||||
|
||||
|
||||
if (TextoCargos.value == TextoAbonos.value) {
|
||||
|
||||
document.getElementById('<%= TxtTotalCargos.ClientID %>').style.border = "2px solid #04B431";
|
||||
document.getElementById('<%= TxtTotalAbonos.ClientID %>').style.border = "2px solid #04B431";
|
||||
document.getElementById('<%= TxtTotalCargos.ClientID %>').style.color = "";
|
||||
document.getElementById('<%= TxtTotalAbonos.ClientID %>').style.color = "";
|
||||
}
|
||||
else {
|
||||
|
||||
document.getElementById('<%= TxtTotalCargos.ClientID %>').style.border = "2px solid #ff0000";
|
||||
document.getElementById('<%= TxtTotalAbonos.ClientID %>').style.border = "2px solid #ff0000";
|
||||
|
||||
document.getElementById('<%= TxtTotalCargos.ClientID %>').style.color = "#ff0000";
|
||||
document.getElementById('<%= TxtTotalAbonos.ClientID %>').style.color = "#ff0000";
|
||||
}
|
||||
|
||||
}
|
||||
function calculateCargo() {
|
||||
var sum = 0;
|
||||
$(".txtcargo").each(function () {
|
||||
if (!isNaN(this.value.split(',').join('')) && this.value.length != 0) {
|
||||
sum += parseFloat(this.value.split(',').join(''));
|
||||
}
|
||||
});
|
||||
$('#<%= TxtTotalCargos.ClientID %>').val(sum.toFixed(2));
|
||||
}
|
||||
|
||||
function calculateAbono() {
|
||||
var sum = 0;
|
||||
|
||||
$(".txtabono").each(function () {
|
||||
if (!isNaN(this.value.split(',').join('')) && this.value.length != 0) {
|
||||
sum += parseFloat(this.value.split(',').join(''));
|
||||
}
|
||||
});
|
||||
$('#<%= TxtTotalAbonos.ClientID %>').val(sum.toFixed(2));
|
||||
}
|
||||
|
||||
|
||||
|
||||
</script>
|
||||
<style type="text/css">
|
||||
.AutoExtender {
|
||||
font-family: Verdana, Helvetica, sans-serif;
|
||||
font-size: .9em;
|
||||
font-weight: normal;
|
||||
border: solid 1px #006699;
|
||||
line-height: 20px;
|
||||
padding: 2px;
|
||||
background-color: White;
|
||||
margin-left: 2px;
|
||||
overflow: auto;
|
||||
list-style-type: none;
|
||||
}
|
||||
|
||||
.AutoExtenderList {
|
||||
cursor: pointer;
|
||||
color: darkgray;
|
||||
text-align: left;
|
||||
}
|
||||
|
||||
.AutoExtenderHighlight {
|
||||
color: White;
|
||||
background-color: #084784;
|
||||
cursor: pointer;
|
||||
}
|
||||
|
||||
#divwidth {
|
||||
width: 150px !important;
|
||||
}
|
||||
|
||||
#divwidth div {
|
||||
width: 150px !important;
|
||||
}
|
||||
</style>
|
||||
</asp:Content>
|
||||
560
PyME/Contabilidad/RegPrePoliza.aspx.vb
Normal file
560
PyME/Contabilidad/RegPrePoliza.aspx.vb
Normal file
@@ -0,0 +1,560 @@
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
Imports System.Linq
|
||||
Imports System.Web.Services
|
||||
|
||||
Partial Class Contabilidad_RegPrePoliza
|
||||
Inherits ClsPaginas
|
||||
|
||||
|
||||
#Region "Propiedades"
|
||||
|
||||
|
||||
Public Property ArregloMovs As ArrayList
|
||||
Get
|
||||
Return CType(ViewState("ArregloMovs"), ArrayList)
|
||||
End Get
|
||||
Set(value As ArrayList)
|
||||
ViewState("ArregloMovs") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property DtMovimientos As DataTable
|
||||
Get
|
||||
Return CType(ViewState("DtMovimientos"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DtMovimientos") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property DtCuentasContables As DataTable
|
||||
Get
|
||||
Return CType(ViewState("DtCuentasContables"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DtCuentasContables") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property TipoPlantilla As Integer
|
||||
Get
|
||||
Return CType(ViewState("TipoPlantilla"), Integer)
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("TipoPlantilla") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property CveMoneda As Integer
|
||||
Get
|
||||
Return CType(ViewState("CveMoneda"), Integer)
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveMoneda") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private ReadOnly Property CvePrePoliza As Integer
|
||||
Get
|
||||
Return ViewState("CvePrePoliza").ToString.ToEntero
|
||||
End Get
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
If Not Page.IsPostBack Then
|
||||
CveMoneda = 1
|
||||
ViewState("CvePrePoliza") = 0
|
||||
|
||||
Dim dt As DataTable = Nothing
|
||||
Dim Conta As New ClsContabilidad
|
||||
|
||||
If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
dt = Conta.DtResultados
|
||||
DtCuentasContables = Conta.DtResultados
|
||||
Session("DtCuentas") = Conta.DtResultados
|
||||
End If
|
||||
Conta.Dispose()
|
||||
|
||||
If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero > 0 Then
|
||||
ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero
|
||||
CargaPrePoliza()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
TipoPlantilla = 0
|
||||
If IfNull(Request("Tipo"), "").ToString = "Ing" Then
|
||||
TipoPlantilla = 1
|
||||
LblEncabezado.Text = "Otros Ingresos"
|
||||
Else
|
||||
|
||||
|
||||
End If
|
||||
|
||||
CargaPlantillas(TipoPlantilla)
|
||||
|
||||
If UsuarioActual.CveEmpresa = 66 Then trNotificar.Visible = True
|
||||
|
||||
CargaConceptos()
|
||||
CargaSubProyectos()
|
||||
CargaCuentasContables()
|
||||
|
||||
'crea tabla temporal
|
||||
ArregloMovs = New ArrayList
|
||||
DtMovimientos = New DataTable("Movimientos")
|
||||
Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True
|
||||
With DtMovimientos.Columns
|
||||
.Add("IdCuenta", Type.GetType("System.Int32"))
|
||||
.Add("CodigoCuenta", Type.GetType("System.String"))
|
||||
.Add("Cuenta", Type.GetType("System.String"))
|
||||
.Add("Referencia", Type.GetType("System.String"))
|
||||
.Add("Concepto", Type.GetType("System.String"))
|
||||
.Add("Cargo", Type.GetType("System.Double"))
|
||||
.Add("Abono", Type.GetType("System.Double"))
|
||||
.Add("TipoMovto", Type.GetType("System.Int32"))
|
||||
.Add("EsComodin", Type.GetType("System.Int32"))
|
||||
.Add("CveConcepto", Type.GetType("System.Int32"))
|
||||
.Add("CveSubProyecto", Type.GetType("System.Int32"))
|
||||
.Add("Descripcion", Type.GetType("System.String"))
|
||||
.Add("CveProveedor", Type.GetType("System.Int32"))
|
||||
.Add("CvePersonal", Type.GetType("System.Int32"))
|
||||
End With
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaPrePoliza()
|
||||
|
||||
LblEncabezado.Text = "Edicion de Póliza"
|
||||
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
|
||||
|
||||
GvPrePoliza.DataSource = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
GvPrePoliza.DataBind()
|
||||
|
||||
DivConceptoPrePoliza.Visible = False
|
||||
UPMovs.Visible = False
|
||||
UPMovs.Update()
|
||||
UPPDocumento.Update()
|
||||
UpPrePoliza.Update()
|
||||
|
||||
RegistraScript("comparar();")
|
||||
|
||||
If Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").ToEntero = 1 AndAlso UsuarioActual.CveUsuario <> 100 Then
|
||||
For Each row As GridViewRow In GvPrePoliza.Rows
|
||||
row.FCTextBox("TxtCargo").Enabled = False
|
||||
row.FCTextBox("TxtAbono").Enabled = False
|
||||
Next
|
||||
End If
|
||||
|
||||
ObjContabilidad.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub GvPrePoliza_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPrePoliza.RowDataBound
|
||||
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
'Asignamos los Subproyectos
|
||||
e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlSubProyecto").DataBind()
|
||||
e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1"))
|
||||
e.Row.FCDropDownList("DdlSubProyecto").SelectedValueExist(e.Row.DataKey("CveSubProyecto"))
|
||||
|
||||
'ASignamos las CuentasContables
|
||||
e.Row.FCDropDownList("DdlCtaContable").DataSource = Session("DtCuentas")
|
||||
e.Row.FCDropDownList("DdlCtaContable").DataBind()
|
||||
e.Row.FCDropDownList("DdlCtaContable").Items.Insert(0, New ListItem("Sin Asignar", "0"))
|
||||
e.Row.FCDropDownList("DdlCtaContable").SelectedValueExist(e.Row.DataKey("IdCtaContable"))
|
||||
|
||||
TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + e.Row.FCTextBox("TxtCargo").Text.ToDouble)
|
||||
TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + e.Row.FCTextBox("TxtAbono").Text.ToDouble)
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaPlantillas(TipoPlantilla As Integer)
|
||||
|
||||
'GvPlantillas.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
|
||||
'GvPlantillas.DataBind()
|
||||
|
||||
DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
|
||||
DdlPlantilla.DataBind()
|
||||
DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaConceptos()
|
||||
DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1)
|
||||
DdlConceptosContables.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaSubProyectos()
|
||||
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
DdlSubProyecto.DataBind()
|
||||
DdlSubProyecto.Items.Insert(0, New ListItem(" - ", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCuentasContables()
|
||||
DdlCtaContable.DataSource = Session("DtCuentas")
|
||||
DdlCtaContable.DataBind()
|
||||
DdlCtaContable.Items.Insert(0, New ListItem("Sin Asignar", "0"))
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlPlantilla_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPlantilla.SelectedIndexChanged
|
||||
|
||||
TxtTotalAbonos.Text = ""
|
||||
TxtTotalCargos.Text = ""
|
||||
|
||||
If DdlPlantilla.SelectedValue.ToEntero <= 0 Then
|
||||
Alert("Seleccione un Movimiento Válido", TipoMensaje.MsgAdvertencia)
|
||||
DdlPlantilla.SelectedValue = "-1"
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If DdlPlantilla.SelectedValue.ToEntero = 53 Then 'Plantilla Personalizada
|
||||
DivAgregarConceptos.Visible = True
|
||||
Else
|
||||
DivAgregarConceptos.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero
|
||||
|
||||
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")
|
||||
Dim Cuenta As String = ""
|
||||
Dim IdCuenta As Integer = 0
|
||||
Dim CodigoCuenta As String = ""
|
||||
Dim NombreCuenta As String = ""
|
||||
Dim EsComodin As Integer = 0
|
||||
DtMovimientos.Clear()
|
||||
|
||||
For Each drt As DataRow In Dt.Rows
|
||||
|
||||
Cuenta = drt("ConceptoContable").ToString
|
||||
IdCuenta = 0
|
||||
CodigoCuenta = ""
|
||||
NombreCuenta = ""
|
||||
If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
|
||||
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))
|
||||
If drr IsNot Nothing Then
|
||||
IdCuenta = drt("IdCtaContable").ToString.ToEntero
|
||||
CodigoCuenta = drr("CuentaFormato").ToString()
|
||||
NombreCuenta = drr("Nombre").ToString()
|
||||
'Cuenta = drr("Nombre").ToString()
|
||||
End If
|
||||
EsComodin = 0
|
||||
End If
|
||||
|
||||
Dim dr As DataRow = DtMovimientos.NewRow
|
||||
dr("IdCuenta") = IdCuenta
|
||||
dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
|
||||
dr("Cuenta") = Cuenta 'TxtCuentaContable.Text
|
||||
dr("Referencia") = If(drt("CveConcepto").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial"))
|
||||
dr("Concepto") = TxtObservaciones.Text
|
||||
dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1)
|
||||
dr("EsComodin") = EsComodin
|
||||
dr("CveConcepto") = drt("CveConcepto")
|
||||
dr("CveSubProyecto") = drt("CveSubProyectoNegativo")
|
||||
dr("Cargo") = TxtCargo.Text.ToDouble
|
||||
dr("Abono") = TxtAbono.Text.ToDouble
|
||||
dr("CveProveedor") = drt("CveProveedor")
|
||||
dr("CvePersonal") = drt("CvePersonal")
|
||||
DtMovimientos.Rows.Add(dr)
|
||||
Next
|
||||
|
||||
|
||||
GvMov.DataSource = DtMovimientos
|
||||
GvMov.DataBind()
|
||||
UPMovs.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvMov_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMov.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
e.Row.Height = Unit.Pixel(1)
|
||||
e.Row.Cells(0).ToolTip = e.Row.DBCampo("IdCuenta")
|
||||
If e.Row.DBCampo("TipoMovto") = "1" Then
|
||||
e.Row.FCTextBox("TxtAbono").Visible = True
|
||||
Else
|
||||
e.Row.FCTextBox("TxtCargo").Visible = True
|
||||
End If
|
||||
|
||||
e.Row.FCTextBox("TxtAbono").Text = If(e.Row.DBCampo("Abono") = 0, "", e.Row.DBCampo("Abono"))
|
||||
e.Row.FCTextBox("TxtCargo").Text = If(e.Row.DBCampo("Cargo") = 0, "", e.Row.DBCampo("Cargo"))
|
||||
e.Row.FCTextBox("TxtConcepto").Text = e.Row.DBCampo("Descripcion")
|
||||
|
||||
e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlSubProyecto").DataBind()
|
||||
e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1"))
|
||||
e.Row.FCDropDownList("DdlSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto")
|
||||
|
||||
If DdlPlantilla.SelectedValue.ToEntero = 53 Then
|
||||
e.Row.FCDropDownList("DdlSubProyecto").Enabled = True
|
||||
Else
|
||||
e.Row.FCDropDownList("DdlSubProyecto").Enabled = False
|
||||
End If
|
||||
|
||||
'Agregamos la opcion para vincular los movimientos bancarios
|
||||
If e.Row.DataKey("CveConcepto").ToEntero.Contiene(41) Then
|
||||
Dim ObjMovimientos As New ClsMovimientos
|
||||
Dim DdlSaldos As DropDownList = e.Row.FCDropDownList("DdlSaldos")
|
||||
|
||||
Select Case e.Row.DataKey("CveConcepto").ToEntero
|
||||
|
||||
'Acreedores
|
||||
Case 41
|
||||
If (ObjMovimientos.GetAcreedoresSaldosDetalles(-1,-1, UsuarioActual.CveEmpresa)) Then
|
||||
DdlSaldos.Visible = True
|
||||
DdlSaldos.DataSource = ObjMovimientos.DtResultados.FiltraParametros($"CveIE > 0 AND CveProveedor = {e.Row.DataKey("CveProveedor").ToEntero}")
|
||||
DdlSaldos.DataBind()
|
||||
DdlSaldos.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End If
|
||||
|
||||
End Select
|
||||
|
||||
ObjMovimientos.Dispose()
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
|
||||
|
||||
Dim TotalCargos, TotalAbonos As Decimal
|
||||
|
||||
If CvePrePoliza > 0 Then
|
||||
TotalCargos = TxtTotalCargos.Text.ToDouble
|
||||
TotalAbonos = TxtTotalAbonos.Text.ToDouble
|
||||
Else
|
||||
For Each Gvr As GridViewRow In GvMov.Rows
|
||||
TotalCargos += Gvr.FCTextBox("TxtCargo").Text.ToDecimal
|
||||
TotalAbonos += Gvr.FCTextBox("TxtAbono").Text.ToDecimal
|
||||
Next
|
||||
End If
|
||||
|
||||
If TotalCargos = TotalAbonos AndAlso TotalCargos <> 0 Then
|
||||
|
||||
If CvePrePoliza > 0 Then
|
||||
|
||||
'Nuevo Modulo Charlie
|
||||
ActualizarPrePoliza()
|
||||
|
||||
Else
|
||||
Dim MensajeAlert = New StringBuilder
|
||||
Dim ObjIE As New ClsBancos()
|
||||
Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
|
||||
'Dim Conta As ClsContPAQi = Nothing
|
||||
Dim IDPoliza As Integer = 0
|
||||
Dim MsgError As String = ""
|
||||
|
||||
|
||||
If MsgError = "" Then
|
||||
|
||||
|
||||
Try
|
||||
Dim CvePrePoliza As Integer
|
||||
Dim ConceptoPoliza As String = TxtObservaciones.Text
|
||||
CvePrePoliza = ObjMov.AddPrePolizas("Contabilidad/RegPrePoliza", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
|
||||
If CvePrePoliza > 0 Then
|
||||
Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
|
||||
Dim idCuentaContabilizacion As Long = 1
|
||||
Dim Importe As Double = 0
|
||||
Dim TipoMovto As Boolean = False
|
||||
Dim IdCtaContable As Integer = 0
|
||||
'inserto las compras que voy a pagar
|
||||
For Each gvr As GridViewRow In GvMov.Rows
|
||||
|
||||
If gvr.DataKey("IDCuenta").ToEntero > 0 Then
|
||||
IdCtaContable = gvr.DataKey("IDCuenta")
|
||||
End If
|
||||
|
||||
If gvr.DataKey("TipoMovto").ToDouble > 0 Then
|
||||
Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
|
||||
TipoMovto = True
|
||||
Else
|
||||
Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble
|
||||
TipoMovto = False
|
||||
End If
|
||||
|
||||
|
||||
If MsgError = "" Then
|
||||
|
||||
If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then
|
||||
idCuentaContabilizacion = 0
|
||||
End If
|
||||
If Importe > 0 Then
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text, TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe) Then
|
||||
|
||||
Else
|
||||
MsgError = "No se pudo insertar el detalle de la póliza2"
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
'El movimiento 2 es el de Pago
|
||||
If ChkAutoConta.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
|
||||
If idCuentaContabilizacion > 0 Then
|
||||
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
|
||||
|
||||
'MENSAJE PRINCIPAL
|
||||
MensajeAlert.AppendFormat("<br/><br/>Folio de Salida: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
|
||||
Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
|
||||
End If
|
||||
Else
|
||||
Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas")
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgError = "Error"
|
||||
End Try
|
||||
|
||||
If MsgError = "" Then
|
||||
ObjIE.Commit()
|
||||
|
||||
|
||||
Alert("El movimiento se guardó correctamente.")
|
||||
|
||||
'If Conta IsNot Nothing Then Conta.Commit()
|
||||
|
||||
UPPDocumento.Update()
|
||||
|
||||
|
||||
TxtObservaciones.Text = ""
|
||||
GvMov.DataBind()
|
||||
TxtFecha.Text = ""
|
||||
TxtObservaciones.Text = ""
|
||||
|
||||
RegistraScript("window.location.reload()")
|
||||
Else
|
||||
ObjIE.RollBack()
|
||||
'If Conta IsNot Nothing Then Conta.RollBack()
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
'If Conta IsNot Nothing Then Conta.RollBack()
|
||||
End If
|
||||
|
||||
ObjIE.Dispose()
|
||||
ObjMov.Dispose()
|
||||
'If Conta IsNot Nothing Then Conta.Dispose()
|
||||
End If
|
||||
Else
|
||||
Alert("La suma de los movimientos no son iguales", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ActualizarPrePoliza()
|
||||
|
||||
Dim OcurrioError As Boolean = False
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
ObjContabilidad.IniciaTransacSQL()
|
||||
|
||||
For Each row As GridViewRow In GvPrePoliza.Rows
|
||||
If Not ObjContabilidad.UpdatePrepolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCTextBox("TxtConcepto").Text, row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero,
|
||||
row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero, If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0,
|
||||
row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal)) Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
Next
|
||||
|
||||
If Not OcurrioError Then
|
||||
ObjContabilidad.Commit()
|
||||
Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
ObjContabilidad.RollBack()
|
||||
Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ObjContabilidad.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvMov_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvMov.RowDeleting
|
||||
|
||||
Dim idMov As Integer = GvMov.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
||||
|
||||
Dim Rows As DataRow() = DtMovimientos.Select("IDMov = " & idMov)
|
||||
If Rows.Count > 0 Then
|
||||
DtMovimientos.Rows.Remove(Rows(0))
|
||||
DtMovimientos.AcceptChanges()
|
||||
End If
|
||||
GvMov.DataSource = DtMovimientos
|
||||
GvMov.DataBind()
|
||||
|
||||
TxtTotalAbonos.Text = DtMovimientos.SUM("Abono").FormatoNumero
|
||||
TxtTotalCargos.Text = DtMovimientos.SUM("Cargo").FormatoNumero
|
||||
|
||||
'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
|
||||
|
||||
Dim dr As DataRow = DtMovimientos.NewRow
|
||||
Dim CodigoCuenta As String = ""
|
||||
Dim NombreCuenta As String = ""
|
||||
|
||||
dr("IdCuenta") = DdlCtaContable.SelectedValue
|
||||
|
||||
If DdlCtaContable.SelectedValue.ToEntero > 0 Then
|
||||
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContable.SelectedValue))
|
||||
If drr IsNot Nothing Then
|
||||
CodigoCuenta = drr("CuentaFormato").ToString()
|
||||
NombreCuenta = drr("Nombre").ToString()
|
||||
End If
|
||||
End If
|
||||
|
||||
dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
|
||||
dr("Cuenta") = DdlConceptosContables.SelectedItem
|
||||
dr("Referencia") = TxtReferencia.Text
|
||||
dr("Concepto") = TxtObservaciones.Text
|
||||
dr("TipoMovto") = If(TxtCargo.Text.ToDouble > 0, 0, 1)
|
||||
dr("EsComodin") = 0
|
||||
dr("CveConcepto") = DdlConceptosContables.SelectedValue
|
||||
dr("Cargo") = TxtCargo.Text.ToDouble
|
||||
dr("Abono") = TxtAbono.Text.ToDouble
|
||||
dr("Descripcion") = TxtDescripcion.Text
|
||||
dr("CveSubProyecto") = DdlSubProyecto.SelectedValue
|
||||
|
||||
TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero
|
||||
TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero
|
||||
|
||||
DtMovimientos.Rows.Add(dr)
|
||||
GvMov.DataSource = DtMovimientos
|
||||
GvMov.DataBind()
|
||||
UPMovs.Update()
|
||||
|
||||
TxtCargo.Text = ""
|
||||
TxtAbono.Text = ""
|
||||
TxtReferencia.Text = ""
|
||||
TxtDescripcion.Text = ""
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
115
PyME/Contabilidad/TiposPoliza.aspx
Normal file
115
PyME/Contabilidad/TiposPoliza.aspx
Normal file
@@ -0,0 +1,115 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="TiposPoliza.aspx.vb" Inherits="Contabilidad_TiposPoliza" %>
|
||||
|
||||
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||
Catálogo de Tipos de Póliza
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<table class="table table-striped ">
|
||||
<thead>
|
||||
<tr class="Titulos">
|
||||
<th width="256px">
|
||||
<asp:LinkButton ID="LbTipoPoliza" runat="server" CausesValidation="false" Text="" CommandArgument="TipoPoliza" OnClick="LbOrden_Click">
|
||||
Tipo de Póliza
|
||||
<asp:Literal ID="ImgTipoPoliza" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
|
||||
</asp:LinkButton></th>
|
||||
<th width="100px">
|
||||
<asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="false" Text="" CommandArgument="Estatus" OnClick="LbOrden_Click">
|
||||
Estatus
|
||||
<asp:Literal ID="ImgEstatus" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
|
||||
</asp:LinkButton></th>
|
||||
<th width="100px">
|
||||
<asp:LinkButton ID="LbFechaIng" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng" OnClick="LbOrden_Click">
|
||||
Fecha Ing
|
||||
<asp:Literal ID="ImgFechaIng" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
|
||||
</asp:LinkButton></th>
|
||||
<th width="100px">
|
||||
<asp:LinkButton ID="LbUsuario" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario" OnClick="LbOrden_Click">
|
||||
Usuario
|
||||
<asp:Literal ID="ImgUsuario" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
|
||||
</asp:LinkButton></th>
|
||||
<th width="161px">Comandos</th>
|
||||
</tr>
|
||||
</thead>
|
||||
<tr>
|
||||
<td style="text-align: center;">
|
||||
<asp:TextBox ID="TxtTipoPoliza" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="234px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVTipoPoliza" runat="server" ControlToValidate="TxtTipoPoliza" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Póliza''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCTipoPoliza" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoPoliza" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
<td> </td>
|
||||
<td> </td>
|
||||
<td> </td>
|
||||
<td style="text-align: center;">
|
||||
<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton></td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveTipoPoliza, CveEmpresa" EmptyDataText="No se encontraron Estatus de Ingresos y Egresos Registrados" ToolTip="Listado de Estatus de Ingresos y Egresos" CssClass="table table-striped table-advance table-hover" Style=" text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTipoPoliza" runat="server" Text='<%# Eval("TipoPoliza", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:TextBox ID="TxtTipoPoliza" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("TipoPoliza") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVTipoPoliza" runat="server" ControlToValidate="TxtTipoPoliza" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Póliza''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCTipoPoliza" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoPoliza" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Editar">
|
||||
<EditItemTemplate>
|
||||
<center>
|
||||
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
|
||||
<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
|
||||
</center>
|
||||
</EditItemTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Eliminar">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
175
PyME/Contabilidad/TiposPoliza.aspx.vb
Normal file
175
PyME/Contabilidad/TiposPoliza.aspx.vb
Normal file
@@ -0,0 +1,175 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Linq
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class Contabilidad_TiposPoliza
|
||||
Inherits ClsPaginas
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
ViewState("Orden") = ""
|
||||
CargaDatos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub CargaDatos()
|
||||
Dim ObjTipoPoliza As New ClsContabilidad
|
||||
If ObjTipoPoliza.GetConta_TiposPoliza(UsuarioActual.CveEmpresa) Then
|
||||
ViewState("DTTipoPoliza") = ObjTipoPoliza.DtResultados
|
||||
'GlobalDTTipoPoliza = ObjTipoPoliza.DtResultados
|
||||
Else
|
||||
Me.GvDatos.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjTipoPoliza.Dispose()
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
|
||||
Dim ObjTipoPoliza As New ClsContabilidad
|
||||
If ObjTipoPoliza.AddConta_TiposPoliza(TxtTipoPoliza.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
TxtTipoPoliza.Text = ""
|
||||
Alert("El Tipo de Póliza se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
UpTitulos.Update()
|
||||
ViewState("DTTipoPoliza") = ObjTipoPoliza.DtResultados
|
||||
'GlobalDTTipoPoliza = ObjTipoPoliza.DtResultados
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
End If
|
||||
ObjTipoPoliza.Dispose()
|
||||
End Sub
|
||||
|
||||
#Region "G V D A T O S"
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.Cells(0).Width = Unit.Pixel(256)
|
||||
e.Row.Cells(1).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(2).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(3).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(4).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(5).Width = Unit.Pixel(61)
|
||||
End If
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
||||
Dim ObjTipoPoliza As New ClsContabilidad
|
||||
Dim CveTipoPoliza As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
||||
Dim CveEmpresa As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveEmpresa").ToEntero
|
||||
|
||||
If CveEmpresa = UsuarioActual.CveEmpresa Then
|
||||
If ObjTipoPoliza.RemoveConta_TipoPoliza(CveTipoPoliza) Then
|
||||
TxtTipoPoliza.Text = ""
|
||||
GvDatos.EditIndex = -1
|
||||
ViewState("DTTipoPoliza") = ObjTipoPoliza.DtResultados
|
||||
'GlobalDTTipoPoliza = ObjTipoPoliza.DtResultados
|
||||
Alert("El Tipo de Póliza se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
Else
|
||||
Alert("Los Tipos de Póliza principales no pueden ser eliminados.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
ObjTipoPoliza.Dispose()
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
|
||||
GvDatos.EditIndex = -1
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
|
||||
|
||||
Dim ObjTipoPoliza As New ClsContabilidad
|
||||
|
||||
Dim TipoPoliza As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtTipoPoliza"), TextBox).Text.Trim
|
||||
Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
|
||||
Dim CveTipoPoliza As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveTipoPoliza").ToEntero
|
||||
|
||||
If ObjTipoPoliza.UpdateConta_TiposPoliza(TipoPoliza, Estatus, CveTipoPoliza) Then
|
||||
GvDatos.EditIndex = -1
|
||||
ViewState("DTTipoPoliza") = ObjTipoPoliza.DtResultados
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
ObjTipoPoliza.Dispose()
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing
|
||||
GvDatos.EditIndex = e.NewEditIndex
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "O R D E N A M I E N T O"
|
||||
Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim Orden As String = ""
|
||||
Dim Campo As String = ""
|
||||
Dim Literal As Literal = Nothing
|
||||
Const OrdenInicial As String = ""
|
||||
Dim Arg(2) As String
|
||||
|
||||
Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
|
||||
Campo = Arg(0)
|
||||
Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
|
||||
|
||||
If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
|
||||
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
|
||||
Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
|
||||
Else
|
||||
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
|
||||
Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
|
||||
End If
|
||||
Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
|
||||
ViewState("Orden") = Orden
|
||||
CargaGrid(Orden)
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGrid(Orden As String)
|
||||
If Orden <> String.Empty Then
|
||||
Dim DV As New DataView(CType(ViewState("DTTipoPoliza"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
||||
GvDatos.DataSource = DV.ToTable()
|
||||
DV.Dispose()
|
||||
Else
|
||||
GvDatos.DataSource = CType(ViewState("DTTipoPoliza"), DataTable)
|
||||
End If
|
||||
GvDatos.DataBind()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
#End Region
|
||||
End Class
|
||||
BIN
PyME/Contabilidad/vssver2.scc
Normal file
BIN
PyME/Contabilidad/vssver2.scc
Normal file
Binary file not shown.
248
PyME/Sistemas/RegistroEmpresa.aspx
Normal file
248
PyME/Sistemas/RegistroEmpresa.aspx
Normal file
@@ -0,0 +1,248 @@
|
||||
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="RegistroEmpresa.aspx.vb" Inherits="Sistemas_RegistroEmpresa" %>
|
||||
|
||||
<%@ Import Namespace="System.Web.Optimization" %>
|
||||
|
||||
<!DOCTYPE html>
|
||||
<html xmlns="http://www.w3.org/1999/xhtml">
|
||||
<head runat="server">
|
||||
<meta charset="utf-8" />
|
||||
<title>SIG | Sistema de Información Gerencial</title>
|
||||
<meta http-equiv="X-UA-Compatible" content="IE=edge" />
|
||||
<meta content="width=device-width, initial-scale=1.0" name="viewport" />
|
||||
<meta http-equiv="Content-type" content="text/html; charset=utf-8" />
|
||||
|
||||
<!-- BEGIN STYLES -->
|
||||
<%: Scripts.Render("~/bundles/modernizr") %>
|
||||
<%: Styles.Render("~/Content/AjaxControlToolkit/Styles/Bundle") %>
|
||||
<link href="https://fonts.googleapis.com/icon?family=Material+Icons" rel="stylesheet" type="text/css" />
|
||||
<link href="https://fonts.googleapis.com/css?family=Open+Sans:400,300,600,700&subset=all" rel="stylesheet" type="text/css" />
|
||||
<%: Styles.Render("~/Metronic/assets/global/css/css") %>
|
||||
|
||||
<!-- BEGIN THEME STYLES -->
|
||||
<link href="/Metronic/assets/admin/layout/css/themes/darkblue.css" rel="stylesheet" type="text/css" id="style_color" />
|
||||
<link href="/Metronic/assets/admin/layout/css/custom.css" rel="stylesheet" type="text/css" />
|
||||
<link href="/Metronic/assets/admin/layout4/css/profile.css" rel="stylesheet" type="text/css" />
|
||||
|
||||
<style>
|
||||
body {
|
||||
background-color: white;
|
||||
}
|
||||
|
||||
.row{
|
||||
margin: 0;
|
||||
}
|
||||
|
||||
</style>
|
||||
|
||||
<link rel="shortcut icon" href="/Imagenes/favicon.ico" />
|
||||
</head>
|
||||
<body>
|
||||
<form id="form1" runat="server">
|
||||
|
||||
<asp:ScriptManager ID="TSM" runat="server" EnableHistory="true" EnableSecureHistoryState="true" ScriptMode="Release" EnableScriptGlobalization="true" AsyncPostBackTimeout="600">
|
||||
<Scripts>
|
||||
<asp:ScriptReference Name="MsAjaxBundle" />
|
||||
<asp:ScriptReference Name="jquery" />
|
||||
<asp:ScriptReference Name="respond" />
|
||||
<asp:ScriptReference Name="WebForms.js" Assembly="System.Web" Path="~/Scripts/WebForms/WebForms.js" />
|
||||
<asp:ScriptReference Name="WebUIValidation.js" Assembly="System.Web" Path="~/Scripts/WebForms/WebUIValidation.js" />
|
||||
<asp:ScriptReference Name="MenuStandards.js" Assembly="System.Web" Path="~/Scripts/WebForms/MenuStandards.js" />
|
||||
<asp:ScriptReference Name="GridView.js" Assembly="System.Web" Path="~/Scripts/WebForms/GridView.js" />
|
||||
<asp:ScriptReference Name="DetailsView.js" Assembly="System.Web" Path="~/Scripts/WebForms/DetailsView.js" />
|
||||
<asp:ScriptReference Name="TreeView.js" Assembly="System.Web" Path="~/Scripts/WebForms/TreeView.js" />
|
||||
<asp:ScriptReference Name="WebParts.js" Assembly="System.Web" Path="~/Scripts/WebForms/WebParts.js" />
|
||||
<asp:ScriptReference Name="Focus.js" Assembly="System.Web" Path="~/Scripts/WebForms/Focus.js" />
|
||||
<asp:ScriptReference Name="WebFormsBundle" />
|
||||
<%--Site Scripts--%>
|
||||
<asp:ScriptReference Path="~/Scripts/AjaxControlToolkit/Bundle" />
|
||||
</Scripts>
|
||||
</asp:ScriptManager>
|
||||
<%: Scripts.Render("~/bundles/scripts") %>
|
||||
<%: Scripts.Render("~/Metronic/assets/global/scripts/JS") %>
|
||||
|
||||
|
||||
<div class="page-container" runat="server" id="divpagecontainer">
|
||||
<div class="page-content">
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<h1 runat="server" id="h1" style="text-align: center">Registra tu empresa</h1>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<br />
|
||||
<br />
|
||||
|
||||
<div class="profile-content">
|
||||
<div class="row" id="DivRegistro" runat="server">
|
||||
|
||||
<div class="col-md-6">
|
||||
<div class="portlet light portlet-fit portlet-form">
|
||||
<div class="portlet-body">
|
||||
<div class="form-body">
|
||||
<h3 style="text-align: center">Tenga el control de su empresa con una sola herramienta</h3>
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<center>
|
||||
<img id="imagen" style="max-width: 600px !important; max-height:400px !important; margin-left:40px;margin-bottom:40px; margin-right:40px;margin-top:40px;" />
|
||||
</center>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UpRegistro" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="col-md-5" style="margin-left:25px;">
|
||||
<div class="portlet light portlet-fit portlet-form bordered" style="min-height: 300px" id="form_wizard_1">
|
||||
<div class="portlet-body">
|
||||
<div class="form-body">
|
||||
<div class="row">
|
||||
<div class="col-md-10" style="margin-left: 45px; margin-right: 40px;">
|
||||
<div class="form-group">
|
||||
<label>
|
||||
Nombre
|
||||
<label style="color: red">*</label>
|
||||
</label>
|
||||
<div class="input-icon">
|
||||
<i class="fa fa-user" aria-hidden="true"></i>
|
||||
<asp:TextBox CssClass="form-control" CausesValidation="true" placeholder="EMPRESA" Style="text-transform: uppercase" ID="txtNombre" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVNombre" runat="server" ControlToValidate="txtNombre" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombre" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<span class="help-block" style="color: #45b6af;">Nombre o Razón Social de la empresa</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-10" style="margin-left: 45px; margin-right: 40px;">
|
||||
<div class="form-group">
|
||||
<label>
|
||||
RFC
|
||||
<label style="color: red">*</label>
|
||||
</label>
|
||||
<asp:TextBox CssClass="form-control" vplaceholder="RFC" MaxLength="13" ID="TxtRFC" runat="server" Style="text-transform: uppercase"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ID="REVRFC" runat="server" Display="Dynamic" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardar" ControlToValidate="TxtRFC" ValidationExpression="^[a-zA-Z.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEREVRFC" runat="server" HighlightCssClass="vco" TargetControlID="REVRFC" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVRFC" runat="server" ControlToValidate="TxtRFC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RFVRFC" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<span class="help-block" style="color: #45b6af;">RFC de la empresa</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-10" style="margin-left: 45px; margin-right: 40px;">
|
||||
<div class="form-group" id="FirstEmail">
|
||||
<label>
|
||||
Correo Electrónico
|
||||
<label style="color: red">*</label>
|
||||
</label>
|
||||
<div class="input-icon">
|
||||
<i class="fa fa-envelope" aria-hidden="true"></i>
|
||||
<asp:TextBox CssClass="form-control" CausesValidation="true" Style="text-transform: lowercase" ID="TxtEmail" placeholder="E-Mail" runat="server"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ID="REVContactoEmail" OnDataBinding="REVContactoEmail_Load" runat="server" Display="None" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtEmail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Contacto - Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
|
||||
<asp:RequiredFieldValidator ID="RFVMail" runat="server" ControlToValidate="TxtEmail" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOIVA1" runat="server" HighlightCssClass="vco" TargetControlID="RFVMail" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOMail" runat="server" HighlightCssClass="vco" TargetControlID="REVContactoEmail" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<span id="helpMail" class="help-block" style="color: white;">El correo que ingresó es inválido</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-10" style="margin-left: 45px; margin-right: 40px;">
|
||||
<div class="form-group">
|
||||
<label>
|
||||
Confirmar Correo
|
||||
<label style="color: red">*</label>
|
||||
</label>
|
||||
<div class="input-icon">
|
||||
<i class="fa fa-info-circle" aria-hidden="true"></i>
|
||||
<asp:TextBox CssClass="form-control" CausesValidation="true" ID="TxtEmail2" Style="text-transform: lowercase" placeholder="Confirmar E-Mail" runat="server"></asp:TextBox>
|
||||
<asp:CompareValidator ID="cvEmail" runat="server"
|
||||
ControlToValidate="TxtEmail2" ControlToCompare="TxtEmail"
|
||||
Operator="Equal" ValidationGroup="GrpGuardar" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Los correos ingresados son diferentes" Style="display: none">
|
||||
</asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOConfirma" runat="server" HighlightCssClass="vco" TargetControlID="cvEmail" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-10" style="margin-left: 45px; margin-right: 40px;">
|
||||
<div class="form-group">
|
||||
<label>
|
||||
Método de pago
|
||||
<label style="color: red">*</label>
|
||||
</label>
|
||||
<asp:DropDownList CausesValidation="true" CssClass="form-control input-sm select2me" ID="DdlMetodoPago" placeholder="Metodo de pago" runat="server">
|
||||
<asp:ListItem Selected="True" Value="-1" Text="Seleccione"></asp:ListItem>
|
||||
<asp:ListItem Value="1" Text="Efectivo"></asp:ListItem>
|
||||
<asp:ListItem Value="2" Text="Tarjeta"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<asp:RequiredFieldValidator ID="rfv1" runat="server" InitialValue="-1" ControlToValidate="DdlMetodoPago" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Metodo de Pago''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar" />
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="rfv1" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<br />
|
||||
<div class="row">
|
||||
<div class="col-md-10" style="margin-left: 45px; margin-right: 40px;">
|
||||
<div class="form-group" style="align-self: flex-end; text-align: center;">
|
||||
<asp:Button ID="BtnGuardar" OnClick="BtnGuardar_Click" ValidationGroup="GrpGuardar" Text="Registrar Empresa" runat="server" CssClass="btn btn-primary" />
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div runat="server" style="display: none" id="DvFinalizado">
|
||||
<h4>¡Gracias! Se han enviado a su correo una liga en donde se completara el registro de su empresa</h4>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<script type="text/javascript">
|
||||
|
||||
//ARREGLO CON IMAGENES
|
||||
var imagenes = new Array(
|
||||
'http://sig.adsistemas.mx/Imagenes/PresentacionSIG1.png',
|
||||
'http://sig.adsistemas.mx/Imagenes/PresentacionSIG2.png',
|
||||
'http://sig.adsistemas.mx/Imagenes/PresentacionSIG3.png',
|
||||
'http://sig.adsistemas.mx/Imagenes/PresentacionSIG4.png',
|
||||
'http://sig.adsistemas.mx/Imagenes/PresentacionSIG5.png',
|
||||
'http://sig.adsistemas.mx/Imagenes/PresentacionSIG6.png',
|
||||
'http://sig.adsistemas.mx/Imagenes/PresentacionSIG7.png'
|
||||
);
|
||||
|
||||
|
||||
// FUNCION PARA MOSTRAR IMAGENES
|
||||
function rotarImagenes() {
|
||||
//AGARRAMOS IMAGEN ALEATORIAMENTE
|
||||
var index = Math.floor((Math.random() * imagenes.length));
|
||||
//CAMBIAMOS IMAGEN
|
||||
document.getElementById("imagen").src = imagenes[index];
|
||||
}
|
||||
|
||||
onload = function () {
|
||||
rotarImagenes();
|
||||
setInterval(rotarImagenes, 2000);
|
||||
}
|
||||
</script>
|
||||
|
||||
</form>
|
||||
|
||||
</body>
|
||||
</html>
|
||||
180
PyME/Sistemas/RegistroEmpresa.aspx.vb
Normal file
180
PyME/Sistemas/RegistroEmpresa.aspx.vb
Normal file
@@ -0,0 +1,180 @@
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class Sistemas_RegistroEmpresa
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "PROPIEDADES"
|
||||
Private Property Nombre As String
|
||||
Get
|
||||
Nombre = ViewState("Nombre").ToString
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("Nombre") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property RFC As String
|
||||
Get
|
||||
RFC = ViewState("RFC").ToString
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("RFC") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property Email As String
|
||||
Get
|
||||
Email = ViewState("Email").ToString
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("Email") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property MetodoPago As String
|
||||
Get
|
||||
MetodoPago = ViewState("MetodoPago").ToString
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("MetodoPago") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private Property Liga As String
|
||||
Get
|
||||
Liga = ViewState("Liga").ToString
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("Liga") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#Region " GUARDAR "
|
||||
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
|
||||
Nombre = txtNombre.Text.ToUpper()
|
||||
RFC = TxtRFC.Text.ToUpper()
|
||||
Email = TxtEmail.Text
|
||||
MetodoPago = DdlMetodoPago.SelectedValue
|
||||
|
||||
Dim objEmpresa As New ClsSisEmpresas()
|
||||
Try
|
||||
If objEmpresa.AddEmpresa(-1, Nombre, "", "", "", "", "", "", RFC, 0, "", "", Email, "CFDi", "", "", "", "", "", "", "", 100, False, False, False, "", False, "", "", "", 0, False, False, False, False, False, False, False, False, False, False,
|
||||
"", "", "", "", "", "", 0, False, "", "", "", "", "", 0, False, "", "", "", 0, 0, 0, 0, 0, 0, 0, 0, "", "", 0, 0, "", "", -1, 0.0D, "", 2, False, 0.0D, "", "", 0, False, 0, 0, False, 0, 0, False, 0,
|
||||
CveMetodoPago:=MetodoPago.ToEntero, CvePAC:=1) Then
|
||||
Alert("Su solicitud ha sido procesada correctamente, en breve recibira un correo para completar el registro.", TipoMensaje.MsgInformacion)
|
||||
Liga = String.Format("sig.adsistemas.mx/PyME/Sistemas/WizardRegistro.aspx?P={0}", Encripta(String.Format("CveEmpresa={0}", objEmpresa.CveEmpresa)))
|
||||
EnviaCorreo()
|
||||
RegistraScript("$('#C_DivRegistro').css('display', 'none');$('#C_DvFinalizado').css('display', '');")
|
||||
UpRegistro.Update()
|
||||
RecargaGlobal()
|
||||
|
||||
|
||||
Else
|
||||
Alert("OCurrió un error al guardar la empresa", TipoMensaje.MsgError)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al guardar la emrpresa desde registro basico.", ex)
|
||||
Finally
|
||||
objEmpresa.Dispose()
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
Private Sub RecargaGlobal()
|
||||
Dim ObjEmpresa As New ClsSisEmpresas
|
||||
If ObjEmpresa.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
|
||||
GlobalDTEmpresas(-1) = ObjEmpresa.DtResultados
|
||||
End If
|
||||
ObjEmpresa.Dispose()
|
||||
End Sub
|
||||
|
||||
#Region " ENVIAR CORREO "
|
||||
Protected Sub REVContactoEmail_Load(sender As Object, e As EventArgs)
|
||||
RegistraScript("$('#FirstEmail').addClass('has-error');$('#helpMail').css('color', 'red')")
|
||||
End Sub
|
||||
Protected Sub EnviaCorreo()
|
||||
Dim objMail As New ClsSisMail()
|
||||
Dim body = GeneraCorreo(Nombre)
|
||||
objMail.SendMail(ClsPaginas.EmpresaNotificaciones, Email, "Activación de empresa", body, "")
|
||||
End Sub
|
||||
Private Function GeneraCorreo(Nombre As String) As String
|
||||
Dim strBody As New StringBuilder
|
||||
strBody.Append("<!DOCTYPE html>")
|
||||
strBody.Append("<html lang=""en""> ")
|
||||
strBody.Append("<body class=""page-header-fixed page-quick-sidebar-over-content "">")
|
||||
strBody.Append("<style>")
|
||||
strBody.Append(".portlet {margin-top: 0px;margin-bottom: 25px;padding: 0px;-webkit-border-radius: 4px;-moz-border-radius: 4px;-ms-border-radius: 4px;-o-border-radius: 4px;border-radius: 4px;padding: 0px !important;border: 1px solid #d78184;border-top: 0;background-color: #cb5a5e;}")
|
||||
strBody.Append(".portlet > div {font-family: Helvetica, sans-serif;}")
|
||||
strBody.Append(".portlet > .portlet-title {border-bottom: 0px solid #eee;padding: 0 10px;margin-bottom: 0px;min-height: 41px;-webkit-border-radius: 4px 4px 0 0;-moz-border-radius: 4px 4px 0 0;-ms-border-radius: 4px 4px 0 0;-o-border-radius: 4px 4px 0 0;border-radius: 4px 4px 0 0;color: #fff;}")
|
||||
strBody.Append(".portlet > .portlet-title {background-color: #cb5a5e;}")
|
||||
strBody.Append(".portlet > .portlet-title > div {padding: 11px 0 9px 0;}")
|
||||
strBody.Append(".portlet > .portlet-title > div {float: left;display: inline-block;font-size: 24px;line-height: 18px;padding: 10px 0;}")
|
||||
strBody.Append(".portlet > .portlet-body {background-color: #fff;padding: 10px;} ")
|
||||
strBody.Append(".portlet > .portlet-body {clear: both;-webkit-border-radius: 0 0 4px 4px;-moz-border-radius: 0 0 4px 4px;-ms-border-radius: 0 0 4px 4px;-o-border-radius: 0 0 4px 4px;border-radius: 0 0 4px 4px;}")
|
||||
strBody.Append(".mitablita td:nth-child(1){width: 100px; font-weight:700;}")
|
||||
strBody.Append("a{ color: #666;padding: 3px 9px; line-height: 1.5;background-color: #fff;border: 1px solid #ccc; text-decoration: none;}a:hover{background-color: #ededed;}")
|
||||
strBody.Append(".mitablita tr:nth-child(5) td{ text-align: right;}td{min-width:100px; }")
|
||||
strBody.Append("</style>")
|
||||
strBody.Append(" <div style=""Width:100%;"">")
|
||||
strBody.Append("<div style='text-align:center; font-family: Helvetica, sans-serif;'><table><tr><td style='text-align:center'> <h1> <img src='http://sig.adsistemas.mx/Imagenes/LogoSinFondo.png' width='46' height='61'/> AD Sistemas Soluciones en TI</h1> </td></tr></table> </div> ")
|
||||
strBody.Append(" <div class=""portlet box red "" style=""margin-top: 0px;margin-bottom: 25px;padding: 0px;-webkit-border-radius: 4px;-moz-border-radius: 4px;-ms-border-radius: 4px;-o-border-radius: 4px;border-radius: 4px;padding: 0px !important;border: 1px solid #d78184;border-top: 0;background-color: #cb5a5e;"">")
|
||||
strBody.Append(" <div class=""portlet-title"" style="" font-family: Helvetica, sans-serif; background-color: #cb5a5e;border-bottom: 0px solid #eee;padding: 0 10px;margin-bottom: 0px;min-height: 41px;-webkit-border-radius: 4px 4px 0 0;-moz-border-radius: 4px 4px 0 0;-ms-border-radius: 4px 4px 0 0;-o-border-radius: 4px 4px 0 0;border-radius: 4px 4px 0 0;color: #fff;"">")
|
||||
strBody.Append(" <div class=""caption"" style=""padding: 11px 0 9px 0;float: left;display: inline-block;font-size: 24px;line-height: 18px;padding: 10px 0;"">")
|
||||
strBody.Append(" <i class=""fa fa-cart-plus""></i>Completar Registro")
|
||||
strBody.Append(" </div>")
|
||||
strBody.Append(" </div>")
|
||||
strBody.Append(" <div class=""portlet-body "" style=""font-family: Helvetica, sans-serif; clear: both;-webkit-border-radius: 0 0 4px 4px;-moz-border-radius: 0 0 4px 4px;-ms-border-radius: 0 0 4px 4px;-o-border-radius: 0 0 4px 4px;border-radius: 0 0 4px 4px;background-color: #fff;padding: 10px;"" >")
|
||||
strBody.Append(" <table class=""mitablita"" style=""font-family: Helvetica, sans-serif;"">")
|
||||
strBody.Append(" <tr>")
|
||||
strBody.Append(" <td>Fecha: ")
|
||||
strBody.Append(DateTime.Now.ToString("dd/MM/yy"))
|
||||
strBody.Append(" </td> <td>")
|
||||
strBody.Append("</td> </tr>")
|
||||
strBody.Append(" <tr>")
|
||||
strBody.AppendFormat(" <td><b>{0}<br/></b> <br/> </td>", Nombre)
|
||||
strBody.Append(" <td>")
|
||||
strBody.Append("</td> </tr>")
|
||||
strBody.Append(" <tr></tr> ")
|
||||
strBody.Append(" <tr>")
|
||||
strBody.Append(" <td>Para continuar con el proceso de registro y activación, por favor haga click en la siguiente liga: </td>")
|
||||
strBody.Append("<tr><td colspan=""4"" >")
|
||||
strBody.AppendFormat("<a href='{0}'>Continuar </a> <br/> <br/> </td></tr>", Liga)
|
||||
strBody.Append("<tr> <td> Le recomendamos tener la siguiente información a la mano: </td> </tr>")
|
||||
strBody.Append("<tr> <td> ")
|
||||
strBody.Append("<ul>")
|
||||
strBody.Append("<li>Datos Fiscales (Direccion, Contacto, Regimen, Certificados digitales, etc. ) </li> ")
|
||||
strBody.Append("<li> Roles/Puestos, Permisos y Usuarios que usaran el SIG )</li> ")
|
||||
strBody.Append("<li>Correos para envío de notificaciones y Para recepción de facturas (si no cuenta con un correo, se le proporcionará uno)</li> ")
|
||||
strBody.Append("<li>Formatos de factura, plantillas de correo y logo </li> ")
|
||||
strBody.Append("<li>Clasificaciones contables, Productos / Servicios y las unidades de medida de éstos</li> ")
|
||||
strBody.Append("<li>Almacenes que se utilizand, y el método de salida de inventario</li> ")
|
||||
strBody.Append("<li>Proveedores, clientes y proyectos de la empresa</li> ")
|
||||
strBody.Append("</ul>")
|
||||
strBody.Append(" </td> </tr>")
|
||||
strBody.Append(" </table>")
|
||||
strBody.Append(" </div>")
|
||||
strBody.Append(" </div>")
|
||||
strBody.Append(" </div>")
|
||||
strBody.Append(" </div>")
|
||||
strBody.Append("</body>")
|
||||
strBody.Append("</html>")
|
||||
Return strBody.ToString
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
3658
PyME/Sistemas/WizardRegistro.aspx
Normal file
3658
PyME/Sistemas/WizardRegistro.aspx
Normal file
File diff suppressed because it is too large
Load Diff
3463
PyME/Sistemas/WizardRegistro.aspx.vb
Normal file
3463
PyME/Sistemas/WizardRegistro.aspx.vb
Normal file
File diff suppressed because it is too large
Load Diff
BIN
PyME/Sistemas/vssver2.scc
Normal file
BIN
PyME/Sistemas/vssver2.scc
Normal file
Binary file not shown.
Reference in New Issue
Block a user