1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
Try
result3 = CreateSlogan.CreateSlogan(G_Delta_signing_prod_params _
, MacType, G_bin_params.IsPPI, SloType _
, G_classSlogan.TempExtractFolder & G_classSlogan.RecId & ".bmp", G_classSlogan.TempExtractFolder & G_classSlogan.RecId & "_ELD.bmp", G_bin_params.Bin_output_directory, G_classSlogan.Title.Trim(" ") _
, G_classOF.OF_data.Partnumber & "A", G_classSlogan.RecId, G_bin_params.IsOsiris, CType(G_bin_params.OMEGA_PicturResolutionX, UInteger), CType(G_bin_params.OMEGA_PicturResolutionY, UInteger), CType(G_bin_params.ELD_PictureResolution, UInteger), CType(G_bin_params.ELD_PictureResolution, UInteger), True, True, PPIType, "")
Catch ex As Exception
PO_Result.Return_Message = ex.Message + "Erreur lors de la création du Slogan OMEGA"
Return -2
Finally
CreateSlogan = Nothing
SloType = Nothing
MacType = Nothing
End Try |
Partager