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

-- ajuste para el envío de descripción de venta

Browse Source
This commit is contained in:
rrene
2023-10-06 12:05:20 -07:00
parent a6e105bdd9
commit ddda3e22da
1 changed files with 15 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
Ventas/Ventas.aspx.vb
View File

@@ -9977,7 +9977,6 @@ Partial Class Ventas
'ContPAQ El movimiento 1 es el de Venta 'ContPAQ El movimiento 1 es el de Venta
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
AutoConta = AutocontaMatriz(AutoConta) AutoConta = AutocontaMatriz(AutoConta)
If DdlTipoComprobante.SelectedValue.Contiene("Rem", "RNC", "Cot", "Ped", "Pd2", "PA") Then If DdlTipoComprobante.SelectedValue.Contiene("Rem", "RNC", "Cot", "Ped", "Pd2", "PA") Then
@@ -10016,22 +10015,22 @@ Partial Class Ventas
End If End If
End If End If
Try 'Try
'RMF, cuando es pedido, se manda autorización. ' 'RMF, cuando es pedido, se manda autorización.
If ObjFactura.TipoDocto.Contiene("PA") Then ' If ObjFactura.TipoDocto.Contiene("PA") Then
' Dim Titulo As String = "Solicitud de autorización" 'usuarios de crédito y cobranza
' Dim Msg As String = String.Format("{0} - Folio {1} ", DdlSubProyectoDatos.SelectedItem.Text, TxtFolio.Text)
' 'If UsuarioActual.CveEmpresa = 119 Then
' ' ClsSisNotificaciones.SendNotificacionERP(1715, Titulo, Msg, 1)
' ' ClsSisNotificaciones.SendNotificacionERP(1815, Titulo, Msg, 1)
' ' ClsSisNotificaciones.SendNotificacionERP(1830, Titulo, Msg, 1)
' 'End If
Dim Titulo As String = "Solicitud de autorización" 'usuarios de crédito y cobranza
Dim Msg As String = String.Format("{0} - Folio {1} ", DdlSubProyectoDatos.SelectedItem.Text, TxtFolio.Text)
'If UsuarioActual.CveEmpresa = 119 Then
' ClsSisNotificaciones.SendNotificacionERP(1715, Titulo, Msg, 1)
' ClsSisNotificaciones.SendNotificacionERP(1815, Titulo, Msg, 1)
' ClsSisNotificaciones.SendNotificacionERP(1830, Titulo, Msg, 1)
' End If ' End If
'Catch ex As Exception
End If ' OnError("Ocurrió un error al mandar las notificaciones de autorización", ex)
Catch ex As Exception 'End Try
OnError("Ocurrió un error al mandar las notificaciones de autorización", ex)
End Try
Try Try
ViewState("CveVenta") = ObjFactura.CveVenta ViewState("CveVenta") = ObjFactura.CveVenta
@@ -13024,9 +13023,7 @@ Partial Class Ventas
End If End If
Dim DescripcionVenta As String = "" Dim DescripcionVenta As String = ""
If factura.TipoDocto = "Ing" AndAlso UsuarioActual.CveEmpresa = 13 Then If TxtDescripcionVenta.Text <> "" Then DescripcionVenta = TxtDescripcionVenta.Text
DescripcionVenta = TxtDescripcionVenta.Text
End If
If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,