feat: over capture status flag [Draft pr]

src/screens/Developer/PaymentSettings/PaymentSettings.res

@@ -654,6 +654,25 @@ let make = (~webhookOnly=false, ~showFormOnly=false, ~profileId="") => {
                     },
                   ]
                 />
+                <DesktopRow>
+                  <div className="flex flex-col">
+                    <FieldRenderer
+                      labelClass="!text-fs-15 !text-grey-700 font-semibold"
+                      fieldWrapperClass="w-full flex justify-between items-center border-t border-gray-200 pt-8 "
+                      field={makeFieldInfo(
+                        ~name="always_request_overcapture",
+                        ~label="Payments Overcapture",
+                        ~customInput=InputFields.boolInput(
+                          ~isDisabled=false,
+                          ~boolCustomClass="rounded-lg ",
+                        ),
+                      )}
+                    />
+                    <p className="font-medium text-fs-14 text-black opacity-50 pl-1">
+                      {" Overcapture allows capturing an amount higher than the authorized amount for a card payment."->React.string}
+                    </p>
+                  </div>
+                </DesktopRow>
                 <DesktopRow>
                   <FieldRenderer
                     labelClass="!text-fs-15 !text-grey-700 font-semibold"

src/screens/Developer/PaymentSettings/PaymentSettingsListEntity.res

@@ -60,6 +60,7 @@ let itemToObjMapper = dict => {
     is_auto_retries_enabled: dict->getOptionBool("is_auto_retries_enabled"),
     max_auto_retries_enabled: dict->getOptionInt("max_auto_retries_enabled"),
     is_click_to_pay_enabled: dict->getOptionBool("is_click_to_pay_enabled"),
+    always_request_overcapture: dict->getOptionBool("always_request_overcapture"),
     authentication_product_ids: Some(
       dict
       ->getDictfromDict("authentication_product_ids")

src/screens/Settings/BusinessMapping/BusinessMappingEntity.res

@@ -177,6 +177,7 @@ let itemToObjMapper = dict => {
     is_auto_retries_enabled: dict->getOptionBool("is_auto_retries_enabled"),
     max_auto_retries_enabled: dict->getOptionInt("max_auto_retries_enabled"),
     is_click_to_pay_enabled: dict->getOptionBool("is_click_to_pay_enabled"),
+    always_request_overcapture: dict->getOptionBool("always_request_overcapture"),
     authentication_product_ids: Some(
       dict
       ->getDictfromDict("authentication_product_ids")

src/screens/Settings/HSwitchSettingTypes.res

@@ -158,6 +158,7 @@ type profileEntity = {
   outgoing_webhook_custom_http_headers: option<Dict.t<JSON.t>>,
   is_auto_retries_enabled: option<bool>,
   max_auto_retries_enabled: option<int>,
+  always_request_overcapture: option<bool>,
 }
 
 type twoFaType = RecoveryCode | Totp

src/screens/Settings/MerchantAccountUtils.res

@@ -23,6 +23,7 @@ let parseBussinessProfileJson = (profileRecord: profileEntity) => {
     max_auto_retries_enabled,
     is_click_to_pay_enabled,
     authentication_product_ids,
+    always_request_overcapture,
   } = profileRecord
 
   let profileInfo =
@@ -71,6 +72,7 @@ let parseBussinessProfileJson = (profileRecord: profileEntity) => {
   profileInfo->setOptionBool("is_connector_agnostic_mit_enabled", is_connector_agnostic_mit_enabled)
   profileInfo->setOptionBool("is_click_to_pay_enabled", is_click_to_pay_enabled)
   profileInfo->setOptionJson("authentication_product_ids", authentication_product_ids)
+  profileInfo->setOptionBool("always_request_overcapture", always_request_overcapture)
 
   profileInfo->setOptionDict(
     "outgoing_webhook_custom_http_headers",
@@ -249,6 +251,11 @@ let getBusinessProfilePayload = (values: JSON.t) => {
     valuesDict->getOptionBool("is_click_to_pay_enabled"),
   )
 
+  profileDetailsDict->setOptionBool(
+    "always_request_overcapture",
+    valuesDict->getOptionBool("always_request_overcapture"),
+  )
+
   let authenticationProductIds = valuesDict->getJsonObjectFromDict("authentication_product_ids")
   if !(authenticationProductIds->getDictFromJsonObject->isEmptyDict) {
     profileDetailsDict->Dict.set("authentication_product_ids", authenticationProductIds)
@@ -522,6 +529,7 @@ let defaultValueForBusinessProfile = {
   max_auto_retries_enabled: None,
   is_click_to_pay_enabled: None,
   authentication_product_ids: None,
+  always_request_overcapture: None,
 }
 
 let getValueFromBusinessProfile = businessProfileValue => {

src/screens/Transaction/Order/OrderEntity.res

@@ -543,6 +543,8 @@ let getHeadingForOtherDetails = otherDetailsColType => {
   | PMBillingLastName => Table.makeHeaderInfo(~key="payment_method_last_name", ~title="Last Name")
   | MerchantOrderReferenceId =>
     Table.makeHeaderInfo(~key="merchant_order_reference_id", ~title="Merchant Order Reference Id")
+  | OvercaptureStatus =>
+    Table.makeHeaderInfo(~key="overcapture_status", ~title="Overcapture Status")
   }
 }
 
@@ -647,6 +649,7 @@ let getCellForOtherDetails = (order, aboutPaymentColType): Table.cell => {
   | PMBillingLastName => Text(order.payment_method_billing_last_name)
   | BillingPhone => Text(`${order.billingPhone}`)
   | MerchantOrderReferenceId => Text(order.merchant_order_reference_id)
+  | OvercaptureStatus => Text(order.overcapture_status)
   }
 }
 
@@ -914,6 +917,7 @@ let itemToObjMapper = dict => {
     merchant_order_reference_id: dict->getString("merchant_order_reference_id", ""),
     attempt_count: dict->getInt("attempt_count", 0),
     connector_label: dict->getString("connector_label", "NA"),
+    overcapture_status: dict->getString("overcapture_status", ""),
   }
 }
 

src/screens/Transaction/Order/OrderTypes.res

@@ -114,6 +114,7 @@ type order = {
   merchant_order_reference_id: string,
   attempt_count: int,
   connector_label: string,
+  overcapture_status: string,
 }
 
 type refundsColType =
@@ -274,6 +275,7 @@ type otherDetailsColType =
   | FRMTransactionType
   | FRMStatus
   | MerchantOrderReferenceId
+  | OvercaptureStatus
 
 type optionObj = {
   urlKey: string,

src/screens/Transaction/Order/ShowOrder.res

@@ -881,6 +881,7 @@ let make = (~id, ~profileId, ~merchantId, ~orgId) => {
                       StatementDescriptorSuffix,
                       PaymentExperience,
                       MerchantOrderReferenceId,
+                      OvercaptureStatus,
                     ]
                     isNonRefundConnector={isNonRefundConnector(orderData.connector)}
                     paymentStatus={orderData.status}

src/utils/Mappers/BusinessProfileMapper.res

@@ -58,6 +58,7 @@ let businessProfileTypeMapper = values => {
     is_auto_retries_enabled: jsonDict->getOptionBool("is_auto_retries_enabled"),
     max_auto_retries_enabled: jsonDict->getOptionInt("max_auto_retries_enabled"),
     is_click_to_pay_enabled: jsonDict->getOptionBool("is_click_to_pay_enabled"),
+    always_request_overcapture: jsonDict->getOptionBool("always_request_overcapture"),
     authentication_product_ids: Some(
       jsonDict
       ->getDictfromDict("authentication_product_ids")