This commit is contained in:
2024-06-05 09:25:38 -07:00
15 changed files with 1606 additions and 1294 deletions

View File

@@ -1106,9 +1106,16 @@ Public Class ClsBancos
dttpagosimpuestos = DtResultados
End If
Dim FechaPago As Date = dr("FechaDocumento").ToString.ToDate
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
FechaPago = dr("FechaEmision").ToString.ToDate
End If
Timbre = Timbrado.PreparaTimbrePago40(RFCEmpresa, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal,
RFCCliente, dr("NombreCliente").ToString, dr("ClienteCP").ToString, dr("CodigoRegimenFiscal").ToString, Serie, Folio.ToString, FechaTimbrado, Cuentapago,
dr("FechaDocumento").ToString.ToDate, dr("ClaveFormaPagoSAT").ToString, dr("AbreviaturaSAT").ToString, dr("VentasTotalPagado").ToString.ToDecimal,
FechaPago, dr("ClaveFormaPagoSAT").ToString, dr("AbreviaturaSAT").ToString, dr("VentasTotalPagado").ToString.ToDecimal,
UsuarioActual.Empresa.CP, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDecimal, dttpagos, dttpagosimpuestos, CFDIRelacionado:=CFDIRelacionado,
RfcACuentaTerceros:=dr("RfcACuentaTerceros").ToString, NombreACuentaTerceros:=dr("NombreACuentaTerceros").ToString, RegimenFiscalACuentaTerceros:=dr("RegimenFiscalACuentaTerceros").ToString, DomicilioFiscalACuentaTerceros:=dr("DomicilioFiscalACuentaTerceros").ToString)
@@ -1480,7 +1487,7 @@ Public Class ClsBancos
Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1,
Optional Referencia As String = "-1", Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False,
Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1,
Optional AnticipoPuntual As Boolean = False) As Integer
Optional AnticipoPuntual As Boolean = False, Optional FechaEmision As Date = MinFecha) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Banc_IEAdd")
@@ -1522,6 +1529,7 @@ Public Class ClsBancos
.Add("@CveOCAnticipo", SqlDbType.Int).Value = CveOCAnticipo
.Add("@ImporteDeduccionesPago", SqlDbType.Money).Value = ImporteDeduccionesPago
.Add("@AnticipoPuntual", SqlDbType.Bit).Value = AnticipoPuntual
.Add("@FechaEmision", SqlDbType.Date).Value = FechaEmision
End With
Try

View File

@@ -488,7 +488,7 @@ Partial Class Bancos_DepositosCaja
Private Function ValidaCobranza() As Boolean
Dim Respuesta As Boolean = False
If UsuarioActual.CveEmpresa.Contiene(195) Then
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
Dim ObjMovtos As New ClsMovimientos()
Dim FechaI, FechaF As Date
@@ -504,7 +504,7 @@ Partial Class Bancos_DepositosCaja
Respuesta = True
Else
Respuesta = False
Alert("Se detectaron cobros pendientes.", TipoMensaje.MsgAdvertencia)
Alert("No se puede realizar el depósito, ya que hay cobros pendientes por aplicar.", TipoMensaje.MsgAdvertencia)
End If
Else

View File

@@ -535,10 +535,44 @@
<ContentTemplate>
<table>
<tr>
<td style="width:66%">
<table>
<td>
<asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="true" CssClass="md-checksd" runat="server" />
<asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="true" CssClass="md-checksd" runat="server" AutoPostBack="true" OnCheckedChanged="ChkComplementoPago_CheckedChanged" />
</td>
<td>
<div runat="server" id="DvFechaEmision" visible="false">
<table>
<td style="white-space: nowrap;">Fecha Emisión:</td>
<td>
<div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
<asp:TextBox ID="TxtFechaEmision" runat="server" CssClass="form-control"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton runat="server" ID="LnkImgTxtFechaEmision" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="METxtFechaEmision" runat="server" TargetControlID="TxtFechaEmision" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" ></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CETxtFechaEmision" runat="server" TargetControlID="TxtFechaEmision" PopupButtonID="LnkImgTxtFechaEmision" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RfvTxtFechaEmision" runat="server" ControlToValidate="TxtFechaEmision" Display="None" ErrorMessage="El campo <b>''Fecha de Emisión''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVTxtFechaEmision" runat="server" ControlToValidate="TxtFechaEmision" Display="None" ErrorMessage="El campo <b>''Fecha de Emisión''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaEmision" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender9" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaEmision" Width="350px"></ajax:ValidatorCalloutExtender>
</td>
</table>
</div>
</td>
</table>
</td>
<td style="width:34%">
<asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" />
<asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
</td>

View File

@@ -1110,6 +1110,18 @@ Partial Class Bancos_PopIEVentas
#Region "G U A R D A R"
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
Dim FechaEmision As Date = MinFecha
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
FechaEmision = TxtFechaEmision.Text.ToDate
If FechaEmision <= MinFecha Then
Alert("Fecha de Emisión no valida", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
If ChkComplementoPago.Checked Then
Dim objGral As New ClsGralFolios
Dim SalirDeMetodo As Boolean = False
@@ -1248,7 +1260,9 @@ Partial Class Bancos_PopIEVentas
Select Case RBLContado.SelectedValue
Case "1" ' Banco
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCorte:=CveCorte)
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "",
True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito,
Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCorte:=CveCorte, FechaEmision:=FechaEmision)
If CveIE > 0 Then
Pago.ImportePago = ImportePagado
@@ -1523,4 +1537,11 @@ Partial Class Bancos_PopIEVentas
End Sub
Protected Sub ChkComplementoPago_CheckedChanged(sender As Object, e As EventArgs)
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
DvFechaEmision.Visible = ChkComplementoPago.Checked
UpGuardar.Update()
End If
End Sub
End Class

View File

@@ -11735,7 +11735,42 @@ Partial Class Compras_Compras
End Sub
Protected Sub RBLPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLPago.SelectedIndexChanged
CambiaTipoPago(True)
ValidaPagoSinXML()
End Sub
Private Sub ValidaPagoSinXML()
If CveFactura <= 0 And CveCompra <= 0 Then
If UsuarioActual.Empresa.Funcionalidad(123) <> "" And Not UsuarioActual.TienePermisoProceso(156) Then
If Not ValidaCierrePeriodo() Then
Alert("El periodo de la compra actual ya se encuentra cerrado. No podra registrar la compra.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Visible = False
UpFacturar.Update()
Exit Sub
End If
End If
If UsuarioActual.TienePermisoProceso(365) Then
BtnGuardar.Visible = False
If RBLPago.SelectedValue.ToEntero = 3 Then
BtnGuardar.Visible = True
End If
Else
BtnGuardar.Visible = True
End If
End If
UpFacturar.Update()
End Sub
Private Sub CambiaTipoPago(MostrarModal As Boolean)
DdlPersonalReembolso.Visible = False
DdlCuentaCajaChicaReembolso.Visible = False

View File

@@ -1,5 +1,83 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DataSet1">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="NombreComercial">
<DataField>NombreComercial</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CveCliente">
<DataField>CveCliente</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CveMoneda">
<DataField>CveMoneda</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TotalAnticipos">
<DataField>TotalAnticipos</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="OriginalAnticipos">
<DataField>OriginalAnticipos</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="AplicadoAnticipos">
<DataField>AplicadoAnticipos</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TotalNC">
<DataField>TotalNC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="OriginalNC">
<DataField>OriginalNC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="AplicadoNC">
<DataField>AplicadoNC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TotalIXC">
<DataField>TotalIXC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="OriginalIXC">
<DataField>OriginalIXC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="AplicadoIXC">
<DataField>AplicadoIXC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
<ReportSections>
<ReportSection>
<Body>
<ReportItems>
<Tablix Name="Tablix2">
@@ -105,6 +183,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>OriginalAnticipos</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarAnticipos.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -141,6 +222,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>AplicadoAnticipos</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarAnticipos.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -177,6 +261,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>TotalAnticipos</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarAnticipos.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -214,6 +301,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>OriginalNC</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarNCxAplicar.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -250,6 +340,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>AplicadoNC</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarNCxAplicar.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -286,6 +379,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>TotalNC</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarNCxAplicar.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -322,6 +418,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>OriginalIXC</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarIngresosxComprobar.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -358,6 +457,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>AplicadoIXC</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarIngresosxComprobar.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -394,6 +496,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>TotalIXC</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarIngresosxComprobar.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -437,6 +542,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox6</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarAnticipos.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>DimGray</Color>
@@ -476,6 +584,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox4</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarAnticipos.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>DimGray</Color>
@@ -515,6 +626,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox40</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarAnticipos.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>DimGray</Color>
@@ -554,6 +668,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox13</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarNCxAplicar.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>DimGray</Color>
@@ -593,6 +710,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox15</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarNCxAplicar.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>DimGray</Color>
@@ -632,6 +752,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox42</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarNCxAplicar.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>DimGray</Color>
@@ -671,6 +794,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox17</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarIngresosxComprobar.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>DimGray</Color>
@@ -710,6 +836,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarIngresosxComprobar.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>DimGray</Color>
@@ -749,6 +878,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox44</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!MostarIngresosxComprobar.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>DimGray</Color>
@@ -816,7 +948,7 @@
<Top>1.71125cm</Top>
<Left>0.06614cm</Left>
<Height>0.93542cm</Height>
<Width>19.58715cm</Width>
<Width>19.58714cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -859,82 +991,7 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox22">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Anticipos</Value>
<Style>
<FontFamily>Arial Black</FontFamily>
<FontSize>8pt</FontSize>
<Color>White</Color>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox22</rd:DefaultName>
<Top>1.04069cm</Top>
<Left>7.16723cm</Left>
<Height>0.6cm</Height>
<Width>4.03881cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>DimGray</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox23">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>NC X Aplicar</Value>
<Style>
<FontFamily>Arial Black</FontFamily>
<FontSize>8pt</FontSize>
<Color>White</Color>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox22</rd:DefaultName>
<Top>1.04069cm</Top>
<Left>11.24132cm</Left>
<Height>0.6cm</Height>
<Width>4.27799cm</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>DimGray</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox24">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
@@ -958,7 +1015,48 @@
<Left>15.55459cm</Left>
<Height>0.6cm</Height>
<Width>4.0987cm</Width>
<ZIndex>4</ZIndex>
<ZIndex>2</ZIndex>
<Visibility>
<Hidden>=IIF(Parameters!MostarIngresosxComprobar.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>DimGray</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Rectangle Name="Rectangle1">
<ReportItems>
<Textbox Name="Textbox22">
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Anticipos</Value>
<Style>
<FontFamily>Arial Black</FontFamily>
<FontSize>8pt</FontSize>
<Color>White</Color>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox22</rd:DefaultName>
<Height>0.6cm</Height>
<Width>4.03881cm</Width>
<Visibility>
<Hidden>=IIF(Parameters!MostarAnticipos.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -971,7 +1069,72 @@
</Style>
</Textbox>
</ReportItems>
<Height>1.10756in</Height>
<KeepTogether>true</KeepTogether>
<Top>1.04069cm</Top>
<Left>7.20603cm</Left>
<Height>0.6cm</Height>
<Width>4.03881cm</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Rectangle>
<Rectangle Name="Rectangle2">
<ReportItems>
<Textbox Name="Textbox23">
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>NC X Aplicar</Value>
<Style>
<FontFamily>Arial Black</FontFamily>
<FontSize>8pt</FontSize>
<Color>White</Color>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox22</rd:DefaultName>
<Left>0cm</Left>
<Height>0.6cm</Height>
<Width>4.27799cm</Width>
<Visibility>
<Hidden>=IIF(Parameters!MostarNCxAplicar.Value = "0",True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>DimGray</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<KeepTogether>true</KeepTogether>
<Top>1.04069cm</Top>
<Left>11.26954cm</Left>
<Height>0.6cm</Height>
<Width>4.27799cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Rectangle>
</ReportItems>
<Height>1.46173in</Height>
<Style />
</Body>
<Width>7.79264in</Width>
@@ -1268,82 +1431,8 @@
<ColumnSpacing>0.13cm</ColumnSpacing>
<Style />
</Page>
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DataSet1">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="NombreComercial">
<DataField>NombreComercial</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CveCliente">
<DataField>CveCliente</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CveMoneda">
<DataField>CveMoneda</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TotalAnticipos">
<DataField>TotalAnticipos</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="OriginalAnticipos">
<DataField>OriginalAnticipos</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="AplicadoAnticipos">
<DataField>AplicadoAnticipos</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TotalNC">
<DataField>TotalNC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="OriginalNC">
<DataField>OriginalNC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="AplicadoNC">
<DataField>AplicadoNC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TotalIXC">
<DataField>TotalIXC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="OriginalIXC">
<DataField>OriginalIXC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="AplicadoIXC">
<DataField>AplicadoIXC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
</ReportSection>
</ReportSections>
<ReportParameters>
<ReportParameter Name="NombreEmpresa">
<DataType>String</DataType>
@@ -1375,6 +1464,24 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="MostarAnticipos">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="MostarNCxAplicar">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="MostarIngresosxComprobar">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>

View File

@@ -2099,7 +2099,7 @@ Partial Class Inventarios_EntregaAlmacen
'LIMITAR EL NUMERO DE PARTIDAS QUE SE PUEDEN ENTREGAR
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
'SI EL CLIENTE ES OPERADORA DE HOSPITALES ANGELES SOLO SE PUEDEN RECIBIR MAXIMO 5
If CveCliente = 819998 Then
If CveCliente = 819998 And Not EsDevolucionVenta = 1 Then
If NumRegistros > 5 Then
Alert("Solo se pueden recibir máximo 5 partidas.", TipoMensaje.MsgAdvertencia)
Exit Sub

View File

@@ -231,7 +231,7 @@
<asp:UpdatePanel runat="server" ID="UPPImportarSaldo" RenderMode="Inline" UpdateMode="Conditional">
<ContentTemplate>
<li>
<asp:LinkButton ID="HLImportarSaldos" data-toggle="tooltip" runat="server" Text="<i class='fa fa-arrow-circle-o-down'></i> Reclasificar Saldos"></asp:LinkButton>
<asp:LinkButton ID="HLImportarSaldos" data-toggle="tooltip" runat="server" Visible="false" Text="<i class='fa fa-arrow-circle-o-down'></i> Reclasificar Saldos"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>

View File

@@ -742,6 +742,13 @@ Partial Class Clientes
DivRetIVA.Visible = False
End If
If UsuarioActual.TienePermisoProceso(381) Then
HLImportarSaldos.Visible = True
End If
divRegimen.Visible = True
If UsuarioActual.CveEmpresa.Contiene(1) Or UsuarioActual.Empresa.Funcionalidad(531) = "1" Then

View File

@@ -308,23 +308,75 @@
<asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<table class="Widthall">
<%-- <br />
<div class="row">
<div class="col-lg-2" style="text-align:right!important;max-width:15%!important">
</div>
<div class="col-lg-2" style="max-width:15%!important">
</div>
<div class="col-lg-1">
</div>
<div class="col-lg-1" style="text-align:left!important">
</div>
<div class="col-lg-5" style="text-align: right">
</div>
</div>--%>
<table class="Widthall" style="height:50px!important">
<tr>
<td style="text-align: right; width: 20%">
<td style="text-align: right; width: 15%">
<asp:CheckBox Text=" Seguir Registrando Pagos" ID="ChkSeguirRegistrando" CssClass="md-checksd" runat="server" />
</td>
<td style="text-align: left; width: 19%">
<asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="true" CssClass="md-checksd" runat="server" />
<td style="text-align: left; width: 15%">
<asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="true" CssClass="md-checksd" runat="server" AutoPostBack="true" OnCheckedChanged="ChkComplementoPago_CheckedChanged" />
<br />
<asp:Label ID="LblValidaCeuntaTipoTransaccion" runat="server" Visible="false" ForeColor="Red"></asp:Label>
</td>
<td style="text-align: left;">
<td style="text-align: left; width: 15%">
<div runat="server" id="DvFechaEmision" visible="false">
<table>
<td style="white-space: nowrap;">Fecha Emisión:</td>
<td>
<div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
<asp:TextBox ID="TxtFechaEmision" runat="server" CssClass="form-control"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton runat="server" ID="LnkImgTxtFechaEmision" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="METxtFechaEmision" runat="server" TargetControlID="TxtFechaEmision" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CETxtFechaEmision" runat="server" TargetControlID="TxtFechaEmision" PopupButtonID="LnkImgTxtFechaEmision" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RfvTxtFechaEmision" runat="server" ControlToValidate="TxtFechaEmision" Display="None" ErrorMessage="El campo <b>''Fecha de Emisión''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVTxtFechaEmision" runat="server" ControlToValidate="TxtFechaEmision" Display="None" ErrorMessage="El campo <b>''Fecha de Emisión''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
<%--<asp:RangeValidator ID="RVTxtFechaEmision" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>--%>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender8" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaEmision" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender9" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaEmision" Width="350px"></ajax:ValidatorCalloutExtender>
<%--<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender10" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaEmision" Width="350px"></ajax:ValidatorCalloutExtender>--%>
</td>
</table>
</div>
</td>
<td style="text-align: center;width: 10%">
<asp:Button ID="BtnIEGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" class="btn btn-primary" />
</td>
<td style="text-align: right; width: 18%">
<td style="text-align: right; width: 45%">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvCxC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 125px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvCxC.ClientID) %>" style="margin-top: -3px; margin-right: 20px" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</td>
</tr>
</table>

View File

@@ -615,6 +615,19 @@ Partial Class Ventas_ClientesAbonar
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
Dim FechaEmision As Date = MinFecha
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
FechaEmision = TxtFechaEmision.Text.ToDate
If FechaEmision <= MinFecha Then
Alert("Fecha de Emisión no valida", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
If ChkComplementoPago.Checked Then
Dim objGral As New ClsGralFolios
Dim SalirDeMetodo As Boolean = False
@@ -800,7 +813,7 @@ Partial Class Ventas_ClientesAbonar
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal,
GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio,
TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito,
CveProveedorIntermediario:=CveProvIntermediario, ImporteDeduccionesPago:=TxtImporteDeduccionesPago.Text.ToDecimal)
CveProveedorIntermediario:=CveProvIntermediario, ImporteDeduccionesPago:=TxtImporteDeduccionesPago.Text.ToDecimal, FechaEmision:=FechaEmision)
Else
If RblTipoPago.SelectedValue.Contiene("3") Then 'ixc
CveIE = DdlIngreso.SelectedValue.ToEntero
@@ -2844,4 +2857,14 @@ Partial Class Ventas_ClientesAbonar
End If
End Sub
Protected Sub ChkComplementoPago_CheckedChanged(sender As Object, e As EventArgs)
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
DvFechaEmision.Visible = ChkComplementoPago.Checked
UpGuardar.Update()
End If
End Sub
End Class

View File

@@ -8,6 +8,12 @@
background-color: #95A5A6;
color: white;
}
.check{
margin-top:10px!important;
}
.box{
margin-top:10px!important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -29,7 +35,7 @@
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
<asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Always">
<ContentTemplate>
<div id="PFiltro" class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle">
@@ -125,6 +131,15 @@
</asp:DropDownList>
</div>
</div>
<div class="col-md-1" >
<asp:CheckBox runat="server" ID="ChkAnticipos" Text="Anticipos" Checked="true" />
</div>
<div class="col-md-1" >
<asp:CheckBox runat="server" ID="ChkNCxAplicar" Text="NC x Aplicar" Checked="true" />
</div>
<div class="col-md-2" >
<asp:CheckBox runat="server" ID="ChkIngresosxComprobar" Text="Ingreos x Comprobar" Checked="true" />
</div>
</div>
</div>

View File

@@ -147,6 +147,13 @@ public partial class Ventas_RepAnticipo_NC_IXC : ClsPaginas
para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
para.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
para.Add(new ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Cliente}{Sucursal}{FechaI}{FechaF}{FechaICorte}{FechaFCorte}"));
para.Add(new ReportParameter("MostarAnticipos", ChkAnticipos.Checked ?"1":"0" ));
para.Add(new ReportParameter("MostarNCxAplicar", ChkNCxAplicar.Checked ? "1" : "0"));
para.Add(new ReportParameter("MostarIngresosxComprobar", ChkIngresosxComprobar.Checked ? "1" : "0"));
if (Imagen.Exists)
{
para.Add(new ReportParameter("LogoPath", logouri));

View File

@@ -233,6 +233,9 @@
<Columns>
<asp:HyperLinkField ItemStyle-HorizontalAlign="Left" Target="_blank" HeaderText="Grupo" DataTextField="GPO" DataNavigateUrlFields="FechaI,FechaF,CveSubProyecto,CveCliente,CveVendedor,Grupo,GPO,CvePS,CveClasificacion,CveMarca,CveCategoria" DataNavigateUrlFormatString="RepVentasUtilidad.aspx?FechaI={0}&FechaF={1}&CveSubProyecto={2}&CveCliente={3}&CveVendedor={4}&Gpo={5}&CveGpo={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveCategoria={10}" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Ventas" DataField="Ventas" DataFormatString="{0:N2}" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Crédito" DataField="Credito" DataFormatString="{0:N2}" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Contado" DataField="Contado" DataFormatString="{0:N2}" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="%" DataField="ProcentajeVentas" DataFormatString="{0:N2}" ItemStyle-Width="30px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Descuento" DataField="Descuento" DataFormatString="{0:N2}" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Bonificación" DataField="Bonificacion" DataFormatString="{0:N2}" />

View File

@@ -252,7 +252,7 @@ Partial Class Ventas_RepVentasUtilidadPadre
e.Row.DBCampo("Grupo"), e.Row.DBCampo("GPO"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CveMarca"), e.Row.DBCampo("CveCategoria"))
e.Row.Cells(0).Text = String.Format("<a class=""{0}"" href=""{1}"">{2}</a>", Css, Liga, e.Row.Cells(0).Text)
Else
e.Row.Cells(10).BackColor = Drawing.Color.LightGray
e.Row.Cells(12).BackColor = Drawing.Color.LightGray
End If