(-)

1245450

-

17.7 - 1.10.

 

(- - ShtrihPayMan). .   «SoftCase».

    1. SoftCase

1) "EFTHCXML" ":"
2) :
sc create EFTHCXML binpath= c:\efthcxml\efthcxml.exe start= auto
3) "" EFTHCXML

IP - "EFTHCXML".

  «SoftCase» 8(495)374-64-76, « », .. .

 

, ShtrihPayMan_ActivePay.ini – ShtrihPayMan.ini – :

 (="")   
	 = 0;
	//
	 = ("");
	.("");
	.("");
	.("");
	//ShtrihPayMan_ActivePay.ini
	 = ()+"ShtrihPayMan_ActivePay.ini";
	 .OpenFl()<0 
		 0;
	; 
	
	 =0  .CountStr()-1 
		
		=.GetStrPs();
		 ()="" 
			;
		;                      
		
		=(,";",); 
		 = ;
		 (,1)="[" 
			 = (,"[","");
			 = (,"]","");
			 = ();
			=();
			.();
			. = ;
			. = 0;
		 ((,"active")>0) 
			 = (,"active","");
			 = (,"=","");
			 = ();
			. = ();
			//
			 (. =)  (()=) 
				 = ;
			;
		;	
	; 
	.CloseFl();
	
 = ()+"ShtrihPayMan.ini";
	 .OpenFl()<0 
		 0;
	; 
	
	 =0  .CountStr()-1      		
		=.GetStrPs();
		 ()="" 
			;
		;                      
		=0;	
		=(,";",); 
		 = ;
		 (,1)="["   //  
			 = (,"[","");
			 = (,"]","");
			 = ();
			=(); 
			="";
			 (.(,,"")>0)  
				.();
				=1;
			
				=0;
			;
		 ((,"name")>0) 
			 = (,"name","");
			 = (,"=","");
			 = ();
			. = ;
			 ()=0 
				 ((,)>0) 
					//      
					. = 1; 
				 (="SoftCase")  ((,)>0) 
					//      
					. = 1;	
				
					. = 0;
				; 
			
				 ( = )
					 (. = "SoftCase") 
						 = ..;
					;
				;
			;		
		
			;
		;	
	;
	.CloseFl();
	
	 ;	
	

:



 =("ShtrihPayMan.PayMan");



 ("   ","!");

 .=0;

;

 .>0 

  .Init(())=0 

 ("    "+.LastError+": "+.LastErrorMsg,"!");

 .=0;

 ;

;

:

 (=..)             
	RRN = "";
	 ((, (""), , RRN)=) 
		//  							
		 (  )= 
		 	;   
		;											
    ;
;

RRN – , , ,

:

 (, ,, RRN) 

  = .ClearPays(); 

  = .ClearGoods();

  = 1;

 //

  ( = 3) 

 =-1;

 // RRN

 RRN = RRN(, );

 .RRN = RRN;

 

 =1;

 ;

 //

  = .AddPay( 2,

 2,//

 "",

 ** * 100,

 "");

  = .ClearGoods();

 PayType = .GetPayTypeIndex();

 //

 _ = 0;_ = 0;

 .();

  .()>0 

  (()=0)  (.=1) 

 //0   

  (()=0)  (.=2) 

 //, 1   ,

  .=3 

 //3     

 _ = ABS(.);

  .=4 ࠠ

 //4   

 _=ABS(.);

 ;

 ; 

 //

 =0;

 .();

  .() = 1 

  =  + .;

 Barcode = (..());

 MaxDiscount = ..;

  (MaxDiscount<0) 

 MaxDiscount=0;

 ;

  =2 ࠠ

 蠠 = 0;

 

  = .*100;

 ;

 _  = . * ;

 _ = . * ;

  = .AddGood(

  ..,

 ..,

 . * 1000,

 . * 100 * ,

 . * 100 * ,

  * ,

 MaxDiscount * 100 * ,

 Barcode,

 _*100,

 _ * 100,

 "");

 ;

 // : 

 .PayType = PayType;

 .CardNumber = "";

 .Amount = ***100;

 .KKMNumber = 1;//--    911,    ---

 .RRN  = RRN;

 .CheckNumber = ();

 .AuthCode = (,1);

 .RRN = (,2);

  =2 ࠠ

 .DiscountAmount= 0;// 

 .BonusAmount = 0;// 

 

 .DiscountAmount= _*;// 

 .BonusAmount = _;// ⠠

 ;

  = .Pay();

  =1 ࠠ

  (=1) 

 RRN = .RRN;//     

 ;

  =0 ࠠ

  = .ClearGoods();

  0;

 ;

 //  

  = .ClearGoods();

  =1 ࠠ

  1;

 

  0;

 ;

  0;

蠠

   

  - ,

– .

:

 ()

 ("  "+.LastError+": "+.LastErrorMsg);

  (=..) ࠠ

  (.LastError=911) 

 ("       !");

  0;

 ;

 ;

  (.>0)  (=0)  ((.StringForPrint)<>"") 

 .(1);

 ();

 ((.StringForPrint,(10),)+(1));

 ;



  0;

蠠

    

:

 ()

  .=0 

 ("       !"," !");

 ;

 ;

  ()=0 

  .>0 

 ();

 ;

 ;

 ;

 .();

  .()>0 

  .=1 

 .DeviceEnabled=1;

  .ResultCode<0 

 (" "+?(.=0,""," "+.)+": "+.ResultDescription+"!"," !");

  .>0 

 ();

 ;

 ;

 ;

  .=2 

 .Password=.;

  1=1 

 .Connect();

 =();

  >0 

  .>0 

 ();

 ;

 ;

  =0 

 ;

 ;

 ;

 ;

 ;



  ( = ..) 

  = "SoftCase";

 ;

  = ();

  (=0) 

 ("      !");

 ;

 ;

 .();

  .()=1 

  (.=0) 

 ;

 ;

 =(".");

 .();

 .="    ";

 .=.;

 .=();

 .=();

 .=63;

 .=0;

 .=0;

 .=.;

 .=8;

 .=0;

 .=0;

 .=0;

 

 .();

 

  ("    !","!");

 ();

  .>0 

 ();

 ;

 ;

 ;

  ( = ..) 

  = .CloseDayAllow(1);

  = .PrintReportAllow(1);

  = .CloseDayAllow(1);

 ;

 .PayType = .GetPayTypeIndex(.);

  ( = ..) 

 .KKMNumber = 1;

 ;

 =.CloseDay();

 .SetVisWind("1: - -: ",15);

  =0 

 ("   "+.LastError+": "+.LastErrorMsg+".   :"+.,"!");

 ("   "+.LastError+": "+.LastErrorMsg+".   :"+.);

 //();

  .>0 

 ();

 ;

 ;

 ;

  (.StringForPrint)<>"" 

 =(.StringForPrint,(10),)+?((.StringForPrint,1)=,"",)+(1);

  =1  () 

 =(,);

  (,1)=(1) 

  .=1 

  =1  2 

  (" ",0,0)=0 

 ();

  .>0 

 ();

 ;

 ;

 ;

 ;

  1=1 

  =(,"",.PrintHeader());

  >0 

 ();

  .>0 

 ();

 ;

 ;

  =0 

 ;

 ;

 ;

  .=2 

  .>0 

  =1  3 

  =.(.,""+);

  <>"" 

  (,0,0)=0 

 ();

  .>0 

 ();

 ;

 ;

 ;

 ;

 ;

 ;

  (>24)  (=20) 

  =1  ?(=36,2,?(((>=40)  (=32)),4,3)) 

  (" ",0,0)=0 

 ();

  .>0 

 ();

 ;

 ;

 ;

 ;

 ;

  =4  . 

 =.(.,""+);

  (,0,0)=0 

 ();

  .>0 

 ();

 ;

 ;

 ;

 ;

  .>0 

  .Password=(.);

 .CutType=.-1;

 .CutCheck();

 ;

 ;

 ;

 ;

  (,0,0)=0 

 ();

  .>0 

 ();

 ;

 ;

 ;

 ;

 ;

  (.=1) 

 ; 

 ;

 ;



 ();

 .();

  .()>0 

  .=1 

 .DeviceEnabled=0;

  .=2 

 .Disconnect();

 ;

 ;

  .>0 

 ();

 ;





 

:
.

.

XML 17.7<->1C7.7 v7.7 17: (free)

() ().

22.07.2009    24849    0    bb1962    8    

v77:: 17: (free)

, , , .. . , "" "".

05.07.2009    9042    0    Sergey_K    6    

- ( )

v77:: 17: (free)

? -? !

29.04.2009    12008    0    napala@    11    

" " " "

v77:: 17: (free)

" " " " 1 7.7

24.04.2009    4443    0    asn70    5    

CAS LP 1.5 \ 1.6

v77:: 17: (free)

07.08.2008    12857    0    Kalugin_AA    3    

v77:: 17: 17: (free)

, , , .

24.08.2007    5934    0        2    

v77:: 1cv7.md (FMCG) (free)

PLU , .

04.06.2007    9627    0    bnik    1    

Z-

v77:: 17: (FMCG) (free)

, , . Z-.

22.05.2007    11638    0    kiselev    2    

Z- ( 1: )

POS v77:: (FMCG) (free)

"-" POS- "ret".

16.05.2007    14075    0    kiselev    2    

/ / ( - )

v77:: 17: (FMCG) (free)

/ / ( - ). 1: 7.7 .

27.03.2007    15126    0    vital_1970    2    

(EAN-13)

- v77:: v77:: v77:: 1cv7.md (free)

(BearRock). .

10.04.2006    33209    0    imsoftware    13