rpVERSION = 3.00dataenvironmentdataenvironmentDataenvironment_Top = 53 Left = 68 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1zTop = -1 Left = 0 Height = 372 Width = 829 DoCreate = .T. AutoCenter = .F. Caption = (iif(st_lang=1,"Les Salaires- Informations Prives ",iif(st_lang=2,"Salaries - Private Information "," - "))) Closable = .F. FontSize = 8 MaxButton = .F. MinButton = .F. Icon = WindowType = 1 WindowState = 0 cattravwa = 0 gender = 0 Name = "Form1" wPROCEDURE Load CURRENTWA = SELECT(0) *Control source of Categorie Travail combo box CREATE SQL VIEW VCATTRAV REMOTE CONNECTION SOCYER AS ; SELECT DESC_, CODE ; FROM PC001001 ; ORDER BY DESC_ THISFORM.CATTRAVWA = SELECT(1) SELECT (THISFORM.CATTRAVWA) USE VCATTRAV SELECT(CURRENTWA) ENDPROC PROCEDURE Init CURRENTWA = SELECT(0) *QUERY FOR THE GENDER REP = SQLEXEC(HSOCRATE, 'SELECT GENDER FROM EMPGENERIC WHERE EMPGNAT = ?M.CAT AND EMPGNUM = ?M.NUM', 'RESULTCUR') SELECT RESULTCUR GO TOP THISFORM.GENDER = NVL(GENDER,0) USE SELECT(CURRENTWA) *ENABLE/DISABLE CHECK BOX ALLOCATIONS FAMILIALES PERMIS ACCORDING TO GENDER IF THISFORM.GENDER = 2 &&FEMALE THISFORM.ChkAllocationsFamiliales.Enabled = .T. ELSE &&MALE THISFORM.ChkAllocationsFamiliales.Enabled = .F. THISFORM.ChkAllocationsFamiliales.VALUE = 1 ENDIF *CHECK THE DECES CHECK BOX IF EMPLOYEE IS DEAD INSTEAD OF MAKING A RECORD SOURCE IF ISNULL(DATE_DECES) OR EMPTY(DATE_DECES) OR YEAR(DATE_DECES) = 1900 THISFORM.DECES.Value = '' ELSE THIS.CHKDeces.Value = 1 ENDIF *DEFAULT VALUES IF EMPTY(EAB) OR YEAR(EAB) <= 1901 REPLACE EAB WITH CTOD("31/12/9999") ENDIF IF EMPTY(HAS_INTLOG) OR ISNULL(HAS_INTLOG) REPLACE HAS_INTLOG WITH 'N' ENDIF IF EMPTY(FISCAL_CAT) OR ISNULL(FISCAL_CAT) REPLACE FISCAL_CAT WITH '1' ENDIF IF EMPTY(HAS_MUTUEL) OR ISNULL(HAS_MUTUEL) REPLACE HAS_MUTUEL WITH 'N' ENDIF IF EMPTY(ENDOFSRV) OR ISNULL(ENDOFSRV) REPLACE ENDOFSRV WITH 'N' ENDIF IF EMPTY(TYPE_PAY) OR ISNULL(TYPE_PAY) REPLACE TYPE_PAY WITH 'ESPECE' ENDIF THISFORM.Refresh ENDPROC PROCEDURE Unload DROP VIEW vCATTRAV ENDPROC j QQd%\0UTCWPVCATTRAVSOCYERQ1SELECT DESC_, CODE FROM PC001001 ORDER BY DESC_TCW FQVCATTRAV FU CURRENTWAVCATTRAVSOCYERTHISFORM CATTRAVWAqTCWhTCISELECT GENDER FROM EMPGENERIC WHERE EMPGNAT = ?M.CAT AND EMPGNUM = ?M.NUM RESULTCURiF#)TCQ F%TaT-T&%C C C il 4T OT %C C im > C 31/12/9999#%CC >N%CC >1%CC >N%CC 1>N%CC `>ESPECE U CURRENTWAREPHSOCRATE RESULTCURTHISFORMGENDERCHKALLOCATIONSFAMILIALESENABLEDVALUE DATE_DECESDECESTHISCHKDECESEAB HAS_INTLOG FISCAL_CAT HAS_MUTUELENDOFSRVTYPE_PAYREFRESHjvCATTRAVUVCATTRAVLoad,InitUnload;1"3qQQAC1Ad11AAAAAA1A31(C=.ZlF)Q@cattravwa Work area for Categorie de Travail combo box gender checkboxcheckboxchkAllocationsFamilialesForm1Top = 260 Left = 1010 Height = 17 Width = 156 Alignment = 1 BackStyle = 0 Caption = " " Value = 0 ControlSource = "AFPermis" Enabled = .F. TabIndex = 80 Name = "chkAllocationsFamiliales" PROCEDURE Click IF THIS.Value = 1 AND THISFORM.GENDER = 2 &&FEMALE MBOX(" ", 0, 48, 0, '') ENDIF ENDPROC 7 %Ug"%  `>C% 0UTHISVALUETHISFORMGENDERMBOXClick,1!A2)linelineLine1Form1AHeight = 0 Left = -11 Top = 233 Width = 1000 Name = "Line1" linelineLine2Form1?Height = 351 Left = 457 Top = 25 Width = 0 Name = "Line2" linelineLine5Form1?Height = 0 Left = 601 Top = 25 Width = 380 Name = "Line5" linelineLine6Form1ZHeight = 0 Left = 600 Top = 26 Width = 384 BorderColor = 255,255,255 Name = "Line6" textboxtextboxText2Form1FontSize = 8 ControlSource = "MUT_NOM" Height = 20 Left = 149 MaxLength = 30 SelectOnEntry = .T. TabIndex = 41 Top = 71 Width = 168 Name = "Text2" textboxtextboxText25Form1FontSize = 8 ControlSource = "CIMR_NOM" Height = 20 Left = 149 MaxLength = 30 SelectOnEntry = .T. TabIndex = 45 Top = 93 Width = 168 Name = "Text25" labellabelLabel5Form1AutoSize = .T. FontName = "Arabic Transparent" FontSize = 11 Caption = (iif(st_lang=1,"Compagnie",iif(st_lang=2,"Company"," "))) Height = 20 Left = 202 Top = 35 Width = 74 TabIndex = 33 Name = "Label5" labellabelLabel8Form1AutoSize = .T. FontName = "Arabic Transparent" FontSize = 11 Caption = (iif(st_lang=1,"Code",iif(st_lang=2,"Code",""))) Height = 20 Left = 59 Top = 35 Width = 36 TabIndex = 34 Name = "Label8" labellabelLabel9Form1AutoSize = .T. FontSize = 11 BackStyle = 0 Caption = (iif(st_lang=1,"Mutuelle",iif(st_lang=2," MUTUAL"," "))) Height = 19 Left = 377 Top = 72 Width = 55 TabIndex = 39 Name = "Label9" labellabelLabel10Form1AutoSize = .T. FontSize = 11 BackStyle = 0 Caption = "CIMR" Height = 19 Left = 377 Top = 94 Width = 38 TabIndex = 43 Name = "Label10" textboxtextboxText3Form1FontSize = 8 ControlSource = "MUT_NUM" Height = 20 InputMask = "###############" Left = 7 MaxLength = 15 SelectOnEntry = .T. TabIndex = 42 Top = 71 Width = 140 Name = "Text3" textboxtextboxText4Form1FontSize = 8 ControlSource = "CIMR_NUM" Height = 20 InputMask = "#########" Left = 7 MaxLength = 9 SelectOnEntry = .T. TabIndex = 46 Top = 93 Width = 140 Name = "Text4" comboboxcomboboxCombo1Form1RowSourceType = 1 RowSource = "O,N" ControlSource = "HAS_MUTUEL" Height = 20 Left = 321 SelectOnEntry = .T. Style = 2 TabIndex = 40 Top = 71 Width = 51 Name = "Combo1" labellabelLabel11Form1AutoSize = .T. FontName = "Arabic Transparent" FontSize = 11 Caption = (iif(st_lang=1,"Soumettre",iif(st_lang=2,"Submit",""))) Height = 20 Left = 323 Top = 34 Width = 66 TabIndex = 32 Name = "Label11" comboboxcomboboxCombo3Form1RowSourceType = 1 RowSource = "O,N" ControlSource = "ENDOFSRV" Height = 20 Left = 321 SelectOnEntry = .T. Style = 2 TabIndex = 44 Top = 93 Width = 51 Name = "Combo3" linelineLine9Form1=Height = 0 Left = 0 Top = 25 Width = 614 Name = "Line9" linelineLine10Form1ZHeight = 0 Left = -1 Top = 26 Width = 615 BorderColor = 255,255,255 Name = "Line10" labellabelLabel12Form1AutoSize = .T. FontBold = .T. FontSize = 10 Alignment = 2 Caption = (IIF(ST_LANG=1,"CIMR/ MUTUELLE",IIF(ST_LANG=2,"",""))) Height = 18 Left = 204 Top = 17 Width = 112 TabIndex = 31 Name = "Label12" labellabelLabel13Form1AutoSize = .T. FontBold = .F. FontName = "Arial" FontSize = 11 BackStyle = 0 Caption = (iif(st_lang=1,"Nb des mois",iif(st_lang=2,"Nb of monthes "," "))) Height = 19 Left = 336 Top = 175 Width = 84 TabIndex = 52 Name = "Label13" textboxtextboxText5Form1FontSize = 8 Alignment = 1 ControlSource = "LNGTR1_ADV" Height = 20 InputMask = "##,###,###" Left = 236 SelectOnEntry = .T. TabIndex = 51 Top = 151 Width = 96 Name = "Text5" textboxtextboxText6Form1FontSize = 8 ControlSource = "ADV1_PER" Height = 20 InputMask = "###" Left = 308 MaxLength = 3 SelectOnEntry = .T. TabIndex = 53 Top = 175 Width = 24 Name = "Text6" textboxtextboxText7Form1FontSize = 8 ControlSource = "ADV1_DATE" Height = 20 Left = 268 SelectOnEntry = .T. TabIndex = 55 Top = 200 Width = 64 Name = "Text7" labellabelLabel14Form1AutoSize = .T. FontBold = .F. FontName = "Arial" FontSize = 11 BackStyle = 0 Caption = (iif(st_lang=1,"Somme",iif(st_lang=2,"Sum",""))) Height = 19 Left = 336 Top = 151 Width = 54 TabIndex = 50 Name = "Label14" labellabelLabel15Form1AutoSize = .T. FontBold = .F. FontName = "Arial" FontSize = 11 BackStyle = 0 Caption = (iif(st_lang=1,"Date de fin ",iif(st_lang=2,"End Date "," "))) Height = 19 Left = 336 Top = 200 Width = 76 TabIndex = 54 Name = "Label15" labellabelLabel16Form1 AutoSize = .T. FontBold = .F. FontName = "Arial" FontSize = 11 BackStyle = 0 Caption = (iif(st_lang=1,"Nb des mois",iif(st_lang=2,"Nb of monthes "," "))) Height = 19 Left = 119 Top = 175 Width = 84 TabIndex = 58 BackColor = 0,0,0 Name = "Label16" labellabelLabel17Form1AutoSize = .T. FontBold = .F. FontName = "Arial" FontSize = 11 BackStyle = 0 Caption = (iif(st_lang=1,"Somme",iif(st_lang=2,"Sum",""))) Height = 19 Left = 119 Top = 151 Width = 54 TabIndex = 56 BackColor = 0,0,0 Name = "Label17" labellabelLabel18Form1 AutoSize = .T. FontBold = .F. FontName = "Arial" FontSize = 11 BackStyle = 0 Caption = (iif(st_lang=1,"Date de fin ",iif(st_lang=2,"End Date "," "))) Height = 19 Left = 119 Top = 200 Width = 76 TabIndex = 60 BackColor = 0,0,0 Name = "Label18" linelineLine11Form1[Height = 0 Left = 35 Top = 139 Width = 144 BorderColor = 128,128,128 Name = "Line11" linelineLine12Form1[Height = 0 Left = 37 Top = 140 Width = 144 BorderColor = 255,255,255 Name = "Line12" labellabelLabel19Form1AutoSize = .T. FontBold = .F. FontName = "Arial" FontSize = 11 Caption = (iif(st_lang=1,"Numero2",iif(st_lang=2,"Nb2"," 2"))) Height = 19 Left = 92 Top = 129 Width = 62 TabIndex = 49 Name = "Label19" linelineLine13Form1\Height = 0 Left = 251 Top = 139 Width = 144 BorderColor = 128,128,128 Name = "Line13" linelineLine14Form1\Height = 0 Left = 253 Top = 140 Width = 144 BorderColor = 255,255,255 Name = "Line14" labellabelLabel20Form1AutoSize = .T. FontBold = .F. FontName = "Arial" FontSize = 11 Caption = (iif(st_lang=1,"Numero1",iif(st_lang=2,"Nb1"," 1"))) Height = 19 Left = 310 Top = 126 Width = 62 TabIndex = 48 Name = "Label20" textboxtextboxText14Form1FontSize = 8 Alignment = 1 ControlSource = "LNGTR2_ADV" Height = 20 InputMask = "##,###,###" Left = 20 SelectOnEntry = .T. TabIndex = 57 Top = 151 Width = 96 Name = "Text14" textboxtextboxText15Form1FontSize = 8 ControlSource = "ADV2_PER" Height = 20 InputMask = "###" Left = 92 MaxLength = 3 SelectOnEntry = .T. TabIndex = 59 Top = 175 Width = 24 Name = "Text15" textboxtextboxText16Form1FontSize = 8 ControlSource = "ADV2_DATE" Height = 20 Left = 52 SelectOnEntry = .T. TabIndex = 61 Top = 200 Width = 64 Name = "Text16" linelineLine15Form1AHeight = 0 Left = -11 Top = 123 Width = 469 Name = "Line15" linelineLine16Form1\Height = 0 Left = -12 Top = 124 Width = 470 BorderColor = 255,255,255 Name = "Line16" labellabelLabel21Form1AutoSize = .T. FontBold = .T. FontSize = 12 Alignment = 2 Caption = (iif(st_lang=1,"Prts",iif(st_lang=2,"Lends",""))) Height = 22 Left = 394 Top = 113 Width = 42 TabIndex = 47 Name = "Label21" labellabelLabel34Form1FontBold = .T. FontSize = 12 Alignment = 2 Caption = (iif(st_lang=1,"Editorial",iif(st_lang=2," Editorial",""))) Height = 24 Left = 361 Top = 224 Width = 75 TabIndex = 62 Name = "Label34"  commandbutton commandbuttonCmdOkForm1Top = 320 Left = 12 Height = 33 Width = 130 FontBold = .F. FontShadow = .F. FontSize = 13 Caption = "\