1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Select Case G_bin_params.Target_Machine.Trim
Case "DELTA"
MacType = NTSA.XNDF.Interfaces.MachineTypes.DELTA
Try
If ELD_Pic = True Then
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.PictureResolution, UInteger), CType(G_bin_params.PictureResolution, UInteger), CType(G_bin_params.ELD_PictureResolution, UInteger), CType(G_bin_params.ELD_PictureResolution, UInteger), True, False, PPIType, "")
Else
result3 = CreateSlogan.CreateSlogan(G_Delta_signing_prod_params _
, MacType, G_bin_params.IsPPI, SloType _
, G_classSlogan.TempExtractFolder & G_classSlogan.RecId & ".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.PictureResolution, UInteger), CType(G_bin_params.PictureResolution, UInteger), 0, 0, True, False, PPIType, "")
End If
Catch ex As Exception
PO_Result.Return_Message = ex.Message + "Erreur lors de la création du Slogan DELTA"
Return -2
Finally
CreateSlogan = Nothing
SloType = Nothing
MacType = Nothing
End Try
If result3 = False Then
PO_Result.Return_Message = "Erreur lors de la création du Slogan DELTA" + "Erreur lors de la création du Slogan DELTA"
Return -2
End If
Case "IJ25"
'suite des cases |
Partager