notificaciones SMS

- autoconta, cuando es contasig

OS/Asignaciones.aspx.vb

@@ -521,7 +521,7 @@ Partial Class OS_Asignaciones
                 End If
                 Dim CorreoDestino As String = CorreoUsuarioAsignado
                 Dim Vendedor As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor ={dr("CveVendedor")}")
-
+                Dim TipoVenta As String = ""
                 'técnico
                 CorreoDestino = CorreoUsuarioAsignado
                 EnviaNotificacionSMS(7, UsuarioActual.Empresa, CveOS, Folio, FechaCirugia, NombreCliente, TipoVenta, Medico, Procedimiento, Tecnico, Vendedor, "", ListMateriales, CorreoDestino)

OS/OrdenesServicios.aspx.vb

@@ -3414,19 +3414,20 @@ Partial Class OS_OrdenesServicios
                 CargaEventoBitacora()
                 Dim CorreoDestino As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo", $"CveVendedor ={ CveVendedor }")
                 Dim NombreVendedor As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor ={ CveVendedor }")
+                Dim TipoVenta As String = ""
                 If ListMaterialesUtil.Count > 0 Then 'notif a almacen de mat utilizado
-                    EnviaNotificacionSMS(9, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesUtil, CorreoDestino)
+                    EnviaNotificacionSMS(9, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesUtil, CorreoDestino)
                 End If
                 CorreoDestino = UsuarioActual.Empresa.Funcionalidad(199).ListaBusquedaValor("Almacén")
                 'genera notificación almacen
                 If AplicaDevolucion Then 'notif a almacen de devolución
-                    EnviaNotificacionSMS(10, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesDev, CorreoDestino)
+                    EnviaNotificacionSMS(10, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesDev, CorreoDestino)
                 Else
-                    EnviaNotificacionSMS(11, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesDev, CorreoDestino)
+                    EnviaNotificacionSMS(11, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesDev, CorreoDestino)
                 End If
                 CorreoDestino = UsuarioActual.Empresa.Funcionalidad(199).ListaBusquedaValor("Facturación")
                 If Respuesta IsNot Nothing AndAlso Respuesta.CveVenta > 0 Then 'notif de remisión generada
-                    EnviaNotificacionSMS(12, UsuarioActual.Empresa, Respuesta.CveVenta, Respuesta.SerieFolio, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesUtil, CorreoDestino)
+                    EnviaNotificacionSMS(12, UsuarioActual.Empresa, Respuesta.CveVenta, Respuesta.SerieFolio, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesUtil, CorreoDestino)
                 End If
             Else
                 ObjV.RollBack()
@@ -3757,18 +3758,18 @@ Partial Class OS_OrdenesServicios
                     ObjOS.Dispose()
                     Dim Vendedor As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor ={ CveVendedor }")
                     Dim CorreoVendedor As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo", $"CveVendedor ={ CveVendedor }")
-
+                    Dim TipoVenta As String = ""
                     'vendedor 
-                    EnviaNotificacionSMS(13, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, Vendedor, TxtFolioAdicional.Text, ListMateriales, CorreoVendedor)
+                    EnviaNotificacionSMS(13, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, Vendedor, TxtFolioAdicional.Text, ListMateriales, CorreoVendedor)
 
                     Dim CorreoDestino As String = ""
                     'almacen
                     CorreoDestino = UsuarioActual.Empresa.Funcionalidad(199).ListaBusquedaValor("Almacén")
-                    EnviaNotificacionSMS(14, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, Vendedor, TxtFolioAdicional.Text, ListMateriales, CorreoDestino)
+                    EnviaNotificacionSMS(14, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, Vendedor, TxtFolioAdicional.Text, ListMateriales, CorreoDestino)
                     If DdlTecnico.SelectedValue.ToEntero > 0 Then
                         'jefe de técnicos
                         CorreoDestino = UsuarioActual.Empresa.Funcionalidad(199).ListaBusquedaValor("JefeTécnicos")
-                        EnviaNotificacionSMS(15, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, Vendedor, TxtFolioAdicional.Text, ListMateriales, CorreoDestino)
+                        EnviaNotificacionSMS(15, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, Vendedor, TxtFolioAdicional.Text, ListMateriales, CorreoDestino)
                     End If
                 End If
             End If

Ventas/Ventas.aspx.vb

@@ -9842,6 +9842,11 @@ Partial Class Ventas
             Exit Sub
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DdlVendedor.SelectedValue.ToEntero <= 0 Then ' SMS. vendedor requerido
+            Alert("El Vendedor es requerido. Favor de seleccionarlo", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         If Not ValidaImportePublicoGeneral() Then
             Exit Sub
         End If
@@ -11051,6 +11056,7 @@ Partial Class Ventas
 
                     'ContPAQ El movimiento 1 es el de Venta
                     Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
+                    If UsuarioActual.Empresa.TipoContabilidad = 1 Then AutoConta = True
                     AutoConta = AutocontaMatriz(AutoConta)
 
                     If DdlTipoComprobante.SelectedValue.Contiene("Rem", "RNC", "Cot", "Ped", "PA") Then
@@ -11061,10 +11067,6 @@ Partial Class Ventas
                         AutoConta = False
                     End If
 
-                    If UsuarioActual.CveEmpresa = 140 Then
-                        AutoConta = True
-                    End If
-
                     If ErrorList.Count = 0 AndAlso ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=5, AutoConta:=AutoConta) Then
                         If ObjConta.ValorPolizaDescuadre > 0 Then
                             ErrorList.Add("Ocurrió un error al validar la prepóliza")
@@ -11072,17 +11074,6 @@ Partial Class Ventas
                         End If
                     End If
 
-                    'Try
-                    '    If AutoConta Then
-                    '        If Not ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa) Then
-                    '            ErrorList.Add("Ocurrió un error al contabilizar, pongase en contacto con soporte técnico")
-                    '        End If
-                    '    End If
-                    'Catch ex As Exception
-                    '    ErrorList.Add("Ocurrió un error al contabilizar, pongase en contacto con soporte técnico")
-                    '    OnError("Ocurrió un error al contabilizar la factura", ex)
-                    'End Try
-
                     If ObjFactura.CveVenta > 0 AndAlso ErrorList.Count = 0 AndAlso (SeGuardoPrePoliza Or ObjFactura.TipoDocto.Contiene("Ped", "Cot", "DPe", "PeC", "PA")) Then
                         ObjVentas.Commit()
 
@@ -11452,14 +11443,14 @@ Partial Class Ventas
                                     For Each dRow As DataRow In TmpDT.Rows
                                         ListMateriales.Add(New GenericaCantidadProducto With {.Cantidad = dRow("Cantidad").ToString.ToEntero, .Producto = dRow("PS").ToString})
                                     Next
-                                    EnviaNotificacionSMS(3, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), RBLTipoVenta.SelectedItem.Text, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, LblTipoVenta.Text, DdlVendedor.SelectedItem.Text, "", ListMateriales, CorreoDestino)
+                                    EnviaNotificacionSMS(3, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), RBLTipoVenta.SelectedItem.Text.Trim, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, LblTipoVenta.Text, DdlVendedor.SelectedItem.Text, "", ListMateriales, CorreoDestino)
                                 Else
-                                    EnviaNotificacionSMS(4, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), RBLTipoVenta.SelectedItem.Text, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, LblTipoVenta.Text, DdlVendedor.SelectedItem.Text, "", Nothing, CorreoDestino)
+                                    EnviaNotificacionSMS(4, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), RBLTipoVenta.SelectedItem.Text.Trim, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, LblTipoVenta.Text, DdlVendedor.SelectedItem.Text, "", Nothing, CorreoDestino)
                                 End If
                                 'cirugía en el mismo día o si es despues de las 9 y requiere técnico, 'jefe de técnicos
                                 If TxtFechaOS.Text.ToDate.ToShortDateString = NowADS.ToShortDateString OrElse (NowADS.Hour > 21 And NowADS.AddDays(1).ToShortDateString = TxtFechaOS.Text.ToDate.ToShortDateString AndAlso ChkRequiereTecnicoModal.Checked) Then
                                     CorreoDestino = UsuarioActual.Empresa.Funcionalidad(199).ListaBusquedaValor("JefeTécnicos")
-                                    EnviaNotificacionSMS(5, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), RBLTipoVenta.SelectedItem.Text, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, LblTipoVenta.Text, DdlVendedor.SelectedItem.Text, "", Nothing, CorreoDestino)
+                                    EnviaNotificacionSMS(5, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), RBLTipoVenta.SelectedItem.Text.Trim, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, LblTipoVenta.Text, DdlVendedor.SelectedItem.Text, "", Nothing, CorreoDestino)
                                 End If
                             End If
                         End If
@@ -26620,7 +26611,7 @@ Partial Class Ventas
                         ChkDevAlm.Checked = True
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFacturaCancelacion.TipoDocto = "Rem" Then
+                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Rem", "Ing") Then
                         ChkDevAlm.Checked = True
                     End If
 
@@ -26635,8 +26626,6 @@ Partial Class Ventas
                         AplicaCancelacionConPagos = True
                     End If
 
-
-
                     resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, AplicaCancelacionConPagos:=AplicaCancelacionConPagos)
                     strMensaje.Append(resp.Mensaje)
                     Dim DtBonificaciones As DataTable = Nothing