declare @plantilla NUMERIC
select @plantilla = max(NumIdplantilla) 
	from Merlin_Plantillas

if(@plantilla is null )
	set @plantilla = 1
else 
	set @plantilla = @plantilla + 1 

INSERT INTO dbo.Merlin_Plantillas (NumIdPlantilla, StrDescripcionPlantilla, DatFechaCreacion, StrUsuario, NumIdCss, BitRequiereIdentificarTerceros, BitRequiereFirma, IntModoEncriptar, StrArchivo, StrArchivoImpresion)
VALUES (@plantilla, 'FORMULA MEDICA 2019', '2016-06-21 22:26:11.25', 'Paradigma', 0, 1, 1, 0, 'Cl-2851', 'Cl-1462')

INSERT INTO dbo.Merlin_Plantillas_Secciones (NumIdplantilla, IntIdSeccion, StrSeccion, StrListaPropiedades, IntOrden)
VALUES (@plantilla, 2, 'INFORMACIÓN GENERAL', 'BackColor = 8454016,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 14171687, TitleWidth=100, CAPTION="*++**++*"', 2)


INSERT INTO dbo.Merlin_Plantillas_Secciones (NumIdplantilla, IntIdSeccion, StrSeccion, StrListaPropiedades, IntOrden)
VALUES (@plantilla, 3, 'Veterinario', 'BackColor = 8454016,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 14171687, TitleWidth=100, CAPTION="*++**++*"', 3)


INSERT INTO dbo.Merlin_Plantillas_Secciones (NumIdplantilla, IntIdSeccion, StrSeccion, StrListaPropiedades, IntOrden)
VALUES (@plantilla, 4, '.', 'BackColor = 14171687,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 14171687, TitleWidth=100, CAPTION="*++**++*"', 4)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 268, 'FECHA.', 12, 'FECHA', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 15, CAPTION="FECHA."', '', 2, 1)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 269, 'HISTORIA CLÍNICA NÚMERO', 12, 'HISTORIA CLÍNICA NÚMERO', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 15, CAPTION="HISTORIA CLÍNICA NÚMERO"', '', 2, 2)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 270, 'NOMBRE DEL PACIENTE', 12, 'NOMBRE DEL PACIENTE', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 20, CAPTION="NOMBRE DEL PACIENTE"', '', 2, 3)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 271, 'MEDICAMENTOS', 20, 'MEDICAMENTOS', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 100, CAPTION="MEDICAMENTOS"', '', 2, 6)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 283, 'Veterinario.', 12, 'Veterinario', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 50, CAPTION="Veterinario."', '', 3, 1)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 337, 'PROPIETARIO', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 30, CAPTION="PROPIETARIO"', '', 2, 5)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 338, 'Observaciones', 1, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 100, CAPTION="Observaciones"', '', 2, 7)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 339, 'IDENTIFICACION', 12, 'Indetificacion del propietario', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 20, CAPTION="IDENTIFICACION"', '', 2, 4)


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 268, 528, 'FECHA', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = SRVDATE(&6&FH&6&),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 269, 529, 'HISTORIA CLINICA NUMERO', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.f.&4&&6&NumContratoNumero&6&&4&&6&merlin&5&vw&5&contratos&6&),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 270, 530, 'NOMBRE', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = MASCOTA&5&PARM(THIS.parent.Hist&5&Numidterceroatendidovete&4&&6&nombre&6&),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 271, 531, 'MEDICAMENTOS', ', CAPTION="MEDICAMENTOS"')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 337, 651, 'propietario', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.PARENT.Hist&5&NumIdterceroAtendido&4&.F.&4&&6&StrNombreUsuario&6&),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 338, 652, 'Observaciones', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = []')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 339, 653, 'Identificacion', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"StrNitUsuario"),TitleToLeft = .F.,TitleToLeftWidth = 50')



