Untitled

alias vclient {
  dialog -m vclient vclient
}

dialog vclient {
  title "View Client"
  size -1 -1 624 428
  tab "Client", 501, 7 3 609 361
  tab "Account", 502
  tab "CO-Signer", 503
  tab "Collector Notes", 504
  tab "Collateral", 505
  tab "Legal", 506
  tab "Credit History", 507
  button "<< Back to Database", 2, 431 365 116 24
  button "Close", 3, 551 365 66 24
  box "Account Information", 10, 11 26 602 40, tab 501
  text "Account Number:", 11, 19 45 86 16, tab 501
  icon 12, -5 391 643 37, $shortfn($mircdirsystem\bmp.bmp)
  edit "ID13", 13, 104 42 164 20, multi return tab 501
  text "Record Type:", 14, 279 45 68 16, tab 501
  edit "ID13", 15, 346 42 70 20, multi return tab 501
  text "Customer Type:", 16, 425 45 76 16, tab 501
  edit "ID13", 17, 502 42 102 20, multi return tab 501
  box "Personal Information", 18, 11 70 602 136, tab 501
  text "Full Name:", 19, 19 89 76 16, right tab 501
  edit "ID13", 20, 96 86 260 20, return tab 501
  text "Address:", 21, 19 109 74 16, right tab 501
  edit "ID13", 22, 96 106 260 20, return tab 501
  edit "ID13", 23, 96 126 260 20, return tab 501
  edit "ID13", 24, 96 146 40 20, return tab 501
  edit "ID13", 25, 136 146 130 20, return tab 501
  edit "ID13", 26, 266 146 24 20, return tab 501
  box "Tools", 27, 369 78 238 122, tab 501
  button "Copy Entire Address to Clipboard", 28, 411 95 168 24, tab 501
  edit "ID13", 29, 290 146 66 20, return tab 501
  text "Home Phone:", 30, 19 181 74 16, right tab 501
  edit "00000000012345", 31, 96 178 80 20, return tab 501
  button "Verify Home Phone Number", 34, 411 169 168 24, tab 501
  text "D.O.B:", 35, 173 181 40 16, right tab 501
  box "Employer Information", 38, 11 206 602 80, tab 501
  text "Company:", 39, 19 223 74 16, right tab 501
  edit "ID13", 40, 96 222 260 20, return tab 501
  text "Work Phone:", 41, 19 265 74 16, right tab 501
  text "Address:", 42, 19 245 74 16, right tab 501
  edit "ID13", 43, 96 242 260 20, return tab 501
  box "Income Information", 9, 11 286 602 70, tab 501
  edit "00000000012345", 32, 216 178 80 20, return tab 501
  text "00 yrs.", 33, 299 181 34 16, tab 501
  edit "00000000012345", 36, 96 262 80 20, return tab 501
  text "Monthly:", 44, 19 305 74 16, right tab 501
  edit "00000000012345", 45, 96 302 80 20, return tab 501
  text "Other Income:", 46, 19 321 74 16, right tab 501
  edit "00000000012345", 48, 96 322 80 20, return tab 501
  text "Other Obligations:", 47, 181 305 92 16, right tab 501
  edit "00000000012345", 49, 274 302 80 20, return tab 501
  text "Own/Rent Code:", 50, 181 325 92 16, right tab 501
  edit "00000000012345", 51, 274 322 80 20, return tab 501
  box "Tools", 52, 369 214 238 64, tab 501
  button "Browse Yellowpages", 53, 411 237 168 24, tab 501
  box "Tools", 54, 369 294 238 56, tab 501
  button "Calculator", 55, 411 313 168 24, tab 501
  box "Account Codes", 1, 11 26 602 64, tab 502
  text "Loan Type Code:", 4, 19 45 86 16, right tab 502
  edit "ID13", 5, 106 42 44 20, multi return tab 502
  text "Lending Officer Code:", 6, 159 45 112 16, right tab 502
  edit "ID13", 7, 272 42 44 20, multi return tab 502
  text "Dealer Code:", 8, 323 45 78 16, right tab 502
  edit "ID13", 37, 404 42 196 20, multi return tab 502
  text "Account Status Code:", 56, 19 65 108 16, right tab 502
  edit "ID13", 57, 128 62 44 20, multi return tab 502
  text "Charge-off Reason Code:", 58, 177 65 130 16, right tab 502
  edit "ID13", 59, 308 62 44 20, multi return tab 502
  text "DPS ID/Recoverer Code:", 60, 357 65 128 16, right tab 502
  edit "ID13", 61, 486 62 114 20, multi return tab 502
  box "Dates", 62, 11 92 602 66, tab 502
  text "Receipt Date:", 63, 19 109 86 16, right tab 502
  edit "CCYYMMDD", 64, 106 106 76 20, multi return tab 502
  text "Last Payment Date:", 66, 201 109 104 16, right tab 502
  edit "CCYYMMDD", 67, 308 106 74 20, multi return tab 502
  text "Charge-off Date:", 68, 405 109 102 16, right tab 502
  edit "CCYYMMDD", 69, 508 106 80 20, multi return tab 502
  box "Loan Information", 65, 11 160 602 194, tab 502
  text "Contract Date:", 70, 19 131 86 16, right tab 502
  edit "CCYYMMDD", 71, 106 128 76 20, multi return tab 502
  text "Interest Rate:", 72, 19 177 86 16, right tab 502
  edit "CCYYMMDD", 73, 106 174 76 20, multi return tab 502
  text "Accrued Interest:", 74, 185 177 96 16, right tab 502
  edit "CCYYMMDD", 75, 282 174 76 20, multi return tab 502
  text "Current Balance:", 78, 19 197 86 16, right tab 502
  edit "CCYYMMDD", 79, 106 194 76 20, multi return tab 502
  text "Associated Costs:", 80, 19 217 86 16, right tab 502
  edit "CCYYMMDD", 81, 106 214 76 20, multi return tab 502
  text "Next Payment Date:", 84, 203 131 104 16, right tab 502
  edit "CCYYMMDD", 85, 308 128 74 20, multi return tab 502
  text "Monthly Payment:", 86, 15 237 90 16, right tab 502
  edit "CCYYMMDD", 87, 106 234 76 20, multi return tab 502
  box "Comments", 76, 187 192 420 128, tab 502
  list 77, 190 206 414 108, extsel hsbar vsbar size tab 502
  text "Last Comment Date:", 82, 427 329 104 16, right tab 502
  edit "CCYYMMDD", 83, 532 326 76 20, multi return tab 502
  text "Charge-off Amt:", 88, 15 257 90 16, right tab 502
  edit "CCYYMMDD", 89, 106 254 76 20, multi return tab 502
  text "Last Contact Date:", 90, 405 131 102 16, right tab 502
  edit "CCYYMMDD", 91, 508 128 80 20, multi return tab 502
  text "Commision Rate:", 92, 363 177 96 16, right tab 502
  edit "CCYYMMDD", 93, 460 174 76 20, multi return tab 502
  text "Recovery Score:", 94, 13 283 92 16, right tab 502
  edit "CCYYMMDD", 95, 106 280 76 20, multi return tab 502
  text "Customer ID:", 96, 13 303 92 16, right tab 502
  edit "CCYYMMDD", 97, 106 300 76 20, multi return tab 502
  box "Notes:", 98, 11 26 602 300, tab 504
  list 99, 14 40 594 282, vsbar size tab 504
  button "&Hide", 100, 0 0 0 0, hide Ok
}

on *:dialog:vclient:init:0:{
  did -c vclient 502
}