📄 report2.lst
字号:
661 3 FenInvoInput2(k);//与已录入的发票查询
662 3 break;
663 3 case 9:
664 3 AllManageSale(k);//全部营业员xz报表显示
665 3 break;
666 3 default:return;
667 3 }
668 2 }
669 1 }
670
671 /*-------------------------------------------------------------------------
672 根据发票代码查询
673 -------------------------------------------------------------------------*/
674 void Invcodedemand()
675 {
676 1 uchar i=0,HomeFlag=0,ReVal=0,ary[10],ReadCode[40];
677 1 while(1)
678 1 {
679 2 for(i=0;i<10;i++)ary[i]=0;
680 2 ReVal=Dialog(" 发票代码查询","请输入20位发票代码:","[退出] [确认]",20,ary);
681 2 if(ReVal == K_TC)
682 2 return;//退出
683 2 if(ReVal == K_HJ)
684 2 {
685 3 // LcdDisplay(16,0,"正在查询.请稍候...",3);
686 3 HomeFlag=Res_InvCode(ary,ReadCode);
687 3 if(HomeFlag==1)//存在//调发票代码打印与显示函数
688 3 {
689 4 HomeFlag=0;
690 4
691 4 InvDisAndPrint(1,ReadCode,0," ");
692 4 // InvPrintSelect(1,ReadCode,0,1);//发票代码查看与打印选择
693 4 }
694 3 else//不存在
695 3 ReHint("发票代码不存在!","请重新输入...");
696 3 for(i=0;i<10;i++)ary[i]=0;//将数据清0
697 3 }
698 2 }
699 1 }
700 /*--------------------------------------------------------------------------
701 + 根据发票起始号查询
702 --------------------------------------------------------------------------*/
703 void InvoBegindemand()
704 {
705 1 uchar HomeFlag=0,ReturnKeyval[1],ReadCode[40];
706 1 ulong InvDat=0;
707 1 while(1)
708 1 {
709 2 *ReturnKeyval=10;
710 2 InvDat=HexlongDialog(" 发票起始号查询","请输入10位发票起始号:","[退出] [确认]",ReturnKeyval,InvDat);
711 2 if(*ReturnKeyval == K_TC)return;//退出
712 2 if(*ReturnKeyval == K_HJ)
713 2 {
714 3 // LcdDisplay(16,0,"正在查询.请稍候...",3);//正在查询发票起始号
715 3 HomeFlag=InvNumberdemand(1,InvDat,ReadCode);//homeflag=1则有查询数据
716 3 if(HomeFlag==1)
717 3 {
718 4 HomeFlag=0;
719 4
720 4 // AppointInvdis(1,ReadCode);//2005-7-25 9:25
C51 COMPILER V8.01 REPORT2 03/28/2006 09:49:28 PAGE 13
721 4 InvDisAndPrint(1,ReadCode,0," ");
722 4 // InvPrintSelect(1,ReadCode,0,1);//发票代码查看与打印选择
723 4 }
724 3 else//不存在
725 3 {
726 4 ReHint("发票号不存在!","请重新输入...");
727 4 InvDat=0;
728 4 *ReturnKeyval=10;
729 4 }
730 3 }
731 2 }
732 1 }
733 /*-------------------------------------------------------------------------
734 按开票截止日期查询
735 -------------------------------------------------------------------------*/
736
737 void InvoEnddemand()
738 {
739 1 uchar ReturnKeyval[1],HomeFlag=0,ReadCode[40];
740 1 ulong InvDat=0;
741 1 while(1)
742 1 {
743 2 *ReturnKeyval=10;
744 2 InvDat=HexlongDialog(" 发票终止号查询","请输入10位发票终止号:","[退出] [确认]",ReturnKeyval,InvDat);
745 2 if(*ReturnKeyval == K_TC)return;//退出
746 2 if(*ReturnKeyval == K_HJ)
747 2 {
748 3 // LcdDisplay(16,0,"正在查询.请稍候...",3);//正在查询发票终止号
749 3 HomeFlag=InvNumberdemand(0,InvDat,ReadCode);//homeflag=1则有查询数据
750 3 if(HomeFlag==1)
751 3 {
752 4 HomeFlag=0;
753 4
754 4 InvDisAndPrint(1,ReadCode,0," ");//发票代码查看与打印选择
755 4
756 4 // InvPrintSelect(1,ReadCode,0,1);
757 4 }
758 3 else//不存在
759 3 {
760 4 ReHint("发票号不存在!","请重新输入...");
761 4 *ReturnKeyval=10;
762 4 InvDat=0;
763 4 }
764 3 }
765 2 }
766 1 }
767
768 /*-------------------------------------------------------------------------
769 开票日期查询
770 -------------------------------------------------------------------------*/
771 void InvoDatdemand()
772 {
773 1 uchar i=0,HomeFlag=0,ary[10],ReadCode[30];
774 1 ulong ReVal=0;
775 1 while(1)
776 1 {
777 2 for(i=0;i<10;i++)ary[i]=0;
778 2 ReVal=Dialog(" 按开票日期查询","请输入:(年/月/日)","[退出] [确认]",8,ary);
779 2 if(ReVal == K_TC)
780 2 return;//退出
781 2 if(ReVal == K_HJ)
782 2 {
C51 COMPILER V8.01 REPORT2 03/28/2006 09:49:28 PAGE 14
783 3 HomeFlag=Verdict(ary);//进行时间的合法性检查如输入合法则返回1否则返回0
784 3 if(HomeFlag == 1)
785 3 {
786 4 HomeFlag=0;
787 4 HomeFlag = OpenInvDatdemand(1,ary,ReadCode);
788 4 if(HomeFlag == 1)
789 4 {
790 5 HomeFlag=0;
791 5 InvDisAndPrint(2,ReadCode,0," ");
792 5 }
793 4 else
794 4 ReHint("开票日期不存在!","请重新输入...");
795 4 }
796 3 else
797 3 ReHint("时间格式错误!!!","请重新输入...");
798 3 }
799 2 }
800 1 }
801
802 ///////////////////////////////////////////////////////////////////////
803 // 日交易数据查询的选择功能选择界面 //
804 ///////////////////////////////////////////////////////////////////////
805 void DayBuydata()
806 {
807 1 uchar Hov=0,LnNo=0,InitVal[3];
808 1 while(1)
809 1 {
810 2 InitVal[0]=K_HJ;
811 2 InitVal[1]=K_TC;
812 2 InitVal[2]=0;
813 2 ReMenu14();
814 2 LnNo=Windows(Hov,0,InitVal);
815 2 if(*InitVal == K_TC)return;
816 2 switch(LnNo)
817 2 {
818 3 case 1:
819 3 OpenDaydemand();
820 3 break;
821 3 case 2:
822 3 InputTimeSegment(3);//按时间段查询
823 3 // InvPrintSelect(20," ",0,0);
824 3 break;
825 3 default:break;
826 3 }
827 2 Hov=LnNo;
828 2 }
829 1 }
830 /*-------------------------------------------------------------------------
831 当前日期查询
832 -------------------------------------------------------------------------*/
833 void OpenDaydemand()
834 {
835 1 uchar i=0,HomeFlag=0,ary[10],ReadCode[64];
836 1 ulong ReVal=0;
837 1 gyt2 *cp;
838 1 I2cRead(DailyDatNum,2,ary);
839 1 cp = ary;
*** WARNING C182 IN LINE 839 OF REPORT2.C: pointer to different objects
840 1 if(cp->dat == 0)
841 1 {
842 2 ReHint("没有相关数据!","请重试!");
843 2 return;
C51 COMPILER V8.01 REPORT2 03/28/2006 09:49:28 PAGE 15
844 2 }
845 1 while(1)
846 1 {
847 2 for(i=0;i<10;i++)ary[i]=0;
848 2 ReVal=Dialog(" 按当前日期查询","请输入:(年/月/日)","[退出] [确认]",8,ary);
849 2 if(ReVal == K_TC) return;//退出
850 2 if(ReVal == K_HJ)
851 2 {
852 3 HomeFlag=Verdict(ary);//进行时间的合法性检查如输入合法则返回1否则返回0
853 3 if(HomeFlag==1)
854 3 {
855 4 HomeFlag=0;
856 4 // LcdDisplay(16,0,"正在查询.请稍候...",2);//正在查询开票日期
857 4 HomeFlag=DayCollData(ary,ReadCode);//日期存放在ary的低四位即ary[6]ayr[7]ary[8]ary[9]
858 4 if(HomeFlag==1)
859 4 {
860 5 HomeFlag=0;
861 5 InvDisAndPrint(3,ReadCode,0," ");
862 5 // InvPrintSelect(3,ReadCode,0,1);//读出的发票打印数据放在ReadCode[0]--ReadCode[26]中
863 5 }
864 4 else
865 4 {
866 5 ReHint("日期不存在!","请重新输入...");
867 5 }
868 4 }
869 3 else
870 3 {
871 4 ReHint("时间格式错误!","请重新输入...");
872 4 }
873 3 }
874 2 }
875 1 }
876 //////////////////////////////////////////////////////////////////////////
877 // 所有营业员销售金额查询 //
878 //xz = 'Y' : 所有营业员的 X 报表 //
879 //xz = '[' : 所有营业员的 Y 报表 //
880 //dis = 0 : 打印 //
881 //dis = 1 : 显示 //
882 //////////////////////////////////////////////////////////////////////////
883 //void AllManageSale(uchar xz,uchar dis)
884 void AllManageSale(uchar dis)
885 {
886 1 gyt4 *MoneySum;
887 1
888 1 uchar i=0,j=0,k=0,pg=1,n=0,m=0,Number=0,Initval[3];//定义一个营业员的销售数据绶冲区.它随营业员的个数而变⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -