ALGEMENE VELDEN +++++++++++++++ weegnr=wg_nr nrplaat =wg_nrplaat chauffeur =GetDataField("Chauffeur", "Code", wg_chauffeur, "ch_naam") nrplaatgeldigtot =DTOC(EVL(GetDataField("tarra","code", wg_nrplaat, "tar_gebruik"), {})) nrplaatadr =IIF(EMPTY(GetDataField("tarra","code", wg_nrplaat, "tar_adrcertificaat")), "NO ADR", "ADR") oplegger =wg_nrplaat_oplegger opleggergeldigtot =DTOC(EVL(GetDataField("tarra_oplegger","code", wg_nrplaat_oplegger, "to_gebruik"), {})) opleggeradr =IIF(EMPTY(GetDataField("tarra_oplegger","code", wg_nrplaat_oplegger, "to_adrcertificaat")), "NO ADR", "ADR") transporteurcode =wg_trsp transporteur =ALLTRIM(GetDataField("transp", "code", wg_trsp, "tr_naam")) klantnr =wg_klt klant =GetDataField("klpx","code",wg_klt,"kl_nam") info0 =wg_info0 info1 =wg_info1 info2 =wg_info2 info3 =wg_info3 info4 =wg_info4 info5 =wg_info5 info5b =wg_info5b info6 =wg_info6 info7 =wg_info7 info7b =wg_info5b info8 =wg_info8 info9 =wg_info9 grondcode =wg_grond grondoms =getdatafield("grond", "code", wg_grond, "gr_oms") infoCode1 =wg_info_code1 infoCode1Omschrijving =GetDataField("Info_bestand1", "code", wg_info_code1, "ib1_omschrijving") infoCode2 =wg_info_code2 infoCode2Omschrijving =GetDataField("Info_bestand2", "code", wg_info_code2, "ib2_omschrijving") leverancier =GetDataField("lvpx", "code", wg_lev, "lv_nam") prodcode =wg_prod produkt =wg_prnam prinfo =prodInfo() badge =wg_badge operator =wg_operator operator_naam =GetDataField("users", "code", wg_operator, "us_naam") silo =wg_silonam kltstr =firstUpper(GetDataField("klpx","code",wg_klt,"kl_str")) kltgem =firstUpper(GetDataField("klpx","code",wg_klt,"kl_pnr + kl_wpl")) klttel =GetDataField("klpx","code",wg_klt,"kl_tel") kltbtw =GetDataField("klpx","code",wg_klt,"kl_eeg + ' ' + kl_nbtw") klttaal =GetDataField("klpx","code",wg_klt,"kl_t") kltlandcode =GetDataField("klpx","code",wg_klt,"kl_lnd") kltgoedknr =GetDataField("klpx","code",wg_klt,"kl_goedknr") kltland =firstUpper(GetDataField("ldpx", "land", weegvar("kltlandcode"), "ld_oms")) kltextnr =GetDataField("klpx","code",wg_klt,"kl_extnr") herkomst =wg_hkwerf herkomstcode =wg_herkomst herkomststr =firstUpper(GetDataField("herkomst","code",wg_herkomst,"hk_straat")) herkomstgem =firstUpper(GetDataField("herkomst","code",wg_herkomst,"hk_pnr + hk_wpl")) herkomstpnr =firstUpper(GetDataField("herkomst","code",wg_herkomst,"hk_pnr")) herkomstlandcode =GetDataField("herkomst","code",wg_herkomst,"hk_lnd") herkomstland =firstUpper(GetDataField("ldpx", "land", weegvar("herkomstlandcode"), "ld_oms")) bestem =wg_bswerf bestemcode =wg_bestem bestemstr =firstUpper(GetDataField("bestem","code", wg_bestem,"bs_straat")) bestemgem =firstUpper(GetDataField("bestem","code", wg_bestem,"bs_pnr + bs_wpl")) bestempnr =firstUpper(GetDataField("bestem","code", wg_bestem,"bs_pnr")) bestemlandcode =GetDataField("bestem","code",wg_bestem,"bs_lnd") bestemland =firstUpper(GetDataField("ldpx", "land", weegvar("bestemlandcode"), "ld_oms")) werf =IIF(EMPTY(wg_bswerf), wg_hkwerf, wg_bswerf) transpstr =firstUpper(GetDataField("transp","code",wg_trsp,"tr_straat")) transpgem =firstUpper(GetDataField("transp","code",wg_trsp,"tr_pnr + tr_wpl")) transptel =GetDataField("transp","code",wg_trsp,"tr_tel") transpbtw =GetDataField("transp","code",wg_trsp,"tr_rek") levnr =wg_lev levstr =firstUpper(GetDataField("lvpx", "code", wg_lev, "lv_str")) levgem =firstUpper(GetDataField("lvpx", "code", wg_lev, "lv_pnr + lv_wpl")) levtel =GetDataField("lvpx", "code", wg_lev, "lv_tel") levfostplus =GetDataField("lvpx", "code", wg_lev, "lv_bank") levextnr =GetDataField("lvpx", "code", wg_lev, "lv_website") GEWICHTEN ++++++++++ Eerste weging ------------- wg1agewicht =padl(alltrim(str(wg_wg1a)),6) wg1anummer =wg_wg1anr wg1adatum =dtoc(wg_wg1adat) expdatum =xdate(wg_wg1adat,5) wg1atijd =padl(wg_wg1auur,5) wg1bgewicht =padl(alltrim(str(wg_wg1b)),6) wg1bnummer =wg_wg1bnr wg1bdatum =dtoc(wg_wg1bdat) wg1btijd =padl(wg_wg1buur,5) Tweede weging ------------- wg2agewicht =padl(alltrim(str(wg_wg2a)),6) wg2anummer =wg_wg2anr wg2adatum =dtoc(wg_wg2adat) wg2atijd =padl(wg_wg2auur,5) wg2bgewicht =alltrim(str(wg_wg2b)) wg2bnummer =wg_wg2bnr wg2bdatum =dtoc(wg_wg2bdat) wg2btijd =padl(wg_wg2buur,5) Containers ---------- Container1 = alltrim(wg_container1) Container2 = alltrim(wg_container2) Container3 = alltrim(wg_container3) Container4 = alltrim(wg_container4) Container1Gewicht = alltrim(str(getdatafield('containers', 'code', wg_container1, 'con_gewicht'))) + ' kg' Container2Gewicht = alltrim(str(getdatafield('containers', 'code', wg_container2, 'con_gewicht'))) + ' kg' Container3Gewicht = alltrim(str(getdatafield('containers', 'code', wg_container3, 'con_gewicht'))) + ' kg' Container4Gewicht = alltrim(str(getdatafield('containers', 'code', wg_container4, 'con_gewicht'))) + ' kg' Diverse ------- Containter =alltrim(str(wg_wgcont)) AftrekKG =alltrim(str(wg_netaft)) AftrekPercent =alltrim(str(wg_netaftp)) prodPrijs =alltrim(str(wg_prijs,8,2)) prodEh =wg_eh fostPlus =alltrim(fostPlusProd(wg_prod,wg_soort)) totPrijs =alltrim(str(wg_prijs * wg_netto,10,2)) Resultaten ---------- gewichtin =padl(alltrim(str(IIF(wg_vasttar, IIF(wg_soort=1,wg_wg2a, wg_wg1a), wg_wg1a))),6) gewichtuit =padl(alltrim(str(IIF(wg_vasttar, IIF(wg_soort=1,wg_wg1a, wg_wg2a), wg_wg2a))),6) tarra =padl(alltrim(str(wg_tarra)),6) conttarra =padl(alltrim(str(wg_wgconttar)),6) datumtarra =DTOC(IIF(wg_wg1a < wg_wg2a, wg_wg1adat, wg_wg2adat)) uurtarra =PADL(IIF(wg_wg1a < wg_wg2a, wg_wg1auur, wg_wg2auur),5) nrtarra =IIF(wg_wg1a < wg_wg2a, wg_wg1anr , wg_wg2anr) bruto =padl(alltrim(str(wg_bruto)),6) contbruto =padl(alltrim(str(wg_wgcontbrut)),6) datumbruto =DTOC(IIF(wg_wg1a > wg_wg2a, wg_wg1adat, wg_wg2adat)) uurbruto =PADL(IIF(wg_wg1a > wg_wg2a, wg_wg1auur, wg_wg2auur),5) nrbruto =IIF(wg_wg1a > wg_wg2a, wg_wg1anr , wg_wg2anr) netto =padl(alltrim(str(wg_netto)),6) m3 =padl(alltrim(str(wg_m3,2)),6) gwm3 =IIF(wg_m3 > 0, padl(alltrim(str(wg_netres / wg_m3,2)),6), '') gwm3copro =padl(alltrim(str(wg_gwm3,9,2)),6) gwm3dme =padl(alltrim(str(wg_m3)),6) nettoresultaat =padl(alltrim(str(wg_netres)),6) gewichtdme =IIF(empty(wg_netto), weegvar("gwm3dme") + " m3", weegvar("netto") + " ton") Grondverwerking --------------- Aanvoer ------- Stockageplaats = alltrim(wg_samenvoegproject) + "/" + GetDataField("grond_samenvoegproject_stockageplaatsen", "code", wg_samenvoegproject + wg_stockageplaats, "gss_stockageplaats") Afvoer ------ Lot = wg_grond_lot LotTransporttoelating = GetDataField("grond_lot", "code", wg_grond_lot, "gl_grondtransporttoelating") Driedelignummer = GetDataField("grond_lot", "code", wg_grond_lot, "gl_driedelignummer") Conformverklaring = GetDataField("grond_lot", "code", wg_grond_lot, "gl_conformverklaring")