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

-- pedimento

Browse Source 
-- option explcit
This commit is contained in:
rrene
2023-09-21 21:57:24 -07:00
parent 8d071baa7d
commit 7b6993ba7c
2 changed files with 1 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/Ventas.aspx
View File

@@ -936,8 +936,6 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<br />
<div class="divtab"> <div class="divtab">
<asp:UpdatePanel ID="UpPS" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpPS" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>

19
Ventas/Ventas.aspx.vb
View File

@@ -12478,26 +12478,9 @@ Partial Class Ventas
Dim totIVA As Decimal = Obj.IVA Dim totIVA As Decimal = Obj.IVA
Dim totRetIVA As Decimal = Obj.RetIVA Dim totRetIVA As Decimal = Obj.RetIVA
Dim totRetISR As Decimal = Obj.RetISR Dim totRetISR As Decimal = Obj.RetISR
Dim i As Integer = 1 Dim i As Integer = 1
'detalles
Dim tPS As String Dim tPS As String
If UsuarioActual.CveEmpresa = 119 Then 'detalles
'Dim ObjPed As New ClsInventarios
'If ObjPed.GetVentasPedimento(CveVenta, UsuarioActual.CveEmpresa) Then
' Dim dttped As DataTable = ObjPed.DtResultados
' If Not Obj.DtDetalle.Columns.Contains("NumeroPedimento") Then
' Obj.DtDetalle.Columns.Add("NumeroPedimento", Type.GetType("System.String"))
' End If
' For Each drt As DataRow In Obj.DtDetalle.Rows
' Dim Pedimento As String = dttped.FiltroPrimeroValor("Pedimento", $"CveVentaDetalle = {drt("CveVentaDetalle")}")
' drt("NumeroPedimento") = Pedimento
' Next
'End If
'ObjPed.Dispose()
End If
For Each drr As DataRow In Obj.DtDetalle.Rows For Each drr As DataRow In Obj.DtDetalle.Rows
If drr("PS").ToString().Length = 1 Then If drr("PS").ToString().Length = 1 Then
tPS = drr("Obs").ToString() tPS = drr("Obs").ToString()