Messagebox mostrar siempre

 

MessageBox.Show("FIN", "clientes SII", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button2, MessageBoxOptions.ServiceNotification, False)

fuente

Trigger no eliminar fila específica

use casa

 GO

 CREATE TRIGGER no_delete_admin

         ON [dbo].[usuarios]

    INSTEAD OF DELETE 

    AS

    IF EXISTS(SELECT * FROM deleted d WHERE d.id = 4)

   BEGIN

    --ROLLBACK;

    RAISERROR('No se puede eliminar',16,1);

   END

   ELSE

   BEGIN

   DELETE usuarios WHERE id IN (SELECT id FROM deleted)

   END

   

   SELECT * FROM usuarios where id IN (1)

   SELECT * FROM deleted d WHERE d.id <> 1

fuente1

fuente2

fuente3

version2

GO

 CREATE TRIGGER [dbo].[no_delete_admin]

         ON [dbo].[usuarios]

    INSTEAD OF DELETE 

    AS

    IF EXISTS(SELECT * FROM deleted d WHERE d.id = 4)

   BEGIN

    

    SET ANSI_WARNINGS OFF;

    SET ANSI_WARNINGS ON;

    --ROLLBACK;

    --RAISERROR('No se puede eliminar',16,1);

   END

   ELSE

   BEGIN

   DELETE usuarios WHERE id IN (SELECT id FROM deleted)

   END

constraint tabla usuarios

tabla usuarios

ALTER TABLE usuarios
ADD CONSTRAINT not_empty_usuario CHECK (LEN(usuario) > 0 )

ALTER TABLE usuarios
ADD CONSTRAINT not_empty_clave CHECK (LEN(clave) > 0 )

fuente
fuente2
fuente3

Certificación boleta electrónica 2020

instructivo certificación

set de pruebas

solicitud de revisión set boletas

ejemplo certificación

formato dte boleta_2020

1. Boleta de Ventas y Servicios Electrónica
2. Boleta electrónica de mercado
3. Inscríbase aquí
4. Procedimiento de postulación, certificación y autorización
5. Paso 3 
6. Realizar Declaración de Cumplimiento

ToolTip CheckBox Mensaje

  Dim tool_tip1 As ToolTip = New ToolTip
        'tool_tip1.AutoPopDelay = 5000
        'tool_tip1.InitialDelay = 1000
        'tool_tip1.ReshowDelay = 500
        tool_tip1.ShowAlways = True
        tool_tip1.SetToolTip(Me.cb_selec_todo, "Seleccionar todo ✓")

fuente

Ruta ejecutable

Path.GetDirectoryName(Assembly.GetExecutingAssembly.Location) & "\"

for infinito

 For i As Integer = 0 To 1 Step 0
        Next

fuente

copiar/pegar en textbox

Deshabilitar las opciones copiar/pegar en MenuStrip

diferencia entre double y decimal

fuente

Carpeta de instalacion windows service

 Try
            ' Agregar Referencia System.Management.dll
            Dim RutaService As String = ""
            Using wmiService As ManagementObject = New ManagementObject("Win32_Service.Name='" + NombreServicio + "'")
                wmiService.Get()
                RutaService = System.IO.Directory.GetParent(wmiService("PathName").ToString.Replace("""", "")).ToString
            End Using
            Process.Start(RutaService)
        Catch ex As Exception
            MessageBox.Show("La carpeta no existe", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

fuente