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

-- Orden de la oc

Browse Source
This commit is contained in:
rrene
2024-08-14 06:48:15 -07:00
parent 81b66ba09b
commit 173b6e9f32
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Compras/Compras.aspx.vb
View File

@@ -3502,7 +3502,7 @@ Partial Class Compras_Compras
ViewState("CveProveedor") = ObjProveedor.CveProveedor ViewState("CveProveedor") = ObjProveedor.CveProveedor
ViewState("CveTipoProveedor") = ObjProveedor.CveTipoProveedor ViewState("CveTipoProveedor") = ObjProveedor.CveTipoProveedor
RFCProveedor = ObjProveedor.RFC RFCProveedor = ObjProveedor.RFC
If ObjProveedor.CveTipoProveedor = 2 Then If ObjProveedor.CveTipoProveedor = 2 Then
LblProveedor.Text = "Acreedor:" LblProveedor.Text = "Acreedor:"
Else Else
@@ -6767,7 +6767,7 @@ Partial Class Compras_Compras
Dim tTipoMovimiento As Boolean Dim tTipoMovimiento As Boolean
Dim Diferencia As Decimal = 0 Dim Diferencia As Decimal = 0
If CompraActual.TC < TCNC Then If CompraActual.TC > TCNC Then
tConceptoContable = 64 tConceptoContable = 64
tTipoMovimiento = True tTipoMovimiento = True
Else Else
@@ -14560,8 +14560,7 @@ Partial Class Compras_Compras
UpGvOC1.Update() UpGvOC1.Update()
TmpDT = TmpDT.FiltraParametros("", "PU") TmpDT = TmpDT.FiltraParametros("", "PU")
GvOC2.DataSource = TmpDT
GvOC2.DataBind()
'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO 'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
@@ -14592,7 +14591,11 @@ Partial Class Compras_Compras
'condicion temporal rmf 'condicion temporal rmf
GvOC1.Columns(6).Visible = False GvOC1.Columns(6).Visible = False
GvOC2.Columns(4).Visible = False GvOC2.Columns(4).Visible = False
GvOC2.DataSource = TmpDT.FiltraParametros("", "CodigoPS")
Else
GvOC2.DataSource = TmpDT
End If End If
GvOC2.DataBind()
UpGvOC2.Update() UpGvOC2.Update()
End Sub End Sub