Header
Print pbHeader
End

For each Juchu
Where JuchuId = &JuchuId
&JuchuDate = JuchuDate
&JuchuTotal = JuchuTotal
&KokyakuId = KokyakuId
&KokyakuName = KokyakuName
&KokyakuPhone = KokyakuPhone
&KokyakuAddress = KokyakuAddress

Print pbTitle

For each Juchu.Meisai
&ShohinId = ShohinId
&ShohinName = ShohinName
&ShohinPrice = ShohinPrice
&JuchuSu = JuchuSu
&JuchuSubTotal = JuchuSubTotal
Print pbDetail
Endfor

Print pbTotal

Eject
EndFor

Footer
Print pbFooter
End