EsbOtlGenerateCurrencyOutline() generates a currency outline based on the existing outline.
EsbOtlGenerateCurrencyOutline (hOutline, phCurOutline)
ByVal hOutline As Long
phCurOutline As Long
| hOutline | Outline contexthandle. |
| phCurOutline | Return variable for the currency outline handle. |
Returns 0 if successful; otherwise one of the following:
OTLAPI_ERR_ALREADYCURRENCY
OTLAPI_CUR_NOACCOUNTS
OTLAPI_CUR_NOTIME
OTLAPI_CUR_NOCOUNTRY
Declare Function EsbOtlGenerateCurrencyOutline Lib
"ESBOTLW" (ByVal hOutline As Long,
phCurOutline As Long) As Long
Sub ESB_OtlGenerateCurrencyOutline()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim hCurOutline As Long
Object.hCtx = hCtx
Object.Type = ESB_OBJTYPE_OUTLINE
Object.AppName = "Sample"
Object.DbName = "Interntl"
Object.FileName = " Interntl "
sts = EsbOtlOpenOutline(hCtx, Object,
ESB_YES, ESB_YES, hOutline)
If sts = 0 Then
sts = EsbOtlGenerateCurrencyOutline
(hOutline, hCurOutline)
End If
End Sub
EsbOtlOpenOutline()
EsbOtlWriteOutline()
EsbOtlRestructure()