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

compras validacion CveFactura > validacion grupo dias

Browse Source
This commit is contained in:
rakcsle
2025-03-05 17:21:43 -07:00
parent b0d153dd25
commit 4717c4582f
2 changed files with 23 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Compras/Compras.aspx.vb
View File

@@ -15334,23 +15334,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

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>