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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-06-19 20:08:05 -07:00
parent 3070512882 524998c68a
commit c5f443306f
21 changed files with 313 additions and 668 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -464,7 +464,7 @@ Partial Class Bancos_FluctuacionCambiaria
If Not ErrorRegistrar Then If Not ErrorRegistrar Then
Conta.Commit() Conta.Commit()
BtnGeneraCompras.Visible = False BtnGeneraCompras.Visible = False
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Else Else
Conta.RollBack() Conta.RollBack()
Alert("Error al generar la fluctuación", TipoMensaje.MsgError) Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
@@ -547,7 +547,7 @@ Partial Class Bancos_FluctuacionCambiaria
If Not ErrorRegistrar Then If Not ErrorRegistrar Then
Conta.Commit() Conta.Commit()
BtnGeneraComprasAnt.Visible = False BtnGeneraComprasAnt.Visible = False
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Else Else
Conta.RollBack() Conta.RollBack()
Alert("Error al generar la fluctuación", TipoMensaje.MsgError) Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
@@ -648,7 +648,7 @@ Partial Class Bancos_FluctuacionCambiaria
If Not ErrorRegistrar Then If Not ErrorRegistrar Then
Conta.Commit() Conta.Commit()
BtnGeneraVentas.Visible = False BtnGeneraVentas.Visible = False
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Else Else
Conta.RollBack() Conta.RollBack()
@@ -745,7 +745,7 @@ Partial Class Bancos_FluctuacionCambiaria
If Not ErrorRegistrar Then If Not ErrorRegistrar Then
Conta.Commit() Conta.Commit()
BtnClientesAnticipos.Visible = False BtnClientesAnticipos.Visible = False
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Else Else
Conta.RollBack() Conta.RollBack()

8
Compras/Compras.aspx
View File

@@ -4887,10 +4887,9 @@
Saldo: $<asp:Label Text="0.00" ID="LbNCInvSaldoAlmacen" runat="server" /> Saldo: $<asp:Label Text="0.00" ID="LbNCInvSaldoAlmacen" runat="server" />
</div> </div>
</div> </div>
<br />
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="GVNCInvAlmacen" runat="server" EmptyDataText="Aun no hay registros." Width="100%" AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" DataKeyNames="CveCompraDetalle,CveCompra,TipoCambio,PU,IVA,IEPSPS" CssClass="table table-striped table-hover Widthall ScrollAD" data-heighterror="450" data-freezerows="1" GridLines="None"> <asp:GridView ID="GVNCInvAlmacen" runat="server" EmptyDataText="Aun no hay registros." Width="650px" AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" DataKeyNames="CveCompraDetalle,CveCompra,TipoCambio,PU,IVA,IEPSPS,CveOrdenCompraDetalle" CssClass="table table-striped table-hover Widthall ScrollAD" data-heighterror="450" data-freezerows="1" GridLines="None">
<Columns> <Columns>
<asp:TemplateField HeaderText="Cantidad"> <asp:TemplateField HeaderText="Cantidad">
<ItemTemplate> <ItemTemplate>
@@ -4915,6 +4914,11 @@
<asp:Label ID="LbTotal" Text='<%# (CDbl(Eval("PU").ToString) * CDbl(Eval("CantidadF").ToString)).ToString("N2") %>' runat="server"></asp:Label> <asp:Label ID="LbTotal" Text='<%# (CDbl(Eval("PU").ToString) * CDbl(Eval("CantidadF").ToString)).ToString("N2") %>' runat="server"></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="OC" ItemStyle-Width="2%">
<ItemTemplate>
<asp:Label ID="LblOC" Text='<%# Eval("FolioOC") %>' runat="server"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>

51
Compras/Compras.aspx.vb
View File

@@ -3048,8 +3048,10 @@ Partial Class Compras_Compras
'ELIMINAR A FUERZAS 'ELIMINAR A FUERZAS
If UsuarioActual.TienePermisoProceso(77) Then If UsuarioActual.TienePermisoProceso(77) Then
If Not (IdPoliza > 0) Then BtnEliminarCompra.Visible = True
BtnEliminarCompra.Visible = True If CompraSaldo <> TxtTotal.Text.ToDouble AndAlso dr("TipoDocto").ToString = "Fac" Then
BtnEliminarCompra.Enabled = False
BtnEliminarCompra.ToolTip = "La compra tiene pagos asociados, elimine los pagos primero."
End If End If
End If End If
@@ -3061,7 +3063,7 @@ Partial Class Compras_Compras
If UsuarioActual.Empresa.UsaAC Then If UsuarioActual.Empresa.UsaAC Then
BtnEliminarCompra.Attributes.Add("data-original-title", String.Format("¿Está seguro que desea eliminar la Compra, {0} y la <b>Poliza Asociada</b>?", StrInventario)) BtnEliminarCompra.Attributes.Add("data-original-title", String.Format("¿Está seguro que desea eliminar la Compra, {0} y la <b>Poliza Asociada</b>?", StrInventario))
Else ElseIf BtnEliminarCompra.Enabled Then
BtnEliminarCompra.Attributes.Add("data-original-title", String.Format("¿Está seguro que desea eliminar la Compra y {0}?", StrInventario)) BtnEliminarCompra.Attributes.Add("data-original-title", String.Format("¿Está seguro que desea eliminar la Compra y {0}?", StrInventario))
End If End If
End If End If
@@ -6600,7 +6602,7 @@ Partial Class Compras_Compras
'no es necesario, ya se está interpretandoe l usado como producto 'no es necesario, ya se está interpretandoe l usado como producto
Dim ConceptoContabilizacionNC = 225 Dim ConceptoContabilizacionNC = 225
Dim tCveClasif As Integer = -1 Dim tCveClasif As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero
Dim tCveSubProyecto As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero Dim tCveSubProyecto As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero
Dim CveMovimientoDevolucion As Integer = -1 Dim CveMovimientoDevolucion As Integer = -1
@@ -6612,11 +6614,14 @@ Partial Class Compras_Compras
'cuando es garantía. 'cuando es garantía.
If DdlTipoCompra.SelectedValue = "12" Then If DdlTipoCompra.SelectedValue = "12" Then
ConceptoContabilizacionNC = 259 ConceptoContabilizacionNC = 259
tCveClasif = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero
End If End If
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
ErrorMovInv = True
End If
If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then
RegistroCuentaPuente = True RegistroCuentaPuente = True
Dim ImporteTransito As Decimal = 0 Dim ImporteTransito As Decimal = 0
@@ -16205,7 +16210,7 @@ Partial Class Compras_Compras
'HACEMOS CALCULOS 'HACEMOS CALCULOS
SubTotalIVA = TmpDT.SUM("IVA") SubTotalIVA = TmpDT.SUM("IVA")
SubTotalIEPSIVA = TmpDT.SUM("IEPSPSIVA") SubTotalIEPSIVA = TmpDT.SUM("IEPSPSIVA")
SubTotal = (TmpDT.SUM("Total") + TmpDT.SUM("Descuento")).RoundSQL(6) SubTotal = (TmpDT.SUM("Total") + TmpDT.SUM("Descuento")).RoundSQL(8)
RetIVA = TmpDT.SUM("RetIVA") RetIVA = TmpDT.SUM("RetIVA")
RetISR = TmpDT.SUM("RetISR") RetISR = TmpDT.SUM("RetISR")
IEPSPS = TmpDT.SUM("IEPSPS") IEPSPS = TmpDT.SUM("IEPSPS")
@@ -16674,7 +16679,7 @@ Partial Class Compras_Compras
ViewState("RetIVA") = GvRow.DataKey("RetIVAPorcentaje").ToDouble ViewState("RetIVA") = GvRow.DataKey("RetIVAPorcentaje").ToDouble
ViewState("RetISR") = GvRow.DataKey("RetISRPorcentaje").ToDouble ViewState("RetISR") = GvRow.DataKey("RetISRPorcentaje").ToDouble
TxtPrecio.Text = GvRow.DataKey("PU").ToDecimal.ToString("#,##0.00####") TxtPrecio.Text = GvRow.DataKey("PU").ToDecimal.ToString("#,##0.00########")
TxtDescuentoModal.Text = GvRow.DataKey("Descuento").ToDecimal.ToString("#,##0.00####") TxtDescuentoModal.Text = GvRow.DataKey("Descuento").ToDecimal.ToString("#,##0.00####")
LblTotalPS.Text = GvRow.DataKey("Total").FormatoNumero LblTotalPS.Text = GvRow.DataKey("Total").FormatoNumero
@@ -18271,7 +18276,7 @@ Partial Class Compras_Compras
End If End If
Else Else
If ChkNCInvNC.Checked Then If ChkNCInvNC.Checked Then
Alert("Niguna de las facturas seleccionadas cuenta con productos pendientes de darles entrada.", TipoMensaje.MsgAdvertencia) Alert("Ninguna de las facturas seleccionadas cuenta con productos pendientes de darles entrada.", TipoMensaje.MsgAdvertencia)
ChkNCInvNC.Checked = False ChkNCInvNC.Checked = False
UpChkNCInvNC.Update() UpChkNCInvNC.Update()
Exit Sub Exit Sub
@@ -18360,15 +18365,18 @@ Partial Class Compras_Compras
'Dim ObjCompras As New ClsCompras 'Dim ObjCompras As New ClsCompras
'Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL) 'Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL)
'Dim TieneError = False 'Dim TieneError = False
Dim i As Integer = 0
'For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows
' If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
' If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, Gvr.DataKey("CveCompra").ToEntero, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then If i < TmpDT.Rows.Count Then
' TieneError = True TmpDT.Rows(i)("CveOrdenCompraDetalle") = Gvr.DataKey("CveOrdenCompraDetalle")
' Exit For End If
' End If 'If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, Gvr.DataKey("CveCompra").ToEntero, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
' End If ' TieneError = True
'Next ' Exit For
'End If
End If
Next
'If Not TieneError Then 'If Not TieneError Then
' Alert("Se guardo la devolución correctamente", TipoMensaje.MsgInformacion) ' Alert("Se guardo la devolución correctamente", TipoMensaje.MsgInformacion)
@@ -20492,6 +20500,10 @@ Partial Class Compras_Compras
dRow8_5("Descuento") = dRow8_5("Descuento").ToString.ToDecimal * Mul85 dRow8_5("Descuento") = dRow8_5("Descuento").ToString.ToDecimal * Mul85
dRow8_5("Total") = dRow8_5("Total").ToString.ToDecimal * Mul85 dRow8_5("Total") = dRow8_5("Total").ToString.ToDecimal * Mul85
dRow8_5("NoDeducible") = 0 dRow8_5("NoDeducible") = 0
If DdlAsignaSubProyecto.SelectedValue.ToEntero > 0 Then
dRow8_5("CveSubProyecto") = DdlAsignaSubProyecto.SelectedValue.ToEntero
dRow8_5("SubProyecto") = DdlAsignaSubProyecto.SelectedItem.Text
End If
psCvePs = 700563 psCvePs = 700563
rowPS = GlobalDTPS(UsuarioActual.CveEmpresa, psCvePs).Rows(0) rowPS = GlobalDTPS(UsuarioActual.CveEmpresa, psCvePs).Rows(0)
@@ -20518,6 +20530,11 @@ Partial Class Compras_Compras
dRow91_5("Descuento") = dRow91_5("Descuento").ToString.ToDecimal * Mul91_5 dRow91_5("Descuento") = dRow91_5("Descuento").ToString.ToDecimal * Mul91_5
dRow91_5("Total") = dRow91_5("Total").ToString.ToDecimal * Mul91_5 dRow91_5("Total") = dRow91_5("Total").ToString.ToDecimal * Mul91_5
dRow91_5("NoDeducible") = 1 dRow91_5("NoDeducible") = 1
If DdlAsignaSubProyecto.SelectedValue.ToEntero > 0 Then
dRow91_5("CveSubProyecto") = DdlAsignaSubProyecto.SelectedValue.ToEntero
dRow91_5("SubProyecto") = DdlAsignaSubProyecto.SelectedItem.Text
End If
DTProtateo.Rows.Add(dRow8_5) DTProtateo.Rows.Add(dRow8_5)
DTProtateo.Rows.Add(dRow91_5) DTProtateo.Rows.Add(dRow91_5)
Consec = Consec + 2 Consec = Consec + 2

2
Contabilidad/ContabilizacionCompras.aspx
View File

@@ -191,7 +191,7 @@
<td style="width: 70px; text-align: left;"> <td style="width: 70px; text-align: left;">
<asp:LinkButton ID="LnkSimplificar" runat="server" OnClick="LnkSimplificarCompra_Click" ToolTip="Simplificar Póliza"><i class='fa fa-exchange'></i></asp:LinkButton> <asp:LinkButton ID="LnkSimplificar" runat="server" OnClick="LnkSimplificarCompra_Click" ToolTip="Simplificar Póliza"><i class='fa fa-exchange'></i></asp:LinkButton>
</td> </td>
<td style="width: 70px; text-align: left;"> <td style="width: 95px; text-align: left;">
<asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" CssClass="Texto" Text="Ver Poliza" ></asp:HyperLink> <asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" CssClass="Texto" Text="Ver Poliza" ></asp:HyperLink>
</td> </td>
</tr> </tr>

1
Contabilidad/ContabilizacionCompras.aspx.cs
View File

@@ -144,6 +144,7 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas
if (UsuarioActual.Empresa.TipoContabilidad == 1) // conta SIG if (UsuarioActual.Empresa.TipoContabilidad == 1) // conta SIG
{ {
e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("FolioPoliza").ToEntero() > 0; e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("FolioPoliza").ToEntero() > 0;
e.Row.FCHyperLink("HLPoliza").Text = $"Póliza: {e.Row.DBCampo("FolioPoliza")}";
e.Row.FCHyperLink("HLPoliza").NavigateUrl = $"/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}"; e.Row.FCHyperLink("HLPoliza").NavigateUrl = $"/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}";
} }
else else

2
Contabilidad/ContabilizacionVentas.aspx
View File

@@ -158,7 +158,7 @@
<td style="width: 70px; text-align: left;"> <td style="width: 70px; text-align: left;">
<asp:LinkButton ID="LnkSimplificar" runat="server" OnClick="LnkSimplificarCompra_Click" ToolTip="Simplificar Póliza"><i class='fa fa-exchange'></i></asp:LinkButton> <asp:LinkButton ID="LnkSimplificar" runat="server" OnClick="LnkSimplificarCompra_Click" ToolTip="Simplificar Póliza"><i class='fa fa-exchange'></i></asp:LinkButton>
</td> </td>
<td style="width: 70px; text-align: left;"> <td style="width: 95px; text-align: left;">
<asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" Visible="false" CssClass="Texto" Text="Ver Poliza" NavigateUrl='<%# Eval("IdPoliza", "/Contabilidad/RegPoliza.aspx?IdPoliza={0}")%>'></asp:HyperLink> <asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" Visible="false" CssClass="Texto" Text="Ver Poliza" NavigateUrl='<%# Eval("IdPoliza", "/Contabilidad/RegPoliza.aspx?IdPoliza={0}")%>'></asp:HyperLink>
</td> </td>

28
Contabilidad/ContabilizacionVentas.aspx.cs
View File

@@ -129,7 +129,16 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
e.Row.FCHyperLink("HplEdicion").Visible = true; e.Row.FCHyperLink("HplEdicion").Visible = true;
} }
e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("IdPoliza").ToEntero() > 0; if (UsuarioActual.Empresa.TipoContabilidad == 1)
{
e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("FolioPoliza").ToEntero() > 0;
e.Row.FCHyperLink("HLPoliza").Text = $"Póliza: {e.Row.DBCampo("FolioPoliza")}" ;
e.Row.FCHyperLink("HLPoliza").NavigateUrl = $"/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}";
}
else
{
e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("IdPoliza").ToEntero() > 0;
}
contP.Dispose(); contP.Dispose();
GvD.DataBind(); GvD.DataBind();
@@ -409,20 +418,29 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
int index = Convert.ToInt32(row.RowIndex); int index = Convert.ToInt32(row.RowIndex);
int CvePrePoliza = GvV.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero(); int CvePrePoliza = GvV.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero();
ObjMov.IniciaTransacSQL();
bool HuboError = false;
if (ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa)) if (ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa))
{ {
if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5))// por default manda la opcion 5, para ajustar a fluctuacion var usuario = UsuarioActual;
if (ObjMov.ValidacionesPrePoliza(CvePrePoliza, ref usuario, Opcion:5,AutoConta:false))// por default manda la opcion 5, para ajustar a fluctuacion
{ {
Alert("Se ha simplificado la poliza correctamente", ModExtensiones.TipoMensaje.MsgInformacion);
} }
Alert("Se ha simplificado la poliza correctamente", ModExtensiones.TipoMensaje.MsgInformacion); else
{ HuboError = true; }
} }
else else
{ {
HuboError = true;
Alert("Ocurrió un error al simplificar la póliza", ModExtensiones.TipoMensaje.MsgError); Alert("Ocurrió un error al simplificar la póliza", ModExtensiones.TipoMensaje.MsgError);
} }
if (!HuboError)
{ ObjMov.Commit(); }
else
{ ObjMov.RollBack(); }
ObjMov.Dispose(); ObjMov.Dispose();
cargaPolizas(); cargaPolizas();
} }

1
Contabilidad/RegPoliza.aspx
View File

@@ -548,6 +548,7 @@
<tr> <tr>
<td style="width: 100%; text-align: center;"> <td style="width: 100%; text-align: center;">
<asp:HiddenField runat="server" ID="HdnGuardar" ClientIDMode="Static" /> <asp:HiddenField runat="server" ID="HdnGuardar" ClientIDMode="Static" />
<asp:HyperLink ID="HplCvePrep" runat="server" Visible="false" Target="_blank">Prep&nbsp;</asp:HyperLink>
<%--<asp:Button ID="BtnGuardar" runat="server" Text="Guardar" CausesValidation="true" ValidationGroup="GrpGuardar" Width="80px" UseSubmitBehavior="False" class="btn btn-primary"/>--%> <%--<asp:Button ID="BtnGuardar" runat="server" Text="Guardar" CausesValidation="true" ValidationGroup="GrpGuardar" Width="80px" UseSubmitBehavior="False" class="btn btn-primary"/>--%>
<asp:LinkButton ID="BtnGuardar" runat="server" Text="<i class='fa fa-check'></i> Guardar" CausesValidation="true" ValidationGroup="GrpGuardar" UseSubmitBehavior="False" class="btn btn-primary"></asp:LinkButton> <asp:LinkButton ID="BtnGuardar" runat="server" Text="<i class='fa fa-check'></i> Guardar" CausesValidation="true" ValidationGroup="GrpGuardar" UseSubmitBehavior="False" class="btn btn-primary"></asp:LinkButton>

252
Contabilidad/RegPoliza.aspx.vb
View File

@@ -2,6 +2,7 @@
Option Strict On Option Strict On
Imports System.Data Imports System.Data
Imports System.Drawing
Imports Extensiones Imports Extensiones
'Imports System.Activities.Statements 'Imports System.Activities.Statements
'Imports msExcel = Microsoft.Office.Interop.Excel 'Imports msExcel = Microsoft.Office.Interop.Excel
@@ -11,8 +12,7 @@ Imports Extensiones
Partial Class RegPoliza Partial Class RegPoliza
Inherits ClsPaginas Inherits ClsPaginas
Private Shared missing As Object = System.Reflection.Missing.Value
'Dim RemoveMovimientos As New ArrayList()
#Region "P R O P E R T Y" #Region "P R O P E R T Y"
Private Property NumRow As Integer Private Property NumRow As Integer
Private Property IDPoliza As Integer Private Property IDPoliza As Integer
@@ -213,6 +213,8 @@ Partial Class RegPoliza
End If End If
ObjConta.Dispose() ObjConta.Dispose()
Else Else
Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia) Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
BtnConsultar.Enabled = False BtnConsultar.Enabled = False
@@ -624,110 +626,6 @@ Partial Class RegPoliza
End Sub End Sub
'#Region "E X C E L"
' Private Function GetMacro() As String
' Dim SB As New StringBuilder
' SB.Append(" Sub AddRow(Row As String) " & vbLf)
' SB.Append(" Rows(Row & "":"" & Row).Select " & vbLf)
' SB.Append(" Selection.Copy " & vbLf)
' SB.Append(" Selection.Insert Shift:=xlDown " & vbLf)
' SB.Append(" Rows(Row+1 & "":"" & Row+1).Select " & vbLf)
' SB.Append(" Selection.ClearContents " & vbLf)
' SB.Append(" End Sub " & vbLf)
' Return SB.ToString
' End Function
' Private Sub GeneraPDF()
' Dim Msg As New StringBuilder
' Dim Excel As msExcel.Application = New msExcel.Application()
' Dim VB_Module As VBComponent = Nothing
' Excel.Visible = True
' Excel.ScreenUpdating = True
' Excel.DisplayAlerts = True
' Dim ArchivoBase As New System.IO.FileInfo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza.xlsm")
' 'ArchivoBase.CopyTo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & LtlNumeroPoliza.Text.ToString() & ".xlsm", True)
' ArchivoBase.CopyTo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & TxtNumeroPoliza.Text.ToString() & ".xlsm", True)
' 'Dim ArchivoTemp As New System.IO.FileInfo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & LtlNumeroPoliza.Text.ToString() & ".xlsm")
' Dim ArchivoTemp As New System.IO.FileInfo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & TxtNumeroPoliza.Text.ToString() & ".xlsm")
' Dim Libro As msExcel.Workbook = Excel.Workbooks.Open(ArchivoTemp.FullName, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)
' Libro.Activate()
' Dim Hoja As msExcel.Worksheet = CType(Libro.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
' Hoja.Visible = Microsoft.Office.Interop.Excel.XlSheetVisibility.xlSheetVisible
' Hoja.Activate()
' VB_Module = CType(Libro.VBProject.VBComponents.Add(Microsoft.Vbe.Interop.vbext_ComponentType.vbext_ct_StdModule), VBComponent)
' VB_Module.CodeModule.AddFromString(GetMacro)
' 'Encabezado
' Hoja.Range("A1:A1").Value = UsuarioActual.Empresa.Empresa.ToString.Trim
' Hoja.Range("F2:F2").Value = "Impresión de póliza del " + TxtFechaPoliza.Text.Trim.ToDate.ToShortDateString + " al " + TxtFechaPoliza.Text.Trim.ToDate.ToShortDateString
' Hoja.Range("K2:K2").Value = TxtFechaPoliza.Text.Trim.ToDate.ToShortDateString
' 'Linea 1 datos de la poliza
' Dim CeldaI As Integer = 9
' Dim CeldaF As Integer = 9
' Hoja.Range("A" & CeldaF & ":A" & CeldaF).Value = TxtFechaPoliza.Text.Trim.ToDate.ToShortDateString
' Hoja.Range("C" & CeldaF & ":C" & CeldaF).Value = DdlTipoPoliza.SelectedItem.ToString.Trim
' 'Hoja.Range("E" & CeldaF & ":E" & CeldaF).Value = LtlNumeroPoliza.Text.Trim
' Hoja.Range("E" & CeldaF & ":E" & CeldaF).Value = TxtNumeroPoliza.Text.Trim
' Hoja.Range("F" & CeldaF & ":F" & CeldaF).Value = TxtConcepto.Text.Trim
' CeldaF = CeldaF + 1
' 'Movimientos de la poliza Debe de haceptar 36 renglones de excel
' For Each Row As DataRow In TmpDT.Rows
' Libro.Application.Run("AddRow", (CeldaF - 1).ToString, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing,
' missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)
' Hoja.Range("A" & CeldaF & ":A" & CeldaF).Value = Row("NumMovto").ToString.Trim
' Hoja.Range("B" & CeldaF & ":B" & CeldaF).Value = Row("Referencia").ToString.Trim
' Hoja.Range("D" & CeldaF & ":D" & CeldaF).Value = Row("CuentaFormato").ToString.Trim
' Hoja.Range("F" & CeldaF & ":F" & CeldaF).Value = Row("Cuenta").ToString.Trim
' If Row("Cargo").ToString.ToDouble <> 0 Then
' Hoja.Range("J" & CeldaF & ":J" & CeldaF).Value = Row("Cargo").ToString.FormatoNumero
' End If
' If Row("Abono").ToString.ToDouble <> 0 Then
' Hoja.Range("K" & CeldaF & ":K" & CeldaF).Value = Row("Abono").ToString.FormatoNumero
' End If
' CeldaF = CeldaF + 1
' Libro.Application.Run("AddRow", (CeldaF - 1).ToString, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing,
' missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)
' Hoja.Range("F" & CeldaF & ":F" & CeldaF).Value = Row("Concepto").ToString.Trim
' CeldaF = CeldaF + 1
' Next
' Hoja.Range("J" & CeldaF & ":J" & CeldaF).Value = TmpDT.SUM("Cargo").FormatoNumero
' Hoja.Range("K" & CeldaF & ":K" & CeldaF).Value = TmpDT.SUM("Abono").FormatoNumero
' 'Exportar PDF
' 'Dim pdfFileOut As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & LtlNumeroPoliza.Text.ToString() & ".pdf"
' Dim pdfFileOut As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & TxtNumeroPoliza.Text.ToString() & ".pdf"
' Dim outputFileName As Object = pdfFileOut
' Dim fileFormat As msExcel.XlFixedFormatType = msExcel.XlFixedFormatType.xlTypePDF
' Libro.ExportAsFixedFormat(fileFormat, outputFileName, missing, missing, missing, missing, missing, missing, missing)
' System.Runtime.InteropServices.Marshal.ReleaseComObject(Hoja)
' Hoja = Nothing
' Dim saveChanges As Object = msExcel.XlSaveAction.xlDoNotSaveChanges
' CType(Libro, msExcel._Workbook).Close(saveChanges, missing, missing)
' System.Runtime.InteropServices.Marshal.ReleaseComObject(Libro)
' Libro = Nothing
' Excel.Quit()
' System.Runtime.InteropServices.Marshal.ReleaseComObject(Excel)
' Excel = Nothing
' GC.Collect()
' GC.WaitForPendingFinalizers()
' ArchivoTemp.Delete()
' Dim Descargas As New StringBuilder()
' 'Descargas.AppendFormat("<li><a class=""Texto"" href=""/Empresas/{0}/Formatos/Poliza_{1}.pdf"" target=""_blank"">PDF</a></li>", UsuarioActual.CveEmpresa, LtlNumeroPoliza.Text)
' Descargas.AppendFormat("<li><a class=""Texto"" href=""/Empresas/{0}/Formatos/Poliza_{1}.pdf"" target=""_blank"">PDF</a></li>", UsuarioActual.CveEmpresa, TxtNumeroPoliza.Text)
' Alert("<br />La impresión se generó correctamente.<br /><br /><br />Descargas:<ul>" & Descargas.ToString & "</ul>", TipoMensaje.MsgInformacion)
' 'RegistraScript("AbrirVentana('/Ventas/PopUpImprimir.aspx?CveVenta=" & If(EsVistaPrevia, UsuarioActual.CveUsuario.ToString, VentaFolio) & "&Ext=PDF', 700, 400, 'N', 'ImpVenta')")
' End Sub
'#End Region
#Region " P O L I Z A S - C O M P L E M E N T A R I A S " #Region " P O L I Z A S - C O M P L E M E N T A R I A S "
Private Sub CargaPolizaComplementaria(tIDPoliza As Integer) Private Sub CargaPolizaComplementaria(tIDPoliza As Integer)
@@ -982,17 +880,26 @@ Partial Class RegPoliza
If ObjConta.GetPrePoliza(-1, UsuarioActual.CveEmpresa, IDPoliza) Then If ObjConta.GetPrePoliza(-1, UsuarioActual.CveEmpresa, IDPoliza) Then
If ObjConta.DtResultados.Rows.Count > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then
CvePrePoliza = ObjConta.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero CvePrePoliza = ObjConta.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
If UsuarioActual.CveRol = 1 Then
BtnNuevo.BackColor = Color.Yellow
BtnNuevo.ToolTip = CvePrePoliza.ToString
HplCvePrep.Visible = True
HplCvePrep.NavigateUrl = "/Contabilidad/RegPrePolizas.aspx?CvePrePoliza=" & CvePrePoliza
End If
End If End If
End If End If
If UsuarioActual.TienePermisoProceso(145) Then If UsuarioActual.TienePermisoProceso(145) Then
BtnEliminar.Visible = True BtnEliminar.Visible = True
End If
' CargaDevoluciones()
End If End If
' CargaDevoluciones()
End If End If
If Request("Regenera") IsNot Nothing AndAlso Request("Regenera").ToString = "1" Then
GeneraPrePoliza(tIDPoliza, DT, CvePrePoliza)
End If
End If
ObjPoliza.Dispose() ObjPoliza.Dispose()
ObjConta.Dispose() ObjConta.Dispose()
@@ -1244,6 +1151,82 @@ Partial Class RegPoliza
ObjContabilidad.Dispose() ObjContabilidad.Dispose()
End Sub End Sub
Private Sub GeneraPrePoliza(tIdPoliza As Integer, dtt As DataTable, tCvePrePoliza As Integer)
Dim ObjConta As New ClsContabilidad()
ObjConta.IniciaTransacSQL()
Dim ObjContaq As New ClsContPAQi(UsuarioActual.Empresa)
ObjContaq.IniciaTransacSQL()
Dim ErrorRegistro As Boolean = False
Dim dr As DataRow = dtt.FiltroPrimero("")
Dim tCvePrePolizaOriginal As Integer = tCvePrePoliza
If tCvePrePoliza <= 0 Then
tCvePrePoliza = ObjConta.AddPrePolizas("RegPreP/Man", 53, 0, 0, 1, dr("FechaPol").ToString.ToDate, If(dr("ConceptoPoliza").ToString = "", ".", dr("ConceptoPoliza").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
FolioFijo:=dr("Folio").ToString.ToEntero)
Else
'ocultar los que ya están registrados en la prepóliza
If ObjConta.GetPrePolizasDetalle(tCvePrePoliza, UsuarioActual.CveEmpresa) Then
For Each drtt As DataRow In ObjConta.DtResultados.FiltraParametros("Contabilizable = 1").Rows
ObjConta.UpdateContabilizable(drtt("CvePrePolizaDetalle").ToString.ToEntero, False)
Next
End If
End If
If tCvePrePoliza > 0 Then
Dim dtc As DataTable = Nothing
If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
dtc = ObjConta.DtResultados
End If
For Each drt As DataRow In dtt.Rows
'PrePólizaDetalle
Dim tCveCuenta As Integer = dtc.FiltroPrimeroValor("CveCuenta", $"IdCompaq={drt("IdCuenta")}").ToEntero
Dim tCveSub As Integer = If(drt("IdSegNeg").ToString <> "", GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto ='{drt("SegNeg")}'").ToEntero, -1)
'If tCveSub <= 0 AndAlso drt("IdSegNeg").ToString.ToEntero = 0 Then 'toma el primero
' tCveSub = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
'End If
If ObjConta.AddPrePolizasDetalle(tCvePrePoliza, drt("TipoMovto").ToString = "True",
drt("Importe").ToString.ToDecimal,
drt("Concepto").ToString, 299,
drt("Concepto").ToString, Now,
drt("IdCuenta").ToString.ToEntero, 0,
CveSubProyecto:=tCveSub,
ImporteMX:=drt("Importe").ToString.ToDecimal, CveCuenta:=tCveCuenta) Then
'registro
If Not ObjContaq.UpdateMovimientoPrePolizaDetalle(drt("IdPoliza").ToString.ToEntero,
drt("Id").ToString.ToEntero,
ObjConta.CvePrePolizaDetalle) Then
ErrorRegistro = True
Exit For
End If
Else
ErrorRegistro = True
Exit For
End If
Next
If Not ErrorRegistro AndAlso tCvePrePolizaOriginal <= 0 AndAlso Not ObjConta.UpdatePrePoliza(dr("FechaPol").ToString.ToDate, dr("Folio").ToString.ToEntero, -1, tIdPoliza, tCvePrePoliza, UsuarioActual.CveEmpresa, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
ErrorRegistro = True
End If
Else
ErrorRegistro = True
End If
If Not ErrorRegistro Then
Alert($"<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={tCvePrePoliza}"">Ver Póliza</a>&nbsp;&nbsp; ")
ObjConta.Commit()
ObjContaq.Commit()
Else
ObjConta.RollBack()
ObjContaq.RollBack()
End If
ObjConta.Dispose()
ObjContaq.Dispose()
End Sub
#End Region #End Region
#Region "Historial de Modificacion" #Region "Historial de Modificacion"
@@ -1259,53 +1242,6 @@ Partial Class RegPoliza
End Sub End Sub
#End Region #End Region
'Protected Sub TxtNumeroPoliza_TextChanged(sender As Object, e As EventArgs) Handles TxtNumeroPoliza.TextChanged
' If HdnFolioPoliza.Value.ToEntero <> TxtNumeroPoliza.Text.Trim.ToEntero Then
' BtnGuardar.OnClientClick = "return confirm('Intenta cambiar el número de la póliza?')"
' Else
' BtnGuardar.OnClientClick = ""
' End If
' upDatos.Update()
'End Sub
'Protected Sub TxtFechaPoliza_TextChanged(sender As Object, e As EventArgs) Handles TxtFechaPoliza.TextChanged
' If HdnFechaPoliza.Value.ToDate.ToShortDateString <> TxtFechaPoliza.Text.ToDate.ToShortDateString Then
' BtnGuardar.OnClientClick = "return confirm('Intenta cambiar la fecha de la póliza?')"
' Else
' BtnGuardar.OnClientClick = ""
' End If
' upDatos.Update()
' upTitulos.Update()
'End Sub
'Protected Sub DdlTipoPoliza_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoPoliza.SelectedIndexChanged
' If HdnTipoPoliza.Value <> DdlTipoPoliza.SelectedValue Then
' BtnGuardar.OnClientClick = "return confirm('Intenta Cambiar el tipo de póliza?')"
' Else
' BtnGuardar.OnClientClick = ""
' End If
' upDatos.Update()
' upTitulos.Update()
'End Sub
'TmpDT = Nothing
'GvDatos.DataBind()
'TxtFechaPoliza.Text = ""
'TxtFecha.Text = ""
'DdlTipoPoliza.SelectedIndex = 0
'TxtNumero.Text = ""
''LtlNumeroPoliza.Text = "-"
'TxtNumeroPoliza.Text = "-"
'HdnIdPoliza.Value = ""
'TxtConcepto.Text = ""
'TxtReferencia.Text = ""
'DdlCuenta.SelectedIndex = 0
'DdlSegNeg.SelectedIndex = 0
'TxtNombreConcepto.Text = ""
'TxtCargo.Text = ""
'TxtAbono.Text = ""
'LblCargo.Text = "0.00"
'LblAbono.Text = "0.00"
Private Sub limpia() Private Sub limpia()
HdnCveCuenta.Value = "" HdnCveCuenta.Value = ""

22
Contabilidad/RegPrePolizaS.aspx
View File

@@ -300,7 +300,7 @@
<input id="HdnCveCuenta" runat="server" type="hidden" value="-1" clientidmode="Static" /> <input id="HdnCveCuenta" runat="server" type="hidden" value="-1" clientidmode="Static" />
<div style="width: 100%; min-height: 200px; overflow-scrolling: auto;"> <div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
<div class="portlet light xspadding bordered " id="pnldl2"> <div class="portlet light xspadding bordered " id="pnldl2" runat="server">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption "> <div class="caption ">
<i class="fa fa-bookmark font-green"></i> <i class="fa fa-bookmark font-green"></i>
@@ -416,12 +416,12 @@
<asp:UpdatePanel ID="UpPrePoliza" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpPrePoliza" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div style="width: 100%; min-height: 200px;overflow-scrolling:auto;"> <div style="width: 100%; min-height: 200px; overflow-scrolling:auto;" runat="server" id="divPrePolizas">
<div class="portlet light xspadding bordered " id="pnldl"> <div class="portlet light xspadding bordered " id="pnldl">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption "> <div class="caption ">
<i class="fa fa-bookmark font-green"></i> <i class="fa fa-bookmark font-green"></i>
<span class="caption-subject font-green bold uppercase">Movimientos2</span> <span class="caption-subject font-green bold uppercase">Movimientos.</span>
</div> </div>
<div class="tools"> <div class="tools">
@@ -551,14 +551,14 @@
<th style="width: 90px;"> <th style="width: 90px;">
<asp:UpdatePanel ID="UpTotalCargo" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpTotalCargo" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:TextBox ID="TxtTotalCargos" runat="server" Style="text-align: right" Enabled="false" Width="90px" Text="0.00"></asp:TextBox> <asp:TextBox ID="TxtTotalCargos" runat="server" Style="text-align: right" Width="90px" Text="0.00"></asp:TextBox>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</th> </th>
<th style="width: 90px;"> <th style="width: 90px;">
<asp:UpdatePanel ID="UpTotalAbono" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpTotalAbono" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:TextBox ID="TxtTotalAbonos" runat="server" Style="text-align: right" Enabled="false" Width="90px" Text="0.00"></asp:TextBox> <asp:TextBox ID="TxtTotalAbonos" runat="server" Style="text-align: right" Width="90px" Text="0.00"></asp:TextBox>
</ContentTemplate> </ContentTemplate>
@@ -614,7 +614,7 @@
<div class="row"> <div class="row">
<label class="col-md-2">Movimiento:</label> <label class="col-md-2">Movimiento:</label>
<div class="col-md-6"> <div class="col-md-6">
<asp:DropDownList ID="DdlTipoTransaccion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" Width="156px" ValidationGroup="GrpContado"></asp:DropDownList> <asp:DropDownList ID="DdlTipoTransaccion" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" Width="200px" DataValueField="CveTipoTransaccion" ValidationGroup="GrpContado"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVTipoTransaccion" runat="server" ControlToValidate="DdlTipoTransaccion" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Movimiento''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpContado"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVTipoTransaccion" runat="server" ControlToValidate="DdlTipoTransaccion" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Movimiento''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCETipoTransaccion" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoTransaccion" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCETipoTransaccion" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoTransaccion" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
@@ -622,7 +622,7 @@
<div class="row"> <div class="row">
<label class="col-md-2">Cuenta:</label> <label class="col-md-2">Cuenta:</label>
<div class="col-md-6"> <div class="col-md-6">
<asp:DropDownList ID="DdlCuenta" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="200px" ValidationGroup="GrpContado"></asp:DropDownList> <asp:DropDownList ID="DdlCuenta" runat="server" CssClass="form-control input-sm" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="200px" ValidationGroup="GrpContado"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVCuenta" runat="server" ControlToValidate="DdlCuenta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpContado"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVCuenta" runat="server" ControlToValidate="DdlCuenta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCOCuenta" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuenta" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCOCuenta" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuenta" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
@@ -657,11 +657,7 @@
<asp:TextBox ID="TxtDocumentoObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="500" Rows="3" TextMode="MultiLine"></asp:TextBox> <asp:TextBox ID="TxtDocumentoObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="500" Rows="3" TextMode="MultiLine"></asp:TextBox>
</div> </div>
</div> </div>
</div> </div>
</asp:Panel> </asp:Panel>
</div> </div>
</div> </div>
@@ -893,7 +889,7 @@
<div class="row"> <div class="row">
<label class="col-md-2">Movimiento:</label> <label class="col-md-2">Movimiento:</label>
<div class="col-md-6"> <div class="col-md-6">
<asp:DropDownList ID="DdlModalConceptoTipoTransaccion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" Width="156px" ValidationGroup="GrpMocalConceptoGuardar"></asp:DropDownList> <asp:DropDownList ID="DdlModalConceptoTipoTransaccion" CssClass="form-control input-sm " runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" Width="200px" ValidationGroup="GrpMocalConceptoGuardar"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlModalConceptoTipoTransaccion" runat="server" ControlToValidate="DdlModalConceptoTipoTransaccion" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Movimiento''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RfvDdlModalConceptoTipoTransaccion" runat="server" ControlToValidate="DdlModalConceptoTipoTransaccion" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Movimiento''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VceDdlModalConceptoTipoTransaccion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlModalConceptoTipoTransaccion" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VceDdlModalConceptoTipoTransaccion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlModalConceptoTipoTransaccion" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
@@ -901,7 +897,7 @@
<div class="row"> <div class="row">
<label class="col-md-2">Cuenta:</label> <label class="col-md-2">Cuenta:</label>
<div class="col-md-6"> <div class="col-md-6">
<asp:DropDownList ID="DdlModalConceptoCuenta" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="200px" ValidationGroup="GrpMocalConceptoGuardar"></asp:DropDownList> <asp:DropDownList ID="DdlModalConceptoCuenta" runat="server" CssClass="form-control input-sm select2me " AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="200px" ValidationGroup="GrpMocalConceptoGuardar"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlModalConceptoCuenta" runat="server" ControlToValidate="DdlModalConceptoCuenta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RfvDdlModalConceptoCuenta" runat="server" ControlToValidate="DdlModalConceptoCuenta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VceDdlModalConceptoCuenta" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlModalConceptoCuenta" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VceDdlModalConceptoCuenta" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlModalConceptoCuenta" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>

18
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -1,12 +1,8 @@
 
Imports System.Data Imports System.Data
Imports System.Net.NetworkInformation
Imports ADSNetLibrary.SIGAPI.Models.OC.Response
'Imports DocumentFormat.OpenXml 'Imports DocumentFormat.OpenXml
Imports Extensiones Imports Extensiones
Imports GemBox.Spreadsheet Imports GemBox.Spreadsheet
Imports Microsoft.JScript
Imports Microsoft.Reporting.WebForms
Partial Class ContabilidadC_RegPrePolizaS Partial Class ContabilidadC_RegPrePolizaS
Inherits ClsPaginas Inherits ClsPaginas
@@ -260,6 +256,8 @@ Partial Class ContabilidadC_RegPrePolizaS
'End If 'End If
Tick = DateTime.Now.Ticks.ToString Tick = DateTime.Now.Ticks.ToString
TxtTotalCargos.Attributes.Add("readonly", "readonly")
TxtTotalAbonos.Attributes.Add("readonly", "readonly")
CveMoneda = 1 CveMoneda = 1
ViewState("CvePrePoliza") = 0 ViewState("CvePrePoliza") = 0
@@ -778,6 +776,7 @@ Partial Class ContabilidadC_RegPrePolizaS
CargaSubProyectos() CargaSubProyectos()
CargaCuentasContables() CargaCuentasContables()
End If End If
divPrePolizas.Visible = True
GvPrePoliza.Visible = True GvPrePoliza.Visible = True
DivAgregarConceptos.Visible = False DivAgregarConceptos.Visible = False
divMovtos.Visible = False divMovtos.Visible = False
@@ -786,6 +785,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Else Else
DivAgregarConceptos.Visible = False DivAgregarConceptos.Visible = False
divMovtos.Visible = True divMovtos.Visible = True
divPrePolizas.Visible = False
UPMovs.Update() UPMovs.Update()
End If End If
@@ -936,12 +936,15 @@ Partial Class ContabilidadC_RegPrePolizaS
End If End If
'validaciones 'validaciones
If Not (TotalCargos = TotalAbonos AndAlso (GvPrePoliza.Rows.Count > 0 Or GvMov.Rows.Count > 0)) AndAlso UsuarioActual.CveRol <> 1 Then If ((GvPrePoliza.Visible AndAlso GvPrePoliza.Rows.Count = 0) OrElse ((GvMov.Visible AndAlso GvMov.Rows.Count = 0))) Then
Alert(" No se han especificado partidas", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If (TotalCargos <> TotalAbonos) Then
Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia) Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
If Not CvePrePoliza > 0 Then If Not CvePrePoliza > 0 Then
For Each Gvr As GridViewRow In GvMov.Rows For Each Gvr As GridViewRow In GvMov.Rows
@@ -1119,10 +1122,9 @@ Partial Class ContabilidadC_RegPrePolizaS
If CveIE > 0 AndAlso gvr.DataKey("CveConceptoContable").ToEntero = 30 Then If CveIE > 0 AndAlso gvr.DataKey("CveConceptoContable").ToEntero = 30 Then
MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""Texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE) MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""Texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
End If End If
Next Next
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaInsertada, 1) Then If MsgError = "" AndAlso Not ObjMov.ValidacionesPrePoliza(CvePrePolizaInsertada, UsuarioActual) Then
If ObjMov.ValorPolizaDescuadre > 0 Then If ObjMov.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePolizaInsertada}", "LogPrePolizas") GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePolizaInsertada}", "LogPrePolizas")
MsgError = ObjMov.MensajePolizaDescuadre MsgError = ObjMov.MensajePolizaDescuadre

4
Contabilidad2/RepSituacionFinanciera.aspx
View File

@@ -547,7 +547,7 @@
<h4>Total del Activo:</h4> <h4>Total del Activo:</h4>
</td> </td>
<td width="25%" align="right"> <td width="25%" align="right">
<asp:Label Font-Bold="true" runat="server" ID="LbTotalActivoActual"></asp:Label> <asp:Label Font-Bold="true" runat="server" ID="LbTotalActivoActual" Font-Size="12pt"></asp:Label>
</td> </td>
<td runat="server" id="TdTotalActivoAnterior" width="25%" align="right" visible="false"> <td runat="server" id="TdTotalActivoAnterior" width="25%" align="right" visible="false">
<asp:Label Font-Bold="true" runat="server" ID="LbTotalActivoAnterior"></asp:Label> <asp:Label Font-Bold="true" runat="server" ID="LbTotalActivoAnterior"></asp:Label>
@@ -571,7 +571,7 @@
</h4> </h4>
</td> </td>
<td width="25%" align="right"> <td width="25%" align="right">
<asp:Label Font-Bold="true" runat="server" ID="LbTotalPasivoPatrimonioActual"></asp:Label> <asp:Label Font-Bold="true" runat="server" ID="LbTotalPasivoPatrimonioActual" Font-Size="12pt"></asp:Label>
</td> </td>
<td runat="server" id="TdTotalPasivoAnterior" width="25%" align="right" visible="false"> <td runat="server" id="TdTotalPasivoAnterior" width="25%" align="right" visible="false">
<asp:Label Font-Bold="true" runat="server" ID="LbTotalPasivoPatrimonioAnterior"></asp:Label> <asp:Label Font-Bold="true" runat="server" ID="LbTotalPasivoPatrimonioAnterior"></asp:Label>

6
Contabilidad2/RepSituacionFinanciera.aspx.vb
View File

@@ -333,9 +333,9 @@ Partial Class AC2_SituacionFinanciera
'PATRIMONIO 'PATRIMONIO
Dim DtPatrimonioContribuido = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta in (5,6,8,7)") Dim DtPatrimonioContribuido = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta in (5,6,8,7)")
Dim DtPatrimonioGenerado = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta in (6,8)") 'Dim DtPatrimonioGenerado = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta in (6,8)")
Dim DtPatrimonioActualizacion = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta=7") 'Dim DtPatrimonioActualizacion = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta=7")
Dim DtUtilidad = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta=5") 'Dim DtUtilidad = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta=5")
'Dim DtPatrimonioContribuido = DtDatos.FiltraParametros("Tipo in ('F') AND Orden LIKE '%/00031%' ") 'Dim DtPatrimonioContribuido = DtDatos.FiltraParametros("Tipo in ('F') AND Orden LIKE '%/00031%' ")
'Dim DtPatrimonioGenerado = DtDatos.FiltraParametros("Tipo in ('F') AND Orden LIKE '%/00032%' ") 'Dim DtPatrimonioGenerado = DtDatos.FiltraParametros("Tipo in ('F') AND Orden LIKE '%/00032%' ")

38
Empresas/119/Formatos/Remision.rdlc
View File

@@ -685,11 +685,39 @@
<TextAlign>Right</TextAlign> <TextAlign>Right</TextAlign>
</Style> </Style>
</Paragraph> </Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Moneda:</Value>
<Style>
<FontSize>9.16pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontSize>9.64pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!MonedaAbreviatura.Value</Value>
<Style>
<FontSize>9.64pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox4</rd:DefaultName> <rd:DefaultName>Textbox4</rd:DefaultName>
<Top>0.04117in</Top> <Top>0.04117in</Top>
<Left>5.62784in</Left> <Left>5.62784in</Left>
<Height>0.99993in</Height> <Height>1.12493in</Height>
<Width>2.66068in</Width> <Width>2.66068in</Width>
<ZIndex>2</ZIndex> <ZIndex>2</ZIndex>
<Style> <Style>
@@ -1689,7 +1717,7 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>2.99824cm</Width> <Width>2.29709cm</Width>
</TablixColumn> </TablixColumn>
</TablixColumns> </TablixColumns>
<TablixRows> <TablixRows>
@@ -1749,7 +1777,7 @@
</GroupExpressions> </GroupExpressions>
</Group> </Group>
<TablixHeader> <TablixHeader>
<Size>2.93858cm</Size> <Size>2.19723cm</Size>
<CellContents> <CellContents>
<Textbox Name="ImpuestoLocal"> <Textbox Name="ImpuestoLocal">
<CanGrow>true</CanGrow> <CanGrow>true</CanGrow>
@@ -1787,9 +1815,9 @@
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName> <DataSetName>DataSet1</DataSetName>
<Top>8.17047cm</Top> <Top>8.17047cm</Top>
<Left>15.04546cm</Left> <Left>16.64246cm</Left>
<Height>0.48004cm</Height> <Height>0.48004cm</Height>
<Width>5.93682cm</Width> <Width>4.49432cm</Width>
<ZIndex>10</ZIndex> <ZIndex>10</ZIndex>
<Visibility> <Visibility>
<Hidden>=Parameters!MostrarImportes.Value = false</Hidden> <Hidden>=Parameters!MostrarImportes.Value = false</Hidden>

33
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -3932,7 +3932,6 @@ Partial Class Inventarios_RecepcionAlmacen
Dim ObjCompras As New ClsCompras(ObjInventario.IniciaTransacSQL()) Dim ObjCompras As New ClsCompras(ObjInventario.IniciaTransacSQL())
Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL()) Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
Dim ObjOC As New ClsOC(ObjInventario.IniciaTransacSQL()) Dim ObjOC As New ClsOC(ObjInventario.IniciaTransacSQL())
Dim ObjContaAC As ClsContPAQi = Nothing
'ENTRADA ALMACÉN 'ENTRADA ALMACÉN
CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 2, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveImportacionCompra, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=-1, Remision:=TxtRemision.Text, Modulo:="RA/G6") CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 2, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveImportacionCompra, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=-1, Remision:=TxtRemision.Text, Modulo:="RA/G6")
@@ -4081,9 +4080,6 @@ Partial Class Inventarios_RecepcionAlmacen
ImporteAbono = SubTotalPartida ImporteAbono = SubTotalPartida
ImporteAbonoME = (SubTotalPartida * dr("TipoCambio").ToString.ToDecimal) - SubTotalPartida ImporteAbonoME = (SubTotalPartida * dr("TipoCambio").ToString.ToDecimal) - SubTotalPartida
End If End If
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, CveConceptoCostoIndirecto, ConceptoPartida, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono, CveSubProyecto:=CveSubProyecto) Then If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, CveConceptoCostoIndirecto, ConceptoPartida, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono, CveSubProyecto:=CveSubProyecto) Then
' si tiene valor es que hay complementaria ' si tiene valor es que hay complementaria
If ImporteAbonoME > 0 Then If ImporteAbonoME > 0 Then
@@ -4098,7 +4094,6 @@ Partial Class Inventarios_RecepcionAlmacen
End If End If
End If End If
'DOCUMENTOS RELACIONADOS AL MOVIMIENTO 'DOCUMENTOS RELACIONADOS AL MOVIMIENTO
If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
If Not ErrorMovInv AndAlso Not GuardaDocumentoBitacora(ObjBitacora, CveMovimiento) Then If Not ErrorMovInv AndAlso Not GuardaDocumentoBitacora(ObjBitacora, CveMovimiento) Then
@@ -4106,8 +4101,6 @@ Partial Class Inventarios_RecepcionAlmacen
Alert("Ocurrió un error al guardar los datos adjuntos de la bitácora", TipoMensaje.MsgError) Alert("Ocurrió un error al guardar los datos adjuntos de la bitácora", TipoMensaje.MsgError)
End If End If
End If End If
Else Else
ErrorMovInv = True ErrorMovInv = True
End If End If
@@ -4120,16 +4113,16 @@ Partial Class Inventarios_RecepcionAlmacen
End If End If
End If End If
If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then 'If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) ' ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
ObjContaAC.IniciaTransacSQL() ' ObjContaAC.IniciaTransacSQL()
If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then ' If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then
MensajeError = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={ObjConta.ContaIdPoliza}'>{ObjConta.ContaFolio}</a></b><br>" ' MensajeError = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={ObjConta.ContaIdPoliza}'>{ObjConta.ContaFolio}</a></b><br>"
Else ' Else
ErrorMovInv = True ' ErrorMovInv = True
MensajeError = "Error al contabilizar los conceptos contables" ' MensajeError = "Error al contabilizar los conceptos contables"
End If ' End If
End If 'End If
If Not ErrorMovInv AndAlso CveImportacionSeleccionada > 0 Then If Not ErrorMovInv AndAlso CveImportacionSeleccionada > 0 Then
@@ -4151,7 +4144,7 @@ Partial Class Inventarios_RecepcionAlmacen
'FINAL 'FINAL
If Not ErrorMovInv Then If Not ErrorMovInv Then
ObjInventario.Commit() ' aplica los movimientos insertados ObjInventario.Commit() ' aplica los movimientos insertados
If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() ' If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
RegistraScript("playsonidito('beep-07.wav')") RegistraScript("playsonidito('beep-07.wav')")
Dim Msg As New StringBuilder Dim Msg As New StringBuilder
@@ -4164,14 +4157,14 @@ Partial Class Inventarios_RecepcionAlmacen
Limpia() Limpia()
Else Else
ObjInventario.RollBack() ObjInventario.RollBack()
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() ' If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
GuardaLog(MensajeError) GuardaLog(MensajeError)
Alert("Error al guardar el movimiento de almacen. Por favor vuelva a intentar.", TipoMensaje.MsgError) Alert("Error al guardar el movimiento de almacen. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If End If
ObjInventario.Dispose() ObjInventario.Dispose()
If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose() ' If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
End Sub End Sub
Private Sub Limpia() Private Sub Limpia()
CveCompraSurtir = -1 CveCompraSurtir = -1

2
Planeacion/CatSubProyectos.aspx
View File

@@ -224,7 +224,7 @@
<div class="col-md-12"> <div class="col-md-12">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkDeshabilitaAutorizaciones" runat="server" CssClass="form-control" Checked="false" /> <asp:CheckBox ID="ChkDeshabilitaAutorizaciones" runat="server" CssClass="form-control" Checked="false" />
<label for="<%= ChkDeshabilitaAutorizaciones.ClientID.ToString()%>">Deshabilita autorizaciones para público general</label> <label for="<%= ChkDeshabilitaAutorizaciones.ClientID.ToString()%>">Activar remisión para público general hasta $5000</label>
</div> </div>
</div> </div>
</div> </div>

2
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1010,7 +1010,7 @@ Partial Class Ventas_ClientesAbonar
End If End If
tipoCambioPago = Pago.TCPago tipoCambioPago = Pago.TCPago
If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal * Pago.TCPago
'If gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119, 158) Then 'If gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119, 158) Then
' EsAnticipoEspecial = True ' EsAnticipoEspecial = True

38
Ventas/RepVentaDetalle.aspx
View File

@@ -379,7 +379,7 @@
<asp:Literal ID="LtlIVA" runat="server" Text='<%# Eval("IVA", "{0:N2}") %>'></asp:Literal> <asp:Literal ID="LtlIVA" runat="server" Text='<%# Eval("IVA", "{0:N2}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="IEPS" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="IEPS" Visible="false" ItemStyle-HorizontalAlign="Right" >
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlIEPS" runat="server" Text='<%# Eval("IEPS", "{0:N2}") %>'></asp:Literal> <asp:Literal ID="LtlIEPS" runat="server" Text='<%# Eval("IEPS", "{0:N2}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -580,20 +580,18 @@
<asp:CheckBox ID="ChkFolio" runat="server" Text="Folio" Checked="true" /></td> <asp:CheckBox ID="ChkFolio" runat="server" Text="Folio" Checked="true" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSubTotal" runat="server" Text="SubTotal" Checked="true" /></td> <asp:CheckBox ID="ChkSubTotal" runat="server" Text="SubTotal" Checked="true" /></td>
</tr>
<tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" Checked="true" /></td> <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChlMotivoDescuento" runat="server" Text="Motivo Descuento" /></td> <asp:CheckBox ID="ChlMotivoDescuento" runat="server" Text="Motivo Descuento" /></td>
</tr> </tr>
<tr> <tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkAmortizacion" runat="server" Text="Amortización" Checked="true" /></td> <asp:CheckBox ID="ChkAmortizacion" runat="server" Text="Amortización" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkIVA" runat="server" Text="IVA" Checked="true" /></td> <asp:CheckBox ID="ChkIVA" runat="server" Text="IVA" Checked="true" /></td>
</tr>
<tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkRetIVA" runat="server" Text="Ret. IVA" /></td> <asp:CheckBox ID="ChkRetIVA" runat="server" Text="Ret. IVA" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
@@ -605,8 +603,7 @@
<asp:CheckBox ID="ChkTotal" runat="server" Text="Total" Checked="true" /></td> <asp:CheckBox ID="ChkTotal" runat="server" Text="Total" Checked="true" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkFecha" runat="server" Text="Fecha" Checked="true" /></td> <asp:CheckBox ID="ChkFecha" runat="server" Text="Fecha" Checked="true" /></td>
</tr>
<tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSucursal" runat="server" Text="Sucursal" Checked="true" /></td> <asp:CheckBox ID="ChkSucursal" runat="server" Text="Sucursal" Checked="true" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
@@ -618,8 +615,7 @@
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSucursalCliente" runat="server" Text="Sucursal Cliente" /></td> <asp:CheckBox ID="ChkSucursalCliente" runat="server" Text="Sucursal Cliente" /></td>
</tr>
<tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkVendedor" runat="server" Text="Vendedor" /></td> <asp:CheckBox ID="ChkVendedor" runat="server" Text="Vendedor" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
@@ -630,8 +626,7 @@
<asp:CheckBox ID="ChkMotivoCancelacion" runat="server" Text="Motivo Cancelacion" /></td> <asp:CheckBox ID="ChkMotivoCancelacion" runat="server" Text="Motivo Cancelacion" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSeTimbro" runat="server" Text="Se Timbró" /></td> <asp:CheckBox ID="ChkSeTimbro" runat="server" Text="Se Timbró" /></td>
</tr>
<tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSeEnvioMail" runat="server" Text="Se envió Mail" /></td> <asp:CheckBox ID="ChkSeEnvioMail" runat="server" Text="Se envió Mail" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
@@ -642,8 +637,7 @@
<asp:CheckBox ID="ChkUsuario" runat="server" Text="Usuario" /></td> <asp:CheckBox ID="ChkUsuario" runat="server" Text="Usuario" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkObservaciones" runat="server" Text="Observaciones" /></td> <asp:CheckBox ID="ChkObservaciones" runat="server" Text="Observaciones" /></td>
</tr>
<tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkFolioFiscal" runat="server" Text="Folio Fiscal (UUID)" /></td> <asp:CheckBox ID="ChkFolioFiscal" runat="server" Text="Folio Fiscal (UUID)" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
@@ -654,8 +648,7 @@
<asp:CheckBox ID="ChkEstatusFacturacion" runat="server" Text="Estatus Facturación" /></td> <asp:CheckBox ID="ChkEstatusFacturacion" runat="server" Text="Estatus Facturación" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkFolioFacturacion" runat="server" Text="Factura Cotización" /></td> <asp:CheckBox ID="ChkFolioFacturacion" runat="server" Text="Factura Cotización" /></td>
</tr>
<tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkCliente" runat="server" Text="Cliente" Checked="true" /></td> <asp:CheckBox ID="ChkCliente" runat="server" Text="Cliente" Checked="true" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
@@ -665,23 +658,16 @@
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkTotalImpuestos" runat="server" Text="Impuestos Locales" /></td> <asp:CheckBox ID="ChkTotalImpuestos" runat="server" Text="Impuestos Locales" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" Checked="true" /></td> <asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" /></td>
</tr>
<tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkMoneda" runat="server" Text="Moneda" Checked="true" /></td> <asp:CheckBox ID="ChkMoneda" runat="server" Text="Moneda" Checked="true" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSaldo" runat="server" Text="Saldo" Checked="false" /></td> <asp:CheckBox ID="ChkSaldo" runat="server" Text="Saldo" Checked="false" /></td>
</td> </td>
</tr> </tr>
</tbody> </tbody>
</table> </table>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button> <button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button>

351
Ventas/RepVentaDetalle.aspx.vb
View File

@@ -56,7 +56,6 @@ Partial Class RepVentaDetalle
End Set End Set
End Property End Property
Private Property TipoCliente As Integer Private Property TipoCliente As Integer
Get Get
If ViewState("TipoCliente") Is Nothing Then If ViewState("TipoCliente") Is Nothing Then
@@ -64,16 +63,12 @@ Partial Class RepVentaDetalle
Else Else
Return ViewState("TipoCliente").ToString.ToEntero Return ViewState("TipoCliente").ToString.ToEntero
End If End If
End Get End Get
Set(value As Integer) Set(value As Integer)
ViewState("TipoCliente") = value ViewState("TipoCliente") = value
End Set End Set
End Property End Property
Private Property TCEspecifico As Decimal Private Property TCEspecifico As Decimal
Get Get
Return ViewState("TCEspecifico").ToString.ToDecimal Return ViewState("TCEspecifico").ToString.ToDecimal
@@ -110,6 +105,7 @@ Partial Class RepVentaDetalle
Personalizo = 0 Personalizo = 0
CargaCombos() CargaCombos()
InicializaValores() InicializaValores()
ConfiguraEmpresa()
CargaDatos() CargaDatos()
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -118,8 +114,6 @@ Partial Class RepVentaDetalle
DVServicioDomicilio.Visible = True DVServicioDomicilio.Visible = True
End If End If
End If End If
End Sub End Sub
@@ -370,7 +364,6 @@ Partial Class RepVentaDetalle
#Region "CONSULTAR" #Region "CONSULTAR"
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos() CargaDatos()
ConfiguraEmpresa()
UPDatos.Update() UPDatos.Update()
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
@@ -423,6 +416,7 @@ Partial Class RepVentaDetalle
End If End If
ObjVentas.Dispose() ObjVentas.Dispose()
If DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(5).Visible = False ' se oculta descuentos, si está vac+io
Agrupador = DdlGrupo.SelectedItem.Text Agrupador = DdlGrupo.SelectedItem.Text
GvDatos.DataBind() GvDatos.DataBind()
@@ -451,12 +445,13 @@ Partial Class RepVentaDetalle
End Function End Function
Private Sub ConfiguraEmpresa() Private Sub ConfiguraEmpresa()
'Dim ObjEmpresa As New ClsEmpresas()
'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(10).Visible = False If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(10).Visible = False
If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(11).Visible = False If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(11).Visible = False
'End If
'ObjEmpresa.Dispose() ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS
GvDatos.Columns(9).Visible = ChkIEPS.Checked
End Sub End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound 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.RowType = DataControlRowType.DataRow Then
@@ -486,24 +481,6 @@ Partial Class RepVentaDetalle
e.Row.FCLiteral("LtlFacturaCotizacion").Text = "<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta=" & e.Row.DBCampo("CveVentaPadre") & """>" & e.Row.DBCampo("FolioVenta") & "</a>" e.Row.FCLiteral("LtlFacturaCotizacion").Text = "<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta=" & e.Row.DBCampo("CveVentaPadre") & """>" & e.Row.DBCampo("FolioVenta") & "</a>"
End If End If
'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
'e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
'e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
'e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
'e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
'e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right
'e.Row.Cells(9).HorizontalAlign = HorizontalAlign.Right
'e.Row.Cells(10).HorizontalAlign = HorizontalAlign.Right
'e.Row.Cells(11).HorizontalAlign = HorizontalAlign.Right
'e.Row.Cells(12).HorizontalAlign = HorizontalAlign.Center
'e.Row.Cells(13).HorizontalAlign = HorizontalAlign.Left
'e.Row.Cells(14).HorizontalAlign = HorizontalAlign.Center
'e.Row.Cells(15).HorizontalAlign = HorizontalAlign.Center
'e.Row.Cells(20).HorizontalAlign = HorizontalAlign.Left
If e.Row.DBCampo("SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlSubTotal").Text = "-" If e.Row.DBCampo("SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlSubTotal").Text = "-"
If e.Row.DBCampo("Descuento").ToDouble = 0 Then e.Row.FCLiteral("LtlDescuento").Text = "-" If e.Row.DBCampo("Descuento").ToDouble = 0 Then e.Row.FCLiteral("LtlDescuento").Text = "-"
@@ -554,178 +531,38 @@ Partial Class RepVentaDetalle
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
If ChkFolio.Checked Then GvDatos.Columns(1).Visible = ChkFolio.Checked
GvDatos.Columns(1).Visible = True GvDatos.Columns(2).Visible = ChkFecha.Checked
Else GvDatos.Columns(3).Visible = ChkCliente.Checked
GvDatos.Columns(1).Visible = False GvDatos.Columns(4).Visible = ChkSubTotal.Checked
End If GvDatos.Columns(5).Visible = ChkDescuento.Checked
GvDatos.Columns(6).Visible = ChlMotivoDescuento.Checked
If ChkFecha.Checked Then GvDatos.Columns(7).Visible = ChkAmortizacion.Checked
GvDatos.Columns(2).Visible = True GvDatos.Columns(8).Visible = ChkIVA.Checked
GvDatos.Columns(9).Visible = ChkIEPS.Checked
Else GvDatos.Columns(10).Visible = ChkRetIVA.Checked
GvDatos.Columns(2).Visible = False GvDatos.Columns(11).Visible = ChkRetISR.Checked
End If GvDatos.Columns(12).Visible = ChkTotalImpuestos.Checked
GvDatos.Columns(13).Visible = ChkTotal.Checked
If ChkCliente.Checked Then
GvDatos.Columns(3).Visible = True
Else
GvDatos.Columns(3).Visible = False
End If
If ChkSubTotal.Checked Then
GvDatos.Columns(4).Visible = True
Else
GvDatos.Columns(4).Visible = False
End If
If ChkDescuento.Checked Then
GvDatos.Columns(5).Visible = True
Else
GvDatos.Columns(5).Visible = False
End If
If ChlMotivoDescuento.Checked Then
GvDatos.Columns(6).Visible = True
Else
GvDatos.Columns(6).Visible = False
End If
If ChkAmortizacion.Checked Then
GvDatos.Columns(7).Visible = True
Else
GvDatos.Columns(7).Visible = False
End If
If ChkIVA.Checked Then
GvDatos.Columns(8).Visible = True
Else
GvDatos.Columns(8).Visible = False
End If
If ChkIEPS.Checked Then
GvDatos.Columns(9).Visible = True
Else
GvDatos.Columns(9).Visible = False
End If
If ChkRetIVA.Checked Then
GvDatos.Columns(10).Visible = True
Else
GvDatos.Columns(10).Visible = False
End If
If ChkRetISR.Checked Then
GvDatos.Columns(11).Visible = True
Else
GvDatos.Columns(11).Visible = False
End If
If ChkTotalImpuestos.Checked Then
GvDatos.Columns(12).Visible = True
Else
GvDatos.Columns(12).Visible = False
End If
If ChkTotal.Checked Then
GvDatos.Columns(13).Visible = True
Else
GvDatos.Columns(13).Visible = False
End If
GvDatos.Columns(14).Visible = ChkMoneda.Checked GvDatos.Columns(14).Visible = ChkMoneda.Checked
GvDatos.Columns(15).Visible = ChkSucursal.Checked
If ChkSucursal.Checked Then GvDatos.Columns(16).Visible = ChkSucursalEjecucion.Checked
GvDatos.Columns(15).Visible = True GvDatos.Columns(17).Visible = ChkCodigo.Checked
Else GvDatos.Columns(18).Visible = ChkSucursalCliente.Checked
GvDatos.Columns(15).Visible = False GvDatos.Columns(19).Visible = ChkSucursalCobranza.Checked
End If GvDatos.Columns(20).Visible = ChkSucursalEjecucion.Checked
GvDatos.Columns(21).Visible = ChkVendedor.Checked
If ChkSucursalEjecucion.Checked Then GvDatos.Columns(22).Visible = ChkEstatusFactura.Checked
GvDatos.Columns(16).Visible = True GvDatos.Columns(23).Visible = ChkMotivoCancelacion.Checked
Else GvDatos.Columns(24).Visible = ChkSeTimbro.Checked
GvDatos.Columns(16).Visible = False GvDatos.Columns(25).Visible = ChkSeEnvioMail.Checked
End If GvDatos.Columns(26).Visible = ChkCuentaContable.Checked
GvDatos.Columns(27).Visible = ChkUsuario.Checked
If ChkCodigo.Checked Then GvDatos.Columns(28).Visible = ChkObservaciones.Checked
GvDatos.Columns(17).Visible = True
Else
GvDatos.Columns(17).Visible = False
End If
If ChkSucursalCliente.Checked Then
GvDatos.Columns(18).Visible = True
Else
GvDatos.Columns(18).Visible = False
End If
If ChkSucursalCobranza.Checked Then
GvDatos.Columns(19).Visible = True
Else
GvDatos.Columns(19).Visible = False
End If
If ChkSucursalEjecucion.Checked Then
GvDatos.Columns(20).Visible = True
Else
GvDatos.Columns(20).Visible = False
End If
If ChkVendedor.Checked Then
GvDatos.Columns(21).Visible = True
Else
GvDatos.Columns(21).Visible = False
End If
If ChkEstatusFactura.Checked Then
GvDatos.Columns(22).Visible = True
Else
GvDatos.Columns(22).Visible = False
End If
If ChkMotivoCancelacion.Checked Then
GvDatos.Columns(23).Visible = True
Else
GvDatos.Columns(23).Visible = False
End If
If ChkSeTimbro.Checked Then
GvDatos.Columns(24).Visible = True
Else
GvDatos.Columns(24).Visible = False
End If
If ChkSeEnvioMail.Checked Then
GvDatos.Columns(25).Visible = True
Else
GvDatos.Columns(25).Visible = False
End If
If ChkCuentaContable.Checked Then
GvDatos.Columns(26).Visible = True
Else
GvDatos.Columns(26).Visible = False
End If
If ChkUsuario.Checked Then
GvDatos.Columns(27).Visible = True
Else
GvDatos.Columns(27).Visible = False
End If
If ChkObservaciones.Checked Then
GvDatos.Columns(28).Visible = True
Else
GvDatos.Columns(28).Visible = False
End If
GvDatos.Columns(29).Visible = ChkFolioFiscal.Checked GvDatos.Columns(29).Visible = ChkFolioFiscal.Checked
GvDatos.Columns(30).Visible = ChkMailCliente.Checked GvDatos.Columns(30).Visible = ChkMailCliente.Checked
GvDatos.Columns(31).Visible = ChkEstatusFacturacion.Checked
GvDatos.Columns(31).Visible = True = ChkEstatusFacturacion.Checked
GvDatos.Columns(32).Visible = ChkFolioFacturacion.Checked GvDatos.Columns(32).Visible = ChkFolioFacturacion.Checked
GvDatos.Columns(33).Visible = ChkSaldo.Checked GvDatos.Columns(33).Visible = ChkSaldo.Checked
Personalizo = 1 Personalizo = 1
@@ -970,124 +807,6 @@ Partial Class RepVentaDetalle
Private Function GenerarFacturaVentaDEV(CveVenta As Integer, CveUsuario As Integer) As Byte() Private Function GenerarFacturaVentaDEV(CveVenta As Integer, CveUsuario As Integer) As Byte()
Return DescargarFactura(CveVenta, UsuarioActual.CveEmpresa, CveUsuario) Return DescargarFactura(CveVenta, UsuarioActual.CveEmpresa, CveUsuario)
'Dim ObjVentas As New ClsVentas
'Dim Vta As Modelos.Factura = Nothing
'Dim TmpDTImpuestos = New DataTable
'TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String))
'TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
'TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))
'If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
' Dim dtVentas As DataTable = ObjVentas.DtResultados
' ' se rellenan los campos de la factura
' Vta = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, Server.MapPath("/"))
' Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString
' 'se rellena la sucursal
' Vta.Cliente.Sucursal = New Modelos.ClienteModel(dtVentas(0)("CveCliente").ToString.ToEntero, UsuarioActual.CveEmpresa)
' Vta.Cliente = New Modelos.ClienteModel
' Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString
' Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString
' Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString
' Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString
' Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString
' Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString
' Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString
' Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString
' Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString
' Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString
' Vta.AtencionA = dtVentas(0)("AtencionA").ToString
' Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString
' Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString
' Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString
' Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
' Vta.RefDocto = dtVentas(0)("Ref").ToString
' Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
' Vta.ClienteSucursal = New Modelos.SucursalModel
' Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString
' Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString
' Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString
' Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString
' Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString
' Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString
' Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString
' Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString
' Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString
' Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString
' Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString
' Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString
' Vta.EnviarA = New Modelos.EnviarAModel
' Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString.ToEntero
' Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString
' Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString
' Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString
' Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString
' Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString
' Dim DR As DataRow = TmpDTImpuestos.NewRow()
' If UsuarioActual.CveEmpresa.Contiene(1, 5, 15, 17, 72, 66, 79, 81, 109, 110, 111, 76) Then
' If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR)
' DR = TmpDTImpuestos.NewRow()
' If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR)
' DR = TmpDTImpuestos.NewRow()
' If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR)
' DR = TmpDTImpuestos.NewRow()
' If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR)
' DR = TmpDTImpuestos.NewRow()
' If dtVentas(0)("IVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR)
' 'solo para eclipse, que muesre un subtotal debajo de IVA
' If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR)
' DR = TmpDTImpuestos.NewRow()
' If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR)
' DR = TmpDTImpuestos.NewRow()
' If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR)
' DR = TmpDTImpuestos.NewRow()
' If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 1000 : TmpDTImpuestos.Rows.Add(DR)
' DR = TmpDTImpuestos.NewRow()
' End If
' If ObjVentas.GetVentaDetalle(CveVenta) Then 'Obtenemos el Detalle de la Oorden de Compra
' Vta.DtDetalle = ObjVentas.DtResultados
' End If
' If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then
' If UsuarioActual.CveEmpresa.Contiene(1, 5, 15, 17, 72, 66, 79, 81, 109, 110, 111, 76) Then
' Dim dtImpuesto As DataTable = ObjVentas.DtResultados
' If dtImpuesto.Rows.Count > 0 Then
' For Each Row As DataRow In dtImpuesto.Rows
' Dim Orden = 80
' If Row("Importe").ToString.ToDouble <> 0 Then
' DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
' DR("Importe") = Row("Importe").ToString.ToDouble
' DR("Orden") = Orden
' TmpDTImpuestos.Rows.Add(DR)
' DR = TmpDTImpuestos.NewRow()
' Orden = Orden + 1
' End If
' Next
' End If
' Vta.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC")
' Else
' Vta.DtDeduccion = ObjVentas.DtResultados
' End If
' End If
' If ObjVentas.GetVentasFirmas(CveVenta) Then
' Vta.DtFirmas = ObjVentas.DtResultados
' End If
'End If
'ObjVentas.Dispose()
'If Not IsNothing(Vta) Then
' PdfFactura(Vta)
' Vta = Nothing
'End If
End Function End Function

4
Ventas/RepVentas.aspx
View File

@@ -356,12 +356,12 @@
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Sub Total" DataField="SubTotal" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Sub Total" DataField="SubTotal" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Descuento" DataField="Descuento" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Descuento" DataField="Descuento" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Amortización" DataField="Amortizacion" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Amortización" DataField="Amortizacion" Visible="false" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Sub Total 2" DataField="SubTotal2" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Sub Total 2" DataField="SubTotal2" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="IVA" DataField="IVA" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="IVA" DataField="IVA" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="IEPS" DataField="IEPS" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="IEPS" DataField="IEPS" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Ret. IVA" DataField="RetIVA" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Ret. IVA" DataField="RetIVA" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Ret. ISR" DataField="RetISR" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Ret. ISR" DataField="RetISR" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Imp. Locales" DataField="TotalImpuestos" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Imp. Locales" DataField="TotalImpuestos" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />

90
Ventas/RepVentas.aspx.vb
View File

@@ -78,6 +78,7 @@ Partial Class Ventas_RepVentas
TipoCambio = 1 TipoCambio = 1
TCEspecifico = -1 TCEspecifico = -1
CargaCombos() CargaCombos()
ConfiguraEmpresa()
'MODALIDADES 'MODALIDADES
If Request("Op") IsNot Nothing AndAlso Request("Op").ToString <> "" Then If Request("Op") IsNot Nothing AndAlso Request("Op").ToString <> "" Then
@@ -155,6 +156,7 @@ Partial Class Ventas_RepVentas
Private Sub ConfiguraEmpresa() Private Sub ConfiguraEmpresa()
' If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(8).Visible = False ' If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(8).Visible = False
If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(9).Visible = False If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(9).Visible = False
ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS
End Sub End Sub
Private Sub CargaCombos() Private Sub CargaCombos()
@@ -211,8 +213,8 @@ Partial Class Ventas_RepVentas
#Region " CARGA DATOS " #Region " CARGA DATOS "
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos() CargaDatos()
ConfiguraEmpresa()
Personaliza() Personaliza()
UPDatos.Update() UPDatos.Update()
'XmlConf(UsuarioActual.CveUsuario, 9) 'XmlConf(UsuarioActual.CveUsuario, 9)
@@ -252,6 +254,8 @@ Partial Class Ventas_RepVentas
GvDatos.DataSource = Nothing GvDatos.DataSource = Nothing
End If End If
If DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(3).Visible = False ' se oculta descuentos, si está vac+io
Agrupador = DdlGrupo.SelectedItem.Text Agrupador = DdlGrupo.SelectedItem.Text
CveProyecto = DdlProyecto.SelectedValue.ToEntero CveProyecto = DdlProyecto.SelectedValue.ToEntero
ObjVentas.Dispose() ObjVentas.Dispose()
@@ -476,78 +480,18 @@ Partial Class Ventas_RepVentas
Private Sub Personaliza() Private Sub Personaliza()
If ChkSubTotal2.Checked Then GvDatos.Columns(5).Visible = ChkSubTotal2.Checked
GvDatos.Columns(5).Visible = True GvDatos.Columns(7).Visible = ChkIEPS.Checked
Else GvDatos.Columns(8).Visible = ChkRetIVA.Checked
GvDatos.Columns(5).Visible = False GvDatos.Columns(9).Visible = ChkRetISR.Checked
End If GvDatos.Columns(10).Visible = ChkImpLoc.Checked
GvDatos.Columns(12).Visible = ChkMinSub.Checked
If ChkIEPS.Checked Then GvDatos.Columns(13).Visible = ChkAVGSub.Checked
GvDatos.Columns(7).Visible = True GvDatos.Columns(14).Visible = ChkMaxSub.Checked
Else GvDatos.Columns(15).Visible = ChkMaxTot.Checked
GvDatos.Columns(7).Visible = False GvDatos.Columns(16).Visible = ChkAvgTot.Checked
End If GvDatos.Columns(17).Visible = ChkMinTot.Checked
GvDatos.Columns(18).Visible = CheckRefacturado.Checked
If ChkRetIVA.Checked Then
GvDatos.Columns(8).Visible = True
Else
GvDatos.Columns(8).Visible = False
End If
If ChkRetISR.Checked Then
GvDatos.Columns(9).Visible = True
Else
GvDatos.Columns(9).Visible = False
End If
If ChkImpLoc.Checked Then
GvDatos.Columns(10).Visible = True
Else
GvDatos.Columns(10).Visible = False
End If
If ChkMinSub.Checked Then
GvDatos.Columns(12).Visible = True
Else
GvDatos.Columns(12).Visible = False
End If
If ChkAVGSub.Checked Then
GvDatos.Columns(13).Visible = True
Else
GvDatos.Columns(13).Visible = False
End If
If ChkMaxSub.Checked Then
GvDatos.Columns(14).Visible = True
Else
GvDatos.Columns(14).Visible = False
End If
If ChkMinTot.Checked Then
GvDatos.Columns(17).Visible = True
Else
GvDatos.Columns(17).Visible = False
End If
If ChkAvgTot.Checked Then
GvDatos.Columns(16).Visible = True
Else
GvDatos.Columns(16).Visible = False
End If
If ChkMaxTot.Checked Then
GvDatos.Columns(15).Visible = True
Else
GvDatos.Columns(15).Visible = False
End If
If CheckRefacturado.Checked Then
GvDatos.Columns(18).Visible = True
Else
GvDatos.Columns(18).Visible = False
End If
UPDatos.Update() UPDatos.Update()