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

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

Browse Source
This commit is contained in:
rrene
2025-03-05 17:22:48 -07:00
parent 07e4cb087a 4717c4582f
commit 3e5bb825c2
4 changed files with 4607 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4606
Ashx/TareasProgramadas.ashx
View File

File diff suppressed because one or more lines are too long

32
Compras/Compras.aspx.vb
View File

@@ -15330,23 +15330,27 @@ Partial Class Compras_Compras
'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
For Each Gvr As GridViewRow In GvOC1.Rows
Dim Change As Boolean = False
For Each Dr2 As DataRow In TmpDT.Rows
If Gvr.DataKey("NumeroParte") = Dr2("NoIdentificacion").ToString() OrElse Gvr.DataKey("CvePS") = Dr2("CvePS").ToString() Then
' que la cantidad de la Fact no exceda a la de la OC
If Dr2("Cantidad").ToString.ToDecimal > Gvr.DataKey("CantidadF").ToDecimal Then
Gvr.FCTextBox("TxtCantidad").Text = Gvr.DataKey("CantidadF").ToDecimal.ToString("#,###.####")
Else
Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
If CveFactura > 0 Then
For Each Gvr As GridViewRow In GvOC1.Rows
Dim Change As Boolean = False
For Each Dr2 As DataRow In TmpDT.Rows
If Gvr.DataKey("NumeroParte") = Dr2("NoIdentificacion").ToString() OrElse Gvr.DataKey("CvePS") = Dr2("CvePS").ToString() Then
' que la cantidad de la Fact no exceda a la de la OC
If Dr2("Cantidad").ToString.ToDecimal > Gvr.DataKey("CantidadF").ToDecimal Then
Gvr.FCTextBox("TxtCantidad").Text = Gvr.DataKey("CantidadF").ToDecimal.ToString("#,###.####")
Else
Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
End If
Change = True
End If
Change = True
Next
If Not Change Then
Gvr.FCTextBox("TxtCantidad").Text = ""
End If
Next
If Not Change Then
Gvr.FCTextBox("TxtCantidad").Text = ""
End If
Next
End If
'detectar los ps que no están en la OC, códigos que no están en la OC
'mostrar los ps que no están en la oc
Dim strMsg As New StringBuilder

2
Compras/eFacturas.aspx
View File

@@ -233,7 +233,7 @@
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:LinkButton runat="server" ID="LnkRegistroRNC" class="btn btn-primary" OnClick="LnkRegistroRNC_Click"><i class="fa fa-search"></i>&nbsp; Prueba</asp:LinkButton>
<asp:LinkButton Visible="false" runat="server" ID="LnkRegistroRNC" class="btn btn-primary" OnClick="LnkRegistroRNC_Click"><i class="fa fa-search"></i>&nbsp; Prueba</asp:LinkButton>
</ContentTemplate>
</asp:UpdatePanel>

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

@@ -4256,7 +4256,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>="3. Página " &amp; code.PageNumber &amp; " de " &amp; code.TotalPages</Value>
<Value>="3. Página " &amp; Code.PageNumber &amp; " de " &amp; Code.TotalPages</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
@@ -5298,7 +5298,7 @@
<DataSetName>DataSet3</DataSetName>
<Top>0.06703cm</Top>
<Height>1cm</Height>
<Width>17.83459cm</Width>
<Width>17.8346cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -5310,7 +5310,7 @@
<Top>11.49939cm</Top>
<Left>1.33863cm</Left>
<Height>1.06703cm</Height>
<Width>17.83459cm</Width>
<Width>17.8346cm</Width>
<ZIndex>21</ZIndex>
<Style>
<Border>
@@ -6988,11 +6988,11 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</ReportParameter>
</ReportParameters>
<Code>Function PageNumber() As String
Return Me.Report.Globals!PageNumber
Return Me.Report.Globals!OverallPageNumber
End Function
Function TotalPages() As String
Return Me.Report.Globals!TotalPages
Return Me.Report.Globals!OverallTotalPages
End Function </Code>
<Language>es-MX</Language>
<ConsumeContainerWhitespace>true</ConsumeContainerWhitespace>