Hieronder de bestandsbeschrijving van de 3 bestanden die vanuit Bake-it worden geëxporteerd.


*.CUS


// Voor alle afleveradressen

sOut:=Space(223)


// * Vul CustID *

sOut := MC_StringInsert(sOut, 1, 8, AllTrim(oKopF:NR))


// * Vul Custname *

sOut := MC_StringInsert(sOut, 13, 30, Left(oAFL:GetNaamVolledig, 30))


// * Vul Street *

sOut := MC_StringInsert(sOut, 43, 25, Left(oAfl:ADRES, 25))


// * Vul Zip *

sOut := MC_StringInsert(sOut, 68, 8, Left(oAfl:POST, 8))


// * Vul City *

sOut := MC_StringInsert(sOut, 76, 22, Left(oAfl:PLAATS, 22))


// * Vul Telephone *

sOut := MC_StringInsert(sOut, 98, 15, Left(oAfl:TEL1, 15))


// * Vul PrijsType *

sOut := MC_StringInsert(sOut, 114, 1, STD_KLA_PRIJS_TYPE)


// * Vul User1 *

sOut := MC_StringInsert(sOut, 115, 8, STD_KLA_USER1)


// * Vul CustGrp *

sOut := MC_StringInsert(sOut, 131, 5, STD_KLA_CUST_GRP)


// * Vul NietVerdelen *

sOut := MC_StringInsert(sOut, 136, 1, STD_KLA_NIET_VERDELEN)


// * Vul Priority 3 *

sOut := MC_StringInsert(sOut, 168, 2, STD_KLA_PRIORITY3)


// * Vul Priority 2 *

sOut := MC_StringInsert(sOut, 171, 2, STD_KLA_PRIORITY2)


// * Vul Priority 1 *

sOut := MC_StringInsert(sOut, 174, 2, STD_KLA_PRIORITY1)


//RouteNumber, FollowUpNumber

sOut := MC_StringInsert(sOut, 181, 4, Right(Al(routeArray[1]),4))


// * Vul DispName *

sOut := MC_StringInsert(sOut, 185, 30, oAfl:ZOEKCODE)


// * Vul MagMeer *

sOut := MC_StringInsert(sOut, 215, 1, STD_KLA_MAG_MEER)


*.PRD


// Voor alle combinaties tussen artikelen en subcodes

sOut:=Space(171)


// Kijk of combinatie Artikelcode + Subcode voorkomt in externe artikelcodes

sOut:=MC_StringInsert(sOut,1,9,PadL(Al(oArt:NR)+Al(oSub:NR), 9, "0"))


// * Vul Prodname *

sOut := MC_StringInsert(sOut, 13, 32, Left(AllTrim(oArt:NAAM) + " " + AllTrim(oSub:NAAM), 32))


// * Vul Barcode *

sOut := MC_StringInsert(sOut, 46, 16, Left(oArt:BARCODE, 16))


// * Vul Prodkrat *

sOut := MC_StringInsert(sOut, 80, 4, STD_ART_PRODKRAT)


// * Vul Magcode *

sOut := MC_StringInsert(sOut, 85, 1, STD_ART_MAGCODE)


// * Vul Deelbaar *

sOut := MC_StringInsert(sOut, 86, 1, STD_ART_DEELBAAR)


// * Vul Product_grp *

sOut := MC_StringInsert(sOut, 87, 3, Left(Al(oAGR:NR), 3))


// * Vul Samenv_grp *

sOut := MC_StringInsert(sOut, 90, 3, STD_ART_SAMENV_GRP)


// * Vul Snij_grp *

sOut := MC_StringInsert(sOut, 93, 3, IIF(oSub:METSNIJ,"1","0"))


// * Vul Reserve_grp *

sOut := MC_StringInsert(sOut, 96, 3, STD_ART_RESERVE_GRP)


// * Vul IsHalve *

sOut := MC_StringInsert(sOut, 111, 1, IIF(oSub:METHALF,"1","0"))


// * Vul PriorityNum *

sOut := MC_StringInsert(sOut, 112, 1, STD_ART_PRIORITY_NUM)


// * Vul NietVerdelen *

sOut := MC_StringInsert(sOut, 113, 1, STD_ART_NIET_VERDELEN)


// * Vul ProductInfo *

sOut := MC_StringInsert(sOut, 114, 20, STD_ART_PRODUCT_INFO)


// * Vul Etiketcode *

sOut := MC_StringInsert(sOut, 134, 20, STD_ART_ETIKETCODE)


// * Vul Prod_rename *

sOut := MC_StringInsert(sOut, 166, 1, STD_ART_PROD_RENAME)


// * Vul Floating *

sOut := MC_StringInsert(sOut, 167, 1, STD_ART_FLOATING)


// * Vul AutoReady *

sOut := MC_StringInsert(sOut, 168, 1, STD_ART_AUTO_READY)


// * Vul DispatchUnit *

sOut := MC_StringInsert(sOut, 169, 3, Str(oSub:FACTAAN, 3, 0))


*.OD0


//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)