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

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

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-09-17 20:06:05 -07:00
parent 92f8d343df 7e268f5f1f
commit ce00578a34
24 changed files with 506 additions and 372 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
App_Code/ClsContPAQi.vb
View File

@@ -6231,7 +6231,7 @@ Public Class ClsContPAQi
With SqlAdapter.SelectCommand.Parameters
.Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@FechaF", SqlDbType.DateTime).Value = String.Format("{0} 23:59:59", FechaF.ToShortDateString).ToDateTime
.Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta
.Add("@OpcionCuentas", SqlDbType.Int).Value = OpcionCuentas
.Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
@@ -10585,7 +10585,7 @@ Public Class ClsContPAQi
StrSQL.Append(" ( ")
StrSQL.Append(" @IdCtaSup INT, ")
StrSQL.Append(" @FechaI DATE, ")
StrSQL.Append(" @FechaF DATE, ")
StrSQL.Append(" @FechaF DATETIME, ")
StrSQL.Append(" @Tipo INT, ")
StrSQL.Append(" @SegmentoNegocio INT = -1 ")
StrSQL.Append(" ) ")
@@ -10776,7 +10776,7 @@ Public Class ClsContPAQi
StrSQL.Append(" ( ")
StrSQL.Append(" @IdCtaSup INT, ")
StrSQL.Append(" @FechaI DATE, ")
StrSQL.Append(" @FechaF DATE, ")
StrSQL.Append(" @FechaF DATETIME, ")
StrSQL.Append(" @Tipo INT, ")
StrSQL.Append(" @SegmentoNegocio INT = -1 ")
StrSQL.Append(" ) ")
@@ -10883,7 +10883,7 @@ Public Class ClsContPAQi
StrSQL.Append(" ( ")
StrSQL.Append(" @IdCtaSup INT, ")
StrSQL.Append(" @FechaI DATE, ")
StrSQL.Append(" @FechaF DATE, ")
StrSQL.Append(" @FechaF DATETIME, ")
StrSQL.Append(" @Tipo INT, ")
StrSQL.Append(" @SegmentoNegocio INT = -1 ")
StrSQL.Append(" ) ")
@@ -11140,7 +11140,7 @@ Public Class ClsContPAQi
StrSQL.Append(" ( ")
StrSQL.Append(" @IdCtaSup INT, ")
StrSQL.Append(" @FechaI DATE, ")
StrSQL.Append(" @FechaF DATE, ")
StrSQL.Append(" @FechaF DATETIME, ")
StrSQL.Append(" @CveMoneda INT = 1 ")
StrSQL.Append(" ) ")
StrSQL.Append(" RETURNS FLOAT ")

21
App_Code/ClsContabilidad.vb
View File

@@ -5542,6 +5542,27 @@ Public Class ClsContabilidad
Return Retorno
End Function
Public Function GetRepIVAComparativo(FechaInicio As Date, FechaFin As Date, CveUsuarioConsulta As Integer, Conciliado As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_ImpuestosComparativo")
With SqlAdapter.SelectCommand.Parameters
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
.Add("@Conciliado", SqlDbType.Int).Value = Conciliado
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el reporte de IVA Comparativo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetRepIVAAcumulado(FechaInicio As Date, FechaFin As Date, Conciliado As Integer, TipoImpuesto As Integer, CveUsuarioConsulta As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_IVAAcumulado")

24
App_Code/ClsPaginas.vb
View File

@@ -192,20 +192,34 @@ Public Class ClsPaginas
Application("GlobalDTNomConceptos") = value
End Set
End Property
Property GlobalDTTiposGastos(CveEmpresa As Integer) As DataTable
Property GlobalDTTiposGastos(CveEmpresa As Integer, Optional Estatus As Integer = 1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTTiposGastos-{0}", CveEmpresa)
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
Dim ObjCompra As New ClsCompras()
If ObjCompra.GetTipoGasto(-1, -1) Then Application(AppNombre) = ObjCompra.DtResultados Else Application(AppNombre) = Nothing
ObjCompra.Dispose()
End If
If CveEmpresa <> -1 Then
Dim Dv As New DataView(DirectCast(Application("GlobalDTTiposGastos"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
Dim StrSQL As New StringBuilder
StrSQL.AppendFormat("CveEmpresa = {0}", CveEmpresa)
If Estatus >= 0 Then StrSQL.AppendFormat(" AND CveEstatus = {0} ", Estatus)
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString, "", DataViewRowState.CurrentRows)
GlobalDTTiposGastos = Dv.ToTable
Dv.Dispose()
Else
GlobalDTTiposGastos = DirectCast(Application("GlobalDTTiposGastos"), DataTable)
GlobalDTTiposGastos = DirectCast(Application(AppNombre), DataTable)
End If
End Get
Set(value As DataTable)
Application("GlobalDTTiposGastos") = value
Dim AppNombre As String = String.Format("GlobalDTTiposGastos-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
Property GlobalDTMFActividad(CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional CveActividad As Integer = -1) As DataTable
Get

2
Ashx/SIGWeb.ashx
View File

@@ -620,7 +620,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
'verifica existencias
If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152) Then
If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152, 153) Then
UsaGlobal = False
Dim objInv As New ClsInventarios

20
Bancos/PopIECompras.aspx.vb
View File

@@ -1415,6 +1415,12 @@ Partial Class Bancos_PopIECompras
CveConcepto2 = 41
CveProveedor2 = DdlAcreedor.SelectedValue.ToEntero
CveIE = -1
'verifica que se halla selccionado algun acreedor
If DdlAcreedor.SelectedValue.ToEntero <= 0 Then
Inserta = False
Alert("Debe especificar el Acreedor.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Case "6" 'Ventas
ImportePagado = TxtImporte.Text.Trim.ToDecimal
CveProveedor2 = CveProveedor
@@ -3312,18 +3318,18 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = 0
End Select
If ImporteMovimiento <> 0 Then
If ImporteMovimiento <> 0 AndAlso MsgError = "" Then
'Conta ContPAQ
If IdCtaContable = 0 Then
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
idCuentaContabilizacion = 0
End If
'Conta SIG
If CveCuenta = 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
CveCuentaContabilizacion = 0
End If
''Conta SIG
'If CveCuenta = 0 Then
' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
' CveCuentaContabilizacion = 0
'End If
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, If(ConceptoContable = 30, TxtFolio.Text.Trim, TxtObservaciones.Text), ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=TimpocambioGeneral, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeImpuesto) Then
MsgError = "No se pudo insertar la póliza"
@@ -3333,7 +3339,7 @@ Partial Class Bancos_PopIECompras
Next
If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
If ObjMov.ValorPolizaDescuadre > 0 Then
MsgError = ObjMov.MensajePolizaDescuadre
GuardaLogAD($"Bancos/PopIECompras | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")

30
Compras/CatTipoGasto.aspx.cs
View File

@@ -33,7 +33,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas
private void CargaDatos()
{
ClsCompras ObjCompras = new ClsCompras();
if (ObjCompras.GetTipoGasto(-1,UsuarioActual.CveEmpresa))
if (ObjCompras.GetTipoGasto(-1, UsuarioActual.CveEmpresa))
{
GvDatos.DataSource = ObjCompras.DtResultados;
GvDatos.DataBind();
@@ -41,6 +41,16 @@ public partial class Compras_CatTipoGasto : ClsPaginas
ObjCompras.Dispose();
}
private void RecargarGlobal()
{
ClsCompras ObjCompras = new ClsCompras();
if (ObjCompras.GetTipoGasto(-1, -1))
{
set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa, ObjCompras.DtResultados);
}
ObjCompras.Dispose();
}
protected void BtnAgregarTipoGastoD_Click(object sender, EventArgs e)
{
BtnAgregarTipoGasto.Text = "Agregar";
@@ -74,6 +84,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas
Alert("Se eliminó el Tipo de Gasto correctamente");
}
ObjCompras.Dispose();
RecargarGlobal();
}
protected void BtnAgregarTipoGasto_Click(object sender, EventArgs e)
@@ -82,22 +93,21 @@ public partial class Compras_CatTipoGasto : ClsPaginas
if (BtnAgregarTipoGasto.Text == "Agregar")
{
if (ObjCompras.AddTipoGasto(TxtTipoGasto.Text,ChkEstatus.Checked,DateTime.Now.ToString(),UsuarioActual.CveUsuario,UsuarioActual.CveEmpresa))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"));
{
Alert("Se agregó el Tipo de Gasto correctamente");
}
}else
}
else
{
if (ObjCompras.UpdateTipoGasto(CveTipoGasto,TxtTipoGasto.Text,ChkEstatus.Checked,-1,-1))
if (ObjCompras.UpdateTipoGasto(CveTipoGasto, TxtTipoGasto.Text, ChkEstatus.Checked, -1, -1))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"));
Alert("Se actualizó el Tipo de Gasto correctamente");
}
}
ObjCompras.Dispose();
CargaDatos();
RecargarGlobal();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"));
}
}

13
Compras/Proveedores.aspx
View File

@@ -824,6 +824,17 @@
<asp:Button ID="BtnCargarCuentas" runat="server" ClientIDMode="Static" Text="CargaCuentas" Style="display: none;" />
<asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
<div id="divCuentas" runat="server" visible="false">
<asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center; width: 100%;" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
<asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
</Columns>
</asp:GridView>
</div>
<div id="divCuentasContp" runat="server" visible="false">
<table>
<tr>
<td>
@@ -1149,7 +1160,7 @@
</td>
</tr>
</table>
</div>
</ContentTemplate>
</asp:UpdatePanel>

19
Compras/Proveedores.aspx.vb
View File

@@ -852,6 +852,15 @@ Partial Class Compras_Proveedores
DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais)
TxtDIOTNacionalidad.Text = ObjProveedor.DIOTNacionalidad
If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
CargaCuentasConceptos()
divCuentas.Visible = True
divCuentasContp.Visible = False
Else
divCuentas.Visible = False
divCuentasContp.Visible = True
End If
'Contable
If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaContabilidadSIG Then
DdlCtaContAcreedores.AutoPostBack = True
@@ -1010,6 +1019,16 @@ Partial Class Compras_Proveedores
DdlUsuarioEvaluador.DataBind()
End Sub
Private Sub CargaCuentasConceptos()
Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentasConceptos(1, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then
GvCta.DataSource = ObjConta.DtResultados
End If
ObjConta.Dispose()
GvCta.DataBind()
End Sub
Private Sub CargaContactos(ByRef ObjProveedor As ClsCompProveedores)
'TRAE CONTACTOS GENERALES Y POR SUCURSAL
If ObjProveedor.GetProveedoresContactos(-1, CveProveedor, -1) Then

14
Compras/RepComprasDetalle.aspx
View File

@@ -401,6 +401,15 @@
<asp:Literal ID="LtlFechaInv" runat="server" Text='<%# Eval("FechaInv", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="60">
<HeaderTemplate>
Observaciones
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlObs" runat="server" Text='<%# Eval("Observaciones") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
@@ -464,24 +473,29 @@
<asp:CheckBox ID="ChkIVA" runat="server" Text="IVA" /></td>
<td>
<asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" /></td>
<td>
<asp:CheckBox ID="ChkObs" runat="server" Text="Observaciones"/></td>
</tr>
<tr>
<td>
<asp:CheckBox ID="ChkDesc" runat="server" Text="Descuentos" /></td>
<td>
<asp:CheckBox ID="ChkTotal" runat="server" Text="Total" /></td>
<td></td>
</tr>
<tr>
<td>
<asp:CheckBox ID="ChkAbre" runat="server" Text="Moneda" /></td>
<td>
<asp:CheckBox ID="ChkRazon" runat="server" Text="Proveedor" /></td>
<td></td>
</tr>
<tr>
<td>
<asp:CheckBox ID="ChkFolio" runat="server" Text="Folio Inv" /></td>
<td>
<asp:CheckBox ID="ChkFecha" runat="server" Text="Fecha Movimiento" /></td>
<td></td>
</tr>
</table>
</div>

58
Compras/RepComprasDetalle.aspx.vb
View File

@@ -168,6 +168,7 @@ Partial Class Compras_RepComprasDetalle
ChkRazon.Checked = True
ChkFolio.Checked = True
ChkFecha.Checked = True
ChkObs.Checked = True
End Sub
@@ -597,54 +598,15 @@ Partial Class Compras_RepComprasDetalle
#End Region
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
If ChkIVA.Checked Then
GvDatos.Columns(4).Visible = True
Else
GvDatos.Columns(4).Visible = False
End If
If ChkIEPS.Checked Then
GvDatos.Columns(5).Visible = True
Else
GvDatos.Columns(5).Visible = False
End If
If ChkDesc.Checked Then
GvDatos.Columns(6).Visible = True
Else
GvDatos.Columns(6).Visible = False
End If
If ChkTotal.Checked Then
GvDatos.Columns(7).Visible = True
Else
GvDatos.Columns(7).Visible = False
End If
If ChkAbre.Checked Then
GvDatos.Columns(8).Visible = True
Else
GvDatos.Columns(8).Visible = False
End If
If ChkRazon.Checked Then
GvDatos.Columns(9).Visible = True
Else
GvDatos.Columns(9).Visible = False
End If
If ChkFolio.Checked Then
GvDatos.Columns(10).Visible = True
Else
GvDatos.Columns(10).Visible = False
End If
If ChkFecha.Checked Then
GvDatos.Columns(11).Visible = True
Else
GvDatos.Columns(11).Visible = False
End If
GvDatos.Columns(4).Visible = ChkIVA.Checked
GvDatos.Columns(5).Visible = ChkIEPS.Checked
GvDatos.Columns(6).Visible = ChkDesc.Checked
GvDatos.Columns(7).Visible = ChkTotal.Checked
GvDatos.Columns(8).Visible = ChkAbre.Checked
GvDatos.Columns(9).Visible = ChkRazon.Checked
GvDatos.Columns(10).Visible = ChkFolio.Checked
GvDatos.Columns(11).Visible = ChkFecha.Checked
GvDatos.Columns(12).Visible = ChkObs.Checked
UPDatos.Update()
End Sub

2
Contabilidad/RepAnexoCatalogo.aspx.vb
View File

@@ -26,7 +26,7 @@ Partial Class AC_RepAnexoCatalogo
ViewState("FechaInicio") = value
End Set
End Property
Private Property FechaFin As Date
Private Property FechaFin As DateTime
Get
FechaFin = ViewState("FechaFin").ToString.ToDate
End Get

42
Contabilidad/RepIVA.aspx
View File

@@ -40,6 +40,13 @@
<li>
<asp:LinkButton ID="LnkExcel2" OnClick="LnkExcel2_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Generales del proveedor</asp:LinkButton>
</li>
<asp:UpdatePanel runat="server" ID="UPPCompara" UpdateMode="Conditional" >
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkModalCompara" OnClick="LnkModalCompara_Click" runat="server"><i class="fa fa-list-o" style="font-weight:bold;"></i> Comparativo</asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
@@ -271,6 +278,41 @@
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div id="ModalCompara" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpCompara" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-content">
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Comparativo</h4>
</div>
<div class="modal-body">
<asp:GridView ID="GvCompara" runat="server" GridLines="None" AutoGenerateColumns="False" EmptyDataText="" CssClass="table table-striped table-hover table-advance Widthall">
<Columns>
<asp:BoundField DataField="Msg" HeaderText="Mensaje" />
<asp:BoundField DataField="FueConciliado" HeaderText="Conciliado" />
<asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" />
<asp:BoundField DataField="ImporteMN" HeaderText="Importe" DataFormatString="{0:N2}" />
<asp:HyperLinkField DataTextField="CvePrePoliza" DataNavigateUrlFormatString="/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}" DataNavigateUrlFields="CvePrePoliza" HeaderText="Prepoliza" />
<asp:HyperLinkField DataTextField="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataNavigateUrlFields="CveIE" HeaderText="IE" />
<asp:BoundField DataField="FechaAplicado" HeaderText="Fecha Aplicado" DataFormatString="{0:d}" />
</Columns>
</asp:GridView>
</div>
<div class="modal-footer">
.
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

21
Contabilidad/RepIVA.aspx.cs
View File

@@ -332,6 +332,27 @@ public partial class Contabilidad_RepIVA : ClsPaginas
Response.End();
}
protected void LnkModalCompara_Click(object sender, EventArgs e)
{
ClsContabilidad Objconta = new ClsContabilidad();
int Conciliado = DdlTipoMovto.SelectedValue.ToEntero();
if (Objconta.GetRepIVAComparativo(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), UsuarioActual.CveUsuario, Conciliado, UsuarioActual.CveEmpresa ))
{
GvCompara.DataSource = Objconta.DtResultados;
}
Objconta.Dispose();
GvCompara.DataBind();
RegistraScript("$('#ModalCompara').modal('show')");
UpCompara.Update();
}
protected string LV(string Valor)
{
return (Valor.ToDecimal() > 0) ? Valor.ToDecimal().ToString().FormatoNumero(0).Replace(",", string.Empty) : "";

223
Contabilidad/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc
View File

@@ -6,28 +6,28 @@
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>1.86091cm</Width>
<Width>2.28424cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.28292cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.49458cm</Width>
<Width>1.5475cm</Width>
</TablixColumn>
<TablixColumn>
<Width>7.13431cm</Width>
<Width>5.78365cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.99729cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.10313cm</Width>
<Width>2.10377cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.1825cm</Width>
<Width>2.10378cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.31479cm</Width>
<Width>3.26728cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
@@ -149,11 +149,84 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<ColSpan>3</ColSpan>
</CellContents>
</TablixCell>
<TablixCell />
<TablixCell />
<TablixCell>
<CellContents>
<Textbox Name="Textbox16">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>Verdana</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox16</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<TopBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</TopBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox18">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>Verdana</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox18</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<TopBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</TopBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox22">
@@ -605,10 +678,40 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<ColSpan>2</ColSpan>
</CellContents>
</TablixCell>
<TablixCell />
<TablixCell>
<CellContents>
<Textbox Name="Textbox15">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>Verdana</FontFamily>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox15</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox21">
@@ -1221,9 +1324,8 @@
<Source>External</Source>
<Value>=Parameters!pImg.Value</Value>
<Sizing>FitProportional</Sizing>
<Left>0.09633cm</Left>
<Height>1.5cm</Height>
<Width>1.5cm</Width>
<Height>2.07257cm</Height>
<Width>3.56716cm</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
@@ -1251,9 +1353,8 @@
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>0.25646cm</Top>
<Left>2.87447cm</Left>
<Height>0.81167cm</Height>
<Width>12.68053cm</Width>
<Width>20.37043cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
@@ -1285,9 +1386,8 @@
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>1.12429cm</Top>
<Left>2.87447cm</Left>
<Height>0.94828cm</Height>
<Width>12.68053cm</Width>
<Width>20.37043cm</Width>
<ZIndex>3</ZIndex>
<ToolTip>="Moviemtos, Auxiliares del Catalogo" &amp; System.Environment.NewLine &amp; "al " &amp;Parameters!pFechaFin.Value</ToolTip>
<Style>
@@ -1321,9 +1421,9 @@
</Paragraphs>
<rd:DefaultName>Textbox8</rd:DefaultName>
<Top>0.25646cm</Top>
<Left>16.87794cm</Left>
<Left>14.99937cm</Left>
<Height>0.81167cm</Height>
<Width>3.49249cm</Width>
<Width>5.37106cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
@@ -1336,7 +1436,7 @@
</Style>
</Textbox>
</ReportItems>
<Height>2.0944in</Height>
<Height>2.2819in</Height>
<Style />
</Body>
<Width>8.01986in</Width>
@@ -1346,6 +1446,41 @@
<PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
<Textbox Name="Textbox8">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>="Libro Mayor" &amp; System.Environment.NewLine &amp; "al " &amp;Parameters!pFechaFin.Value</Value>
<Style>
<FontSize>11pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Height>0.89958cm</Height>
<Width>20.37043cm</Width>
<Visibility>
<Hidden>= (Globals.PageNumber=1)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox12">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
@@ -1367,43 +1502,9 @@
</Paragraphs>
<rd:DefaultName>Textbox8</rd:DefaultName>
<Top>0.02088cm</Top>
<Left>16.87794cm</Left>
<Height>0.57912cm</Height>
<Width>3.49249cm</Width>
<Visibility>
<Hidden>= (Globals.PageNumber=1)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
</Style>
</Textbox>
<Textbox Name="Textbox8">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>="Libro Mayor" &amp; System.Environment.NewLine &amp; "al " &amp;Parameters!pFechaFin.Value</Value>
<Style>
<FontSize>11pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Left>2.87447cm</Left>
<Height>0.89958cm</Height>
<Width>12.68053cm</Width>
<Left>14.99937cm</Left>
<Height>0.8787cm</Height>
<Width>5.37106cm</Width>
<ZIndex>1</ZIndex>
<Visibility>
<Hidden>= (Globals.PageNumber=1)</Hidden>
@@ -1414,8 +1515,6 @@
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
@@ -1451,9 +1550,9 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.0703cm</Top>
<Left>14.85419cm</Left>
<Left>14.99937cm</Left>
<Height>0.6cm</Height>
<Width>5.51625cm</Width>
<Width>5.37107cm</Width>
<Style>
<Border>
<Style>None</Style>

BIN
Empresas/Grales/Formatos/RepIVAAcreditable.rpt
View File

Binary file not shown.

8
Global.asax
View File

@@ -138,10 +138,10 @@
GuardaLogAsax(String.Format("Globalasax 7:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C A R G A - T I P O G A S T O S
Using ObjCompra As New ClsCompras()
If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing
End Using
''C A R G A - T I P O G A S T O S
'Using ObjCompra As New ClsCompras()
' If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing
'End Using
GuardaLogAsax(String.Format("Globalasax 8:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

10
Inventarios/Kardex.aspx
View File

@@ -125,7 +125,7 @@
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkSeries" Visible="false" runat="server">Series</asp:LinkButton>
<asp:LinkButton ID="LnkSeries" Visible="false" runat="server"><i class="fa fa-list"></i> Series Disponibles</asp:LinkButton>
</li>
<li>
<a target="_blank" class="ayuda" href="../Documentacion/DocumentacionInventarios.aspx#Kardex">&nbsp;</a>
@@ -501,7 +501,7 @@
</asp:UpdatePanel>
</div>
<div id="DivModalSerie" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpdatePanel1" UpdateMode="Conditional" RenderMode="Inline" style="width:40%">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpdatePanel1" UpdateMode="Conditional" RenderMode="Inline" style="width:50%">
<ContentTemplate>
<div class="modal-content">
<div class="modal-header ">
@@ -510,16 +510,16 @@
</div>
<div class="modal-body">
<div class="row" style="width:100%">
<div style="width:95%;margin-left:2.5%;margin-right:2.5%">
<div style="width:98%;margin-left:1.5%;margin-right:1.5%">
<asp:UpdatePanel ID="UpGridSeries" runat="server" UpdateMode="Conditional" RenderMode="Inline">
<ContentTemplate>
<asp:GridView ID="GvSeries" Width="100%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
<asp:GridView ID="GvSeries" Width="98%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-advance table-hover ScrollAD" GridLines="None"
DataKeyNames="CveEmpresa,CveAlmacen,Almacen,PS,CvePS,Serie,Lote,FechaCaducidad,CveSeccionAlmacen,Existencia,Valor">
<Columns>
<asp:BoundField HeaderText="Almacén" DataField="Almacen"/>
<asp:BoundField HeaderText="Serie" DataField="Serie"/>
<asp:BoundField HeaderText="Existencia" DataField="Existencia" DataFormatString="{0:N}"/>
<asp:BoundField HeaderText="Existencia" DataField="Existencia" DataFormatString="{0:#,###}"/>
</Columns>
</asp:GridView>

4
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -1682,7 +1682,7 @@ Partial Class Inventarios_RecepcionAlmacen
End If
If TipoMovimiento = 2 Then
If DtExistencias.SUM("Existencia", $"Serie = {Serie}") = 0 Then
If DtExistencias.SUM("Existencia", $"Serie = '{Serie}'") = 0 Then
MensajeSinExistencias.Append($"Serie: <b>{Serie}</b>. <br/>")
Continue For
End If
@@ -2308,7 +2308,7 @@ Partial Class Inventarios_RecepcionAlmacen
'SALIDA DE ALMACEN POR TRASPASO
CveMovimientoSalidaTraspaso = ObjInventario.AddMovimiento(CveAlmacen, CveConceptoAlmacen, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio),
MovimientoFijo:=If(TipoMovimiento = 2, True, False), CveAlmacenDestino:=CveAlmacenDestino, Remision:=TxtRemision.Text, Modulo:="RA/G1")
MovimientoFijo:=If(TipoMovimiento = 2, True, False), CveAlmacenDestino:=CveAlmacenDestino, Remision:=TxtRemision.Text, Modulo:="RA/G11")
If CveMovimientoSalidaTraspaso > 0 Then
FolioSalidaTraspaso = ObjInventario.Folio.ToString()

2
Inventarios/RepTraspasoAlmacen.aspx
View File

@@ -202,7 +202,7 @@
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Traspaso de Almacén"
ToolTip="Remisiones sin Facturar" data-rows="2"
ToolTip="" data-rows="2"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
data-sort="true" GridLines="None">
<Columns>

88
Ventas/AuxiliarCliente.aspx.vb
View File

@@ -100,93 +100,7 @@ Partial Class Ventas_AuxiliarCliente
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub
Public Sub ExportToExcelGTest(Gv As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing)
Dim sw As New StringWriter()
Dim htw As New HtmlTextWriter(sw)
Gv.RenderControl(htw)
GemBox.Spreadsheet.SpreadsheetInfo.SetLicense("ESWN-4QFD-26JF-1SZ8")
Dim excel As GemBox.Spreadsheet.ExcelFile
Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault
Using htmlStream = New MemoryStream(options.Encoding.GetBytes(sw.ToString()))
excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream, options)
If Usuario IsNot Nothing Then
Dim worksheet = excel.Worksheets(0)
Dim num As Integer = worksheet.Rows.Count
If num > 128 Then num = 128
Dim columnCount = worksheet.CalculateMaxUsedColumns()
'If columnCount > 1 Then
' For i As Integer = 1 To columnCount - 1
' worksheet.Columns(i).AutoFit(1, worksheet.Rows(1), worksheet.Rows(num - 1))
' Next
'End If
worksheet.Rows.InsertEmpty(0, 7)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Usuario.CveEmpresa)
If Imagen.Exists Then
worksheet.Pictures.Add(logouri.ToString(), "A1", "B4")
End If
Dim celdasConTexto = worksheet.GetUsedCellRange(True)
celdasConTexto.Style.Font.Name = "Calibri Light"
Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)
RangoNombreEmpresa.Merged = True
RangoNombreEmpresa.Value = Usuario.Empresa.Empresa
RangoNombreEmpresa.Style.Font.Size = 18 * 20
RangoNombreEmpresa.Style.Font.Name = "Calibri Light"
RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex)
RangoTitulo.Merged = True
RangoTitulo.Value = Titulo
RangoTitulo.Style.Font.Size = 20 * 20
RangoTitulo.Style.Font.Name = "Calibri Light"
RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
Dim FiltroCliente = worksheet.Cells.GetSubrangeAbsolute(5, celdasConTexto.FirstColumnIndex, 5, celdasConTexto.LastColumnIndex)
FiltroCliente.Merged = True
FiltroCliente.Value = String.Format("Cliente: {0} Fecha Inicio: {1} Fecha Fin: {2} Opción: {3}", DdlClientes.SelectedText, txtFechaI.Text, txtFechaF.Text, DdlOpcion.SelectedItem.Text)
FiltroCliente.Style.Font.Size = 12 * 20
FiltroCliente.Style.Font.Name = "Calibri Light"
FiltroCliente.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
FiltroCliente.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
worksheet.Rows(7).Cells(i).Style.Font.Size = 12 * 20
worksheet.Rows(7).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
worksheet.Rows(7).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
worksheet.Rows(7).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Rows(7).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
'If i > 0 Then
' Try
' worksheet.Columns(i).AutoFit(1)
' Catch ex As Exception
' End Try
'End If
Next
Dim IndexEndTable As Integer = Gv.Rows.Count + 9
worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió:"
worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre
worksheet.Rows(IndexEndTable).Cells(4).Value = "Fecha Impresión: "
worksheet.Rows(IndexEndTable + 1).Cells(4).Value = DateTime.Now.ToString()
worksheet.Rows(IndexEndTable).Cells(8).Value = "Impreso en SIG"
End If
End Using
htw.Dispose()
excel.Save(HttpContext.Current.Response, NombreArchivoXLSx)
ExportToExcelGembox(Gv, NombreArchivoXLSx, Usuario, txtFechaI.Text, txtFechaF.Text, Titulo, "", 1)
End Sub
Protected Sub GvAuxCliente_RowDataBound(sender As Object, e As GridViewRowEventArgs)

235
Ventas/Clientes.aspx
View File

@@ -1007,129 +1007,10 @@
</div>
<div class="portlet-body form-horizontal form-row-sepe">
<div class="form-body">
<div class="form-group">
<label class="control-label col-md-4">Clientes: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Extranjera Clientes: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlMonedaExtranjeraClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="Button2" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Complementaria Clientes: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableCompClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegCompClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Anticipos: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableAnticipos" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Extranjera Anticipos: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlMonedaExtranjeraAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="Button4" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Complementaria Anticipos: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableCompAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegCompAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Ret. IVA: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableRetIVA" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroIVA" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Ret. ISR: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableRetISR" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroISR" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetISR" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Fondo de Garantía: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableFondoGarantia" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="Button1" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
</div>
</div>
</div>
</div>
</div>
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Cuentas y conceptos</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
</div>
<div class="portlet-body form-horizontal form-row-sepe">
<div class="form-body">
<asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
<div id="divCuentas" runat="server" visible="false">
<asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvCuentasContable" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas en el Cliente" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center; min-width: 783px; width: 100%;" GridLines="None">
<asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center; width: 100%;" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
<asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
@@ -1137,9 +1018,119 @@
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div id="divCuentasContp" runat="server" visible="false">
<div class="form-group">
<label class="control-label col-md-4">Clientes: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Extranjera Clientes: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlMonedaExtranjeraClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="Button2" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Complementaria Clientes: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableCompClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegCompClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Anticipos: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableAnticipos" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Extranjera Anticipos: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlMonedaExtranjeraAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="Button4" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Complementaria Anticipos: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableCompAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegCompAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Ret. IVA: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableRetIVA" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroIVA" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Ret. ISR: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableRetISR" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroISR" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetISR" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Fondo de Garantía: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableFondoGarantia" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="Button1" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>

23
Ventas/Clientes.aspx.vb
View File

@@ -791,7 +791,7 @@ Partial Class Clientes
If Request("ATI") IsNot Nothing AndAlso IsNumeric(Request("ATI")) Then
Tab.ActiveTabIndex = Request("ATI").ToEntero
End If
CargaCuentasyConceptos()
'CargaCuentasyConceptos()
Else
'Configuración de Modalidad Insert
@@ -1079,13 +1079,13 @@ Partial Class Clientes
DdlMonedaExtranjeraAnticipos.Attributes.Add("onclick", "CargaCuentas(9);")
End Sub
Private Sub CargaCuentasyConceptos()
Private Sub CargaCuentasConceptos()
Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentasyConceptos(CveCliente) Then
GvCuentasContable.DataSource = ObjConta.DtResultados
If ObjConta.GetCuentasConceptos(6, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then
GvCta.DataSource = ObjConta.DtResultados
End If
ObjConta.Dispose()
GvCuentasContable.DataBind()
GvCta.DataBind()
UpCuentaConceptos.Update()
End Sub
Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
@@ -1681,8 +1681,17 @@ Partial Class Clientes
End If
CargaEventoBitacora()
'Ocultamos la mayoria de informacion si es no-frecuente
If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
CargaCuentasConceptos()
divCuentas.Visible = True
divCuentasContp.Visible = False
Else
divCuentas.Visible = False
divCuentasContp.Visible = True
End If
'Ocultamos la mayoria de informacion si es no-frecuente
If ObjClientes.TipoCliente = 2 Then
TabFiscalContable.Visible = False
TabCxC.Visible = False

2
Ventas/Ventas.aspx
View File

@@ -3718,7 +3718,7 @@
<div style="max-height: 300px; overflow-y: auto;">
<asp:GridView ID="GVAnticipos" runat="server" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="No se encontraron Anticipos del Cliente"
ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall" data-height="300" Style="text-align: center;" GridLines="None"
DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo,IEPS, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, IdCtaContableNC,FolioFiscal, CveClasificacionNC, IdCtaContableNCSIG, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos,RegresarImpuesto">
DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo,IEPS, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, IdCtaContableNC,FolioFiscal, CveClasificacionNC, IdCtaContableNCSIG, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos,RegresarImpuesto,CveCliente">
<Columns>
<asp:TemplateField>
<ItemTemplate>

7
Ventas/Ventas.aspx.vb
View File

@@ -14534,7 +14534,10 @@ Partial Class Ventas
End Sub
Private Sub RecargaSucursalPartidas()
Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
Dim SubProyecto As String = DdlSubProyectoDatos.SelectedItem.Text
Dim SubProyecto As String = ""
If CveSubProyecto > 0 Then
SubProyecto = DdlSubProyectoDatos.SelectedItem.Text
End If
If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
For Each Row As DataRow In TmpDT.Rows
@@ -15233,8 +15236,6 @@ Partial Class Ventas
Row("CvePS") = CvePS
Row("Obs") = Obs
Dim DrPS As DataRow = Nothing
DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") ' Estado = -1