CREATE VIEW [dbo].[PW001SRV202]
AS
SELECT main.PIN,
main.EMPLOYMENTSTARTDATE,
main.EMPLOYMENTENDDATE,
main.NUMORGID,
main.[PAYSLIP STATUS],
main.[PAYMENT PERIOD],
main.[PERIOD START],
main.[PERIOD END],
main.NAME,
main.ORGANIZATION,
main.[RANK],
main.[RANK CODE],
main.[NATIONALITY CODE],
main.ACTIVITY,
main.[ACTIVITY START],
main.[ACTIVITY END],
main.[ACTIVITY ESTIMATED END],
main.[ACTIVITY DAYS],
main.[ACTIVITY VESSEL],
main.[ACTIVITY DEPARTMENT],
main.[ACTIVITY POSITION],
main.[ACTIVITY PAYSCALE TABLE],
main.[ACTIVITY PAYSCALE CODE],
--main.[Row#],
main.[Contract Type],
main.[Contract Name],
main.[Contract Rank],
main.[Contract Start],
main.[Contract End],
main.[CONTRACT PAYSCALE TABLE],
main.[CONTRACT PAYSCALE],
main.[CONTRACT PAYSCALE TABLE NAME],
main.[CONTRACT PAYSCALE NAME],
main.[CALCULATED BY],
main.[CALCULATE TIME],
main.[PAYMENT METHOD],
main.[PAYMENT CURRENCY],
--main.[DISTRIBURE PAYSLIP OPTION] as [DISTRIBUTE PAYSLIP OPTION],
main.EMAIL,
ISNULL(
STUFF(
ISNULL(NULLIF(', ' + main.issue1, ', '), '') +
ISNULL(NULLIF(', ' + main.issue2, ', '), '') +
ISNULL(NULLIF(', ' + main.issue3, ', '), '') +
ISNULL(NULLIF(', ' + main.issue4, ', '), '') +
ISNULL(NULLIF(', ' + main.issue5, ', '), '') +
ISNULL(NULLIF(', ' + main.issue6, ', '), '') +
ISNULL(NULLIF(', ' + main.issue7, ', '), '') +
ISNULL(NULLIF(', ' + main.issue8, ', '), '') +
ISNULL(NULLIF(', ' + main.issue9, ', '), ''),
1,
1,
''
),
''
) AS [ISSUES],
main.[Department/Cost Place Code],
main.[Department/Cost Place]
FROM (
SELECT p.PIN,
p.EMPLOYMENTSTARTDATE,
p.EMPLOYMENTENDDATE,
p.CLIENT NUMORGID,
CASE
WHEN PayslipStatus.PAYSLIPSTATUS = 'Y' THEN 'Distributed'
ELSE 'Not Distributed'
END 'PAYSLIP STATUS',
company.PERIODE 'PAYMENT PERIOD',
periode.PStart 'PERIOD START',
periode.PEnd 'PERIOD END',
p.NAME,
p.COSTPLACE AS 'Department/Cost Place Code',
c43.NAME AS 'Department/Cost Place',
ORGAN.NAME 'ORGANIZATION',
c02.NAME 'RANK',
dbo.ad_orgPosC02Code(
(
SELECT ORGCODE
FROM pworg
WHERE orgtype = 5
AND numorgid = a.NUMORGID
)
)'RANK CODE',
p.NATIONALITY 'NATIONALITY CODE',
(
SELECT TEXT
FROM pw001c12
WHERE code = a.code
) 'ACTIVITY',
a.DATEFROM 'ACTIVITY START',
a.DATETO 'ACTIVITY END',
a.TODATEESTIMATED 'ACTIVITY ESTIMATED END',
DATEDIFF(
DAY,
CASE (
WHEN CASEa.DATEFROM > periode.PStart THEN a.DATEFROM
ELSE WHENperiode.PStart
( END,
SELECT MIN(DATEFROM) CASE
WHEN ISNULL(a.DATETO, a.TODATEESTIMATED) < periode.PEnd THEN ISNULL(a.DATETO, a.TODATEESTIMATED)
FROM pw001p03 pa ELSE periode.PEnd
WHERE pa.PIN = p.PIN END
) + 1 AS 'ACTIVITY DAYS',
AND pa.datefrom < (
SELECT NAME
FROM pworg
DATEADD( WHERE NUMORGID = a.VESSEL
) 'ACTIVITY VESSEL',
MM, (
SELECT NAME
FROM pworg
1, WHERE orgtype = 4
AND numorgid = (
CAST( SELECT NUMORGIDABOVE
CASE FROM pworg
WHERE orgtype = 5
WHEN RIGHT(CAST(company.PERIODE AS VARCHAR), 2) = AND numorgid = a.NUMORGID
)
) '00' THEN LEFT(CAST(company.PERIODE AS VARCHAR), 4)ACTIVITY DEPARTMENT',
(
SELECT NAME
FROM pworg
+ '01' WHERE orgtype = 5
AND numorgid = a.NUMORGID
WHEN CONVERT(INT, RIGHT(CAST(company.PERIODE AS VARCHAR), 2)) ) 'ACTIVITY POSITION',
a.PAYSCALETABLE 'ACTIVITY PAYSCALE TABLE',
a.PAYSCALE 'ACTIVITY PAYSCALE CODE',
-- p0p.PAYSCALETABLE 'PD PAYSCALE TABLE',
> -- p0p.PAYSCALECODE 'PD PAYSCALE',
ROW_NUMBER() OVER(
PARTITION BY p20.PIN ORDER 12 THEN LEFT(CAST(company.PERIODE AS VARCHAR), 4)BY p20.PIN,
p20.CONTRACTKIND DESC
) AS ROW#,
CASE +
'12' WHEN p20.CONTRACTKIND = 0 THEN 'Main Contract'
WHEN p20.CONTRACTKIND = 1 THEN 'Sub Contract'
ELSE CAST(company.PERIODE AS VARCHAR(6)) WHEN p20.CONTRACTKIND = 2 THEN 'Ammendment'
ELSE ''
END + '01' AS DATETIME AS 'Contract Type',
C32CONT.Text 'Contract Name',
C02CONT.NAME 'Contract Rank',
) p20.DATESTART 'Contract Start',
p20.DATEEND 'Contract End',
p20.PAYSCALETABLE 'CONTRACT PAYSCALE TABLE',
) -1 p20.PAYSCALECODE 'CONTRACT PAYSCALE',
payscale.Table_Name 'CONTRACT PAYSCALE TABLE NAME',
) payscale.Payscale_Name 'CONTRACT PAYSCALE NAME',
pay.CALCULATEDBY 'CALCULATED BY',
AND ISNULL(pa.dateto, pa.TODATEESTIMATED) >= (pay.CalculateTime 'CALCULATE TIME',
CASE
WHEN P.Transferbalance = '0' THEN 'Carry Forward To Next Month'
CAST( WHEN P.Transferbalance = '1' THEN 'Transfer To Bank Account'
WHEN P.Transferbalance = '2' THEN 'Interpay'
CASE WHEN P.Transferbalance = '3' THEN 'Alpha Credit Bank'
WHEN P.Transferbalance = '4' THEN 'Cash'
WHEN RIGHT(CAST(company.PERIODE AS VARCHAR), 2)WHEN P.Transferbalance = '005' THEN 'Citibank Direct Deposit'
WHEN P.Transferbalance = '6' THEN 'Citibank'
WHEN P.Transferbalance = '7' THEN 'Chase Manhattan'
LEFT(CAST(company.PERIODE AS VARCHAR), 4) WHEN P.Transferbalance = '8' THEN 'Hellenic Bank'
WHEN P.Transferbalance = '9' THEN 'Isabel Domestic'
+ '01' WHEN P.Transferbalance = 'A' THEN 'Isabel International'
WHEN P.Transferbalance = 'B' THEN 'Bank Transfer'
WHEN CONVERT(INT, RIGHT(CAST(company.PERIODE AS VARCHAR), 2))
P.Transferbalance = 'C' THEN 'Swedish Domestic'
WHEN P.Transferbalance = 'D' THEN 'Swedish International'
WHEN P.Transferbalance = 'E' THEN 'Philippine Banking'
> 12 THEN LEFT(CAST(company.PERIODE AS VARCHAR), 4) WHEN P.Transferbalance = 'F' THEN 'Manual Bank'
WHEN P.Transferbalance = 'G' THEN 'Zagrebancka'
WHEN P.Transferbalance = + '12H' THEN 'ING Bank'
WHEN P.Transferbalance = 'I' THEN 'Direct Deposit E-Monee'
ELSE CAST(company.PERIODE AS VARCHAR(6))
WHEN P.Transferbalance = 'J' THEN 'Deutsche Bank'
WHEN P.Transferbalance = 'K' THEN 'SACS'
WHEN P.Transferbalance = 'L' ENDTHEN +'Hellenic '01Cyprus'
AS DATETIME WHEN P.Transferbalance = 'M' THEN 'MT 100'
WHEN P.Transferbalance = 'N' )THEN 'Citibank (PL)'
WHEN P.Transferbalance = '0' THEN 'Agent .R'
) WHEN P.Transferbalance = 'P' THEN 'German Bank'
WHEN P.Transferbalance = )'Q' THEN 'Trident Trust'
WHEN P.Transferbalance = 'R' THEN 'Citibank (Asia)'
< ( WHEN P.Transferbalance = 'S' THEN 'PNC Bank'
CAST( WHEN P.Transferbalance = 'T' THEN 'Chase Insight'
WHEN P.Transferbalance = 'U' THEN 'Ocean Pay'
CASE WHEN P.Transferbalance = 'V' THEN 'Banco de Oro'
WHEN RIGHT(CAST(company.PERIODE AS VARCHAR), 2)P.Transferbalance = '00W' THEN LEFT(CAST(company.PERIODE AS VARCHAR), 4) 'Bank of Philippine Island'
WHEN P.Transferbalance = 'X' THEN 'CitiDirect (Onboard)'
WHEN P.Transferbalance += '01Y' THEN 'Metrobank Direct (PH)'
WHEN P.Transferbalance = 'Z' THEN 'Elektron'
WHEN CONVERT(INT, RIGHT(CAST(company.PERIODE AS VARCHAR), 2)) > 12 THENWHEN P.Transferbalance = 'A1' THEN 'E-Banking (Maramut)'
WHEN P.Transferbalance = 'A2' THEN 'RBS Direct Access'
LEFT(CAST(company.PERIODE AS VARCHAR), 4) WHEN P.Transferbalance = 'A3' THEN 'Brazilian Banks'
WHEN P.Transferbalance = 'A4' THEN 'NETS'
+ '12' WHEN P.Transferbalance = 'A5' THEN 'NONE'
WHEN P.Transferbalance = 'A6' THEN 'JDP Morgan'
ELSE CAST(company.PERIODE AS VARCHAR(6)) WHEN P.Transferbalance = 'A7' THEN 'J. P. Morgan Access'
WHEN P.Transferbalance = END'A8' +THEN '01Spar Nord Domestic'
AS DATETIME WHEN P.Transferbalance = 'A9' THEN 'Spar Nord International'
) WHEN P.Transferbalance = 'B1' THEN 'Rabobank'
) THEN CAST( WHEN P.Transferbalance = 'B2' THEN 'Deutsche Bank'
WHEN P.Transferbalance = 'B4' THEN 'ISO20022'
CASE WHEN P.Transferbalance = 'B5' THEN 'Brightwell'
END WHEN RIGHT(CAST(company.PERIODE AS VARCHAR), 2) =AS '00PAYMENT METHOD',
THEN LEFT(CAST(company.PERIODE AS VARCHAR), 4) CASE
WHEN ISNULL(
+ '01' ISNULL(pay.CURRENCYFORPAYMENT, p.CURRENCYFORPAYMENT),
WHEN CONVERT(INT, RIGHT(CAST(company.PERIODE AS VARCHAR), 2)) > 12 THEN p.CURRENCY
) = '' THEN company.CURRENCYCODE
LEFT(CAST(company.PERIODE AS VARCHAR), 4) ELSE ISNULL(
ISNULL(pay.CURRENCYFORPAYMENT, p.CURRENCYFORPAYMENT),
+ '12' p.CURRENCY
ELSE)
CAST(company.PERIODE AS VARCHAR(6)) END AS 'PAYMENT CURRENCY',
END + '01' AS DATETIME CASE
WHEN p.EMAILPAYSLIP = 'F' THEN 'Off'
) WHEN p.EMAILPAYSLIP = 'T' THEN 'On'
ELSE ( END 'DISTRIBURE PAYSLIP OPTION',
email.TELENO 'EMAIL',
SELECT MIN(DATEFROM) CASE
WHEN P.EMPLOYMENTSTARTDATE IS NULL THEN 'Employment FROMStart Date missing'
pw001p03 pa ELSE ''
WHERE END pa.PIN = p.PIN Issue1,
CASE
AND pa.datefrom < ( WHEN P.EMPLOYMENTSTARTDATE > a.DATEFROM THEN
'Employment Start Date greater than Activity Start Date'
DATEADD( ELSE ''
END Issue2,
MM, CASE
WHEN A.DATEFROM < CAST(GETDATE() AS DATE)
1, AND ISNULL(A.PLANNED, 'N') = 'Y'
OR A.TODATEESTIMATED < CAST(GETDATE() AS DATE)
CAST( AND A.DATETO IS NULL THEN 'Activity not confirmed'
ELSE ''
CASE END Issue3,
CASE
WHEN RIGHTNULLIF(CAST(company.PERIODE AS VARCHAR), 2) =
A.PAYSCALETABLE, '') IS NOT NULL
AND NULLIF(A.PAYSCALE, '') IS NULL THEN 'Activity Payscale Code missing'
ELSE ''
'00' THEN LEFT(CAST(company.PERIODE AS VARCHAR), 4) END Issue4,
CASE
WHEN (
+ '01' NULLIF(a.PAYSCALETABLE, '') IS NOT NULL
WHEN CONVERT(INT, RIGHT(CAST(company.PERIODE AS VARCHAR), 2)) AND NULLIF(a.PAYSCALE, '') IS NOT NULL
)
AND (
> (p20.PAYSCALECODE <> a.PAYSCALE)
12 THEN LEFT(CAST(company.PERIODE AS VARCHAR), 4)OR (p20.PAYSCALETABLE <> a.PAYSCALETABLE)
) THEN 'Payscale mismatch between Contract and Activity'
ELSE ''
+ '12' END AS Issue5,
CASE
ELSE CAST(company.PERIODE AS VARCHAR(6)) WHEN p20.DATESTART > periode.PEnd THEN 'Invalid Contract Start Date'
ELSE ''
END + '01' AS DATETIME AS Issue6,
CASE
WHEN p20.CONTRACTKIND IS NULL THEN )'No valid contract for this period'
ELSE ''
) -1END Issue7,
CASE
) WHEN (
AND ISNULL(pa.dateto, pa.TODATEESTIMATED) >= (
a.CODE IN (SELECT CODE
FROM PW001C12
CAST( WHERE OPTIONS LIKE '%S%')
CASE )
AND (
WHEN RIGHT(CAST(company.PERIODE AS VARCHAR), 2) = '00' THEN a.DATEFROM < (
CASE
LEFT(CAST(company.PERIODE AS VARCHAR), 4) WHEN p20.DATESTART > maincon.DATESTART THEN maincon.DATESTART
+ '01' ELSE p20.DATESTART
END
WHEN CONVERT(INT, RIGHT(CAST(company.PERIODE AS VARCHAR), 2)) )
) THEN 'No contract starting from ' + CONVERT(VARCHAR, a.DATEFROM, 1) + ' to ' + > 12 THEN LEFT(CAST(company.PERIODE AS VARCHAR), 4CONVERT(VARCHAR, p20.DATESTART, 1)
ELSE ''
END Issue8,
+ '12' CASE
WHEN (a.PAYSCALETABLE IS NULL OR a.PAYSCALETABLE = '')
ELSE CAST(company.PERIODE AS VARCHAR(6)) AND (a.PAYSCALE IS NULL OR a.PAYSCALE = '') THEN
'Activity Payscale Code and Activity Payscale Table are missing.'
END + '01' AS DATETIME WHEN a.PAYSCALETABLE IS NULL
OR )a.PAYSCALETABLE = '' THEN 'Activity Payscale Table is missing'
WHEN a.PAYSCALE IS NULL
) OR a.PAYSCALE = '' THEN 'Activity Payscale Code is missing'
) ELSE ''
END END Issue9
), FROM pw001p01 p
( JOIN (
CASE SELECT NUMORGID,
WHEN ( PERIODE,
SELECT MAX(ISNULL(pa.DATETO, pa.TODATEESTIMATED)) CAST(
FROM pw001p03 pa CASE
WHERE pa.PIN = p.PIN WHEN RIGHT(CAST(PERIODE AS VARCHAR), 2) = '00' THEN LEFT(CAST(PERIODE AS VARCHAR), 4)
AND pa.datefrom < ( +
DATEADD( '01'
MM, WHEN CONVERT(INT, RIGHT(CAST(PERIODE AS VARCHAR), 2)) > 12 THEN LEFT(CAST(PERIODE AS VARCHAR), 4)
1, + '12'
CAST( ELSE CAST(PERIODE AS VARCHAR(6))
END + '01' AS DATETIME
CASE ) AS 'PStart',
WHEN RIGHT(CAST(company.PERIODE AS VARCHAR), 2) =DATEADD(
MM,
'00' THEN LEFT(CAST(company.PERIODE AS VARCHAR)1,
4) CAST(
+ '01' CASE
WHEN RIGHT(CAST(PERIODE AS VARCHAR), 2) = WHEN CONVERT(INT, RIGHT'00' THEN LEFT(CAST(company.PERIODE AS VARCHAR), 24))
+ '01'
> WHEN CONVERT(INT, RIGHT(CAST(PERIODE AS VARCHAR), 2)) > 12 THEN LEFT(CAST(PERIODE AS VARCHAR), 4)
12 THEN LEFT(CAST(company.PERIODE AS VARCHAR), 4) + '12'
ELSE CAST(PERIODE AS + '12'VARCHAR(6))
END + '01' AS DATETIME
ELSE CAST(company.PERIODE AS VARCHAR(6)) )
) END +-1 AS '01PEnd'
AS DATETIME FROM PWORGCMP
) WHERE PAYROLLENABLED = 'Y'
UNION ALL
) -1 SELECT NUMORGID,
)PERIODE,
AND ISNULL(pa.dateto, pa.TODATEESTIMATED) >= (CAST(
CASE
CAST( WHEN RIGHT(CAST(PERIODE AS VARCHAR), 2) = '00' THEN LEFT(CAST(PERIODE AS VARCHAR), 4)
CASE +
WHEN RIGHT(CAST(company.PERIODE AS VARCHAR), 2) = '00' THEN '01'
WHEN CONVERT(INT, RIGHT(CAST(PERIODE AS VARCHAR), 2)) > 12 THEN LEFT(CAST(company.PERIODE AS VARCHAR), 4)
+ '12'
+ '01' ELSE CAST(PERIODE AS VARCHAR(6))
WHEN CONVERT(INT, RIGHT(CAST(company.PERIODE AS VARCHAR), 2)) END + '01' AS DATETIME
) AS 'PStart',
> 12 THEN LEFT(CAST(company.PERIODE AS VARCHAR), 4) DATEADD(
MM,
+ '12' 1,
ELSE CAST(company.PERIODE
AS VARCHAR(6)) CASE
END + '01' AS DATETIME WHEN RIGHT(CAST(PERIODE AS VARCHAR), 2) = '00' THEN LEFT(CAST(PERIODE AS VARCHAR), 4)
) + '01'
) ) WHEN CONVERT(INT, RIGHT(CAST(PERIODE AS VARCHAR), 2)) > 12 THEN LEFT(CAST(PERIODE AS VARCHAR), 4)
> ( + '12'
DATEADD( MM, ELSE CAST(PERIODE AS VARCHAR(6))
1, END + '01' AS DATETIME
CAST( )
) -1 AS 'PEnd'
CASE FROM PWORGVES
WHEN RIGHT(CAST(company.PERIODE AS VARCHAR), 2) = '00' THEN LEFT(CAST(company.PERIODE AS VARCHAR), 4)
WHERE PAYROLLENABLED = 'Y'
) periode
ON + '01'
p.CLIENT = periode.NUMORGID
JOIN PWORG ORGAN
ON WHEN CONVERT(INT, RIGHT(CAST(company.PERIODE AS VARCHAR), 2)) > 12 THENp.CLIENT = ORGAN.NUMORGID
JOIN PWORGCMP company
ON p.CLIENT = company.NUMORGID
LEFT(CAST(company.PERIODE AS VARCHAR), 4) LEFT JOIN PW001P0P p0p
ON p0p.PIN = p.PIN
+ '12' AND p0p.PNUMBER = 'A'
AND p0p.PAYSCALECODE IS NOT NULL
ELSE CAST(company.PERIODE AS VARCHAR(6)) AND p0p.PAYSCALECODE <> ''
LEFT JOIN PW001PAY pay
END + '01' AS DATETIME ON pay.PIN = p.PIN
) AND pay.CalculateTime IS NOT NULL
AND pay.PERIODEUSED = company.PERIODE
) -1 AND NOT EXISTS(
) THEN ( SELECT 1
DATEADD( FROM PW001PAY PAY2
MM, WHERE PAY.PIN = PAY2.PIN
1, AND PAY2.PERIODEUSED = company.PERIODE
CAST( AND (
CASE PAY2.CALCULATETIME > PAY.CALCULATETIME
WHEN RIGHT(CAST(company.PERIODE AS VARCHAR), 2) = '00' THENOR LEFT(CAST(company.PERIODE
AS VARCHAR), 4) PAY2.CALCULATETIME = PAY.CALCULATETIME
+ '01' WHEN CONVERT(INT, RIGHT(CAST(company.PERIODE AS VARCHAR), 2)) > 12 THEN--AND PAY2.UUID > PAY.UUID
)
LEFT(CAST(company.PERIODE AS VARCHAR), 4) )
+ '12' )
LEFT JOIN PW001P1R p1r5
ON ELSE CAST(companyp1r5.PERIODEPIN AS VARCHAR(6))= p.PIN
AND p1r5.RATENO = 5
END + '01' ASLEFT DATETIMEJOIN pw001c02 c02
ON p.rank = c02.code
) LEFT JOIN PW001P0Y P0Y
ON ) -1p.PIN = P0Y.PIN
LEFT JOIN PW001P0T email
) ON email.PIN = p.PIN
ELSE ( AND email.TELETYPE = 6
SELECT MAX(ISNULL(pa.DATETO, pa.TODATEESTIMATED)) AND NOT EXISTS (
SELECT FROM1
pw001p03 pa FROM pw001p0t t
WHERE pa.PIN = p.PIN WHERE t.PIN = email.PIN
AND pa.datefrom < ( AND t.TELETYPE = email.TELETYPE
DATEADD( AND (
MM,t.TELEPRIORITY < email.TELEPRIORITY
OR (
1, t.TELEPRIORITY = email.TELEPRIORITY
CAST( AND t.SEQUENCENO > email.SEQUENCENO
CASE )
WHEN RIGHT(CAST(company.PERIODE AS VARCHAR), 2) = )
)
'00' THEN LEFT(CAST(company.PERIODE AS VARCHAR), 4)--Activity matching payroll period
JOIN PW001P03 a
ON a.PIN = p.PIN
+ '01' AND a.CODE IN (SELECT CODE
FROM PW001C12
WHEN CONVERT(INT, RIGHT(CAST(company.PERIODE AS VARCHAR), 2)) WHERE TRANSACTIONCODE <> '')
AND a.datefrom <= periode.PEnd
> AND ISNULL(a.dateto, a.TODATEESTIMATED) >= periode.PStart
LEFT JOIN PW001p20 p20sub
ON p20sub.PIN = p.PIN
12 THEN LEFT(CAST(company.PERIODE AS VARCHAR), 4) --AND p20.HISTORICAL = 'F'
AND p20sub.DATESTART <= ISNULL(A.DATETO, A.TODATEESTIMATED)
+ '12' AND p20sub.CONTRACTIDABOVE IS NOT NULL
AND p20sub.DATESTART = A.DATEFROM
AND ELSE CAST(company.PERIODE AS VARCHAR(6))COALESCE(
p20sub.DATEEND,
END + '01' AS DATETIME(
SELECT MIN(t.DATESTART) -1
) FROM PW001p20 t
) -1 WHERE t.pin = p20sub.pin
) AND t.DATESTART > p20sub.DATESTART
),
AND ISNULL(pa.dateto, pa.TODATEESTIMATED) >= ( a.datefrom
CAST() >= A.DATEFROM
--AND ISNULL(p20.DATEEND, ISNULL(A.DATETO, A.TODATEESTIMATED)) >= periode.PStart
CASE --AND NOT EXISTS (
-- SELECT 1 FROM PW001p20. z
WHEN RIGHT(CAST(company.PERIODE AS VARCHAR), 2) = '00' THEN -- WHERE z.PIN = p20.PIN AND p20.DATESTART <= ISNULL(A.DATETO, A.TODATEESTIMATED)
-- AND COALESCE(p20.DATEEND,(SELECT MIN(t.DATESTART) -1 FROM PW001p20. t WHERE t.pin = p20.pin AND t.DATESTART LEFT(CAST(company.PERIODE AS VARCHAR> p20.DATESTART), 4a.DATEFROM) >= A.DATEFROM
-- AND z.DATESTART > p20.DATESTART)
--AND (p20.dateend IS +NULL '01'
OR ISNULL(p20.DATEEND,GETDATE()) >= periode.PStart)
WHEN CONVERT(INT, RIGHT(CAST(company.PERIODE AS VARCHAR), 2))
--AND ISNULL(p20.DATEEND,GETDATE()) >= periode.PStart
LEFT JOIN PW001p20 > 12 THEN LEFT(CAST(company.PERIODE AS VARCHAR), 4)
+ '12'
ELSE CAST(company.PERIODE AS VARCHAR(6))
END + '01' AS DATETIME
)
)
)
END
)
) + 1 'ACTIVITY DAYS',
(
SELECT NAME
FROM pworg
WHERE NUMORGID = a.VESSEL
) 'ACTIVITY VESSEL',
(
SELECT NAME
FROM pworg
WHERE orgtype = 4
AND numorgid = (
SELECT NUMORGIDABOVE
FROM pworg
WHERE orgtype = 5
AND numorgid = a.NUMORGID
)
) 'ACTIVITY DEPARTMENT',
(
SELECT NAME
FROM pworg
WHERE orgtype = 5
AND numorgid = a.NUMORGID
) 'ACTIVITY POSITION',
a.PAYSCALETABLE 'ACTIVITY PAYSCALE TABLE',
a.PAYSCALE 'ACTIVITY PAYSCALE CODE',
CASE
WHEN p20.CONTRACTKIND = 0 THEN 'Main Contract'
WHEN p20.CONTRACTKIND = 1 THEN 'Sub Contract'
WHEN p20.CONTRACTKIND = 2 THEN 'Ammendment'
ELSE ''
END AS 'Contract Type',
C32CONT.Text 'Contract Name',
C02CONT.NAME 'Contract Rank',
p20.DATESTART 'Contract Start',
p20.DATEEND 'Contract End',
p20.PAYSCALETABLE 'CONTRACT PAYSCALE TABLE',
p20.PAYSCALECODE 'CONTRACT PAYSCALE',
payscale.Table_Name 'CONTRACT PAYSCALE TABLE NAME',
payscale.Payscale_Name 'CONTRACT PAYSCALE NAME',
pay.CALCULATEDBY 'CALCULATED BY',
pay.CalculateTime 'CALCULATE TIME',
CASE
WHEN P.Transferbalance = '0' THEN 'Carry Forward To Next Month'
WHEN P.Transferbalance = '1' THEN 'Transfer To Bank Account'
WHEN P.Transferbalance = '2' THEN 'Interpay'
WHEN P.Transferbalance = '3' THEN 'Alpha Credit Bank'
WHEN P.Transferbalance = '4' THEN 'Cash'
WHEN P.Transferbalance = '5' THEN 'Citibank Direct Deposit'
WHEN P.Transferbalance = '6' THEN 'Citibank'
WHEN P.Transferbalance = '7' THEN 'Chase Manhattan'
WHEN P.Transferbalance = '8' THEN 'Hellenic Bank'
WHEN P.Transferbalance = '9' THEN 'Isabel Domestic'
WHEN P.Transferbalance = 'A' THEN 'Isabel International'
WHEN P.Transferbalance = 'B' THEN 'Bank Transfer'
WHEN P.Transferbalance = 'C' THEN 'Swedish Domestic'
WHEN P.Transferbalance = 'D' THEN 'Swedish International'
WHEN P.Transferbalance = 'E' THEN 'Philippine Banking'
WHEN P.Transferbalance = 'F' THEN 'Manual Bank'
WHEN P.Transferbalance = 'G' THEN 'Zagrebancka'
WHEN P.Transferbalance = 'H' THEN 'ING Bank'
WHEN P.Transferbalance = 'I' THEN 'Direct Deposit E-Monee'
WHEN P.Transferbalance = 'J' THEN 'Deutsche Bank'
WHEN P.Transferbalance = 'K' THEN 'SACS'
WHEN P.Transferbalance = 'L' THEN 'Hellenic Cyprus'
WHEN P.Transferbalance = 'M' THEN 'MT 100'
WHEN P.Transferbalance = 'N' THEN 'Citibank (PL)'
WHEN P.Transferbalance = '0' THEN 'Agent .R'
WHEN P.Transferbalance = 'P' THEN 'German Bank'
WHEN P.Transferbalance = 'Q' THEN 'Trident Trust'
WHEN P.Transferbalance = 'R' THEN 'Citibank (Asia)'
WHEN P.Transferbalance = 'S' THEN 'PNC Bank'
WHEN P.Transferbalance = 'T' THEN 'Chase Insight'
WHEN P.Transferbalance = 'U' THEN 'Ocean Pay'
WHEN P.Transferbalance = 'V' THEN 'Banco de Oro'
WHEN P.Transferbalance = 'W' THEN 'Bank of Philippine Island'
WHEN P.Transferbalance = 'X' THEN 'CitiDirect (Onboard)'
WHEN P.Transferbalance = 'Y' THEN 'Metrobank Direct (PH)'
WHEN P.Transferbalance = 'Z' THEN 'Elektron'
WHEN P.Transferbalance = 'A1' THEN 'E-Banking (Maramut)'
WHEN P.Transferbalance = 'A2' THEN 'RBS Direct Access'
WHEN P.Transferbalance = 'A3' THEN 'Brazilian Banks'
WHEN P.Transferbalance = 'A4' THEN 'NETS'
WHEN P.Transferbalance = 'A5' THEN 'NONE'
WHEN P.Transferbalance = 'A6' THEN 'JDP Morgan'
WHEN P.Transferbalance = 'A7' THEN 'J. P. Morgan Access'
WHEN P.Transferbalance = 'A8' THEN 'Spar Nord Domestic'
WHEN P.Transferbalance = 'A9' THEN 'Spar Nord International'
WHEN P.Transferbalance = 'B1' THEN 'Rabobank'
WHEN P.Transferbalance = 'B2' THEN 'Deutsche Bank'
WHEN P.Transferbalance = 'B4' THEN 'ISO20022'
WHEN P.Transferbalance = 'B5' THEN 'Brightwell'
END AS 'PAYMENT METHOD',
pay.CURRENCYFORPAYMENT 'PAYMENT CURRENCY',
CASE
WHEN p.EMAILPAYSLIP = 'F' THEN 'Off'
WHEN p.EMAILPAYSLIP = 'T' THEN 'On'
END 'DISTRIBURE PAYSLIP OPTION',
email.TELENO 'EMAIL',
CASE
WHEN P.EMPLOYMENTSTARTDATE IS NULL THEN 'Employment Start Date missing'
ELSE ''
END Issue1,
CASE
WHEN P.EMPLOYMENTSTARTDATE > a.DATEFROM THEN
'Employment Start Date greater than Activity Start Date'
ELSE ''
END Issue2,
CASE
WHEN A.DATEFROM < CAST(GETDATE() AS DATE)
AND ISNULL(A.PLANNED, 'N') = 'Y'
OR A.TODATEESTIMATED < CAST(GETDATE() AS DATE)
AND A.DATETO IS NULL THEN 'Activity not confirmed'
ELSE ''
END Issue3,
CASE
WHEN NULLIF(A.PAYSCALETABLE, '') IS NOT NULL
AND NULLIF(A.PAYSCALE, '') IS NULL THEN 'Activity Payscale Code missing'
ELSE ''
END Issue4,
CASE
WHEN (
NULLIF(a.PAYSCALETABLE, '') IS NOT NULL
AND NULLIF(a.PAYSCALE, '') IS NOT NULL
)
AND (
(p20.PAYSCALECODE <> a.PAYSCALE)
OR (p20.PAYSCALETABLE <> a.PAYSCALETABLE)
) THEN 'Payscale mismatch between Contract and Activity'
ELSE ''
END AS Issue5,
CASE
WHEN p20.DATESTART > periode.PEnd THEN 'Invalid Contract Start Date'
ELSE ''
END AS Issue6,
CASE
WHEN p20.CONTRACTKIND IS NULL THEN 'No valid contract for this period'
ELSE ''
END Issue7,
CASE
WHEN (a.CODE IN (SELECT CODE FROM PW001C12 WHERE OPTIONS LIKE '%S%')) AND (a.DATEFROM < (CASE WHEN p20.DATESTART>prevcon.DATESTART THEN prevcon.DATESTART ELSE p20.DATESTART END)) THEN 'No contract starting from ' + CONVERT(VARCHAR, a.DATEFROM, 1) + ' to ' + CONVERT(VARCHAR, p20.DATESTART, 1)
ELSE ''
END Issue8,
CASE
WHEN (a.CODE IN (SELECT CODE FROM PW001C12 WHERE OPTIONS LIKE '%S%')) AND (a.DATEFROM > p20.DATESTART) THEN 'Contract started on ' + CONVERT(VARCHAR, p20.DATESTART, 1) + ' instead of ' + CONVERT(VARCHAR, a.DATEFROM, 1)
ELSE ''
END Issue9
FROM pw001p01 p
JOIN (
SELECT NUMORGID,
PERIODE,
CAST(
CASE
WHEN RIGHT(CAST(PERIODE AS VARCHAR), 2) = '00' THEN LEFT(CAST(PERIODE AS VARCHAR), 4)
+
'01'
WHEN CONVERT(INT, RIGHT(CAST(PERIODE AS VARCHAR), 2)) > 12 THEN LEFT(CAST(PERIODE AS VARCHAR), 4)
+ '12'
ELSE CAST(PERIODE AS VARCHAR(6))
END + '01' AS DATETIME
) AS 'PStart',
DATEADD(
MM,
1,
CAST(
CASE
WHEN RIGHT(CAST(PERIODE AS VARCHAR), 2) = '00' THEN LEFT(CAST(PERIODE AS VARCHAR), 4)
+ '01'
WHEN CONVERT(INT, RIGHT(CAST(PERIODE AS VARCHAR), 2)) > 12 THEN LEFT(CAST(PERIODE AS VARCHAR), 4)
+ '12'
ELSE CAST(PERIODE AS VARCHAR(6))
END + '01' AS DATETIME
)
) -1 AS 'PEnd'
FROM PWORGCMP
WHERE PAYROLLENABLED = 'Y'
UNION ALL
SELECT NUMORGID,
PERIODE,
CAST(
CASE
WHEN RIGHT(CAST(PERIODE AS VARCHAR), 2) = '00' THEN LEFT(CAST(PERIODE AS VARCHAR), 4)
+
'01'
WHEN CONVERT(INT, RIGHT(CAST(PERIODE AS VARCHAR), 2)) > 12 THEN LEFT(CAST(PERIODE AS VARCHAR), 4)
+ '12'
ELSE CAST(PERIODE AS VARCHAR(6))
END + '01' AS DATETIME
) AS 'PStart',
DATEADD(
MM,
1,
CAST(
CASE
WHEN RIGHT(CAST(PERIODE AS VARCHAR), 2) = '00' THEN LEFT(CAST(PERIODE AS VARCHAR), 4)
+ '01'
WHEN CONVERT(INT, RIGHT(CAST(PERIODE AS VARCHAR), 2)) > 12 THEN LEFT(CAST(PERIODE AS VARCHAR), 4)
+ '12'
ELSE CAST(PERIODE AS VARCHAR(6))
END + '01' AS DATETIME
)
) -1 AS 'PEnd'
FROM PWORGVES
WHERE PAYROLLENABLED = 'Y'
) periode
ON p.CLIENT = periode.NUMORGID
JOIN PWORG ORGAN
ON p.CLIENT = ORGAN.NUMORGID
JOIN PWORGCMP company
ON p.CLIENT = company.NUMORGID
LEFT JOIN PW001P0P p0p
ON p0p.PIN = p.PIN
AND p0p.PNUMBER = 'A'
AND p0p.PAYSCALECODE IS NOT NULL
AND p0p.PAYSCALECODE <> ''
LEFT JOIN PW001PAY pay
ON pay.PIN = p.PIN
AND pay.CalculateTime IS NOT NULL
AND pay.PERIODEUSED = company.PERIODE
AND NOT EXISTS(
SELECT 1
FROM PW001PAY PAY2
WHERE PAY.PIN = PAY2.PIN
AND PAY2.PERIODEUSED = company.PERIODE
AND (
PAY2.CALCULATETIME > PAY.CALCULATETIME
OR (
PAY2.CALCULATETIME = PAY.CALCULATETIME
)
)
)
LEFT JOIN PW001P1R p1r5
ON p1r5.PIN = p.PIN
AND p1r5.RATENO = 5
LEFT JOIN pw001c02 c02
ON p.rank = c02.code
LEFT JOIN PW001P0Y P0Y
ON p.PIN = P0Y.PIN
LEFT JOIN PW001P0T email
ON email.PIN = p.PIN
AND email.TELETYPE = 6
AND NOT EXISTS (
SELECT 1
FROM pw001p0t t
WHERE t.PIN = email.PIN
AND t.TELETYPE = email.TELETYPE
AND (
t.TELEPRIORITY < email.TELEPRIORITY
OR (
t.TELEPRIORITY = email.TELEPRIORITY
AND t.SEQUENCENO > email.SEQUENCENO
)
)
)
--Activity matching payroll period
JOIN PW001P03 a
ON a.PIN = p.PIN
AND a.CODE IN (SELECT CODEmaincon
ON maincon.PIN = p.PIN
FROM PW001C12 AND maincon.CONTRACTKIND = 0
AND maincon.CONTRACTIDABOVE WHEREIS NULL
TRANSACTIONCODE <> '') AND amaincon.datefromDATESTART <= periode.PEndA.DATEFROM--ISNULL(a.DATETO, a.TODATEESTIMATED)
AND (maincon.DATEEND IS NULL OR maincon.DATEEND >= ISNULL(a.datetoDATETO, a.TODATEESTIMATED)) >= periode.PStart--IS NULL
LEFT JOIN PW001P20PW001p20 p20
ON p20.PINSEQUENCENO = p.PIN ISNULL(p20sub.SEQUENCENO, maincon.SEQUENCENO)
LEFT JOIN PW001C02 C02CONT
AND P20.DATESTART <= ISNULL(A.DATETO, A.TODATEESTIMATED)
ON p20.RANK = C02CONT.CODE
ANDLEFT COALESCE(JOIN PW001C32 C32CONT
ON P20p20.DATEEND,CONTRACTTYPE = C32CONT.code
LEFT JOIN PWPSC000 PT
( ON ISNULL(a.PAYSCALETABLE, p20.PAYSCALETABLE) = pt.REGULATIVECODE
SELECT MIN(t.DATESTART) -1 AND (
FROM PW001P20 t PT.INCLUDEPLANNEDACTIVITY = 'Y'
WHERE t.pin = p20.pin OR (PT.INCLUDEPLANNEDACTIVITY <> 'Y' AND a.PLANNED <> 'Y')
AND t.DATESTART > p20.DATESTART )
LEFT JOIN PWPSC001 PS
), ON ISNULL(a.PAYSCALE, p20.PAYSCALECODE) = PS.PAYSCALECODE
a.datefrom AND PS.SEQNO = pt.SEQNO
) >= A.DATEFROM LEFT JOIN PWORGVES LEFTv
JOIN PW001P20 prevcon ON prevcona.SEQUENCENOVESSEL = p20.CONTRACTIDABOVEv.NUMORGID
LEFT JOIN PW001C43 c43
JOIN PW001C02 C02CONT ON p20c43.RANKCODE = C02CONTP.CODECOSTPLACE
LEFT JOIN PW001C32 C32CONTLEFT JOIN (
ON p20.CONTRACTTYPE = C32CONT.code SELECT C0.REGULATIVECODE AS 'Table_Code',
LEFT JOIN PWPSC000 PT ONC0.REGULATIVENAME ISNULL(a.PAYSCALETABLE, p20.PAYSCALETABLE) = pt.REGULATIVECODEAS 'Table_Name',
AND ( C1.PAYSCALECODE AS 'Payscale_Code',
PT.INCLUDEPLANNEDACTIVITY = 'Y' C1.PAYSCALENAME AS 'Payscale_Name'
OR (PT.INCLUDEPLANNEDACTIVITY <> 'Y' AND a.PLANNED <> 'Y') FROM PWPSC000 C0
) LEFT JOIN PWPSC001 PS LEFT JOIN PWPSC001 C1
ON ISNULL(a.PAYSCALE, p20.PAYSCALECODE) = PS.PAYSCALECODE ON AND PSC1.SEQNO = pt.SEQNO
C0.SEQNO
LEFT JOIN PWORGVES v ) payscale
ON a.VESSEL = v.NUMORGID ON payscale.Table_Code = LEFTp20.PAYSCALETABLE
JOIN PW001C43 c43 ONAND c43.CODEpayscale.Payscale_Code = P.COSTPLACEp20.PAYSCALECODE
LEFT JOIN (
SELECT C0OLE.REGULATIVECODEPIN,
AS 'Table_Code', C0DOCS.REGULATIVENAMEDOCTYPE,
AS 'Table_Name', C1.PAYSCALECODE AS 'Payscale_Code'DOCS.[DESCRIPTION],
C1.PAYSCALENAME AS 'Payscale_Name'
DOCS.SOURCEDOC,
FROM PWPSC000 C0 --RIGHT(CAST(DOCS.[DESCRIPTION] AS VARCHAR), 6) AS PAYPERIOD,
LEFT JOIN PWPSC001 C1 CASE
ON C1.SEQNO = C0.SEQNO ) payscale
WHEN ISNUMERIC(LEFT(RIGHT(CAST(DOCS.SOURCEDOC AS VARCHAR), 11), 6)) = 1 THEN
ON payscale.Table_Code = p20.PAYSCALETABLE AND payscale.Payscale_Code = p20.PAYSCALECODE
LEFT(RIGHT(CAST(DOCS.SOURCEDOC AS VARCHAR), 11), 6)
LEFT JOIN ( ELSE 0
SELECT OLE.PIN, END DOCS.DOCTYPE, AS PAYPERIOD,
DOCS.[DESCRIPTION], --),
DOCS.SOURCEDOC, CASE
RIGHT(CAST(DOCS.[DESCRIPTION] AS VARCHAR), 6) AS PAYPERIOD, WHEN DOCS.[DESCRIPTION] IS NOT NULL THEN 'Y'
--), ELSE 'N'
CASE END AS PAYSLIPSTATUS
WHEN DOCS.[DESCRIPTION] IS NOT NULL THEN 'Y' FROM PW001P01OLE--left ELSE 'N'
join PW001OLEDOCS PAYSL on PAYSL.pin= pin and DOCTYPE='payslip' and SOURCEDOC like '%periodeused%'
END AS PAYSLIPSTATUS OLE
FROM PW001P01OLE LEFT JOIN PW001OLEDOCS DOCS
OLE ON OLE.DOCNO = DOCS.DOCNO
LEFT JOIN PW001OLEDOCS DOCS AND DOCS.DOCTYPE = 'payslip'
ON OLE.DOCNO = DOCS.DOCNO --AND DOCS.DOCTYPEDESCRIPTION =LIKE 'payslip%PAYSLIP_202308%'
) PayslipStatus
ON PayslipStatus.PIN = p.PIN
AND PayslipStatus.PAYPERIOD = company.PERIODE
WHERE (
(
(
CHARINDEX(a.CODE, pt.ACTIVITYCODES, 0) > 0
OR pt.ACTIVITYCODES IS NULL
)
)
OR (
(
CHARINDEX(a.CODE, PS.ACTIVITYCODES, 0) > 0
OR ps.ACTIVITYCODES IS NULL
)
)
)
) Main
--WHERE Main.NUMORGID NOT IN (10012602) |
