//Creer String
sOut:=Space(146)

// Artikelnaam + subcode naam uit koppeltabel als het gekoppeld is, anders direct uit tabel art en sub
sOut := MC_StringInsert(sOut, 1, 9, PadL(Al(oArt:NR)+Al(oSub:NR),9,"0"))

// * Vul DriveNum *
sOut := MC_StringInsert(sOut, 13, 1, Right(oLev:NR, 1))

// * Vul CustID *
sOut := MC_StringInsert(sOut, 14, 8, AllTrim(sAfl))

// * Vul Quote *
sOut := MC_StringInsert(sOut, 22, 5, Str(oOrdr:ANT*nFactor, 5, 0))

// * Vul Done *
sOut := MC_StringInsert(sOut, 28, 5, STD_ORD_DONE)

// * Vul A_quote *
sOut := MC_StringInsert(sOut, 33, 6, STD_ORD_A_QUOTE)

// * Vul A_code *
sOut := MC_StringInsert(sOut, 39, 1, STD_ORD_A_CODE)

// * Vul Ordrid *
sOut := MC_StringInsert(sOut, 40, 6, STD_ORD_ORDRID)

// * Vul Vv_done *
sOut := MC_StringInsert(sOut, 59, 5, STD_ORD_VV_DONE)

// * Vul VDriveNum *
sOut := MC_StringInsert(sOut, 66, 1, STD_ORD_VDRIVENUM)

// * Vul Quote0 *
sOut := MC_StringInsert(sOut, 67, 5, STD_ORD_QUOTE0)

// * Vul Q_change *
sOut := MC_StringInsert(sOut, 72, 5, STD_ORD_Q_CHANGE)

// * Vul Edit_flg *
sOut := MC_StringInsert(sOut, 77, 1, STD_ORD_EDIT_FLG)

// * Vul Dlv_note *
sOut := MC_StringInsert(sOut, 78, 9, STD_ORD_DLV_NOTE)

// * Vul Ordr_nr *
sOut := MC_StringInsert(sOut, 87, 9, Al(oOrd:NR))

// * Vul Price *
sOut := MC_StringInsert(sOut, 96, 6, STD_ORD_PRICE)

// * Vul Done0 *
sOut := MC_StringInsert(sOut, 102, 5, STD_ORD_DONE0)

// * Vul Vwk_status *
sOut := MC_StringInsert(sOut, 107, 1, STD_ORD_VWK_STATUS)

// * Vul User1 *
sOut := MC_StringInsert(sOut, 108, 8, STD_ORD_USER1)

// * Vul User2 *
sOut := MC_StringInsert(sOut, 116, 8, STD_ORD_USER1)

// * Vul ActionCode *
sOut := MC_StringInsert(sOut, 124, 1, STD_ORD_ACTIONCODE)
                                          
// Doe de route
sRouteNr	:=""
nVolgNr		:=0
DO CASE
CASE Empty(oAfl:ID_DBROUTE)
	// Leeg
OTHERWISE
	nVolgNr		:=oAfl:ROUTENR
	sRouteNr	:=Al(oAfl:GetRelateToServerField(#ID_DBRoute,#NR))
END
sOut := MC_StringInsert(sOut, 125, 3, Str(nVolgNr,3,0))
sOut := MC_StringInsert(sOut, 137, 9, sRouteNr)