-- pedimento
-- option explcit
This commit is contained in:
@@ -936,8 +936,6 @@
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<br />
|
||||
|
||||
<div class="divtab">
|
||||
<asp:UpdatePanel ID="UpPS" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
@@ -12478,26 +12478,9 @@ Partial Class Ventas
|
||||
Dim totIVA As Decimal = Obj.IVA
|
||||
Dim totRetIVA As Decimal = Obj.RetIVA
|
||||
Dim totRetISR As Decimal = Obj.RetISR
|
||||
|
||||
Dim i As Integer = 1
|
||||
|
||||
'detalles
|
||||
Dim tPS As String
|
||||
If UsuarioActual.CveEmpresa = 119 Then
|
||||
'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
|
||||
|
||||
'detalles
|
||||
For Each drr As DataRow In Obj.DtDetalle.Rows
|
||||
If drr("PS").ToString().Length = 1 Then
|
||||
tPS = drr("Obs").ToString()
|
||||
|
||||
Reference in New Issue
Block a user