72 lines
1.7 KiB
C++
72 lines
1.7 KiB
C++
U0 BgtEntryDel2(CBgtEntry *tempb)
|
|
{
|
|
if (tempb->type!=BE_TEMPLATE_COPY) {
|
|
Free(tempb->credit);
|
|
Free(tempb->debit);
|
|
Free(tempb->desc);
|
|
}
|
|
}
|
|
|
|
U0 BgtEntryDel(CBgtEntry *tempb)
|
|
{
|
|
BgtEntryDel2(tempb);
|
|
Free(tempb);
|
|
}
|
|
|
|
U0 BgtIns(CBgtEntry *tempb)
|
|
{
|
|
CBgtEntry *tempb1=b_root.next;
|
|
while (tempb1!=&b_root && tempb1->date<tempb->date)
|
|
tempb1=tempb1->next;
|
|
QueIns(tempb,tempb1->last);
|
|
}
|
|
|
|
class CBgtEntryForm
|
|
{
|
|
U8 date[512] fmtstr "$$DA-P,511,A=\"Date :%s\"$$\n";
|
|
F64 amount fmtstr "Amount $$$$$$DA,511,A=\"%6.2f\"$$\n";
|
|
U8 credit[512] fmtstr "$$DA-P,511,A=\"Credit Acct:%s\"$$\n";
|
|
U8 debit [512] fmtstr "$$DA-P,511,A=\"Debit Acct:%s\"$$\n";
|
|
U8 desc [512] fmtstr "$$DA-P,511,A=\"Desc :%s\"$$\n";
|
|
};
|
|
|
|
CBgtEntry *BgtEntryPmt(CBgtEntry *dft=NULL)
|
|
{
|
|
CBgtEntryForm b;
|
|
CBgtEntry *tempb;
|
|
U8 *st;
|
|
MemSet(&b,0,sizeof(CBgtEntryForm));
|
|
StrCpy(&b.date,"*");
|
|
if (dft) {
|
|
StrPrint(b.date,"%D",dft->date);
|
|
b.amount=dft->amount;
|
|
StrCpy(b.credit,dft->credit);
|
|
StrCpy(b.debit ,dft->debit);
|
|
StrCpy(b.desc ,dft->desc);
|
|
}
|
|
while (TRUE)
|
|
if (PopUpForm(&b)) {
|
|
if (!*b.credit) {
|
|
st=BgtPopUpAcct("Credit Acct\n\n");
|
|
if (st!=DOCM_CANCEL)
|
|
StrCpy(b.credit,st);
|
|
} else if (!*b.debit) {
|
|
st=BgtPopUpAcct("Debit Acct\n\n");
|
|
if (st!=DOCM_CANCEL)
|
|
StrCpy(b.debit,st);
|
|
} else {
|
|
tempb=CAlloc(sizeof(CBgtEntry));
|
|
tempb->date =Str2Date(b.date);
|
|
tempb->amount=b.amount;
|
|
tempb->credit=StrNew(b.credit);
|
|
tempb->debit =StrNew(b.debit);
|
|
tempb->desc =StrNew(b.desc);
|
|
tempb->type =BE_NORMAL;
|
|
StrFileAdd(tempb->credit,&accts_table_strs,accts_table);
|
|
StrFileAdd(tempb->debit,&accts_table_strs,accts_table);
|
|
return tempb;
|
|
}
|
|
} else
|
|
return NULL;
|
|
}
|