TempleOSCDV4.11.ISO

Apps/Budget/BgtTemplate.HC

@@ -0,0 +1,147 @@
+U0 BgtTemplatePurge(CBgtTemplate *tempt)
+{
+  CBgtEntry	*tempb,*tempb1;
+  tempb=b_head.next;
+  while (tempb!=&b_head) {
+    tempb1=tempb->next;
+    if (tempb->template==tempt) {
+      QueRem(tempb);
+      BgtEntryDel2(tempb);
+      Free(tempb);
+    }
+    tempb=tempb1;
+  }
+}
+
+U0 BgtTemplateExpand(CBgtTemplate *tempt)
+{
+  CDate		d,start,end;
+  CDateStruct	ds;
+  CBgtEntry	*tempb;
+
+  start=MyStr2Date(tempt->start_date);
+  end  =MyStr2Date(tempt->end_date);
+  tempt->b.template=tempt;
+  switch (tempt->type) {
+    case BT_INTERVAL:
+      d=start;
+      while (d<=end) {
+	tempb=CAlloc(sizeof(CBgtEntry));
+	MemCpy(tempb,&tempt->b,sizeof(CBgtEntry));
+	tempb->date=d;
+	tempb->type=BE_TEMPLATE_COPY;
+	BgtIns(tempb);
+	d+=tempt->period*0x100000000;
+      }
+      break;
+    case BT_MONTHLY:
+      Date2Struct(&ds,start);
+      while (TRUE) {
+	d=Struct2Date(&ds);
+	if (d<=end) {
+	  tempb=CAlloc(sizeof(CBgtEntry));
+	  MemCpy(tempb,&tempt->b,sizeof(CBgtEntry));
+	  tempb->date=d;
+	  tempb->type=BE_TEMPLATE_COPY;
+	  BgtIns(tempb);
+	} else
+	  break;
+	if (++ds.mon>11) {
+	  ds.mon=0;
+	  ds.year++;
+	}
+      }
+      break;
+    case BT_BIMONTHLY:
+      Date2Struct(&ds,start);
+      while (TRUE) {
+	d=Struct2Date(&ds);
+	if (d<=end) {
+	  tempb=CAlloc(sizeof(CBgtEntry));
+	  MemCpy(tempb,&tempt->b,sizeof(CBgtEntry));
+	  tempb->date=d;
+	  tempb->type=BE_TEMPLATE_COPY;
+	  BgtIns(tempb);
+	} else
+	  break;
+	ds.mon+=2;
+	if (ds.mon>11) {
+	  ds.mon-=12;
+	  ds.year++;
+	}
+      }
+      break;
+    case BT_SEMIANNUAL:
+      Date2Struct(&ds,start);
+      while (TRUE) {
+	d=Struct2Date(&ds);
+	if (d<=end) {
+	  tempb=CAlloc(sizeof(CBgtEntry));
+	  MemCpy(tempb,&tempt->b,sizeof(CBgtEntry));
+	  tempb->date=d;
+	  tempb->type=BE_TEMPLATE_COPY;
+	  BgtIns(tempb);
+	} else
+	  break;
+	ds.mon+=6;
+	if (ds.mon>11) {
+	  ds.mon-=12;
+	  ds.year++;
+	}
+      }
+      break;
+    case BT_ANNUAL:
+      Date2Struct(&ds,start);
+      while (TRUE) {
+	d=Struct2Date(&ds);
+	if (d<=end) {
+	  tempb=CAlloc(sizeof(CBgtEntry));
+	  MemCpy(tempb,&tempt->b,sizeof(CBgtEntry));
+	  tempb->date=d;
+	  tempb->type=BE_TEMPLATE_COPY;
+	  BgtIns(tempb);
+	} else
+	  break;
+	ds.year++;
+      }
+      break;
+  }
+}
+
+U0 CBgtTemplatesExpand()
+{
+  CBgtTemplate	*tempt=t_head.next;
+  while (tempt!=&t_head) {
+    BgtTemplateExpand(tempt);
+    tempt=tempt->next;
+  }
+}
+
+CBgtTemplate *BgtTemplatePmt(CBgtTemplate *dft_t=NULL)
+{
+  CBgtTemplate	t,*tempt;
+  CBgtEntry	*tempb,*dft_b;
+  MemSet(&t,0,sizeof(CBgtTemplate));
+  if (dft_t) {
+    MemCpy(&t.start,&dft_t->start,BT_SIZE);
+    dft_b=&dft_t->b;
+  } else {
+    t.type=BT_INTERVAL;
+    StrCpy(&t.start_date,"[");
+    StrCpy(&t.end_date,"]");
+    dft_b=NULL;
+  }
+  while (TRUE)
+    if (PopUpForm(&t) && ((t.type==BT_INTERVAL && t.period>0) ||
+	  t.type>BT_INTERVAL)) {
+      if (tempb=BgtEntryPmt(dft_b)) {
+	tempt=CAlloc(sizeof(CBgtTemplate));
+	MemCpy(&tempt->start,&t.start,BT_SIZE);
+	MemCpy(&tempt->b,tempb,sizeof(CBgtEntry));
+	Free(tempb);
+	return tempt;
+      }
+    } else
+      break;
+  return NULL;
+}