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

-

Browse Source
This commit is contained in:
rrene
2025-04-14 17:54:48 -07:00
parent d034c3b262 7f9978d0b1
commit d2046c1466
10 changed files with 202 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsMovimientos.vb
View File

@@ -1457,7 +1457,8 @@ Public Class ClsMovimientos
Return Retorno Return Retorno
End Function End Function
Public Function GetCxPPersonalCajaChica(CveEmpresa As Integer, CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha, Optional OpcionSaldo As Integer = 1) As Boolean Public Function GetCxPPersonalCajaChica(CveEmpresa As Integer, CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha,
Optional OpcionSaldo As Integer = 1, Optional CveSubProyecto As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_CxPPersonalCajaChica") DataAdapter("PA_CxPPersonalCajaChica")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1468,6 +1469,7 @@ Public Class ClsMovimientos
.Add("@FechaI", SqlDbType.DateTime).Value = FechaI .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
.Add("@FechaF", SqlDbType.DateTime).Value = FechaF .Add("@FechaF", SqlDbType.DateTime).Value = FechaF
.Add("@OpcionSaldo", SqlDbType.Int).Value = OpcionSaldo ' 1. solo con saldo, -1. todos .Add("@OpcionSaldo", SqlDbType.Int).Value = OpcionSaldo ' 1. solo con saldo, -1. todos
.Add("@CveSubProyecto", SqlDbType.Int).Value = OpcionSaldo
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

4
App_Code/ClsPaginas.vb
View File

@@ -6225,6 +6225,7 @@ Public Class ClsPaginas
Dim ObjInv As New ClsGenerales Dim ObjInv As New ClsGenerales
Dim TelDestino As String = "" Dim TelDestino As String = ""
Dim NombreUsuario As String = "" 'Persona que timbro Dim NombreUsuario As String = "" 'Persona que timbro
Dim LugarOrigen As String = ""
If ObjInv.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then If ObjInv.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then
If ObjInv.DtResultados.Rows.Count > 0 Then If ObjInv.DtResultados.Rows.Count > 0 Then
@@ -6235,6 +6236,7 @@ Public Class ClsPaginas
TipoDocto = Dr("TipoDocto").ToString TipoDocto = Dr("TipoDocto").ToString
TelDestino = Dr("TelDestino").ToString TelDestino = Dr("TelDestino").ToString
NombreUsuario = Dr("NombreUsuario").ToString NombreUsuario = Dr("NombreUsuario").ToString
LugarOrigen = Dr("LugarOrigen").ToString
If UsuarioActual.CveEmpresa = 13 Then If UsuarioActual.CveEmpresa = 13 Then
PermisoSCTR1 = Dr("PermisoSCTR1").ToString PermisoSCTR1 = Dr("PermisoSCTR1").ToString
@@ -6632,6 +6634,8 @@ Public Class ClsPaginas
params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}")) params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}"))
params.Add(New ReportParameter("SerieFolio", SerieFolio)) params.Add(New ReportParameter("SerieFolio", SerieFolio))
params.Add(New ReportParameter("NombreUsuario", NombreUsuario)) params.Add(New ReportParameter("NombreUsuario", NombreUsuario))
params.Add(New ReportParameter("LugarOrigen", LugarOrigen))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
params.Add(New ReportParameter("DomicilioExpedicion", LugarExpedicion)) params.Add(New ReportParameter("DomicilioExpedicion", LugarExpedicion))
'CLIENTE 'CLIENTE

50
Compras/Compras.aspx.vb
View File

@@ -9911,6 +9911,7 @@ Partial Class Compras_Compras
(row1("TipoAF").ToString.ToEntero <> row2("TipoAF").ToString.ToEntero) Or (row1("TipoAF").ToString.ToEntero <> row2("TipoAF").ToString.ToEntero) Or
(row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Or (row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Or
(row1("Obs").ToString <> row2("Obs").ToString) Or (row1("Obs").ToString <> row2("Obs").ToString) Or
(row1("IVAPorcentaje").ToString <> row2("IVAPorcentaje").ToString AndAlso CveCompra > 0 AndAlso CveCompraFactura = 0) Or
(DdlTipoCompra.SelectedValue.ToEntero <> TipoCompraOriginal) Then (DdlTipoCompra.SelectedValue.ToEntero <> TipoCompraOriginal) Then
Return False Return False
End If End If
@@ -17409,6 +17410,9 @@ Partial Class Compras_Compras
If ActualizaTotales And UsuarioActual.CveEmpresa = 72 Or Not CveCompraFactura > 0 Then If ActualizaTotales And UsuarioActual.CveEmpresa = 72 Or Not CveCompraFactura > 0 Then
TxtTotal.Text = Total.ToString.FormatoNumero() TxtTotal.Text = Total.ToString.FormatoNumero()
If CveCompra > 0 AndAlso CveCompraFactura = 0 Then
TxtIVA.Text = IVA.ToString.FormatoNumero()
End If
End If End If
Else Else
@@ -18023,24 +18027,43 @@ Partial Class Compras_Compras
'HdnIVAPS.Value = If(PS.Rows(0)("IVA").ToString = "-1", ViewState("IVA"), PS.Rows(0)("IVA").ToString).ToString 'HdnIVAPS.Value = If(PS.Rows(0)("IVA").ToString = "-1", ViewState("IVA"), PS.Rows(0)("IVA").ToString).ToString
ViewState("IVAPS") = PS("IVA").ToString ViewState("IVAPS") = PS("IVA").ToString
If ViewState("IVAPS").ToString.ToEntero() = -1 Then If ViewState("IVAPS").ToString.ToEntero() = -1 Or (CveCompra > 0 AndAlso CveCompraFactura = 0) Then
Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero())(0) Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero())(0)
ViewState("IVAPS") = Drr("IVA").ToString().ToDouble() ViewState("IVAPS") = Drr("IVA").ToString().ToDouble()
DdlProyecto.SelectedValueExist(Drr("CveProyecto"))
DdlProyecto.SelectedValueExist(Drr("CveProyecto"))
DdlIVA.Enabled = True DdlIVA.Enabled = True
If Not Modalidad = "U" Then
Select Case ViewState("IVAPS").ToString().ToDouble If (CveCompra > 0 AndAlso CveCompraFactura = 0) Then
Case 0 If PS("IVA").ToString.ToEntero = -1 Then
DdlIVA.SelectedValue = "1" ViewState("IVAPS") = 0.16
Case 0.16 DdlIVA.SelectedValue = "1.16"
DdlIVA.SelectedValue = "1.16" Else
Case 0.08 Select Case ViewState("IVAPS").ToString().ToDouble
DdlIVA.SelectedValue = "1.08" Case 0
End Select DdlIVA.SelectedValue = "1"
Case 0.16
DdlIVA.SelectedValue = "1.16"
Case 0.08
DdlIVA.SelectedValue = "1.08"
End Select
End If
Else
If Not Modalidad = "U" Then
Select Case ViewState("IVAPS").ToString().ToDouble
Case 0
DdlIVA.SelectedValue = "1"
Case 0.16
DdlIVA.SelectedValue = "1.16"
Case 0.08
DdlIVA.SelectedValue = "1.08"
End Select
End If
End If End If
Else Else
'DdlIVA.SelectedValue = "1" 'DdlIVA.SelectedValue = "1"
' DdlIVA.Enabled = False ' DdlIVA.Enabled = False
@@ -18684,12 +18707,13 @@ Partial Class Compras_Compras
If CveFactura > 0 And TxtIVA.Text.ToDecimal = 0 Then If CveFactura > 0 And TxtIVA.Text.ToDecimal = 0 Then
DrPS("IVA") = 0 DrPS("IVA") = 0
DrPS("IVAPorcentaje") = 0 DrPS("IVAPorcentaje") = 0
ElseIf CveCompra > 0 And CveCompraFactura = 0 Then
DrPS("IVA") = (IVA * Total).RoundSQL
DrPS("IVAPorcentaje") = IVA
Else Else
If ActualizarIva Then If ActualizarIva Then
DrPS("IVA") = (IVA * Total).RoundSQL DrPS("IVA") = (IVA * Total).RoundSQL
End If End If
DrPS("IVAPorcentaje") = IVA DrPS("IVAPorcentaje") = IVA
End If End If

19
Compras/RepRembolsoComprobaciones.aspx
View File

@@ -26,16 +26,11 @@
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional" RenderMode="Inline"> <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional" RenderMode="Inline">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton ID="LnkExportar" runat="server"> <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Exportar Excel </asp:LinkButton>
<i class="fa fa-ad-excel"></i> Exportar Excel
</asp:LinkButton>
</li> </li>
<li runat="server" id="LiImprimir" visible="true"> <li runat="server" id="LiImprimir" visible="true">
<asp:LinkButton ID="LnkImprimir" runat="server" Visible="false"> <asp:LinkButton ID="LnkImprimir" runat="server" Visible="false"><i class="fa fa-print"></i> Imprimir Reembolso</asp:LinkButton>
<i class="fa fa-print"></i> Imprimir Reembolso
</asp:LinkButton>
</li> </li>
<li> <li>
<asp:HyperLink ID="HLAgregarComprobante" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#DivArchivo" runat="server"><i class='fa fa-file-o'></i> Cargar Comprobante</asp:HyperLink> <asp:HyperLink ID="HLAgregarComprobante" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#DivArchivo" runat="server"><i class='fa fa-file-o'></i> Cargar Comprobante</asp:HyperLink>
</li> </li>
@@ -123,6 +118,13 @@
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
<label class="col-md-1" style="margin-top: 10px; margin-left: 5px;">
<asp:Label runat="server" ID="LblSubProyecto"></asp:Label>:
</label>
<div class="col-md-2" style="margin-top: 10px;">
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%" >
</asp:DropDownList>
</div>
</div> </div>
</div> </div>
</div> </div>
@@ -188,7 +190,8 @@
</div> </div>
<asp:HiddenField runat="server" ID="HdnFechasComprasVinculadas" Value="-1" ClientIDMode="Static" /> <asp:HiddenField runat="server" ID="HdnFechasComprasVinculadas" Value="-1" ClientIDMode="Static" />
<asp:GridView ID="GvCxP" GridLines="None" CssClass="ScrollAD table table-smallpadding Widthall" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Pagar pendientes" DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,CvePrePoliza"> <asp:GridView ID="GvCxP" GridLines="None" CssClass="ScrollAD table table-smallpadding Widthall" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Pagar pendientes"
DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,CvePrePoliza,Gpo">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Compra</HeaderTemplate> <HeaderTemplate>Compra</HeaderTemplate>

18
Compras/RepRembolsoComprobaciones.aspx.vb
View File

@@ -89,6 +89,8 @@ Partial Class Compras_RepRembolsoComprobaciones
DdlPersonal.DataBind() DdlPersonal.DataBind()
txtFechaI.Text = NowADS.AddYears(-1).ToShortDateString txtFechaI.Text = NowADS.AddYears(-1).ToShortDateString
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Todos")
End If End If
End Sub End Sub
@@ -133,8 +135,17 @@ Partial Class Compras_RepRembolsoComprobaciones
Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.RowIndex = 0 Then
e.Row.BackColor = Drawing.Color.LightGray 'If e.Row.RowIndex = 0 Then
' e.Row.BackColor = Drawing.Color.LightGray
'End If
If e.Row.DataKey("Gpo").Trim.Length = 0 Then
e.Row.CssClass = "Totales"
End If
If e.Row.DataKey("Gpo").Trim.Length > 0 AndAlso e.Row.DataKey("CveCompra").ToEntero = 0 Then
e.Row.CssClass = "SubTotales"
End If End If
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
@@ -236,7 +247,8 @@ Partial Class Compras_RepRembolsoComprobaciones
If DdlTipoPago.SelectedValue = "2" Then ViewState("CvePersonal") = -2 If DdlTipoPago.SelectedValue = "2" Then ViewState("CvePersonal") = -2
ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF, OpcionSaldo:=-1) ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF, OpcionSaldo:=-1,
CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero)
DtDatos = ObjMovtos.DtResultados DtDatos = ObjMovtos.DtResultados
GvCxP.DataSource = DtDatos GvCxP.DataSource = DtDatos

59
Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
View File

@@ -6128,6 +6128,18 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</TextRuns> </TextRuns>
<Style /> <Style />
</Paragraph> </Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!LugarOrigen.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
@@ -6144,7 +6156,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
<rd:DefaultName>Textbox57</rd:DefaultName> <rd:DefaultName>Textbox57</rd:DefaultName>
<Top>20.62438cm</Top> <Top>20.62438cm</Top>
<Left>1.36431cm</Left> <Left>1.36431cm</Left>
<Height>0.92071cm</Height> <Height>1.25232cm</Height>
<Width>8.52539cm</Width> <Width>8.52539cm</Width>
<ZIndex>35</ZIndex> <ZIndex>35</ZIndex>
<Style> <Style>
@@ -6177,6 +6189,22 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</TextRuns> </TextRuns>
<Style /> <Style />
</Paragraph> </Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!LugarOrigen.Value</Value>
<Style>
<FontStyle>Normal</FontStyle>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Normal</FontWeight>
<TextDecoration>None</TextDecoration>
<Color>#000000</Color>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
@@ -6193,7 +6221,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
<rd:DefaultName>Textbox57</rd:DefaultName> <rd:DefaultName>Textbox57</rd:DefaultName>
<Top>20.62438cm</Top> <Top>20.62438cm</Top>
<Left>9.88366cm</Left> <Left>9.88366cm</Left>
<Height>0.92071cm</Height> <Height>1.25232cm</Height>
<Width>4.64948cm</Width> <Width>4.64948cm</Width>
<ZIndex>36</ZIndex> <ZIndex>36</ZIndex>
<Style> <Style>
@@ -6230,7 +6258,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
<rd:DefaultName>Textbox57</rd:DefaultName> <rd:DefaultName>Textbox57</rd:DefaultName>
<Top>20.62438cm</Top> <Top>20.62438cm</Top>
<Left>14.52964cm</Left> <Left>14.52964cm</Left>
<Height>0.92071cm</Height> <Height>1.25232cm</Height>
<Width>4.65203cm</Width> <Width>4.65203cm</Width>
<ZIndex>37</ZIndex> <ZIndex>37</ZIndex>
<Style> <Style>
@@ -6274,7 +6302,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox57</rd:DefaultName> <rd:DefaultName>Textbox57</rd:DefaultName>
<Top>21.54509cm</Top> <Top>21.86259cm</Top>
<Left>1.36431cm</Left> <Left>1.36431cm</Left>
<Height>1.08106cm</Height> <Height>1.08106cm</Height>
<Width>8.52539cm</Width> <Width>8.52539cm</Width>
@@ -6311,7 +6339,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox57</rd:DefaultName> <rd:DefaultName>Textbox57</rd:DefaultName>
<Top>21.54509cm</Top> <Top>21.86259cm</Top>
<Left>9.88366cm</Left> <Left>9.88366cm</Left>
<Height>1.08106cm</Height> <Height>1.08106cm</Height>
<Width>4.64948cm</Width> <Width>4.64948cm</Width>
@@ -6348,7 +6376,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox57</rd:DefaultName> <rd:DefaultName>Textbox57</rd:DefaultName>
<Top>21.54509cm</Top> <Top>21.86259cm</Top>
<Left>14.52964cm</Left> <Left>14.52964cm</Left>
<Height>1.08106cm</Height> <Height>1.08106cm</Height>
<Width>4.65203cm</Width> <Width>4.65203cm</Width>
@@ -6365,7 +6393,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Style> </Style>
</Textbox> </Textbox>
<Line Name="Line2"> <Line Name="Line2">
<Top>22.49898cm</Top> <Top>22.81648cm</Top>
<Left>1.5cm</Left> <Left>1.5cm</Left>
<Height>0cm</Height> <Height>0cm</Height>
<Width>3.90544cm</Width> <Width>3.90544cm</Width>
@@ -6377,7 +6405,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Style> </Style>
</Line> </Line>
<Line Name="Line3"> <Line Name="Line3">
<Top>22.49898cm</Top> <Top>22.81648cm</Top>
<Left>9.94339cm</Left> <Left>9.94339cm</Left>
<Height>0cm</Height> <Height>0cm</Height>
<Width>3.90544cm</Width> <Width>3.90544cm</Width>
@@ -6389,7 +6417,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Style> </Style>
</Line> </Line>
<Line Name="Line4"> <Line Name="Line4">
<Top>22.49898cm</Top> <Top>22.81648cm</Top>
<Left>14.71743cm</Left> <Left>14.71743cm</Left>
<Height>0cm</Height> <Height>0cm</Height>
<Width>3.90544cm</Width> <Width>3.90544cm</Width>
@@ -6418,7 +6446,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox120</rd:DefaultName> <rd:DefaultName>Textbox120</rd:DefaultName>
<Top>22.67201cm</Top> <Top>22.98951cm</Top>
<Left>1.36431cm</Left> <Left>1.36431cm</Left>
<Height>0.45969cm</Height> <Height>0.45969cm</Height>
<Width>10.17692cm</Width> <Width>10.17692cm</Width>
@@ -6511,7 +6539,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>23.161cm</Top> <Top>23.161cm</Top>
<Left>0.03979cm</Left> <Left>0.03979cm</Left>
<Height>23.1317cm</Height> <Height>23.4492cm</Height>
<Width>19.53633cm</Width> <Width>19.53633cm</Width>
<ZIndex>29</ZIndex> <ZIndex>29</ZIndex>
<Visibility> <Visibility>
@@ -7562,7 +7590,8 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Rectangle> </Rectangle>
</ReportItems> </ReportItems>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>47.03985cm</Top> <Top>46.78659cm</Top>
<Left>0.04317cm</Left>
<Height>5.54925cm</Height> <Height>5.54925cm</Height>
<Width>19.53633cm</Width> <Width>19.53633cm</Width>
<ZIndex>31</ZIndex> <ZIndex>31</ZIndex>
@@ -8121,6 +8150,12 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="LugarOrigen">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<Code>Function PageNumber() As String <Code>Function PageNumber() As String
Return Me.Report.Globals!OverallPageNumber Return Me.Report.Globals!OverallPageNumber

84
Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc
View File

@@ -17,6 +17,14 @@
<CommandText>/* Local Query */</CommandText> <CommandText>/* Local Query */</CommandText>
</Query> </Query>
<Fields> <Fields>
<Field Name="Gpo">
<DataField>Gpo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CveCompra">
<DataField>CveCompra</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Proveedor"> <Field Name="Proveedor">
<DataField>Proveedor</DataField> <DataField>Proveedor</DataField>
<rd:TypeName>System.String</rd:TypeName> <rd:TypeName>System.String</rd:TypeName>
@@ -77,10 +85,10 @@
<Width>1.79565cm</Width> <Width>1.79565cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.02289cm</Width> <Width>2.90517cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.54059cm</Width> <Width>1.65831cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.29435cm</Width> <Width>2.29435cm</Width>
@@ -440,6 +448,10 @@
<Value>=Fields!SerieFolio.Value</Value> <Value>=Fields!SerieFolio.Value</Value>
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -453,7 +465,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -474,6 +489,10 @@
<Value>=Fields!Proveedor.Value</Value> <Value>=Fields!Proveedor.Value</Value>
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -487,7 +506,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -509,6 +531,10 @@
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>dd/MM/yyyy</Format> <Format>dd/MM/yyyy</Format>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -522,7 +548,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -544,6 +573,10 @@
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>#,0.00;(#,0.00)</Format> <Format>#,0.00;(#,0.00)</Format>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -557,7 +590,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -579,6 +615,10 @@
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>#,0.00;(#,0.00)</Format> <Format>#,0.00;(#,0.00)</Format>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -592,7 +632,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -614,6 +657,10 @@
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>#,0.00</Format> <Format>#,0.00</Format>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -627,7 +674,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -649,6 +699,10 @@
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>#,0.00</Format> <Format>#,0.00</Format>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -662,7 +716,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -684,6 +741,10 @@
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>#,0.00</Format> <Format>#,0.00</Format>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -697,7 +758,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>

2
OP/OP.aspx.vb
View File

@@ -1026,7 +1026,7 @@ Partial Class OP_OP
End If End If
DtMPAlmacen = ObjInventario.DtResultados.Copy() DtMPAlmacen = ObjInventario.DtResultados.Copy()
' 5. Calcular TotalCostoMP (ya está actualizado) ' 5. Calcular TotalCostoMP
TotalCostoMP = ObjInventario.DtResultados.SUMD("Total") TotalCostoMP = ObjInventario.DtResultados.SUMD("Total")
' 1. Recorrer cada Producto Terminado en la OP ' 1. Recorrer cada Producto Terminado en la OP

6
Ventas/Clientes.aspx
View File

@@ -1901,9 +1901,9 @@
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtCobranzaTelefono" CssClass="form-control" runat="server" MaxLength="13"></asp:TextBox> <asp:TextBox ID="TxtCobranzaTelefono" CssClass="form-control" runat="server" MaxLength="10"></asp:TextBox>
<ajax:MaskedEditExtender ID="MaskedEditExtender2" runat="server" TargetControlID="TxtCobranzaTelefono" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender> <ajax:MaskedEditExtender ID="MEECobranzaTelefono" runat="server" TargetControlID="TxtCobranzaTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
<label for="<%= TxtCobranzaTelefono.ClientID.ToString()%>">Tel. Pagos: </label> <label for="<%= TxtCobranzaTelefono.ClientID.ToString()%>">Tel. Pagos: </label>
</div> </div>
</div> </div>

7
Ventas/Clientes.aspx.vb
View File

@@ -2606,6 +2606,13 @@ Partial Class Clientes
If DdlTipoCliente.SelectedValue = "1" Then If DdlTipoCliente.SelectedValue = "1" Then
If TxtContacto.Text.Trim() = "" Then InformacionCompleta = False If TxtContacto.Text.Trim() = "" Then InformacionCompleta = False
If TxtRepresentanteLegal.Text.Trim() = "" Then InformacionCompleta = False If TxtRepresentanteLegal.Text.Trim() = "" Then InformacionCompleta = False
'si es el concepto de pagaré
Dim tPagare As Integer = 0
For Each dRow As GridViewRow In GvDocumentosCliente.Rows
Dim CveDocumentacion As Integer = dRow.DataKey("CveDocumentacion").ToEntero()
If CveDocumentacion = 265 Then tPagare = 1
Next
If tPagare = 0 Then InformacionCompleta = False
tPagare = 0 'valida que cuando menos tenga una cuenta tPagare = 0 'valida que cuando menos tenga una cuenta
For Each dRow As GridViewRow In GvBancosCuentas.Rows For Each dRow As GridViewRow In GvBancosCuentas.Rows
tPagare = 1 tPagare = 1