{"id":436,"date":"2023-03-22T11:25:44","date_gmt":"2023-03-22T11:25:44","guid":{"rendered":"http:\/\/basicwebsitesolutions.com\/blog\/?p=436"},"modified":"2023-03-22T11:25:45","modified_gmt":"2023-03-22T11:25:45","slug":"delphi-get-sales-summary-by-month-january-to-december","status":"publish","type":"post","link":"https:\/\/basicwebsitesolutions.com\/blog\/2023\/03\/22\/delphi-get-sales-summary-by-month-january-to-december\/","title":{"rendered":"Delphi Get Sales Summary by Month (January to December)"},"content":{"rendered":"\n<p>Another feature i hope there was shortcut to, but it seems i need to write it myself. <\/p>\n\n\n\n<p>Just wanted to share it here<\/p>\n\n\n\n<p>Coffee Cup<\/p>\n\n\n\n<p><\/p>\n\n\n\n<pre class=\"wp-block-preformatted\">\r\n\r\n    VFROM = VYEAR || '-1-1';\r\n    VTO = VYEAR || '-1-31';\r\n\r\n    SELECT SUM(Z.PAMT)\r\n    FROM  PAYSLIP Z\r\n    WHERE Z.PDATE_COMPUTE_FROM >= :VFROM AND Z.PDATE_COMPUTE_TO &lt;= :VTO AND Z.EID = :VEID\r\n    INTO :VAMT;  \r\n\r\n    IF (VAMT IS NULL) THEN\r\n         PAMT1 = 0;\r\n    ELSE PAMT1 = VAMT;  \r\n\r\n    \/* \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ *\/\r\n\r\n\r\n\r\n    \/* IF FEB LESS THAN MARCH 1 - THERE IS FEB 28 AND FEB 29 *\/\r\n    VFROM = VYEAR || '-2-1';\r\n    VTO = VYEAR || '-3-1';\r\n\r\n    SELECT SUM(Z.PAMT)\r\n    FROM  PAYSLIP Z\r\n    WHERE Z.PDATE_COMPUTE_FROM >= :VFROM AND Z.PDATE_COMPUTE_TO &lt; :VTO AND Z.EID = :VEID\r\n    INTO :VAMT;  \r\n\r\n    IF (VAMT IS NULL) THEN\r\n         PAMT2 = 0;\r\n    ELSE PAMT2 = VAMT;  \r\n\r\n    \/* \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ *\/\r\n\r\n\r\n\r\n    VFROM = VYEAR || '-3-1';\r\n    VTO = VYEAR || '-3-31';\r\n\r\n    SELECT SUM(Z.PAMT)\r\n    FROM  PAYSLIP Z\r\n    WHERE Z.PDATE_COMPUTE_FROM >= :VFROM AND Z.PDATE_COMPUTE_TO &lt;= :VTO AND Z.EID = :VEID\r\n    INTO :VAMT;  \r\n\r\n    IF (VAMT IS NULL) THEN\r\n         PAMT3 = 0;\r\n    ELSE PAMT3 = VAMT;  \r\n\r\n    \/* \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ *\/\r\n\r\n\r\n\r\n    VFROM = VYEAR || '-4-1';\r\n    VTO = VYEAR || '-4-30';\r\n\r\n    SELECT SUM(Z.PAMT)\r\n    FROM  PAYSLIP Z\r\n    WHERE Z.PDATE_COMPUTE_FROM >= :VFROM AND Z.PDATE_COMPUTE_TO &lt;= :VTO AND Z.EID = :VEID\r\n    INTO :VAMT;  \r\n\r\n    IF (VAMT IS NULL) THEN\r\n         PAMT4 = 0;\r\n    ELSE PAMT4 = VAMT;  \r\n\r\n    \/* \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ *\/\r\n\r\n\r\n\r\n    VFROM = VYEAR || '-5-1';\r\n    VTO = VYEAR || '-5-31';\r\n\r\n    SELECT SUM(Z.PAMT)\r\n    FROM  PAYSLIP Z\r\n    WHERE Z.PDATE_COMPUTE_FROM >= :VFROM AND Z.PDATE_COMPUTE_TO &lt;= :VTO AND Z.EID = :VEID\r\n    INTO :VAMT;  \r\n\r\n    IF (VAMT IS NULL) THEN\r\n         PAMT5 = 0;\r\n    ELSE PAMT5 = VAMT;  \r\n\r\n    \/* \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ *\/\r\n\r\n\r\n\r\n    VFROM = VYEAR || '-6-1';\r\n    VTO = VYEAR || '-6-30';\r\n\r\n    SELECT SUM(Z.PAMT)\r\n    FROM  PAYSLIP Z\r\n    WHERE Z.PDATE_COMPUTE_FROM >= :VFROM AND Z.PDATE_COMPUTE_TO &lt;= :VTO AND Z.EID = :VEID\r\n    INTO :VAMT;  \r\n\r\n    IF (VAMT IS NULL) THEN\r\n         PAMT6 = 0;\r\n    ELSE PAMT6 = VAMT;  \r\n\r\n    \/* \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ *\/\r\n\r\n\r\n\r\n    VFROM = VYEAR || '-7-1';\r\n    VTO = VYEAR || '-7-31';\r\n\r\n    SELECT SUM(Z.PAMT)\r\n    FROM  PAYSLIP Z\r\n    WHERE Z.PDATE_COMPUTE_FROM >= :VFROM AND Z.PDATE_COMPUTE_TO &lt;= :VTO AND Z.EID = :VEID\r\n    INTO :VAMT;  \r\n\r\n    IF (VAMT IS NULL) THEN\r\n         PAMT7 = 0;\r\n    ELSE PAMT7 = VAMT;  \r\n\r\n    \/* \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ *\/\r\n\r\n\r\n\r\n    VFROM = VYEAR || '-8-1';\r\n    VTO = VYEAR || '-8-31';\r\n\r\n    SELECT SUM(Z.PAMT)\r\n    FROM  PAYSLIP Z\r\n    WHERE Z.PDATE_COMPUTE_FROM >= :VFROM AND Z.PDATE_COMPUTE_TO &lt;= :VTO AND Z.EID = :VEID\r\n    INTO :VAMT;  \r\n\r\n    IF (VAMT IS NULL) THEN\r\n         PAMT8 = 0;\r\n    ELSE PAMT8 = VAMT;  \r\n\r\n    \/* \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ *\/\r\n\r\n\r\n\r\n    VFROM = VYEAR || '-9-1';\r\n    VTO = VYEAR || '-9-30';\r\n\r\n    SELECT SUM(Z.PAMT)\r\n    FROM  PAYSLIP Z\r\n    WHERE Z.PDATE_COMPUTE_FROM >= :VFROM AND Z.PDATE_COMPUTE_TO &lt;= :VTO AND Z.EID = :VEID\r\n    INTO :VAMT;  \r\n\r\n    IF (VAMT IS NULL) THEN\r\n         PAMT9 = 0;\r\n    ELSE PAMT9 = VAMT;  \r\n\r\n    \/* \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ *\/\r\n\r\n\r\n\r\n    VFROM = VYEAR || '-10-1';\r\n    VTO = VYEAR || '-10-31';\r\n\r\n    SELECT SUM(Z.PAMT)\r\n    FROM  PAYSLIP Z\r\n    WHERE Z.PDATE_COMPUTE_FROM >= :VFROM AND Z.PDATE_COMPUTE_TO &lt;= :VTO AND Z.EID = :VEID\r\n    INTO :VAMT;  \r\n\r\n    IF (VAMT IS NULL) THEN\r\n         PAMT10 = 0;\r\n    ELSE PAMT10 = VAMT;  \r\n\r\n    \/* \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ *\/\r\n\r\n\r\n\r\n    VFROM = VYEAR || '-11-1';\r\n    VTO = VYEAR || '-11-30';\r\n\r\n    SELECT SUM(Z.PAMT)\r\n    FROM  PAYSLIP Z\r\n    WHERE Z.PDATE_COMPUTE_FROM >= :VFROM AND Z.PDATE_COMPUTE_TO &lt;= :VTO AND Z.EID = :VEID\r\n    INTO :VAMT;  \r\n\r\n    IF (VAMT IS NULL) THEN\r\n         PAMT11 = 0;\r\n    ELSE PAMT11 = VAMT;  \r\n\r\n    \/* \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ *\/\r\n\r\n\r\n\r\n    VFROM = VYEAR || '-12-1';\r\n    VTO = VYEAR || '-12-31';\r\n\r\n    SELECT SUM(Z.PAMT)\r\n    FROM  PAYSLIP Z\r\n    WHERE Z.PDATE_COMPUTE_FROM >= :VFROM AND Z.PDATE_COMPUTE_TO &lt;= :VTO AND Z.EID = :VEID\r\n    INTO :VAMT;  \r\n\r\n    IF (VAMT IS NULL) THEN\r\n         PAMT12 = 0;\r\n    ELSE PAMT12 = VAMT;  \r\n\r\n    \/* \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ *\/<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Delphi Get Sales Summary by Month (January to December)<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3,1],"tags":[36,244],"class_list":["post-436","post","type-post","status-publish","format-standard","hentry","category-delphi-and-interbase","category-life-as-a-programmer","tag-delphi","tag-sales-summary"],"_links":{"self":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts\/436","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/comments?post=436"}],"version-history":[{"count":1,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts\/436\/revisions"}],"predecessor-version":[{"id":437,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts\/436\/revisions\/437"}],"wp:attachment":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/media?parent=436"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/categories?post=436"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/tags?post=436"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}