├── Api Compilada ├── ApisGN.exe ├── ChilkatDelphi32.dll ├── ChilkatDelphi64.dll ├── MSVCR100.DLL ├── imagens │ ├── Boletos.png │ └── Pix.png ├── libeay32.dll ├── openssl.exe └── ssleay32.dll ├── ApiPixGN.identcache ├── ApiPixGN.res ├── ApiPixGN_project.tvsconfig ├── ApisGN.dpr ├── ApisGN.dproj ├── ApisGN.dproj.local ├── ApisGN.identcache ├── ApisGN.res ├── ApisGN_Icon.ico ├── CHANGELOG.md ├── Code ├── Api Boletos │ └── Utils │ │ ├── Classes │ │ ├── uBaseCustomerTransactionClasses.pas │ │ ├── uCarnetClasses.pas │ │ ├── uChargeClasses.pas │ │ ├── uCommonTypes.pas │ │ ├── uConnections.pas │ │ ├── uCustomerClasses.pas │ │ ├── uPaymentClasses.pas │ │ └── uPaymentTokenClasses.pas │ │ ├── Endpoints │ │ ├── uAuthenticationEndpoints.pas │ │ ├── uCarnetEndpoints.pas │ │ ├── uChargesEndpoints.pas │ │ ├── uOthersEndpoints.pas │ │ └── uPlansEndpoints.pas │ │ ├── MainEmissions.dfm │ │ ├── MainEmissions.pas │ │ └── Views │ │ ├── Carnet │ │ ├── ViewCancelParcel.dfm │ │ ├── ViewCancelParcel.pas │ │ ├── ViewCreateCarnet.dfm │ │ ├── ViewCreateCarnet.pas │ │ ├── ViewCreateCarnetHistory.dfm │ │ ├── ViewCreateCarnetHistory.pas │ │ ├── ViewDetailCarnet.dfm │ │ ├── ViewDetailCarnet.pas │ │ ├── ViewResendCarnet.dfm │ │ ├── ViewResendCarnet.pas │ │ ├── ViewResendParcel.dfm │ │ ├── ViewResendParcel.pas │ │ ├── ViewSettleCarnetParcel.dfm │ │ ├── ViewSettleCarnetParcel.pas │ │ ├── ViewUpdateMetadataCarnet.dfm │ │ ├── ViewUpdateMetadataCarnet.pas │ │ ├── ViewUpdateParcel.dfm │ │ └── ViewUpdateParcel.pas │ │ ├── Charges │ │ ├── ViewCreateCharge.dfm │ │ ├── ViewCreateCharge.pas │ │ ├── ViewCreateChargeHistory.dfm │ │ ├── ViewCreateChargeHistory.pas │ │ ├── ViewCreateLinkCharge.dfm │ │ ├── ViewCreateLinkCharge.pas │ │ ├── ViewDetailBillet.dfm │ │ ├── ViewDetailBillet.pas │ │ ├── ViewPayChargeBillet.dfm │ │ ├── ViewPayChargeBillet.pas │ │ ├── ViewPayChargeBilletOneStep.dfm │ │ ├── ViewPayChargeBilletOneStep.pas │ │ ├── ViewPayCreditCard.dfm │ │ ├── ViewPayCreditCard.pas │ │ ├── ViewPayCreditCardOneStep.dfm │ │ ├── ViewPayCreditCardOneStep.pas │ │ ├── ViewResendBillet.dfm │ │ ├── ViewResendBillet.pas │ │ ├── ViewUpdateLinkCharge.dfm │ │ ├── ViewUpdateLinkCharge.pas │ │ ├── ViewUpdateMetadataCharge.dfm │ │ └── ViewUpdateMetadataCharge.pas │ │ ├── Others │ │ ├── ViewDetailOthers.dfm │ │ └── ViewDetailOthers.pas │ │ └── Plans │ │ ├── ViewCreatePlan.dfm │ │ ├── ViewCreatePlan.pas │ │ ├── ViewCreatePlanHistory.dfm │ │ ├── ViewCreatePlanHistory.pas │ │ ├── ViewCreateSubscription.dfm │ │ ├── ViewCreateSubscription.pas │ │ ├── ViewDetailPlan.dfm │ │ ├── ViewDetailPlan.pas │ │ ├── ViewGetPlan.dfm │ │ ├── ViewGetPlan.pas │ │ ├── ViewPayPlan.dfm │ │ ├── ViewPayPlan.pas │ │ ├── ViewPayPlanCreditCard.dfm │ │ ├── ViewPayPlanCreditCard.pas │ │ ├── ViewUpdateMetadataPlan.dfm │ │ ├── ViewUpdateMetadataPlan.pas │ │ ├── ViewUpdatePlan.dfm │ │ └── ViewUpdatePlan.pas ├── Api Pix │ └── Utils │ │ ├── Classes │ │ ├── BodyAccountClass.pas │ │ ├── BodyChargesClass.pas │ │ ├── BodyPixClass.pas │ │ └── BodyWebhookClass.pas │ │ ├── EndPoints │ │ ├── AccountEndpoints.pas │ │ ├── AuthenticationEndpoints.pas │ │ ├── ChargesEndpoints.pas │ │ ├── Connections.pas │ │ ├── KeyPixEndpoints.pas │ │ ├── LocEndpoints.pas │ │ ├── PixEndpoints.pas │ │ └── WebhookEndpoints.pas │ │ ├── MainPix.dfm │ │ ├── MainPix.pas │ │ └── Views │ │ ├── ViewPixAccountConfig.dfm │ │ ├── ViewPixAccountConfig.pas │ │ ├── ViewPixConfigWebhook.dfm │ │ ├── ViewPixConfigWebhook.pas │ │ ├── ViewPixCreateCharge.dfm │ │ ├── ViewPixCreateCharge.pas │ │ ├── ViewPixCreateImmediateCharge.dfm │ │ ├── ViewPixCreateImmediateCharge.pas │ │ ├── ViewPixDetail.dfm │ │ ├── ViewPixDetail.pas │ │ ├── ViewPixDetailDevolution.dfm │ │ ├── ViewPixDetailDevolution.pas │ │ ├── ViewPixDevolution.dfm │ │ ├── ViewPixDevolution.pas │ │ ├── ViewPixE2eidDetail.dfm │ │ ├── ViewPixE2eidDetail.pas │ │ ├── ViewPixIdDetail.dfm │ │ ├── ViewPixIdDetail.pas │ │ ├── ViewPixKeyDetail.dfm │ │ ├── ViewPixKeyDetail.pas │ │ ├── ViewPixList.dfm │ │ ├── ViewPixList.pas │ │ ├── ViewPixSend.dfm │ │ ├── ViewPixSend.pas │ │ ├── ViewPixUpdateCharge.dfm │ │ └── ViewPixUpdateCharge.pas ├── External │ ├── DelphiZXIngQRCode.pas │ ├── PrivateKey.pas │ ├── Rsa.pas │ ├── XSuperJSON.pas │ ├── XSuperObject.inc │ ├── XSuperObject.pas │ └── chilkatDllPath.inc ├── MainCode.dfm └── MainCode.pas ├── LICENSE └── README.md /Api Compilada/ApisGN.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Api Compilada/ApisGN.exe -------------------------------------------------------------------------------- /Api Compilada/ChilkatDelphi32.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Api Compilada/ChilkatDelphi32.dll -------------------------------------------------------------------------------- /Api Compilada/ChilkatDelphi64.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Api Compilada/ChilkatDelphi64.dll -------------------------------------------------------------------------------- /Api Compilada/MSVCR100.DLL: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Api Compilada/MSVCR100.DLL -------------------------------------------------------------------------------- /Api Compilada/imagens/Boletos.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Api Compilada/imagens/Boletos.png -------------------------------------------------------------------------------- /Api Compilada/imagens/Pix.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Api Compilada/imagens/Pix.png -------------------------------------------------------------------------------- /Api Compilada/libeay32.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Api Compilada/libeay32.dll -------------------------------------------------------------------------------- /Api Compilada/openssl.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Api Compilada/openssl.exe -------------------------------------------------------------------------------- /Api Compilada/ssleay32.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Api Compilada/ssleay32.dll -------------------------------------------------------------------------------- /ApiPixGN.identcache: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/ApiPixGN.identcache -------------------------------------------------------------------------------- /ApiPixGN.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/ApiPixGN.res -------------------------------------------------------------------------------- /ApiPixGN_project.tvsconfig: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /ApisGN.dpr: -------------------------------------------------------------------------------- 1 | program ApisGN; 2 | 3 | uses 4 | Forms, 5 | DelphiZXIngQRCode in 'Code\External\DelphiZXIngQRCode.pas', 6 | XSuperJSON in 'Code\External\XSuperJSON.pas', 7 | XSuperObject in 'Code\External\XSuperObject.pas', 8 | AccountEndpoints in 'Code\Api Pix\Utils\EndPoints\AccountEndpoints.pas', 9 | AuthenticationEndpoints in 'Code\Api Pix\Utils\EndPoints\AuthenticationEndpoints.pas', 10 | ChargesEndpoints in 'Code\Api Pix\Utils\EndPoints\ChargesEndpoints.pas', 11 | Connections in 'Code\Api Pix\Utils\EndPoints\Connections.pas', 12 | KeyPixEndpoints in 'Code\Api Pix\Utils\EndPoints\KeyPixEndpoints.pas', 13 | LocEndpoints in 'Code\Api Pix\Utils\EndPoints\LocEndpoints.pas', 14 | PixEndpoints in 'Code\Api Pix\Utils\EndPoints\PixEndpoints.pas', 15 | WebhookEndpoints in 'Code\Api Pix\Utils\EndPoints\WebhookEndpoints.pas', 16 | BodyAccountClass in 'Code\Api Pix\Utils\Classes\BodyAccountClass.pas', 17 | BodyChargesClass in 'Code\Api Pix\Utils\Classes\BodyChargesClass.pas', 18 | BodyPixClass in 'Code\Api Pix\Utils\Classes\BodyPixClass.pas', 19 | BodyWebhookClass in 'Code\Api Pix\Utils\Classes\BodyWebhookClass.pas', 20 | uChargeClasses in 'Code\Api Boletos\Utils\Classes\uChargeClasses.pas', 21 | uCommonTypes in 'Code\Api Boletos\Utils\Classes\uCommonTypes.pas', 22 | uConnections in 'Code\Api Boletos\Utils\Classes\uConnections.pas', 23 | uAuthenticationEndpoints in 'Code\Api Boletos\Utils\Endpoints\uAuthenticationEndpoints.pas', 24 | uChargesEndpoints in 'Code\Api Boletos\Utils\Endpoints\uChargesEndpoints.pas', 25 | MainCode in 'Code\MainCode.pas' {MainCode}, 26 | MainEmissions in 'Code\Api Boletos\Utils\MainEmissions.pas' {MainEmissions}, 27 | MainPix in 'Code\Api Pix\Utils\MainPix.pas' {MainPix}, 28 | uBaseCustomerTransactionClasses in 'Code\Api Boletos\Utils\Classes\uBaseCustomerTransactionClasses.pas', 29 | uCustomerClasses in 'Code\Api Boletos\Utils\Classes\uCustomerClasses.pas', 30 | uPaymentClasses in 'Code\Api Boletos\Utils\Classes\uPaymentClasses.pas', 31 | uCarnetClasses in 'Code\Api Boletos\Utils\Classes\uCarnetClasses.pas', 32 | uCarnetEndpoints in 'Code\Api Boletos\Utils\Endpoints\uCarnetEndpoints.pas', 33 | uPlansEndpoints in 'Code\Api Boletos\Utils\Endpoints\uPlansEndpoints.pas', 34 | uPaymentTokenClasses in 'Code\Api Boletos\Utils\Classes\uPaymentTokenClasses.pas', 35 | PrivateKey in 'Code\External\PrivateKey.pas', 36 | Rsa in 'Code\External\Rsa.pas', 37 | uOthersEndpoints in 'Code\Api Boletos\Utils\Endpoints\uOthersEndpoints.pas', 38 | ViewCreateCharge in 'Code\Api Boletos\Utils\Views\Charges\ViewCreateCharge.pas' {ViewCreateCharge}, 39 | ViewCreateLinkCharge in 'Code\Api Boletos\Utils\Views\Charges\ViewCreateLinkCharge.pas' {ViewCreateLinkCharge}, 40 | ViewCreateChargeHistory in 'Code\Api Boletos\Utils\Views\Charges\ViewCreateChargeHistory.pas' {ViewCreateChargeHistory}, 41 | ViewDetailBillet in 'Code\Api Boletos\Utils\Views\Charges\ViewDetailBillet.pas' {ViewDetailBillet}, 42 | ViewUpdateMetadataCharge in 'Code\Api Boletos\Utils\Views\Charges\ViewUpdateMetadataCharge.pas' {ViewUpdateMetadataCharge}, 43 | ViewPayChargeBillet in 'Code\Api Boletos\Utils\Views\Charges\ViewPayChargeBillet.pas' {ViewPayChargeBillet}, 44 | ViewPayCreditCard in 'Code\Api Boletos\Utils\Views\Charges\ViewPayCreditCard.pas' {ViewPayCreditCard}, 45 | ViewUpdateLinkCharge in 'Code\Api Boletos\Utils\Views\Charges\ViewUpdateLinkCharge.pas' {ViewUpdateLinkCharge}, 46 | ViewResendBillet in 'Code\Api Boletos\Utils\Views\Charges\ViewResendBillet.pas' {ViewResendBillet}, 47 | ViewPixAccountConfig in 'Code\Api Pix\Utils\Views\ViewPixAccountConfig.pas' {ViewAccountConfig}, 48 | ViewPixConfigWebhook in 'Code\Api Pix\Utils\Views\ViewPixConfigWebhook.pas' {ViewConfigWebhook}, 49 | ViewPixCreateCharge in 'Code\Api Pix\Utils\Views\ViewPixCreateCharge.pas' {ViewPixCreateCharge}, 50 | ViewPixCreateImmediateCharge in 'Code\Api Pix\Utils\Views\ViewPixCreateImmediateCharge.pas' {ViewCreateImmediateCharge}, 51 | ViewPixDetail in 'Code\Api Pix\Utils\Views\ViewPixDetail.pas' {ViewDetail}, 52 | ViewPixDetailDevolution in 'Code\Api Pix\Utils\Views\ViewPixDetailDevolution.pas' {ViewPixDetailDevolution}, 53 | ViewPixDevolution in 'Code\Api Pix\Utils\Views\ViewPixDevolution.pas' {ViewPixDevolution}, 54 | ViewPixList in 'Code\Api Pix\Utils\Views\ViewPixList.pas' {ViewList}, 55 | ViewPixSend in 'Code\Api Pix\Utils\Views\ViewPixSend.pas' {ViewPixSend}, 56 | ViewPixUpdateCharge in 'Code\Api Pix\Utils\Views\ViewPixUpdateCharge.pas' {ViewUpdateCharge}, 57 | ViewCancelParcel in 'Code\Api Boletos\Utils\Views\Carnet\ViewCancelParcel.pas' {ViewCancelParcel}, 58 | ViewCreateCarnet in 'Code\Api Boletos\Utils\Views\Carnet\ViewCreateCarnet.pas' {ViewCreateCarnet}, 59 | ViewDetailCarnet in 'Code\Api Boletos\Utils\Views\Carnet\ViewDetailCarnet.pas' {ViewDetailCarnet}, 60 | ViewUpdateParcel in 'Code\Api Boletos\Utils\Views\Carnet\ViewUpdateParcel.pas' {ViewUpdateParcel}, 61 | ViewUpdateMetadataCarnet in 'Code\Api Boletos\Utils\Views\Carnet\ViewUpdateMetadataCarnet.pas' {ViewUpdateMetadataCarnet}, 62 | ViewResendParcel in 'Code\Api Boletos\Utils\Views\Carnet\ViewResendParcel.pas' {ViewResendParcel}, 63 | ViewResendCarnet in 'Code\Api Boletos\Utils\Views\Carnet\ViewResendCarnet.pas' {ViewResendCarnet}, 64 | ViewCreateCarnetHistory in 'Code\Api Boletos\Utils\Views\Carnet\ViewCreateCarnetHistory.pas' {ViewCreateCarnetHistory}, 65 | ViewSettleCarnetParcel in 'Code\Api Boletos\Utils\Views\Carnet\ViewSettleCarnetParcel.pas' {ViewSettleCarnetParcel}, 66 | ViewCreatePlan in 'Code\Api Boletos\Utils\Views\Plans\ViewCreatePlan.pas' {ViewCreatePlan}, 67 | ViewGetPlan in 'Code\Api Boletos\Utils\Views\Plans\ViewGetPlan.pas' {ViewGetPlan}, 68 | ViewUpdatePlan in 'Code\Api Boletos\Utils\Views\Plans\ViewUpdatePlan.pas' {ViewUpdatePlan}, 69 | ViewCreateSubscription in 'Code\Api Boletos\Utils\Views\Plans\ViewCreateSubscription.pas' {ViewCreateSubscription}, 70 | ViewCreatePlanHistory in 'Code\Api Boletos\Utils\Views\Plans\ViewCreatePlanHistory.pas' {ViewCreatePlanHistory}, 71 | ViewDetailPlan in 'Code\Api Boletos\Utils\Views\Plans\ViewDetailPlan.pas' {ViewDetailPlan}, 72 | ViewUpdateMetadataPlan in 'Code\Api Boletos\Utils\Views\Plans\ViewUpdateMetadataPlan.pas' {ViewUpdateMetadataPlan}, 73 | ViewDetailOthers in 'Code\Api Boletos\Utils\Views\Others\ViewDetailOthers.pas' {ViewDetailOthers}, 74 | ViewPayPlan in 'Code\Api Boletos\Utils\Views\Plans\ViewPayPlan.pas' {ViewPayPlan}, 75 | ViewPayPlanCreditCard in 'Code\Api Boletos\Utils\Views\Plans\ViewPayPlanCreditCard.pas' {ViewPayPlanCreditCard}, 76 | ViewPixIdDetail in 'Code\Api Pix\Utils\Views\ViewPixIdDetail.pas' {ViewPixIdDetail}, 77 | ViewPixKeyDetail in 'Code\Api Pix\Utils\Views\ViewPixKeyDetail.pas' {ViewPixKeyDetail}, 78 | ViewPixE2eidDetail in 'Code\Api Pix\Utils\Views\ViewPixE2eidDetail.pas' {ViewPixE2eidDetail}, 79 | ViewPayChargeBilletOneStep in 'Code\Api Boletos\Utils\Views\Charges\ViewPayChargeBilletOneStep.pas' {ViewPayChargeBilletOneStep}, 80 | ViewPayCreditCardOneStep in 'Code\Api Boletos\Utils\Views\Charges\ViewPayCreditCardOneStep.pas' {ViewPayCreditCardOneStep}; 81 | 82 | {$R *.res} 83 | 84 | begin 85 | Application.Initialize; 86 | {$IFDEF UNICODE} 87 | Application.MainFormOnTaskbar := True; 88 | {$ENDIF} 89 | Application.CreateForm(MainCode.TMainCode, frmCode); 90 | Application.Run; 91 | end. 92 | -------------------------------------------------------------------------------- /ApisGN.identcache: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/ApisGN.identcache -------------------------------------------------------------------------------- /ApisGN.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/ApisGN.res -------------------------------------------------------------------------------- /ApisGN_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/ApisGN_Icon.ico -------------------------------------------------------------------------------- /CHANGELOG.md: -------------------------------------------------------------------------------- 1 | # 4.0.1 2 | 3 | - Add: Correção nas datas de Expiração. 4 | 5 | # 4.0.0 6 | 7 | - Fix: Refatoração da SDK de Delphi 8 | - Add: Endpoints do Pix. 9 | 10 | # 3.1.0 11 | 12 | - Add: New endpoint (oneStep) 13 | 14 | # 3.0.0 15 | 16 | - Add: TLS 1.2 support 17 | 18 | # 2.0.0 19 | 20 | - Add: Proxy configurations and New endpoints (settleCharge and settleCarnetParcel) 21 | 22 | # 1.0.0 23 | 24 | - Initial release 25 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Classes/uBaseCustomerTransactionClasses.pas: -------------------------------------------------------------------------------- 1 | Unit uBaseCustomerTransactionClasses; 2 | 3 | interface 4 | {$IFDEF UNICODE} 5 | uses uCustomerClasses; 6 | 7 | Type 8 | 9 | TBaseCustomerTransaction = class 10 | strict private 11 | FInternalCustomer: TBaseCustomer; 12 | procedure SetInternalCustomer(const Value: TBaseCustomer); 13 | strict protected 14 | function GetCustomerClass: TCustomerClass; virtual;abstract; 15 | // To publish the right customer, just create a public property of the 16 | // type you need. 17 | property InternalCustomer: TBaseCustomer read FInternalCustomer write SetInternalCustomer; 18 | public 19 | constructor Create;virtual; 20 | destructor Destroy; override; 21 | end; 22 | {$ENDIF} 23 | implementation 24 | 25 | { TBaseCustomerTransaction } 26 | {$IFDEF UNICODE} 27 | constructor TBaseCustomerTransaction.Create; 28 | begin 29 | inherited Create; 30 | if Not( GetCustomerClass = nil ) then 31 | InternalCustomer := GetCustomerClass.Create; 32 | end; 33 | 34 | destructor TBaseCustomerTransaction.Destroy; 35 | begin 36 | InternalCustomer.Free; 37 | inherited; 38 | end; 39 | 40 | procedure TBaseCustomerTransaction.SetInternalCustomer( 41 | const Value: TBaseCustomer); 42 | begin 43 | FInternalCustomer := Value; 44 | end; 45 | {$ENDIF} 46 | end. 47 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Classes/uCarnetClasses.pas: -------------------------------------------------------------------------------- 1 | unit uCarnetClasses; 2 | 3 | interface 4 | 5 | {$IFDEF UNICODE} 6 | uses uChargeClasses, uCustomerClasses , XSuperObject, uPaymentClasses; 7 | 8 | Type 9 | 10 | TBaseCarnet = class( TBaseCharge ) 11 | public 12 | end; 13 | 14 | TCarnet = class( TBaseCarnet ) 15 | private 16 | FSplitItems: Boolean; 17 | FExpireAt: String; 18 | FRepeats: Integer; 19 | FMessage: String; 20 | FConfigurations: TConfiguration; 21 | procedure SetExpireAt(const Value: String); 22 | procedure SetMessage(const Value: String); 23 | procedure SetRepeats(const Value: Integer); 24 | procedure SetSplitItems(const Value: Boolean); 25 | procedure SetConfigurations(const Value: TConfiguration); 26 | public 27 | [Alias( 'expire_at' )] 28 | property ExpireAt: String read FExpireAt write SetExpireAt; 29 | [Alias( 'repeats' )] 30 | property Repeats: Integer read FRepeats write SetRepeats; 31 | [Alias('split_items')] 32 | property SplitItems: Boolean read FSplitItems write SetSplitItems; 33 | [Alias( 'message' )] 34 | property Message: String read FMessage write SetMessage; 35 | [Alias( 'configurations' )] 36 | property Configurations: TConfiguration read FConfigurations write SetConfigurations; 37 | end; 38 | 39 | TPrivateCarnet = class( TCarnet ) 40 | strict private 41 | FCustomer: TPrivateCustomer; 42 | public 43 | constructor Create( ItemCount : Integer ); override; 44 | destructor Destroy; override; 45 | [Alias( 'customer' ) ] 46 | property Customer : TPrivateCustomer read FCustomer; 47 | end; 48 | {$ENDIF} 49 | 50 | implementation 51 | 52 | {$IFDEF UNICODE} 53 | 54 | procedure TCarnet.SetConfigurations(const Value: TConfiguration); 55 | begin 56 | FConfigurations := Value; 57 | end; 58 | 59 | procedure TCarnet.SetExpireAt(const Value: String); 60 | begin 61 | FExpireAt := Value; 62 | end; 63 | 64 | procedure TCarnet.SetMessage(const Value: String); 65 | begin 66 | FMessage := Value; 67 | end; 68 | 69 | procedure TCarnet.SetRepeats(const Value: Integer); 70 | begin 71 | FRepeats := Value; 72 | end; 73 | 74 | procedure TCarnet.SetSplitItems(const Value: Boolean); 75 | begin 76 | FSplitItems := Value; 77 | end; 78 | 79 | { TPrivateCarnet } 80 | 81 | constructor TPrivateCarnet.Create( ItemCount : Integer ); 82 | begin 83 | inherited Create( ItemCount ); 84 | FCustomer := TPrivateCustomer.Create; 85 | end; 86 | 87 | destructor TPrivateCarnet.Destroy; 88 | begin 89 | FCustomer.Free; 90 | inherited; 91 | end; 92 | 93 | {$ENDIF} 94 | end. 95 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Classes/uChargeClasses.pas: -------------------------------------------------------------------------------- 1 | unit uChargeClasses; 2 | 3 | interface 4 | {$IFDEF UNICODE} 5 | uses uCommonTypes, XSuperObject; 6 | 7 | Type 8 | TMarketPlace = packed record 9 | [Alias('payee_code')] 10 | PayeeCode: String; 11 | [Alias('percentage')] 12 | Percentage: Integer; 13 | end; 14 | 15 | TItem = class 16 | private 17 | FName: String; 18 | FQuantity: Integer; 19 | FValue: Integer; 20 | procedure SetName(const Value: String); 21 | procedure SetQuantity(const Value: Integer); 22 | procedure SetValue(const Value: Integer); 23 | public 24 | [Alias('name')] 25 | property Name: String read FName write SetName; 26 | [Alias('value')] 27 | property Value: Integer read FValue write SetValue; 28 | [Alias('amount')] 29 | property Quantity: Integer read FQuantity write SetQuantity; 30 | end; 31 | 32 | TBaseCharge = class 33 | private 34 | FItems: TArray; 35 | procedure SetItems(const Value: TArray); 36 | public 37 | // When creating this class, we already know how many items will be in the 38 | // request, so we allocate enough space for all of them. 39 | constructor Create( ItemCount : Integer );reintroduce;virtual; 40 | destructor Destroy; override; 41 | [Alias('items')] 42 | property Items: TArray read FItems write SetItems; 43 | end; 44 | 45 | TChargeClass = class of TBaseCharge; 46 | 47 | TLinkCharge = class 48 | public 49 | [Alias('billet_discount')] BilletDiscount: String; 50 | [Alias('card_discount')] CardDiscount: String; 51 | [Alias('message')] Message: String; 52 | [Alias('expire_at')] ExpireAt: String; 53 | [Alias('request_delivery_address')] RequestDeliveryAddress: Boolean; 54 | [Alias('payment_method')] PaymentMethod: String; 55 | end; 56 | 57 | TPlan = class 58 | private 59 | public 60 | [Alias('name')] Name: String ; 61 | [Alias('interval')] Interval: Integer; 62 | [Alias('repeats')] Repeats: Integer; 63 | end; 64 | 65 | TCreditCardData = class 66 | [Alias('brand')] brand: String ; 67 | [Alias('number')] number: String ; 68 | [Alias('cvv')] cvv: String; 69 | [Alias('expiration_month')] expiration_month: String; 70 | [Alias('expiration_year')] expiration_year: String; 71 | end; 72 | 73 | {$ENDIF} 74 | implementation 75 | 76 | { TItem } 77 | {$IFDEF UNICODE} 78 | procedure TItem.SetName(const Value: String); 79 | begin 80 | FName := Value; 81 | end; 82 | 83 | procedure TItem.SetQuantity(const Value: Integer); 84 | begin 85 | FQuantity := Value; 86 | end; 87 | 88 | procedure TItem.SetValue(const Value: Integer); 89 | begin 90 | FValue := Value; 91 | end; 92 | 93 | constructor TBaseCharge.Create(ItemCount: Integer); 94 | var Item : TItem; 95 | Index: Integer; 96 | begin 97 | inherited Create; 98 | SetLength( FItems,ItemCount ); 99 | for Index := 0 to ItemCount - 1 do 100 | begin 101 | Item := TItem.Create; 102 | FItems[ Index ] := Item; 103 | end; 104 | end; 105 | 106 | destructor TBaseCharge.Destroy; 107 | var Item: TItem; 108 | begin 109 | for Item in FItems do 110 | begin 111 | Item.Free; 112 | end; 113 | SetLength( FItems,0 ); 114 | inherited; 115 | end; 116 | 117 | procedure TBaseCharge.SetItems(const Value: TArray); 118 | begin 119 | FItems := Value; 120 | end; 121 | {$ENDIF} 122 | 123 | end. 124 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Classes/uCommonTypes.pas: -------------------------------------------------------------------------------- 1 | unit uCommonTypes; 2 | 3 | interface 4 | {$IFDEF UNICODE} 5 | uses XSuperObject, XSuperJSON; 6 | 7 | type 8 | TShipping = class 9 | private 10 | FName: string; 11 | FValue: Integer; 12 | FPayeeCode: string; 13 | procedure SetName(const Value: string); 14 | procedure SetPayeeCode(const Value: string); 15 | procedure SetValue(const Value: Integer); 16 | public 17 | [Alias('name')] 18 | property Name: string read FName write SetName; 19 | [Alias('value')] 20 | property Value: Integer read FValue write SetValue; 21 | [Alias('payee_code')] 22 | property PayeeCode: string read FPayeeCode write SetPayeeCode; 23 | end; 24 | 25 | TAddress = record 26 | [Alias('street')] 27 | Street: string; 28 | [Alias('number')] 29 | Number: string; 30 | [Alias('neighborhood')] 31 | Neighborhood: string; 32 | [Alias('complement')] 33 | Complement: string; 34 | [Alias('city')] 35 | City: string; 36 | [Alias('state')] 37 | State: string; 38 | [Alias('zipcode')] 39 | ZipCode: string; 40 | end; 41 | 42 | TMetadata = class 43 | private 44 | FNotificationURL: string; 45 | FCustomID: string; 46 | procedure SetCustomID(const Value: string); 47 | procedure SetNotificationURL(const Value: string); 48 | public 49 | [Alias('custom_id')] 50 | property CustomID: string read FCustomID write SetCustomID; 51 | [Alias('notification_url')] 52 | property NotificationURL: string read FNotificationURL 53 | write SetNotificationURL; 54 | end; 55 | 56 | TDiscount = record 57 | [Alias('discount_type')] 58 | DiscountType: string; 59 | [Alias('value')] 60 | Value: Integer; 61 | end; 62 | 63 | TGerenciaResponse = class 64 | public 65 | class function ExtractObject( AJson: String;ObjectID: String ) : String; 66 | class function NormalizeDate( ADate: TDateTime ) : String;overload; 67 | class function NormalizeDate( AYear, AMonth, ADay : Word ) : String;overload; 68 | class function NormalizeBoolean( ABoolean : Boolean ) : String; 69 | end; 70 | {$ENDIF} 71 | implementation 72 | 73 | uses SysUtils; 74 | {$IFDEF UNICODE} 75 | procedure TShipping.SetName(const Value: string); 76 | begin 77 | FName := Value; 78 | end; 79 | 80 | procedure TShipping.SetPayeeCode(const Value: string); 81 | begin 82 | FPayeeCode := Value; 83 | end; 84 | 85 | procedure TShipping.SetValue(const Value: Integer); 86 | begin 87 | FValue := Value; 88 | end; 89 | 90 | procedure TMetadata.SetCustomID(const Value: string); 91 | begin 92 | FCustomID := Value; 93 | end; 94 | 95 | procedure TMetadata.SetNotificationURL(const Value: string); 96 | begin 97 | FNotificationURL := Value; 98 | end; 99 | 100 | { TGerenciaResponse } 101 | 102 | class function TGerenciaResponse.ExtractObject(AJson, ObjectID: String): String; 103 | var JsonObject : ISuperObject; 104 | begin 105 | JsonObject := SO( AJson ); 106 | Result := JsonObject.O[ ObjectID ].AsJSON; 107 | end; 108 | 109 | class function TGerenciaResponse.NormalizeDate(ADate: TDateTime): String; 110 | begin 111 | Result := FormatDateTime( 'yyyy-mm-dd',ADate ); 112 | end; 113 | 114 | class function TGerenciaResponse.NormalizeBoolean(ABoolean: Boolean): String; 115 | begin 116 | Result := LowerCase( BoolToStr( ABoolean,True ) ); 117 | end; 118 | 119 | class function TGerenciaResponse.NormalizeDate(AYear, AMonth, 120 | ADay: Word): String; 121 | begin 122 | Result := NormalizeDate( EncodeDate( AYear,AMonth, ADay ) ); 123 | end; 124 | {$ENDIF} 125 | end. 126 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Classes/uConnections.pas: -------------------------------------------------------------------------------- 1 | unit uConnections; 2 | 3 | interface 4 | 5 | Uses Classes, XSuperObject, IdHTTP, Vcl.Controls,Vcl.ExtDlgs, System.SysUtils, 6 | IdServerIOHandler, IdSSL, IdSSLOpenSSL, IdIOHandler, IdIOHandlerSocket, 7 | IdIOHandlerStack, idLogFile, IdGlobal, MainEmissions; 8 | 9 | function OauthToken: iSuperObject; 10 | function SetupClient: TIdHTTP; 11 | 12 | implementation 13 | 14 | threadvar 15 | HttpClient: TIdHTTP; 16 | JsonToSend: TMemoryStream; 17 | {$IFDEF DEBUG} 18 | HttpLog: TIdLogFile; 19 | {$ENDIF} 20 | 21 | { TConnections } 22 | 23 | function OauthToken : iSuperObject ; 24 | Const 25 | Body = '{"grant_type": "client_credentials"}'; 26 | var 27 | sResponse : String; 28 | begin 29 | 30 | HttpClient := SetupClient; 31 | 32 | HttpClient.Request.Username := MainEmissions.frmBoletos.ClientID; 33 | HttpClient.Request.Password := MainEmissions.frmBoletos.ClientSecret; 34 | 35 | HttpClient.Request.BasicAuthentication := True; 36 | 37 | JsonToSend := TMemoryStream.Create; 38 | WriteStringToStream(JsonToSend, Body, IndyTextEncoding_UTF8); 39 | JsonToSend.Position := 0; 40 | 41 | sResponse := HttpClient.Post(MainEmissions.frmBoletos.Enviroment +'/v1/authorize',JsonToSend); 42 | 43 | Result := SO(sResponse); 44 | 45 | end; 46 | 47 | function SetupClient: TIdHTTP; 48 | begin 49 | Result := TIdHTTP.Create( nil ); 50 | Result.ConnectTimeout := 20000; 51 | Result.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); 52 | 53 | with TIdSSLIOHandlerSocketOpenSSL(Result.IOHandler).SSLOptions do 54 | begin 55 | Mode := sslmUnassigned; 56 | SSLVersions := [sslvTLSv1_2]; 57 | end; 58 | 59 | with Result do 60 | begin 61 | Request.CustomHeaders.Values['Content-Type'] := 'application/json; application/x-www-form-urlencoded;'; 62 | Request.ContentType := 'application/json'; 63 | Request.CharSet := 'utf-8'; 64 | Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Acoo Browser; GTB5; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; Maxthon; InfoPath.1; .NET CLR 3.5.30729; .NET CLR 3.0.30618)'; 65 | HandleRedirects := True; 66 | HTTPOptions := [hoKeepOrigProtocol, hoInProcessAuth]; 67 | end; 68 | 69 | {$IFDEF DEBUG} 70 | Result.Intercept := HttpLog; 71 | {$ENDIF} 72 | end; 73 | 74 | 75 | end. 76 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Classes/uCustomerClasses.pas: -------------------------------------------------------------------------------- 1 | unit uCustomerClasses; 2 | 3 | interface 4 | {$IFDEF UNICODE} 5 | uses ucommontypes , xSuperObject, xSuperJSON; 6 | 7 | Type 8 | 9 | TBaseCustomer = class 10 | private 11 | FName: String; 12 | FCPF: String; 13 | procedure SetCPF(const Value: String); 14 | procedure SetName(const Value: String); 15 | public 16 | [Alias('name')] 17 | property Name: String read FName write SetName; 18 | [Alias('cpf')] 19 | property CPF: String read FCPF write SetCPF; 20 | end; 21 | 22 | TCustomerClass = class of TBaseCustomer; 23 | 24 | TPrivateCustomer = class( TBaseCustomer ) 25 | private 26 | FPhoneNumber: String; 27 | FEmail: String; 28 | FAddress: TAddress; 29 | FBirth: String; 30 | procedure SetAddress(const Value: TAddress); 31 | procedure SetBirth(const Value: String); 32 | procedure SetEmail(const Value: String); 33 | procedure SetPhoneNumber(const Value: String); 34 | public 35 | [Alias('email')] 36 | property Email: String read FEmail write SetEmail; 37 | [Alias('phone_number')] 38 | property PhoneNumber: String read FPhoneNumber write SetPhoneNumber; 39 | [Alias('birth')] 40 | property Birth: String read FBirth write SetBirth; 41 | [Alias('address')] 42 | property Address: TAddress read FAddress write SetAddress; 43 | end; 44 | 45 | TPrivateCustomerCreditCard = class( TBaseCustomer ) 46 | private 47 | FPhoneNumber: String; 48 | FEmail: String; 49 | FBirth: String; 50 | procedure SetBirth(const Value: String); 51 | procedure SetEmail(const Value: String); 52 | procedure SetPhoneNumber(const Value: String); 53 | public 54 | [Alias('email')] 55 | property Email: String read FEmail write SetEmail; 56 | [Alias('phone_number')] 57 | property PhoneNumber: String read FPhoneNumber write SetPhoneNumber; 58 | [Alias('birth')] 59 | property Birth: String read FBirth write SetBirth; 60 | end; 61 | 62 | TJuridicalPerson = record 63 | [Alias('corporate_name')] 64 | CorporateName: String; 65 | [Alias('cnpj')] 66 | CNPJ: String; 67 | end; 68 | 69 | TCorporateCustomer = class( TBaseCustomer ) 70 | private 71 | FJuridical_Person: TJuridicalPerson; 72 | procedure SetJuridical_Person(const Value: TJuridicalPerson); 73 | public 74 | [Alias('juridical_person')] 75 | property Juridical_Person: TJuridicalPerson read FJuridical_Person write SetJuridical_Person; 76 | end; 77 | 78 | {$ENDIF} 79 | implementation 80 | 81 | { TBaseCustomer } 82 | {$IFDEF UNICODE} 83 | procedure TBaseCustomer.SetCPF(const Value: String); 84 | begin 85 | FCPF := Value; 86 | end; 87 | 88 | procedure TBaseCustomer.SetName(const Value: String); 89 | begin 90 | FName := Value; 91 | end; 92 | 93 | { TPrivateCustomer } 94 | 95 | procedure TPrivateCustomer.SetAddress(const Value: TAddress); 96 | begin 97 | FAddress := Value; 98 | end; 99 | 100 | procedure TPrivateCustomer.SetBirth(const Value: String); 101 | begin 102 | FBirth := Value; 103 | end; 104 | 105 | procedure TPrivateCustomer.SetEmail(const Value: String); 106 | begin 107 | FEmail := Value; 108 | end; 109 | 110 | procedure TPrivateCustomer.SetPhoneNumber(const Value: String); 111 | begin 112 | FPhoneNumber := Value; 113 | end; 114 | 115 | { TCorporateCustomer } 116 | 117 | procedure TCorporateCustomer.SetJuridical_Person(const Value: TJuridicalPerson); 118 | begin 119 | FJuridical_Person := Value; 120 | end; 121 | {$ENDIF} 122 | { TPrivateCustomerCreditCard } 123 | 124 | procedure TPrivateCustomerCreditCard.SetBirth(const Value: String); 125 | begin 126 | FBirth := Value; 127 | end; 128 | 129 | procedure TPrivateCustomerCreditCard.SetEmail(const Value: String); 130 | begin 131 | FEmail := Value; 132 | end; 133 | 134 | procedure TPrivateCustomerCreditCard.SetPhoneNumber(const Value: String); 135 | begin 136 | FPhoneNumber := Value; 137 | end; 138 | 139 | end. 140 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Classes/uPaymentClasses.pas: -------------------------------------------------------------------------------- 1 | unit uPaymentClasses; 2 | 3 | interface 4 | 5 | uses uCustomerClasses, uCommonTypes, uBaseCustomerTransactionClasses {$IFDEF UNICODE}, 6 | XSuperObject{$ENDIF}; 7 | 8 | {$IFDEF UNICODE} 9 | Type 10 | 11 | TBasePayment = class( TBaseCustomerTransaction ) 12 | end; 13 | 14 | TPaymentClass = class of TBasePayment; 15 | 16 | // Unfortunately, the JSON data packet does not provide a "payment_type" sort of 17 | // thing, so basically each payment must directly have an appropriate property 18 | // which represents the payment type that we want. Thus, we'll do the same 19 | // sort of thing we did with the customer. 20 | TBasePaymentType = class 21 | private 22 | FInternalPaymentType: TBasePayment; 23 | procedure SetInternalPaymentType(const Value: TBasePayment); 24 | strict protected 25 | function GetPaymentType: TPaymentClass;virtual;abstract; 26 | property InternalPaymentType : TBasePayment read FInternalPaymentType write SetInternalPaymentType; 27 | public 28 | constructor Create;virtual; 29 | destructor Destroy; override; 30 | end; 31 | 32 | TConfiguration = record 33 | [Alias('fine')] 34 | Fine: Integer; 35 | [Alias('interest')] 36 | Interest: Integer; 37 | end; 38 | 39 | TCardData = record 40 | [Alias('brand')] 41 | Brand: String; 42 | [Alias('number')] 43 | Number: String; 44 | CVV: String; 45 | [Alias('expiration_month')] 46 | ExpirationMonth: String; 47 | [Alias('expiration_year')] 48 | ExpirationYear: String; 49 | [Alias('salt')] 50 | Salt: String; 51 | end; 52 | 53 | TCreditCard = class( TBasePayment ) 54 | private 55 | FBilling_Address: TAddress; 56 | procedure SetBilling_Address(const Value: TAddress); 57 | public 58 | [Alias('billing_address')] 59 | property BillingAddress: TAddress read FBilling_Address write SetBilling_Address; 60 | end; 61 | 62 | TBankBillet = class( TBasePayment ) 63 | private 64 | FExpireAt: String; 65 | procedure SetExpireAt(const Value: String); 66 | public 67 | [Alias('expire_at')] 68 | property ExpireAt: String read FExpireAt write SetExpireAt; 69 | end; 70 | 71 | TBankBilletPrivateCustomer = class( TBankBillet ) 72 | private 73 | FMessage: String; 74 | FConfigurations: TConfiguration; 75 | function GetCustomer: TPrivateCustomer; 76 | procedure SetCustomer(const Value: TPrivateCustomer); 77 | procedure SetMessage(const Value: String); 78 | procedure SetConfigurations(const Value: TConfiguration); 79 | strict protected 80 | function GetCustomerClass: TCustomerClass; override; 81 | public 82 | [Alias('customer')] 83 | property Customer : TPrivateCustomer read GetCustomer write SetCustomer; 84 | [Alias('message')] 85 | property Message: String read FMessage write SetMessage; 86 | [Alias( 'configurations' )] 87 | property Configurations: TConfiguration read FConfigurations write SetConfigurations; 88 | end; 89 | 90 | TCreditCardPrivateCustomer = class( TCreditCard ) 91 | private 92 | FPaymentToken: String; 93 | FInstallments: Integer; 94 | function GetCustomer: TPrivateCustomerCreditCard; 95 | procedure SetCustomer(const Value: TPrivateCustomerCreditCard); 96 | procedure SetPaymentToken(const Value: String); 97 | procedure SetInstallments(const Value: Integer); 98 | strict protected 99 | function GetCustomerClass: TCustomerClass; override; 100 | public 101 | [Alias('customer')] 102 | property Customer : TPrivateCustomerCreditCard read GetCustomer write SetCustomer; 103 | [Alias('payment_token')] 104 | property PaymentToken: String read FPaymentToken write SetPaymentToken; 105 | [Alias('installments')] 106 | property Installments: Integer read FInstallments write SetInstallments; 107 | end; 108 | 109 | TCreditCardPayment = class( TBasePaymentType ) 110 | private 111 | procedure SetCreditCard(const Value: TCreditCardPrivateCustomer); 112 | function GetCreditCard: TCreditCardPrivateCustomer; 113 | strict protected 114 | function GetPaymentType: TPaymentClass; override; 115 | public 116 | [Alias('credit_card')] 117 | property CreditCard: TCreditCardPrivateCustomer read GetCreditCard write SetCreditCard; 118 | end; 119 | 120 | TBankBilletCorporate = class( TBankBillet ) 121 | private 122 | function GetCustomer: TCorporateCustomer; 123 | procedure SetCustomer(const Value: TCorporateCustomer); 124 | strict protected 125 | function GetCustomerClass: TCustomerClass; override; 126 | public 127 | [Alias('customer')] 128 | property Customer: TCorporateCustomer read GetCustomer write SetCustomer; 129 | end; 130 | 131 | TBilletPaymentPrivate = class( TBasePaymentType ) 132 | private 133 | procedure SetBillet(const Value: TBankBilletPrivateCustomer); 134 | function GetBillet: TBankBilletPrivateCustomer; 135 | strict protected 136 | function GetPaymentType: TPaymentClass; override; 137 | public 138 | [Alias('banking_billet')] 139 | property Billet: TBankBilletPrivateCustomer read GetBillet write SetBillet; 140 | end; 141 | 142 | TBilletPaymentCorporate = class( TBasePaymentType ) 143 | private 144 | function GetBillet: TBankBilletCorporate; 145 | procedure SetBillet(const Value: TBankBilletCorporate); 146 | strict protected 147 | function GetPaymentType: TPaymentClass; override; 148 | public 149 | [Alias('bank_billet')] 150 | property Billet: TBankBilletCorporate read GetBillet write SetBillet; 151 | end; 152 | 153 | TPaymentBase = class 154 | private 155 | FPayment: TPayment; 156 | procedure SetPayment(const Value: TPayment); 157 | public 158 | constructor Create; 159 | destructor Destroy;override; 160 | [Alias('payment')] 161 | property Payment : TPayment read FPayment write SetPayment; 162 | end; 163 | 164 | TPrivateCreditCardPayment = class (TPaymentBase) 165 | end; 166 | 167 | TPrivateBankBilletPayment = class( TPaymentBase) 168 | end; 169 | 170 | TCorporateBankBilletPayment = class( TPaymentBase) 171 | end; 172 | 173 | {$ENDIF} 174 | implementation 175 | {$IFDEF UNICODE} 176 | { TBasePaymentType } 177 | 178 | constructor TBasePaymentType.Create; 179 | begin 180 | inherited Create; 181 | FInternalPaymentType := GetPaymentType.Create; 182 | end; 183 | 184 | destructor TBasePaymentType.Destroy; 185 | begin 186 | FInternalPaymentType.Free; 187 | inherited; 188 | end; 189 | 190 | procedure TBasePaymentType.SetInternalPaymentType(const Value: TBasePayment); 191 | begin 192 | FInternalPaymentType := Value; 193 | end; 194 | 195 | { TCreditCard } 196 | 197 | procedure TCreditCard.SetBilling_Address(const Value: TAddress); 198 | begin 199 | FBilling_Address := Value; 200 | end; 201 | 202 | { TBankBillet } 203 | 204 | procedure TBankBillet.SetExpireAt(const Value: String); 205 | begin 206 | FExpireAt := Value; 207 | end; 208 | 209 | { TBankBilletPrivateCustomer } 210 | 211 | function TBankBilletPrivateCustomer.GetCustomer: TPrivateCustomer; 212 | begin 213 | Result := TPrivateCustomer( InternalCustomer ); 214 | end; 215 | 216 | function TBankBilletPrivateCustomer.GetCustomerClass: TCustomerClass; 217 | begin 218 | Result := TPrivateCustomer; 219 | end; 220 | 221 | procedure TBankBilletPrivateCustomer.SetConfigurations( 222 | const Value: TConfiguration); 223 | begin 224 | FConfigurations := Value; 225 | end; 226 | 227 | procedure TBankBilletPrivateCustomer.SetCustomer(const Value: TPrivateCustomer); 228 | begin 229 | InternalCustomer := Value; 230 | end; 231 | 232 | procedure TBankBilletPrivateCustomer.SetMessage(const Value: String); 233 | begin 234 | FMessage := Value; 235 | end; 236 | 237 | { TBankBilletCorporate } 238 | 239 | function TBankBilletCorporate.GetCustomer: TCorporateCustomer; 240 | begin 241 | Result := TCorporateCustomer( InternalCustomer ); 242 | end; 243 | 244 | function TBankBilletCorporate.GetCustomerClass: TCustomerClass; 245 | begin 246 | Result := TCorporateCustomer; 247 | end; 248 | 249 | procedure TBankBilletCorporate.SetCustomer(const Value: TCorporateCustomer); 250 | begin 251 | InternalCustomer := Value; 252 | end; 253 | 254 | { TBilletPaymentPrivate } 255 | 256 | function TBilletPaymentPrivate.GetBillet: TBankBilletPrivateCustomer; 257 | begin 258 | Result := TBankBilletPrivateCustomer( InternalPaymentType ); 259 | end; 260 | 261 | function TBilletPaymentPrivate.GetPaymentType: TPaymentClass; 262 | begin 263 | Result := TBankBilletPrivateCustomer; 264 | end; 265 | 266 | procedure TBilletPaymentPrivate.SetBillet( 267 | const Value: TBankBilletPrivateCustomer); 268 | begin 269 | InternalPaymentType := Value; 270 | end; 271 | 272 | { TBilletPaymentCorporate } 273 | 274 | function TBilletPaymentCorporate.GetBillet: TBankBilletCorporate; 275 | begin 276 | Result := TBankBilletCorporate( InternalPaymentType ); 277 | end; 278 | 279 | function TBilletPaymentCorporate.GetPaymentType: TPaymentClass; 280 | begin 281 | Result := TBankBilletCorporate; 282 | end; 283 | 284 | procedure TBilletPaymentCorporate.SetBillet(const Value: TBankBilletCorporate); 285 | begin 286 | InternalPaymentType := Value; 287 | end; 288 | 289 | { TPaymentBase } 290 | 291 | constructor TPaymentBase.Create; 292 | begin 293 | inherited Create; 294 | FPayment := TPayment.Create; 295 | end; 296 | 297 | destructor TPaymentBase.Destroy; 298 | begin 299 | FPayment.Free; 300 | inherited; 301 | end; 302 | 303 | procedure TPaymentBase.SetPayment(const Value: TPayment); 304 | begin 305 | FPayment := Value; 306 | end; 307 | 308 | { TCreditCardPrivateCustomer } 309 | 310 | function TCreditCardPrivateCustomer.GetCustomer: TPrivateCustomerCreditCard; 311 | begin 312 | Result := TPrivateCustomerCreditCard( InternalCustomer ); 313 | end; 314 | 315 | function TCreditCardPrivateCustomer.GetCustomerClass: TCustomerClass; 316 | begin 317 | Result := TPrivateCustomerCreditCard; 318 | end; 319 | 320 | procedure TCreditCardPrivateCustomer.SetCustomer(const Value: TPrivateCustomerCreditCard); 321 | begin 322 | InternalCustomer := Value; 323 | end; 324 | 325 | procedure TCreditCardPrivateCustomer.SetInstallments(const Value: Integer); 326 | begin 327 | FInstallments := Value; 328 | end; 329 | 330 | procedure TCreditCardPrivateCustomer.SetPaymentToken(const Value: String); 331 | begin 332 | FPaymentToken := Value; 333 | end; 334 | 335 | {$ENDIF} 336 | 337 | { TCreditCardPayment } 338 | 339 | function TCreditCardPayment.GetCreditCard: TCreditCardPrivateCustomer; 340 | begin 341 | Result := TCreditCardPrivateCustomer( InternalPaymentType ); 342 | end; 343 | 344 | function TCreditCardPayment.GetPaymentType: TPaymentClass; 345 | begin 346 | Result := TCreditCardPrivateCustomer; 347 | end; 348 | 349 | procedure TCreditCardPayment.SetCreditCard( 350 | const Value: TCreditCardPrivateCustomer); 351 | begin 352 | InternalPaymentType := Value; 353 | end; 354 | 355 | end. 356 | 357 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Classes/uPaymentTokenClasses.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Classes/uPaymentTokenClasses.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Endpoints/uAuthenticationEndpoints.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Endpoints/uAuthenticationEndpoints.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Endpoints/uCarnetEndpoints.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Endpoints/uCarnetEndpoints.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Endpoints/uChargesEndpoints.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Endpoints/uChargesEndpoints.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Endpoints/uOthersEndpoints.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Endpoints/uOthersEndpoints.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Endpoints/uPlansEndpoints.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Endpoints/uPlansEndpoints.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewCancelParcel.dfm: -------------------------------------------------------------------------------- 1 | object ViewCancelParcel: TViewCancelParcel 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground Carn'#234's - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 26 28 | Width = 122 29 | Height = 13 30 | Caption = '*Identificador - carnet_id' 31 | end 32 | object Label3: TLabel 33 | Left = 6 34 | Top = 65 35 | Width = 41 36 | Height = 13 37 | Caption = '*Parcela' 38 | end 39 | object txtIdent: TEdit 40 | Left = 6 41 | Top = 41 42 | Width = 569 43 | Height = 21 44 | TabOrder = 0 45 | end 46 | object btnCancelRequest: TButton 47 | Left = 6 48 | Top = 107 49 | Width = 280 50 | Height = 33 51 | Caption = 'Cancelar a Requisi'#231#227'o' 52 | TabOrder = 3 53 | OnClick = btnCancelRequestClick 54 | end 55 | object btnConfirmRequest: TButton 56 | Left = 290 57 | Top = 107 58 | Width = 285 59 | Height = 33 60 | Caption = 'Confirmar a Requisi'#231#227'o' 61 | TabOrder = 2 62 | OnClick = btnConfirmRequestClick 63 | end 64 | object txtParcel: TEdit 65 | Left = 6 66 | Top = 80 67 | Width = 569 68 | Height = 21 69 | TabOrder = 1 70 | end 71 | end 72 | end 73 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewCancelParcel.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Carnet/ViewCancelParcel.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewCreateCarnet.dfm: -------------------------------------------------------------------------------- 1 | object ViewCreateCarnet: TViewCreateCarnet 2 | Left = 314 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 331 6 | ClientWidth = 634 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Position = poDesigned 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object gbDevedor: TGroupBox 19 | Left = 0 20 | Top = 0 21 | Width = 634 22 | Height = 331 23 | Align = alClient 24 | Caption = 'Dados do Body - *Campos Obrigat'#243'rios' 25 | TabOrder = 0 26 | object Label12: TLabel 27 | Left = 10 28 | Top = 199 29 | Width = 146 30 | Height = 13 31 | Caption = '*Vencimento - Ex. 2025-12-30' 32 | end 33 | object Label4: TLabel 34 | Left = 127 35 | Top = 176 36 | Width = 81 37 | Height = 13 38 | Caption = '*Parcelas - Ex. 6' 39 | end 40 | object btnCancelRequest: TButton 41 | Left = 3 42 | Top = 296 43 | Width = 305 44 | Height = 32 45 | Caption = 'Cancelar a Requisi'#231#227'o' 46 | TabOrder = 9 47 | OnClick = btnCancelRequestClick 48 | end 49 | object btnConfirmRequest: TButton 50 | Left = 314 51 | Top = 296 52 | Width = 316 53 | Height = 32 54 | Caption = 'Confirmar a Requisi'#231#227'o' 55 | TabOrder = 8 56 | OnClick = btnConfirmRequestClick 57 | end 58 | object GroupBox3: TGroupBox 59 | Left = 314 60 | Top = 11 61 | Width = 316 62 | Height = 139 63 | Caption = '*Cliente' 64 | TabOrder = 1 65 | object Label1: TLabel 66 | Left = 9 67 | Top = 67 68 | Width = 134 69 | Height = 13 70 | Caption = 'E-mail - email@servidor.com' 71 | end 72 | object Label6: TLabel 73 | Left = 9 74 | Top = 43 75 | Width = 120 76 | Height = 13 77 | Caption = '*CPF - Ex. 94271564656' 78 | end 79 | object Label7: TLabel 80 | Left = 3 81 | Top = 17 82 | Width = 152 83 | Height = 13 84 | Caption = '*Nome - Ex. Gorbadoc Oldbuck ' 85 | end 86 | object Label8: TLabel 87 | Left = 9 88 | Top = 91 89 | Width = 118 90 | Height = 13 91 | Caption = '*Telefone - 5144916523' 92 | end 93 | object Label18: TLabel 94 | Left = 9 95 | Top = 116 96 | Width = 118 97 | Height = 13 98 | Caption = 'Nascimento -1990-08-29' 99 | end 100 | object txtNameCli: TEdit 101 | Left = 161 102 | Top = 14 103 | Width = 152 104 | Height = 21 105 | TabOrder = 0 106 | end 107 | object txtCPF: TEdit 108 | Left = 135 109 | Top = 40 110 | Width = 178 111 | Height = 21 112 | TabOrder = 1 113 | end 114 | object txtEmail: TEdit 115 | Left = 144 116 | Top = 64 117 | Width = 170 118 | Height = 21 119 | TabOrder = 2 120 | end 121 | object txtPhone: TEdit 122 | Left = 133 123 | Top = 88 124 | Width = 180 125 | Height = 21 126 | TabOrder = 3 127 | end 128 | object txtBirth: TEdit 129 | Left = 133 130 | Top = 113 131 | Width = 180 132 | Height = 21 133 | TabOrder = 4 134 | end 135 | end 136 | object GroupBox1: TGroupBox 137 | Left = 5 138 | Top = 11 139 | Width = 303 140 | Height = 96 141 | Caption = '*Items' 142 | TabOrder = 0 143 | object Label2: TLabel 144 | Left = 7 145 | Top = 17 146 | Width = 123 147 | Height = 13 148 | Caption = '*Nome - Ex. Meu Produto' 149 | end 150 | object Label5: TLabel 151 | Left = 7 152 | Top = 41 153 | Width = 83 154 | Height = 13 155 | Caption = '*Valor - Ex. 8900' 156 | end 157 | object Label3: TLabel 158 | Left = 7 159 | Top = 65 160 | Width = 97 161 | Height = 13 162 | Caption = '*Quantidade - Ex. 2' 163 | end 164 | object txtAmount: TEdit 165 | Left = 110 166 | Top = 62 167 | Width = 189 168 | Height = 21 169 | TabOrder = 2 170 | end 171 | object txtValue: TEdit 172 | Left = 96 173 | Top = 38 174 | Width = 203 175 | Height = 21 176 | TabOrder = 1 177 | end 178 | object txtName: TEdit 179 | Left = 136 180 | Top = 14 181 | Width = 163 182 | Height = 21 183 | TabOrder = 0 184 | end 185 | end 186 | object txtExpire: TEdit 187 | Left = 163 188 | Top = 196 189 | Width = 145 190 | Height = 21 191 | TabOrder = 4 192 | end 193 | object GroupBox4: TGroupBox 194 | Left = 5 195 | Top = 107 196 | Width = 303 197 | Height = 63 198 | Caption = 'Configura'#231#245'es' 199 | TabOrder = 2 200 | object Label13: TLabel 201 | Left = 9 202 | Top = 18 203 | Width = 99 204 | Height = 13 205 | Caption = 'Valor - Ex. 200 (2%)' 206 | end 207 | object Label14: TLabel 208 | Left = 9 209 | Top = 41 210 | Width = 184 211 | Height = 13 212 | Caption = 'Valor do Juros / Dia - Ex. 33 (0,033%)' 213 | end 214 | object txtFine: TEdit 215 | Left = 113 216 | Top = 15 217 | Width = 187 218 | Height = 21 219 | TabOrder = 0 220 | end 221 | object txtInterest: TEdit 222 | Left = 198 223 | Top = 38 224 | Width = 102 225 | Height = 21 226 | TabOrder = 1 227 | end 228 | end 229 | object GroupBox5: TGroupBox 230 | Left = 3 231 | Top = 219 232 | Width = 305 233 | Height = 72 234 | Caption = 'Mensagem' 235 | TabOrder = 6 236 | object txtMessage: TMemo 237 | Left = 8 238 | Top = 15 239 | Width = 293 240 | Height = 51 241 | Lines.Strings = ( 242 | 'Memo1') 243 | TabOrder = 0 244 | end 245 | end 246 | object txtRepeats: TEdit 247 | Left = 214 248 | Top = 173 249 | Width = 94 250 | Height = 21 251 | TabOrder = 5 252 | end 253 | object txtSplitItems: TCheckBox 254 | Left = 12 255 | Top = 175 256 | Width = 101 257 | Height = 17 258 | Caption = 'Itens Divididos ?' 259 | TabOrder = 3 260 | end 261 | object GroupBox2: TGroupBox 262 | Left = 314 263 | Top = 150 264 | Width = 316 265 | Height = 141 266 | Caption = 'Endere'#231'o' 267 | TabOrder = 7 268 | object Label9: TLabel 269 | Left = 4 270 | Top = 19 271 | Width = 133 272 | Height = 13 273 | Caption = 'Rua - Ex. Avenida Juscelino' 274 | end 275 | object Label20: TLabel 276 | Left = 139 277 | Top = 42 278 | Width = 112 279 | Height = 13 280 | Caption = 'Cidade- Ex. Ouro Preto' 281 | end 282 | object Label21: TLabel 283 | Left = 4 284 | Top = 41 285 | Width = 84 286 | Height = 13 287 | Caption = 'Numero - Ex. 909' 288 | end 289 | object Label22: TLabel 290 | Left = 4 291 | Top = 67 292 | Width = 93 293 | Height = 13 294 | Caption = 'Bairro - Ex. Bauxita' 295 | end 296 | object Label23: TLabel 297 | Left = 4 298 | Top = 91 299 | Width = 96 300 | Height = 13 301 | Caption = 'CEP - Ex. 35400000' 302 | end 303 | object Label24: TLabel 304 | Left = 186 305 | Top = 91 306 | Width = 77 307 | Height = 13 308 | Caption = 'Estado - Ex. MG' 309 | end 310 | object Label25: TLabel 311 | Left = 4 312 | Top = 115 313 | Width = 118 314 | Height = 13 315 | Caption = 'Complemento - Ex. Casa' 316 | end 317 | object txtNumber: TEdit 318 | Left = 88 319 | Top = 38 320 | Width = 48 321 | Height = 21 322 | TabOrder = 1 323 | end 324 | object txtZipCode: TEdit 325 | Left = 102 326 | Top = 88 327 | Width = 75 328 | Height = 21 329 | TabOrder = 4 330 | end 331 | object txtNeighborhood: TEdit 332 | Left = 101 333 | Top = 64 334 | Width = 212 335 | Height = 21 336 | TabOrder = 3 337 | end 338 | object txtState: TEdit 339 | Left = 265 340 | Top = 88 341 | Width = 48 342 | Height = 21 343 | TabOrder = 5 344 | end 345 | object txtComplement: TEdit 346 | Left = 129 347 | Top = 112 348 | Width = 184 349 | Height = 21 350 | TabOrder = 6 351 | end 352 | object txtCity: TEdit 353 | Left = 254 354 | Top = 39 355 | Width = 59 356 | Height = 21 357 | TabOrder = 2 358 | end 359 | object txtStreet: TEdit 360 | Left = 141 361 | Top = 16 362 | Width = 172 363 | Height = 21 364 | TabOrder = 0 365 | end 366 | end 367 | end 368 | end 369 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewCreateCarnet.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Carnet/ViewCreateCarnet.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewCreateCarnetHistory.dfm: -------------------------------------------------------------------------------- 1 | object ViewCreateCarnetHistory: TViewCreateCarnetHistory 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Transa'#231#245'es - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 26 28 | Width = 122 29 | Height = 13 30 | Caption = '*Identificador - carnet_id' 31 | end 32 | object txtIdent: TEdit 33 | Left = 6 34 | Top = 41 35 | Width = 569 36 | Height = 21 37 | TabOrder = 0 38 | end 39 | object btnCancelRequest: TButton 40 | Left = 6 41 | Top = 128 42 | Width = 280 43 | Height = 32 44 | Caption = 'Cancelar a Requisi'#231#227'o' 45 | TabOrder = 3 46 | OnClick = btnCancelRequestClick 47 | end 48 | object btnConfirmRequest: TButton 49 | Left = 290 50 | Top = 128 51 | Width = 285 52 | Height = 32 53 | Caption = 'Confirmar a Requisi'#231#227'o' 54 | TabOrder = 2 55 | OnClick = btnConfirmRequestClick 56 | end 57 | object gbDevedor: TGroupBox 58 | Left = 6 59 | Top = 68 60 | Width = 569 61 | Height = 59 62 | Caption = 'Dados do Body' 63 | TabOrder = 1 64 | object Label2: TLabel 65 | Left = 4 66 | Top = 19 67 | Width = 233 68 | Height = 13 69 | Caption = '*Descri'#231#227'o - Ex. Camisa Polo tamanho G cor azul' 70 | end 71 | object Button1: TButton 72 | Left = 7 73 | Top = 226 74 | Width = 280 75 | Height = 32 76 | Caption = 'Cancelar a Requisi'#231#227'o' 77 | TabOrder = 2 78 | OnClick = btnCancelRequestClick 79 | end 80 | object Button2: TButton 81 | Left = 290 82 | Top = 226 83 | Width = 291 84 | Height = 32 85 | Caption = 'Confirmar a Requisi'#231#227'o' 86 | TabOrder = 1 87 | OnClick = btnConfirmRequestClick 88 | end 89 | object txtDescription: TEdit 90 | Left = 4 91 | Top = 33 92 | Width = 560 93 | Height = 21 94 | TabOrder = 0 95 | end 96 | end 97 | end 98 | end 99 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewCreateCarnetHistory.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Carnet/ViewCreateCarnetHistory.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewDetailCarnet.dfm: -------------------------------------------------------------------------------- 1 | object ViewDetailCarnet: TViewDetailCarnet 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Carnet - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 24 28 | Width = 122 29 | Height = 13 30 | Caption = '*Identificador - carnet_id' 31 | end 32 | object txtIdent: TEdit 33 | Left = 6 34 | Top = 41 35 | Width = 569 36 | Height = 21 37 | TabOrder = 0 38 | end 39 | object btnCancelRequest: TButton 40 | Left = 6 41 | Top = 65 42 | Width = 280 43 | Height = 32 44 | Caption = 'Cancelar a Requisi'#231#227'o' 45 | TabOrder = 2 46 | OnClick = btnCancelRequestClick 47 | end 48 | object btnConfirmRequest: TButton 49 | Left = 290 50 | Top = 65 51 | Width = 285 52 | Height = 32 53 | Caption = 'Confirmar a Requisi'#231#227'o' 54 | TabOrder = 1 55 | OnClick = btnConfirmRequestClick 56 | end 57 | end 58 | end 59 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewDetailCarnet.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Carnet/ViewDetailCarnet.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewResendCarnet.dfm: -------------------------------------------------------------------------------- 1 | object ViewResendCarnet: TViewResendCarnet 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Carnet - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 26 28 | Width = 122 29 | Height = 13 30 | Caption = '*Identificador - carnet_id' 31 | end 32 | object Label2: TLabel 33 | Left = 6 34 | Top = 67 35 | Width = 224 36 | Height = 13 37 | Caption = '*Email - Ex. email_do_cliente@servidor.com.br' 38 | end 39 | object txtIdent: TEdit 40 | Left = 6 41 | Top = 39 42 | Width = 569 43 | Height = 21 44 | TabOrder = 0 45 | end 46 | object btnCancelRequest: TButton 47 | Left = 9 48 | Top = 225 49 | Width = 280 50 | Height = 33 51 | Caption = 'Cancelar a Requisi'#231#227'o' 52 | TabOrder = 3 53 | OnClick = btnCancelRequestClick 54 | end 55 | object btnConfirmRequest: TButton 56 | Left = 293 57 | Top = 225 58 | Width = 285 59 | Height = 33 60 | Caption = 'Confirmar a Requisi'#231#227'o' 61 | TabOrder = 2 62 | OnClick = btnConfirmRequestClick 63 | end 64 | object txtEmail: TEdit 65 | Left = 6 66 | Top = 81 67 | Width = 569 68 | Height = 21 69 | TabOrder = 1 70 | end 71 | end 72 | end 73 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewResendCarnet.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Carnet/ViewResendCarnet.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewResendParcel.dfm: -------------------------------------------------------------------------------- 1 | object ViewResendParcel: TViewResendParcel 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Carnet - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 26 28 | Width = 122 29 | Height = 13 30 | Caption = '*Identificador - carnet_id' 31 | end 32 | object Label2: TLabel 33 | Left = 7 34 | Top = 106 35 | Width = 224 36 | Height = 13 37 | Caption = '*Email - Ex. email_do_cliente@servidor.com.br' 38 | end 39 | object Label3: TLabel 40 | Left = 6 41 | Top = 65 42 | Width = 76 43 | Height = 13 44 | Caption = '*Parcela - Ex. 5' 45 | end 46 | object txtIdent: TEdit 47 | Left = 6 48 | Top = 39 49 | Width = 569 50 | Height = 21 51 | TabOrder = 0 52 | end 53 | object btnCancelRequest: TButton 54 | Left = 6 55 | Top = 144 56 | Width = 280 57 | Height = 33 58 | Caption = 'Cancelar a Requisi'#231#227'o' 59 | TabOrder = 4 60 | OnClick = btnCancelRequestClick 61 | end 62 | object btnConfirmRequest: TButton 63 | Left = 290 64 | Top = 144 65 | Width = 285 66 | Height = 33 67 | Caption = 'Confirmar a Requisi'#231#227'o' 68 | TabOrder = 3 69 | OnClick = btnConfirmRequestClick 70 | end 71 | object txtEmail: TEdit 72 | Left = 7 73 | Top = 120 74 | Width = 569 75 | Height = 21 76 | TabOrder = 2 77 | end 78 | object txtParcel: TEdit 79 | Left = 6 80 | Top = 77 81 | Width = 569 82 | Height = 21 83 | TabOrder = 1 84 | end 85 | end 86 | end 87 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewResendParcel.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Carnet/ViewResendParcel.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewSettleCarnetParcel.dfm: -------------------------------------------------------------------------------- 1 | object ViewSettleCarnetParcel: TViewSettleCarnetParcel 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Carnet - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 26 28 | Width = 122 29 | Height = 13 30 | Caption = '*Identificador - carnet_id' 31 | end 32 | object Label3: TLabel 33 | Left = 6 34 | Top = 65 35 | Width = 76 36 | Height = 13 37 | Caption = '*Parcela - Ex. 5' 38 | end 39 | object txtIdent: TEdit 40 | Left = 6 41 | Top = 39 42 | Width = 569 43 | Height = 21 44 | TabOrder = 0 45 | end 46 | object btnCancelRequest: TButton 47 | Left = 6 48 | Top = 225 49 | Width = 280 50 | Height = 33 51 | Caption = 'Cancelar a Requisi'#231#227'o' 52 | TabOrder = 3 53 | OnClick = btnCancelRequestClick 54 | end 55 | object btnConfirmRequest: TButton 56 | Left = 290 57 | Top = 225 58 | Width = 285 59 | Height = 33 60 | Caption = 'Confirmar a Requisi'#231#227'o' 61 | TabOrder = 2 62 | OnClick = btnConfirmRequestClick 63 | end 64 | object txtParcel: TEdit 65 | Left = 6 66 | Top = 77 67 | Width = 569 68 | Height = 21 69 | TabOrder = 1 70 | end 71 | end 72 | end 73 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewSettleCarnetParcel.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Carnet/ViewSettleCarnetParcel.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewUpdateMetadataCarnet.dfm: -------------------------------------------------------------------------------- 1 | object ViewUpdateMetadataCarnet: TViewUpdateMetadataCarnet 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Carn'#234's' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 26 28 | Width = 122 29 | Height = 13 30 | Caption = '*Identificador - carnet_id' 31 | end 32 | object Label2: TLabel 33 | Left = 7 34 | Top = 67 35 | Width = 108 36 | Height = 13 37 | Caption = '*Notifica'#231#227'o - Ex.: null' 38 | end 39 | object txtIdent: TEdit 40 | Left = 6 41 | Top = 41 42 | Width = 569 43 | Height = 21 44 | TabOrder = 0 45 | end 46 | object btnCancelRequest: TButton 47 | Left = 6 48 | Top = 104 49 | Width = 280 50 | Height = 32 51 | Caption = 'Cancelar a Requisi'#231#227'o' 52 | TabOrder = 3 53 | OnClick = btnCancelRequestClick 54 | end 55 | object btnConfirmRequest: TButton 56 | Left = 290 57 | Top = 104 58 | Width = 285 59 | Height = 32 60 | Caption = 'Confirmar a Requisi'#231#227'o' 61 | TabOrder = 2 62 | OnClick = btnConfirmRequestClick 63 | end 64 | object txtNotification: TEdit 65 | Left = 7 66 | Top = 82 67 | Width = 569 68 | Height = 21 69 | TabOrder = 1 70 | end 71 | end 72 | end 73 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewUpdateMetadataCarnet.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Carnet/ViewUpdateMetadataCarnet.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewUpdateParcel.dfm: -------------------------------------------------------------------------------- 1 | object ViewUpdateParcel: TViewUpdateParcel 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Carnet - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Parcela: TLabel 26 | Left = 6 27 | Top = 63 28 | Width = 76 29 | Height = 13 30 | Caption = '*Parcela - Ex. 5' 31 | end 32 | object Label2: TLabel 33 | Left = 6 34 | Top = 20 35 | Width = 122 36 | Height = 13 37 | Caption = '*Identificador - carnet_id' 38 | end 39 | object txtId: TEdit 40 | Left = 6 41 | Top = 34 42 | Width = 571 43 | Height = 21 44 | TabOrder = 0 45 | end 46 | object btnConfirmRequest: TButton 47 | Left = 284 48 | Top = 159 49 | Width = 291 50 | Height = 32 51 | Caption = 'Confirmar a Requisi'#231#227'o' 52 | TabOrder = 3 53 | OnClick = btnConfirmRequestClick 54 | end 55 | object btnCancelRequest: TButton 56 | Left = 6 57 | Top = 159 58 | Width = 277 59 | Height = 32 60 | Caption = 'Cancelar a Requisi'#231#227'o' 61 | TabOrder = 4 62 | OnClick = btnCancelRequestClick 63 | end 64 | object txtParcel: TEdit 65 | Left = 6 66 | Top = 78 67 | Width = 571 68 | Height = 21 69 | TabOrder = 1 70 | end 71 | object GroupBox1: TGroupBox 72 | Left = 8 73 | Top = 107 74 | Width = 573 75 | Height = 49 76 | Caption = 'Dados do Body ' 77 | TabOrder = 2 78 | object Label3: TLabel 79 | Left = 7 80 | Top = 20 81 | Width = 146 82 | Height = 13 83 | Caption = '*Vencimento - Ex. 2025-12-30' 84 | end 85 | object txtValue: TEdit 86 | Left = 159 87 | Top = 17 88 | Width = 410 89 | Height = 21 90 | TabOrder = 0 91 | end 92 | end 93 | end 94 | end 95 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Carnet/ViewUpdateParcel.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Carnet/ViewUpdateParcel.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewCreateCharge.dfm: -------------------------------------------------------------------------------- 1 | object ViewCreateCharge: TViewCreateCharge 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object gbDevedor: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Dados do Body - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label2: TLabel 26 | Left = 15 27 | Top = 21 28 | Width = 123 29 | Height = 13 30 | Caption = '*Nome - Ex. Meu Produto' 31 | end 32 | object Label3: TLabel 33 | Left = 15 34 | Top = 102 35 | Width = 97 36 | Height = 13 37 | Caption = '*Quantidade - Ex. 2' 38 | end 39 | object Label5: TLabel 40 | Left = 15 41 | Top = 61 42 | Width = 83 43 | Height = 13 44 | Caption = '*Valor - Ex. 8900' 45 | end 46 | object txtName: TEdit 47 | Left = 15 48 | Top = 36 49 | Width = 559 50 | Height = 21 51 | TabOrder = 0 52 | end 53 | object txtAmount: TEdit 54 | Left = 15 55 | Top = 117 56 | Width = 559 57 | Height = 21 58 | TabOrder = 2 59 | end 60 | object txtValue: TEdit 61 | Left = 15 62 | Top = 76 63 | Width = 559 64 | Height = 21 65 | TabOrder = 1 66 | end 67 | object btnCancelRequest: TButton 68 | Left = 7 69 | Top = 226 70 | Width = 280 71 | Height = 32 72 | Caption = 'Cancelar a Requisi'#231#227'o' 73 | TabOrder = 4 74 | OnClick = btnCancelRequestClick 75 | end 76 | object btnConfirmRequest: TButton 77 | Left = 290 78 | Top = 226 79 | Width = 291 80 | Height = 32 81 | Caption = 'Confirmar a Requisi'#231#227'o' 82 | TabOrder = 3 83 | OnClick = btnConfirmRequestClick 84 | end 85 | end 86 | end 87 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewCreateCharge.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Charges/ViewCreateCharge.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewCreateChargeHistory.dfm: -------------------------------------------------------------------------------- 1 | object ViewCreateChargeHistory: TViewCreateChargeHistory 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Transa'#231#245'es - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 26 28 | Width = 124 29 | Height = 13 30 | Caption = '*Identificador - charge_id' 31 | end 32 | object txtIdent: TEdit 33 | Left = 6 34 | Top = 41 35 | Width = 569 36 | Height = 21 37 | TabOrder = 0 38 | end 39 | object btnCancelRequest: TButton 40 | Left = 6 41 | Top = 128 42 | Width = 280 43 | Height = 32 44 | Caption = 'Cancelar a Requisi'#231#227'o' 45 | TabOrder = 3 46 | OnClick = btnCancelRequestClick 47 | end 48 | object btnConfirmRequest: TButton 49 | Left = 290 50 | Top = 128 51 | Width = 285 52 | Height = 32 53 | Caption = 'Confirmar a Requisi'#231#227'o' 54 | TabOrder = 2 55 | OnClick = btnConfirmRequestClick 56 | end 57 | object gbDevedor: TGroupBox 58 | Left = 6 59 | Top = 68 60 | Width = 569 61 | Height = 59 62 | Caption = 'Dados do Body' 63 | TabOrder = 1 64 | object Label2: TLabel 65 | Left = 4 66 | Top = 19 67 | Width = 233 68 | Height = 13 69 | Caption = '*Descri'#231#227'o - Ex. Camisa Polo tamanho G cor azul' 70 | end 71 | object Button1: TButton 72 | Left = 7 73 | Top = 226 74 | Width = 280 75 | Height = 32 76 | Caption = 'Cancelar a Requisi'#231#227'o' 77 | TabOrder = 2 78 | OnClick = btnCancelRequestClick 79 | end 80 | object Button2: TButton 81 | Left = 290 82 | Top = 226 83 | Width = 291 84 | Height = 32 85 | Caption = 'Confirmar a Requisi'#231#227'o' 86 | TabOrder = 1 87 | OnClick = btnConfirmRequestClick 88 | end 89 | object txtDescription: TEdit 90 | Left = 4 91 | Top = 33 92 | Width = 560 93 | Height = 21 94 | TabOrder = 0 95 | end 96 | end 97 | end 98 | end 99 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewCreateChargeHistory.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Charges/ViewCreateChargeHistory.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewCreateLinkCharge.dfm: -------------------------------------------------------------------------------- 1 | object ViewCreateLinkCharge: TViewCreateLinkCharge 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Requisi'#231#227'o Identificador - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 21 28 | Width = 124 29 | Height = 13 30 | Caption = '*Identificador - charge_id' 31 | end 32 | object Label2: TLabel 33 | Left = 6 34 | Top = 139 35 | Width = 133 36 | Height = 13 37 | Caption = 'Desconto no Boletos - Ex. 5' 38 | end 39 | object Label3: TLabel 40 | Left = 6 41 | Top = 181 42 | Width = 136 43 | Height = 13 44 | Caption = 'Descontos no Cart'#227'o - Ex. 5' 45 | end 46 | object Label4: TLabel 47 | Left = 6 48 | Top = 101 49 | Width = 146 50 | Height = 13 51 | Caption = '*Vencimento - Ex. 2025-12-30' 52 | end 53 | object Label5: TLabel 54 | Left = 300 55 | Top = 101 56 | Width = 176 57 | Height = 13 58 | Caption = 'Mensagem - Ex. Mensagem de Teste' 59 | end 60 | object Label6: TLabel 61 | Left = 6 62 | Top = 61 63 | Width = 154 64 | Height = 13 65 | Caption = '*M'#233'todo de Pagamento - Ex. All' 66 | end 67 | object txtIdent: TEdit 68 | Left = 6 69 | Top = 36 70 | Width = 572 71 | Height = 21 72 | TabOrder = 0 73 | end 74 | object btnCancelRequest: TButton 75 | Left = 6 76 | Top = 222 77 | Width = 283 78 | Height = 32 79 | Caption = 'Cancelar a Requisi'#231#227'o' 80 | TabOrder = 8 81 | OnClick = btnCancelRequestClick 82 | end 83 | object btnConfirmRequest: TButton 84 | Left = 300 85 | Top = 222 86 | Width = 278 87 | Height = 32 88 | Caption = 'Confirmar a Requisi'#231#227'o' 89 | TabOrder = 7 90 | OnClick = btnConfirmRequestClick 91 | end 92 | object txtBilletDiscount: TEdit 93 | Left = 6 94 | Top = 152 95 | Width = 283 96 | Height = 21 97 | TabOrder = 4 98 | end 99 | object txtCardDiscount: TEdit 100 | Left = 6 101 | Top = 193 102 | Width = 283 103 | Height = 21 104 | TabOrder = 5 105 | end 106 | object txtExpireAt: TEdit 107 | Left = 6 108 | Top = 114 109 | Width = 283 110 | Height = 21 111 | TabOrder = 3 112 | end 113 | object txtRequestDeliveryAddress: TCheckBox 114 | Left = 300 115 | Top = 75 116 | Width = 165 117 | Height = 17 118 | Caption = '*Solicitar Endere'#231'o de Entrega' 119 | TabOrder = 2 120 | end 121 | object txtPaymentMethod: TEdit 122 | Left = 6 123 | Top = 73 124 | Width = 283 125 | Height = 21 126 | TabOrder = 1 127 | end 128 | object txtMessage: TMemo 129 | Left = 300 130 | Top = 114 131 | Width = 278 132 | Height = 107 133 | Lines.Strings = ( 134 | 'Memo1') 135 | TabOrder = 6 136 | end 137 | end 138 | end 139 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewCreateLinkCharge.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Charges/ViewCreateLinkCharge.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewDetailBillet.dfm: -------------------------------------------------------------------------------- 1 | object ViewDetailBillet: TViewDetailBillet 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Transa'#231#245'es - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 24 28 | Width = 124 29 | Height = 13 30 | Caption = '*Identificador - charge_id' 31 | end 32 | object txtIdent: TEdit 33 | Left = 6 34 | Top = 41 35 | Width = 569 36 | Height = 21 37 | TabOrder = 0 38 | end 39 | object btnCancelRequest: TButton 40 | Left = 6 41 | Top = 65 42 | Width = 280 43 | Height = 32 44 | Caption = 'Cancelar a Requisi'#231#227'o' 45 | TabOrder = 2 46 | OnClick = btnCancelRequestClick 47 | end 48 | object btnConfirmRequest: TButton 49 | Left = 290 50 | Top = 65 51 | Width = 285 52 | Height = 32 53 | Caption = 'Confirmar a Requisi'#231#227'o' 54 | TabOrder = 1 55 | OnClick = btnConfirmRequestClick 56 | end 57 | end 58 | end 59 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewDetailBillet.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Charges/ViewDetailBillet.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewPayChargeBillet.dfm: -------------------------------------------------------------------------------- 1 | object ViewPayChargeBillet: TViewPayChargeBillet 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal de Pagamento' 5 | ClientHeight = 371 6 | ClientWidth = 634 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox1: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 634 21 | Height = 371 22 | Align = alClient 23 | Caption = 'Pagamento de Cobran'#231'as - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label12: TLabel 26 | Left = 320 27 | Top = 159 28 | Width = 146 29 | Height = 13 30 | Caption = '*Vencimento - Ex. 2025-12-30' 31 | end 32 | object Label15: TLabel 33 | Left = 8 34 | Top = 22 35 | Width = 124 36 | Height = 13 37 | Caption = '*Identificador - charge_id' 38 | end 39 | object btnCancelRequest: TButton 40 | Left = 4 41 | Top = 335 42 | Width = 307 43 | Height = 32 44 | Caption = 'Cancelar a Requisi'#231#227'o' 45 | TabOrder = 7 46 | OnClick = btnCancelRequestClick 47 | end 48 | object btnConfirmRequest: TButton 49 | Left = 314 50 | Top = 335 51 | Width = 316 52 | Height = 32 53 | Caption = 'Confirmar a Requisi'#231#227'o' 54 | TabOrder = 6 55 | OnClick = btnConfirmRequestClick 56 | end 57 | object GroupBox3: TGroupBox 58 | Left = 8 59 | Top = 42 60 | Width = 300 61 | Height = 134 62 | Caption = '*Cliente' 63 | TabOrder = 1 64 | object Label4: TLabel 65 | Left = 4 66 | Top = 86 67 | Width = 118 68 | Height = 13 69 | Caption = '*Telefone - 5144916523' 70 | end 71 | object Label3: TLabel 72 | Left = 4 73 | Top = 63 74 | Width = 134 75 | Height = 13 76 | Caption = 'E-mail - email@servidor.com' 77 | end 78 | object Label2: TLabel 79 | Left = 4 80 | Top = 39 81 | Width = 149 82 | Height = 13 83 | Caption = '*CPF/CNPJ - Ex. 94271564656' 84 | end 85 | object Label1: TLabel 86 | Left = 4 87 | Top = 15 88 | Width = 152 89 | Height = 13 90 | Caption = '*Nome - Ex. Gorbadoc Oldbuck ' 91 | end 92 | object Label18: TLabel 93 | Left = 4 94 | Top = 110 95 | Width = 118 96 | Height = 13 97 | Caption = 'Nascimento -1990-08-29' 98 | end 99 | object txtName: TEdit 100 | Left = 156 101 | Top = 12 102 | Width = 141 103 | Height = 21 104 | TabOrder = 0 105 | end 106 | object txtCPF: TEdit 107 | Left = 156 108 | Top = 36 109 | Width = 141 110 | Height = 21 111 | TabOrder = 1 112 | end 113 | object txtEmail: TEdit 114 | Left = 145 115 | Top = 60 116 | Width = 152 117 | Height = 21 118 | TabOrder = 2 119 | end 120 | object txtPhone: TEdit 121 | Left = 124 122 | Top = 83 123 | Width = 173 124 | Height = 21 125 | TabOrder = 3 126 | end 127 | object txtBirth: TEdit 128 | Left = 124 129 | Top = 107 130 | Width = 173 131 | Height = 21 132 | TabOrder = 4 133 | end 134 | end 135 | object txtExpire: TEdit 136 | Left = 467 137 | Top = 156 138 | Width = 163 139 | Height = 21 140 | TabOrder = 3 141 | end 142 | object GroupBox4: TGroupBox 143 | Left = 8 144 | Top = 177 145 | Width = 300 146 | Height = 72 147 | Caption = 'Configura'#231#245'es - Juros ap'#243's vencimento' 148 | TabOrder = 4 149 | object Label13: TLabel 150 | Left = 9 151 | Top = 26 152 | Width = 99 153 | Height = 13 154 | Caption = 'Valor - Ex. 200 (2%)' 155 | end 156 | object Label14: TLabel 157 | Left = 9 158 | Top = 48 159 | Width = 184 160 | Height = 13 161 | Caption = 'Valor do Juros / Dia - Ex. 33 (0,033%)' 162 | end 163 | object txtFine: TEdit 164 | Left = 117 165 | Top = 21 166 | Width = 180 167 | Height = 21 168 | TabOrder = 0 169 | end 170 | object txtInterest: TEdit 171 | Left = 199 172 | Top = 45 173 | Width = 98 174 | Height = 21 175 | TabOrder = 1 176 | end 177 | end 178 | object GroupBox5: TGroupBox 179 | Left = 314 180 | Top = 177 181 | Width = 316 182 | Height = 72 183 | Caption = 'Mensagem' 184 | TabOrder = 5 185 | object txtMessage: TMemo 186 | Left = 6 187 | Top = 13 188 | Width = 309 189 | Height = 53 190 | Lines.Strings = ( 191 | 'Memo1') 192 | TabOrder = 0 193 | end 194 | end 195 | object txtIdent: TEdit 196 | Left = 138 197 | Top = 19 198 | Width = 170 199 | Height = 21 200 | TabOrder = 0 201 | end 202 | object GroupBox2: TGroupBox 203 | Left = 314 204 | Top = 14 205 | Width = 316 206 | Height = 141 207 | Caption = 'Endere'#231'o' 208 | TabOrder = 2 209 | object Label5: TLabel 210 | Left = 4 211 | Top = 19 212 | Width = 133 213 | Height = 13 214 | Caption = 'Rua - Ex. Avenida Juscelino' 215 | end 216 | object Label6: TLabel 217 | Left = 4 218 | Top = 43 219 | Width = 84 220 | Height = 13 221 | Caption = 'Numero - Ex. 909' 222 | end 223 | object Label7: TLabel 224 | Left = 4 225 | Top = 67 226 | Width = 93 227 | Height = 13 228 | Caption = 'Bairro - Ex. Bauxita' 229 | end 230 | object Label8: TLabel 231 | Left = 4 232 | Top = 91 233 | Width = 96 234 | Height = 13 235 | Caption = 'CEP - Ex. 35400000' 236 | end 237 | object Label9: TLabel 238 | Left = 142 239 | Top = 43 240 | Width = 112 241 | Height = 13 242 | Caption = 'Cidade- Ex. Ouro Preto' 243 | end 244 | object Label10: TLabel 245 | Left = 4 246 | Top = 115 247 | Width = 118 248 | Height = 13 249 | Caption = 'Complemento - Ex. Casa' 250 | end 251 | object Label11: TLabel 252 | Left = 177 253 | Top = 91 254 | Width = 77 255 | Height = 13 256 | Caption = 'Estado - Ex. MG' 257 | end 258 | object txtNumber: TEdit 259 | Left = 89 260 | Top = 40 261 | Width = 50 262 | Height = 21 263 | TabOrder = 1 264 | end 265 | object txtZipCode: TEdit 266 | Left = 102 267 | Top = 88 268 | Width = 73 269 | Height = 21 270 | TabOrder = 4 271 | end 272 | object txtNeighborhood: TEdit 273 | Left = 102 274 | Top = 64 275 | Width = 213 276 | Height = 21 277 | TabOrder = 3 278 | end 279 | object txtState: TEdit 280 | Left = 254 281 | Top = 88 282 | Width = 61 283 | Height = 21 284 | TabOrder = 5 285 | end 286 | object txtComplement: TEdit 287 | Left = 125 288 | Top = 112 289 | Width = 190 290 | Height = 21 291 | TabOrder = 6 292 | end 293 | object txtCity: TEdit 294 | Left = 254 295 | Top = 40 296 | Width = 61 297 | Height = 21 298 | TabOrder = 2 299 | end 300 | object txtStreet: TEdit 301 | Left = 138 302 | Top = 16 303 | Width = 177 304 | Height = 21 305 | TabOrder = 0 306 | end 307 | end 308 | end 309 | end 310 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewPayChargeBillet.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Charges/ViewPayChargeBillet.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewPayChargeBilletOneStep.dfm: -------------------------------------------------------------------------------- 1 | object ViewPayChargeBilletOneStep: TViewPayChargeBilletOneStep 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal de Pagamento' 5 | ClientHeight = 371 6 | ClientWidth = 634 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox1: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 634 21 | Height = 371 22 | Align = alClient 23 | Caption = 'Pagamento de Cobran'#231'as - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label12: TLabel 26 | Left = 313 27 | Top = 222 28 | Width = 146 29 | Height = 13 30 | Caption = '*Vencimento - Ex. 2025-12-30' 31 | end 32 | object btnCancelRequest: TButton 33 | Left = 4 34 | Top = 335 35 | Width = 307 36 | Height = 32 37 | Caption = 'Cancelar a Requisi'#231#227'o' 38 | TabOrder = 7 39 | OnClick = btnCancelRequestClick 40 | end 41 | object btnConfirmRequest: TButton 42 | Left = 314 43 | Top = 335 44 | Width = 316 45 | Height = 32 46 | Caption = 'Confirmar a Requisi'#231#227'o' 47 | TabOrder = 6 48 | OnClick = btnConfirmRequestClick 49 | end 50 | object GroupBox3: TGroupBox 51 | Left = 7 52 | Top = 75 53 | Width = 300 54 | Height = 141 55 | Caption = '*Cliente' 56 | TabOrder = 1 57 | object Label4: TLabel 58 | Left = 4 59 | Top = 90 60 | Width = 118 61 | Height = 13 62 | Caption = '*Telefone - 5144916523' 63 | end 64 | object Label3: TLabel 65 | Left = 4 66 | Top = 67 67 | Width = 134 68 | Height = 13 69 | Caption = 'E-mail - email@servidor.com' 70 | end 71 | object Label2: TLabel 72 | Left = 4 73 | Top = 43 74 | Width = 149 75 | Height = 13 76 | Caption = '*CPF/CNPJ - Ex. 94271564656' 77 | end 78 | object Label1: TLabel 79 | Left = 4 80 | Top = 19 81 | Width = 152 82 | Height = 13 83 | Caption = '*Nome - Ex. Gorbadoc Oldbuck ' 84 | end 85 | object Label18: TLabel 86 | Left = 4 87 | Top = 114 88 | Width = 118 89 | Height = 13 90 | Caption = 'Nascimento -1990-08-29' 91 | end 92 | object txtName: TEdit 93 | Left = 156 94 | Top = 16 95 | Width = 141 96 | Height = 21 97 | TabOrder = 0 98 | end 99 | object txtCPF: TEdit 100 | Left = 156 101 | Top = 40 102 | Width = 141 103 | Height = 21 104 | TabOrder = 1 105 | end 106 | object txtEmail: TEdit 107 | Left = 145 108 | Top = 64 109 | Width = 152 110 | Height = 21 111 | TabOrder = 2 112 | end 113 | object txtPhone: TEdit 114 | Left = 124 115 | Top = 87 116 | Width = 173 117 | Height = 21 118 | TabOrder = 3 119 | end 120 | object txtBirth: TEdit 121 | Left = 124 122 | Top = 111 123 | Width = 173 124 | Height = 21 125 | TabOrder = 4 126 | end 127 | end 128 | object txtExpire: TEdit 129 | Left = 465 130 | Top = 219 131 | Width = 163 132 | Height = 21 133 | TabOrder = 4 134 | end 135 | object GroupBox4: TGroupBox 136 | Left = 7 137 | Top = 215 138 | Width = 300 139 | Height = 80 140 | Caption = 'Configura'#231#245'es - Juros ap'#243's vencimento' 141 | TabOrder = 2 142 | object Label13: TLabel 143 | Left = 9 144 | Top = 29 145 | Width = 99 146 | Height = 13 147 | Caption = 'Valor - Ex. 200 (2%)' 148 | end 149 | object Label14: TLabel 150 | Left = 9 151 | Top = 51 152 | Width = 184 153 | Height = 13 154 | Caption = 'Valor do Juros / Dia - Ex. 33 (0,033%)' 155 | end 156 | object txtFine: TEdit 157 | Left = 117 158 | Top = 24 159 | Width = 180 160 | Height = 21 161 | TabOrder = 0 162 | end 163 | object txtInterest: TEdit 164 | Left = 199 165 | Top = 48 166 | Width = 98 167 | Height = 21 168 | TabOrder = 1 169 | end 170 | end 171 | object GroupBox5: TGroupBox 172 | Left = 310 173 | Top = 241 174 | Width = 319 175 | Height = 54 176 | Caption = 'Mensagem' 177 | TabOrder = 5 178 | object txtMessage: TMemo 179 | Left = 6 180 | Top = 13 181 | Width = 309 182 | Height = 36 183 | Lines.Strings = ( 184 | 'Memo1') 185 | TabOrder = 0 186 | end 187 | end 188 | object GroupBox2: TGroupBox 189 | Left = 313 190 | Top = 75 191 | Width = 316 192 | Height = 141 193 | Caption = 'Endere'#231'o' 194 | TabOrder = 3 195 | object Label5: TLabel 196 | Left = 4 197 | Top = 19 198 | Width = 133 199 | Height = 13 200 | Caption = 'Rua - Ex. Avenida Juscelino' 201 | end 202 | object Label6: TLabel 203 | Left = 4 204 | Top = 43 205 | Width = 84 206 | Height = 13 207 | Caption = 'Numero - Ex. 909' 208 | end 209 | object Label7: TLabel 210 | Left = 4 211 | Top = 67 212 | Width = 93 213 | Height = 13 214 | Caption = 'Bairro - Ex. Bauxita' 215 | end 216 | object Label8: TLabel 217 | Left = 4 218 | Top = 91 219 | Width = 96 220 | Height = 13 221 | Caption = 'CEP - Ex. 35400000' 222 | end 223 | object Label9: TLabel 224 | Left = 142 225 | Top = 43 226 | Width = 112 227 | Height = 13 228 | Caption = 'Cidade- Ex. Ouro Preto' 229 | end 230 | object Label10: TLabel 231 | Left = 4 232 | Top = 115 233 | Width = 118 234 | Height = 13 235 | Caption = 'Complemento - Ex. Casa' 236 | end 237 | object Label11: TLabel 238 | Left = 177 239 | Top = 91 240 | Width = 77 241 | Height = 13 242 | Caption = 'Estado - Ex. MG' 243 | end 244 | object txtNumber: TEdit 245 | Left = 89 246 | Top = 40 247 | Width = 50 248 | Height = 21 249 | TabOrder = 1 250 | end 251 | object txtZipCode: TEdit 252 | Left = 102 253 | Top = 88 254 | Width = 73 255 | Height = 21 256 | TabOrder = 4 257 | end 258 | object txtNeighborhood: TEdit 259 | Left = 102 260 | Top = 64 261 | Width = 213 262 | Height = 21 263 | TabOrder = 3 264 | end 265 | object txtState: TEdit 266 | Left = 254 267 | Top = 88 268 | Width = 61 269 | Height = 21 270 | TabOrder = 5 271 | end 272 | object txtComplement: TEdit 273 | Left = 125 274 | Top = 112 275 | Width = 190 276 | Height = 21 277 | TabOrder = 6 278 | end 279 | object txtCity: TEdit 280 | Left = 254 281 | Top = 40 282 | Width = 61 283 | Height = 21 284 | TabOrder = 2 285 | end 286 | object txtStreet: TEdit 287 | Left = 138 288 | Top = 16 289 | Width = 177 290 | Height = 21 291 | TabOrder = 0 292 | end 293 | end 294 | object GroupBox6: TGroupBox 295 | Left = 7 296 | Top = 17 297 | Width = 622 298 | Height = 54 299 | Caption = 'Items' 300 | TabOrder = 0 301 | object Label16: TLabel 302 | Left = 3 303 | Top = 13 304 | Width = 123 305 | Height = 13 306 | Caption = '*Nome - Ex. Meu Produto' 307 | end 308 | object Label17: TLabel 309 | Left = 333 310 | Top = 14 311 | Width = 83 312 | Height = 13 313 | Caption = '*Valor - Ex. 8900' 314 | end 315 | object Label19: TLabel 316 | Left = 481 317 | Top = 13 318 | Width = 97 319 | Height = 13 320 | Caption = '*Quantidade - Ex. 2' 321 | end 322 | object txtItem: TEdit 323 | Left = 3 324 | Top = 25 325 | Width = 329 326 | Height = 21 327 | TabOrder = 0 328 | end 329 | object txtValue: TEdit 330 | Left = 333 331 | Top = 25 332 | Width = 146 333 | Height = 21 334 | TabOrder = 1 335 | end 336 | object txtAmount: TEdit 337 | Left = 481 338 | Top = 25 339 | Width = 140 340 | Height = 21 341 | TabOrder = 2 342 | end 343 | end 344 | end 345 | end 346 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewPayChargeBilletOneStep.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Charges/ViewPayChargeBilletOneStep.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewPayCreditCard.dfm: -------------------------------------------------------------------------------- 1 | object ViewPayCreditCard: TViewPayCreditCard 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal de Pagamento' 5 | ClientHeight = 371 6 | ClientWidth = 634 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox1: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 634 21 | Height = 371 22 | Align = alClient 23 | Caption = 'Pagamento de Cobran'#231'as ' 24 | TabOrder = 0 25 | object Label15: TLabel 26 | Left = 8 27 | Top = 22 28 | Width = 124 29 | Height = 13 30 | Caption = '*Identificador - charge_id' 31 | end 32 | object btnCancelRequest: TButton 33 | Left = 4 34 | Top = 335 35 | Width = 301 36 | Height = 32 37 | Caption = 'Cancelar a Requisi'#231#227'o' 38 | TabOrder = 5 39 | OnClick = btnCancelRequestClick 40 | end 41 | object btnConfirmRequest: TButton 42 | Left = 311 43 | Top = 335 44 | Width = 321 45 | Height = 32 46 | Caption = 'Confirmar a Requisi'#231#227'o' 47 | TabOrder = 4 48 | OnClick = btnConfirmRequestClick 49 | end 50 | object GroupBox3: TGroupBox 51 | Left = 4 52 | Top = 41 53 | Width = 301 54 | Height = 141 55 | Caption = '*Cliente' 56 | TabOrder = 1 57 | object Label4: TLabel 58 | Left = 9 59 | Top = 91 60 | Width = 118 61 | Height = 13 62 | Caption = '*Telefone - 5144916523' 63 | end 64 | object Label3: TLabel 65 | Left = 9 66 | Top = 67 67 | Width = 140 68 | Height = 13 69 | Caption = '*E-mail - email@servidor.com' 70 | end 71 | object Label2: TLabel 72 | Left = 9 73 | Top = 43 74 | Width = 120 75 | Height = 13 76 | Caption = '*CPF - Ex. 94271564656' 77 | end 78 | object Label1: TLabel 79 | Left = 9 80 | Top = 19 81 | Width = 152 82 | Height = 13 83 | Caption = '*Nome - Ex. Gorbadoc Oldbuck ' 84 | end 85 | object Label18: TLabel 86 | Left = 9 87 | Top = 116 88 | Width = 124 89 | Height = 13 90 | Caption = '*Nascimento -1990-08-29' 91 | end 92 | object txtName: TEdit 93 | Left = 163 94 | Top = 16 95 | Width = 133 96 | Height = 21 97 | TabOrder = 0 98 | end 99 | object txtCPF: TEdit 100 | Left = 134 101 | Top = 40 102 | Width = 162 103 | Height = 21 104 | TabOrder = 1 105 | end 106 | object txtEmail: TEdit 107 | Left = 155 108 | Top = 64 109 | Width = 141 110 | Height = 21 111 | TabOrder = 2 112 | end 113 | object txtPhone: TEdit 114 | Left = 134 115 | Top = 88 116 | Width = 162 117 | Height = 21 118 | TabOrder = 3 119 | end 120 | object txtBirth: TEdit 121 | Left = 134 122 | Top = 113 123 | Width = 163 124 | Height = 21 125 | TabOrder = 4 126 | end 127 | end 128 | object txtIdent: TEdit 129 | Left = 142 130 | Top = 19 131 | Width = 489 132 | Height = 21 133 | TabOrder = 0 134 | end 135 | object GroupBox2: TGroupBox 136 | Left = 311 137 | Top = 41 138 | Width = 320 139 | Height = 141 140 | Caption = 'Endere'#231'o' 141 | TabOrder = 2 142 | object Label5: TLabel 143 | Left = 3 144 | Top = 19 145 | Width = 139 146 | Height = 13 147 | Caption = '*Rua - Ex. Avenida Juscelino' 148 | end 149 | object Label6: TLabel 150 | Left = 3 151 | Top = 43 152 | Width = 90 153 | Height = 13 154 | Caption = '*Numero - Ex. 909' 155 | end 156 | object Label7: TLabel 157 | Left = 3 158 | Top = 67 159 | Width = 99 160 | Height = 13 161 | Caption = '*Bairro - Ex. Bauxita' 162 | end 163 | object Label8: TLabel 164 | Left = 3 165 | Top = 91 166 | Width = 102 167 | Height = 13 168 | Caption = '*CEP - Ex. 35400000' 169 | end 170 | object Label9: TLabel 171 | Left = 139 172 | Top = 43 173 | Width = 118 174 | Height = 13 175 | Caption = '*Cidade- Ex. Ouro Preto' 176 | end 177 | object Label10: TLabel 178 | Left = 5 179 | Top = 115 180 | Width = 118 181 | Height = 13 182 | Caption = 'Complemento - Ex. Casa' 183 | end 184 | object Label11: TLabel 185 | Left = 175 186 | Top = 91 187 | Width = 83 188 | Height = 13 189 | Caption = '*Estado - Ex. MG' 190 | end 191 | object txtNumber: TEdit 192 | Left = 95 193 | Top = 40 194 | Width = 43 195 | Height = 21 196 | TabOrder = 1 197 | end 198 | object txtZipCode: TEdit 199 | Left = 106 200 | Top = 88 201 | Width = 68 202 | Height = 21 203 | TabOrder = 4 204 | end 205 | object txtNeighborhood: TEdit 206 | Left = 106 207 | Top = 64 208 | Width = 211 209 | Height = 21 210 | TabOrder = 3 211 | end 212 | object txtState: TEdit 213 | Left = 259 214 | Top = 88 215 | Width = 58 216 | Height = 21 217 | TabOrder = 5 218 | end 219 | object txtComplement: TEdit 220 | Left = 127 221 | Top = 112 222 | Width = 190 223 | Height = 21 224 | TabOrder = 6 225 | end 226 | object txtCity: TEdit 227 | Left = 259 228 | Top = 40 229 | Width = 58 230 | Height = 21 231 | TabOrder = 2 232 | end 233 | object txtStreet: TEdit 234 | Left = 145 235 | Top = 16 236 | Width = 172 237 | Height = 21 238 | TabOrder = 0 239 | end 240 | end 241 | object GroupBox4: TGroupBox 242 | Left = 8 243 | Top = 182 244 | Width = 297 245 | Height = 147 246 | Caption = 'Dados do Cart'#227'o' 247 | TabOrder = 3 248 | object Label12: TLabel 249 | Left = 5 250 | Top = 19 251 | Width = 96 252 | Height = 13 253 | Caption = '*Bandeira - Ex. visa' 254 | end 255 | object Label13: TLabel 256 | Left = 5 257 | Top = 41 258 | Width = 177 259 | Height = 13 260 | Caption = '*Numero - Ex. 4012 0010 3844 3335' 261 | end 262 | object Label14: TLabel 263 | Left = 149 264 | Top = 86 265 | Width = 72 266 | Height = 13 267 | Caption = '*CVV - Ex. 123' 268 | end 269 | object Label16: TLabel 270 | Left = 5 271 | Top = 112 272 | Width = 143 273 | Height = 13 274 | Caption = '*Venc. M'#234's/Ano- Ex. 05 2021' 275 | end 276 | object Label17: TLabel 277 | Left = 5 278 | Top = 86 279 | Width = 81 280 | Height = 13 281 | Caption = '*Parcelas - Ex. 1' 282 | end 283 | object txtCard1: TEdit 284 | Left = 5 285 | Top = 55 286 | Width = 70 287 | Height = 21 288 | TabOrder = 1 289 | end 290 | object txtMonth: TEdit 291 | Left = 149 292 | Top = 109 293 | Width = 70 294 | Height = 21 295 | TabOrder = 7 296 | end 297 | object txtCVV: TEdit 298 | Left = 222 299 | Top = 83 300 | Width = 70 301 | Height = 21 302 | TabOrder = 6 303 | end 304 | object txtBrand: TEdit 305 | Left = 105 306 | Top = 16 307 | Width = 187 308 | Height = 21 309 | TabOrder = 0 310 | end 311 | object txtCard2: TEdit 312 | Left = 77 313 | Top = 55 314 | Width = 70 315 | Height = 21 316 | TabOrder = 2 317 | end 318 | object txtCard3: TEdit 319 | Left = 149 320 | Top = 55 321 | Width = 70 322 | Height = 21 323 | TabOrder = 3 324 | end 325 | object txtCard4: TEdit 326 | Left = 222 327 | Top = 55 328 | Width = 70 329 | Height = 21 330 | TabOrder = 4 331 | end 332 | object txtYear: TEdit 333 | Left = 222 334 | Top = 109 335 | Width = 70 336 | Height = 21 337 | TabOrder = 8 338 | end 339 | object txtInstallments: TEdit 340 | Left = 89 341 | Top = 81 342 | Width = 58 343 | Height = 21 344 | TabOrder = 5 345 | end 346 | end 347 | end 348 | end 349 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewPayCreditCard.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Charges/ViewPayCreditCard.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewPayCreditCardOneStep.dfm: -------------------------------------------------------------------------------- 1 | object ViewPayCreditCardOneStep: TViewPayCreditCardOneStep 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal de Pagamento' 5 | ClientHeight = 371 6 | ClientWidth = 634 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox1: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 634 21 | Height = 371 22 | Align = alClient 23 | Caption = 'Pagamento de Cobran'#231'as ' 24 | TabOrder = 0 25 | object btnCancelRequest: TButton 26 | Left = 4 27 | Top = 335 28 | Width = 301 29 | Height = 32 30 | Caption = 'Cancelar a Requisi'#231#227'o' 31 | TabOrder = 5 32 | OnClick = btnCancelRequestClick 33 | end 34 | object btnConfirmRequest: TButton 35 | Left = 311 36 | Top = 335 37 | Width = 321 38 | Height = 32 39 | Caption = 'Confirmar a Requisi'#231#227'o' 40 | TabOrder = 4 41 | OnClick = btnConfirmRequestClick 42 | end 43 | object GroupBox3: TGroupBox 44 | Left = 4 45 | Top = 161 46 | Width = 301 47 | Height = 147 48 | Caption = '*Cliente' 49 | TabOrder = 1 50 | object Label4: TLabel 51 | Left = 9 52 | Top = 91 53 | Width = 118 54 | Height = 13 55 | Caption = '*Telefone - 5144916523' 56 | end 57 | object Label3: TLabel 58 | Left = 9 59 | Top = 67 60 | Width = 140 61 | Height = 13 62 | Caption = '*E-mail - email@servidor.com' 63 | end 64 | object Label2: TLabel 65 | Left = 9 66 | Top = 43 67 | Width = 120 68 | Height = 13 69 | Caption = '*CPF - Ex. 94271564656' 70 | end 71 | object Label1: TLabel 72 | Left = 9 73 | Top = 19 74 | Width = 152 75 | Height = 13 76 | Caption = '*Nome - Ex. Gorbadoc Oldbuck ' 77 | end 78 | object Label18: TLabel 79 | Left = 9 80 | Top = 116 81 | Width = 124 82 | Height = 13 83 | Caption = '*Nascimento -1990-08-29' 84 | end 85 | object txtName: TEdit 86 | Left = 163 87 | Top = 16 88 | Width = 133 89 | Height = 21 90 | TabOrder = 0 91 | end 92 | object txtCPF: TEdit 93 | Left = 134 94 | Top = 40 95 | Width = 162 96 | Height = 21 97 | TabOrder = 1 98 | end 99 | object txtEmail: TEdit 100 | Left = 155 101 | Top = 64 102 | Width = 141 103 | Height = 21 104 | TabOrder = 2 105 | end 106 | object txtPhone: TEdit 107 | Left = 134 108 | Top = 88 109 | Width = 162 110 | Height = 21 111 | TabOrder = 3 112 | end 113 | object txtBirth: TEdit 114 | Left = 134 115 | Top = 113 116 | Width = 163 117 | Height = 21 118 | TabOrder = 4 119 | end 120 | end 121 | object GroupBox2: TGroupBox 122 | Left = 311 123 | Top = 14 124 | Width = 320 125 | Height = 141 126 | Caption = 'Endere'#231'o' 127 | TabOrder = 2 128 | object Label5: TLabel 129 | Left = 3 130 | Top = 19 131 | Width = 139 132 | Height = 13 133 | Caption = '*Rua - Ex. Avenida Juscelino' 134 | end 135 | object Label6: TLabel 136 | Left = 3 137 | Top = 43 138 | Width = 90 139 | Height = 13 140 | Caption = '*Numero - Ex. 909' 141 | end 142 | object Label7: TLabel 143 | Left = 3 144 | Top = 67 145 | Width = 99 146 | Height = 13 147 | Caption = '*Bairro - Ex. Bauxita' 148 | end 149 | object Label8: TLabel 150 | Left = 3 151 | Top = 91 152 | Width = 102 153 | Height = 13 154 | Caption = '*CEP - Ex. 35400000' 155 | end 156 | object Label9: TLabel 157 | Left = 139 158 | Top = 43 159 | Width = 118 160 | Height = 13 161 | Caption = '*Cidade- Ex. Ouro Preto' 162 | end 163 | object Label10: TLabel 164 | Left = 5 165 | Top = 115 166 | Width = 118 167 | Height = 13 168 | Caption = 'Complemento - Ex. Casa' 169 | end 170 | object Label11: TLabel 171 | Left = 175 172 | Top = 91 173 | Width = 83 174 | Height = 13 175 | Caption = '*Estado - Ex. MG' 176 | end 177 | object txtNumber: TEdit 178 | Left = 95 179 | Top = 40 180 | Width = 43 181 | Height = 21 182 | TabOrder = 1 183 | end 184 | object txtZipCode: TEdit 185 | Left = 106 186 | Top = 88 187 | Width = 68 188 | Height = 21 189 | TabOrder = 4 190 | end 191 | object txtNeighborhood: TEdit 192 | Left = 106 193 | Top = 64 194 | Width = 211 195 | Height = 21 196 | TabOrder = 3 197 | end 198 | object txtState: TEdit 199 | Left = 259 200 | Top = 88 201 | Width = 58 202 | Height = 21 203 | TabOrder = 5 204 | end 205 | object txtComplement: TEdit 206 | Left = 127 207 | Top = 112 208 | Width = 190 209 | Height = 21 210 | TabOrder = 6 211 | end 212 | object txtCity: TEdit 213 | Left = 259 214 | Top = 40 215 | Width = 58 216 | Height = 21 217 | TabOrder = 2 218 | end 219 | object txtStreet: TEdit 220 | Left = 145 221 | Top = 16 222 | Width = 172 223 | Height = 21 224 | TabOrder = 0 225 | end 226 | end 227 | object GroupBox4: TGroupBox 228 | Left = 311 229 | Top = 161 230 | Width = 320 231 | Height = 147 232 | Caption = 'Dados do Cart'#227'o' 233 | TabOrder = 3 234 | object Label12: TLabel 235 | Left = 5 236 | Top = 19 237 | Width = 96 238 | Height = 13 239 | Caption = '*Bandeira - Ex. visa' 240 | end 241 | object Label13: TLabel 242 | Left = 5 243 | Top = 41 244 | Width = 177 245 | Height = 13 246 | Caption = '*Numero - Ex. 4012 0010 3844 3335' 247 | end 248 | object Label14: TLabel 249 | Left = 174 250 | Top = 86 251 | Width = 72 252 | Height = 13 253 | Caption = '*CVV - Ex. 123' 254 | end 255 | object Label16: TLabel 256 | Left = 5 257 | Top = 112 258 | Width = 143 259 | Height = 13 260 | Caption = '*Venc. M'#234's/Ano- Ex. 05 2021' 261 | end 262 | object Label17: TLabel 263 | Left = 5 264 | Top = 86 265 | Width = 81 266 | Height = 13 267 | Caption = '*Parcelas - Ex. 1' 268 | end 269 | object txtCard1: TEdit 270 | Left = 5 271 | Top = 56 272 | Width = 76 273 | Height = 21 274 | TabOrder = 1 275 | end 276 | object txtMonth: TEdit 277 | Left = 149 278 | Top = 109 279 | Width = 70 280 | Height = 21 281 | TabOrder = 7 282 | end 283 | object txtCVV: TEdit 284 | Left = 247 285 | Top = 83 286 | Width = 70 287 | Height = 21 288 | TabOrder = 6 289 | end 290 | object txtBrand: TEdit 291 | Left = 105 292 | Top = 16 293 | Width = 212 294 | Height = 21 295 | TabOrder = 0 296 | end 297 | object txtCard2: TEdit 298 | Left = 83 299 | Top = 56 300 | Width = 76 301 | Height = 21 302 | TabOrder = 2 303 | end 304 | object txtCard3: TEdit 305 | Left = 161 306 | Top = 56 307 | Width = 77 308 | Height = 21 309 | TabOrder = 3 310 | end 311 | object txtCard4: TEdit 312 | Left = 240 313 | Top = 56 314 | Width = 77 315 | Height = 21 316 | TabOrder = 4 317 | end 318 | object txtYear: TEdit 319 | Left = 222 320 | Top = 109 321 | Width = 95 322 | Height = 21 323 | TabOrder = 8 324 | end 325 | object txtInstallments: TEdit 326 | Left = 89 327 | Top = 81 328 | Width = 58 329 | Height = 21 330 | TabOrder = 5 331 | end 332 | end 333 | object GroupBox6: TGroupBox 334 | Left = 3 335 | Top = 14 336 | Width = 305 337 | Height = 143 338 | Caption = 'Items' 339 | TabOrder = 0 340 | object Label19: TLabel 341 | Left = 3 342 | Top = 13 343 | Width = 123 344 | Height = 13 345 | Caption = '*Nome - Ex. Meu Produto' 346 | end 347 | object Label20: TLabel 348 | Left = 3 349 | Top = 52 350 | Width = 83 351 | Height = 13 352 | Caption = '*Valor - Ex. 8900' 353 | end 354 | object Label21: TLabel 355 | Left = 3 356 | Top = 94 357 | Width = 97 358 | Height = 13 359 | Caption = '*Quantidade - Ex. 2' 360 | end 361 | object txtItem: TEdit 362 | Left = 3 363 | Top = 26 364 | Width = 299 365 | Height = 21 366 | TabOrder = 0 367 | end 368 | object txtValue: TEdit 369 | Left = 3 370 | Top = 65 371 | Width = 299 372 | Height = 21 373 | TabOrder = 1 374 | end 375 | object txtAmount: TEdit 376 | Left = 3 377 | Top = 107 378 | Width = 299 379 | Height = 21 380 | TabOrder = 2 381 | end 382 | end 383 | end 384 | end 385 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewPayCreditCardOneStep.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Charges/ViewPayCreditCardOneStep.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewResendBillet.dfm: -------------------------------------------------------------------------------- 1 | object ViewResendBillet: TViewResendBillet 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Transa'#231#245'es - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 24 28 | Width = 124 29 | Height = 13 30 | Caption = '*Identificador - charge_id' 31 | end 32 | object Label2: TLabel 33 | Left = 6 34 | Top = 67 35 | Width = 136 36 | Height = 13 37 | Caption = '*Email - email@servidor.com' 38 | end 39 | object txtIdent: TEdit 40 | Left = 6 41 | Top = 39 42 | Width = 569 43 | Height = 21 44 | TabOrder = 0 45 | end 46 | object btnCancelRequest: TButton 47 | Left = 6 48 | Top = 104 49 | Width = 280 50 | Height = 32 51 | Caption = 'Cancelar a Requisi'#231#227'o' 52 | TabOrder = 3 53 | OnClick = btnCancelRequestClick 54 | end 55 | object btnConfirmRequest: TButton 56 | Left = 290 57 | Top = 104 58 | Width = 285 59 | Height = 32 60 | Caption = 'Confirmar a Requisi'#231#227'o' 61 | TabOrder = 2 62 | OnClick = btnConfirmRequestClick 63 | end 64 | object txtEmail: TEdit 65 | Left = 6 66 | Top = 82 67 | Width = 569 68 | Height = 21 69 | TabOrder = 1 70 | end 71 | end 72 | end 73 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewResendBillet.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Charges/ViewResendBillet.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewUpdateLinkCharge.dfm: -------------------------------------------------------------------------------- 1 | object ViewUpdateLinkCharge: TViewUpdateLinkCharge 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Transa'#231#245'es - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 21 28 | Width = 124 29 | Height = 13 30 | Caption = '*Identificador - charge_id' 31 | end 32 | object Label2: TLabel 33 | Left = 6 34 | Top = 139 35 | Width = 133 36 | Height = 13 37 | Caption = 'Desconto no Boletos - Ex. 5' 38 | end 39 | object Label3: TLabel 40 | Left = 6 41 | Top = 181 42 | Width = 136 43 | Height = 13 44 | Caption = 'Descontos no Cart'#227'o - Ex. 5' 45 | end 46 | object Label4: TLabel 47 | Left = 6 48 | Top = 101 49 | Width = 146 50 | Height = 13 51 | Caption = '*Vencimento - Ex. 2025-12-30' 52 | end 53 | object Label5: TLabel 54 | Left = 300 55 | Top = 101 56 | Width = 176 57 | Height = 13 58 | Caption = 'Mensagem - Ex. Mensagem de Teste' 59 | end 60 | object Label6: TLabel 61 | Left = 6 62 | Top = 61 63 | Width = 148 64 | Height = 13 65 | Caption = 'M'#233'todo de Pagamento - Ex. All' 66 | end 67 | object txtIdent: TEdit 68 | Left = 6 69 | Top = 36 70 | Width = 572 71 | Height = 21 72 | TabOrder = 0 73 | end 74 | object btnCancelRequest: TButton 75 | Left = 6 76 | Top = 222 77 | Width = 283 78 | Height = 32 79 | Caption = 'Cancelar a Requisi'#231#227'o' 80 | TabOrder = 8 81 | OnClick = btnCancelRequestClick 82 | end 83 | object btnConfirmRequest: TButton 84 | Left = 300 85 | Top = 222 86 | Width = 278 87 | Height = 32 88 | Caption = 'Confirmar a Requisi'#231#227'o' 89 | TabOrder = 7 90 | OnClick = btnConfirmRequestClick 91 | end 92 | object txtBilletDiscount: TEdit 93 | Left = 6 94 | Top = 152 95 | Width = 283 96 | Height = 21 97 | TabOrder = 4 98 | end 99 | object txtCardDiscount: TEdit 100 | Left = 6 101 | Top = 193 102 | Width = 283 103 | Height = 21 104 | TabOrder = 5 105 | end 106 | object txtExpireAt: TEdit 107 | Left = 6 108 | Top = 114 109 | Width = 283 110 | Height = 21 111 | TabOrder = 3 112 | end 113 | object txtRequestDeliveryAddress: TCheckBox 114 | Left = 300 115 | Top = 75 116 | Width = 165 117 | Height = 17 118 | Caption = 'Solicitar Endere'#231'o de Entrega' 119 | TabOrder = 2 120 | end 121 | object txtPaymentMethod: TEdit 122 | Left = 6 123 | Top = 73 124 | Width = 283 125 | Height = 21 126 | TabOrder = 1 127 | end 128 | object txtMessage: TMemo 129 | Left = 300 130 | Top = 114 131 | Width = 278 132 | Height = 107 133 | Lines.Strings = ( 134 | 'Memo1') 135 | TabOrder = 6 136 | end 137 | end 138 | end 139 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewUpdateLinkCharge.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Charges/ViewUpdateLinkCharge.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewUpdateMetadataCharge.dfm: -------------------------------------------------------------------------------- 1 | object ViewUpdateMetadataCharge: TViewUpdateMetadataCharge 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Transa'#231#245'es - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 26 28 | Width = 124 29 | Height = 13 30 | Caption = '*Identificador - charge_id' 31 | end 32 | object Label2: TLabel 33 | Left = 7 34 | Top = 67 35 | Width = 108 36 | Height = 13 37 | Caption = '*Notifica'#231#227'o - Ex.: null' 38 | end 39 | object txtIdent: TEdit 40 | Left = 6 41 | Top = 41 42 | Width = 569 43 | Height = 21 44 | TabOrder = 0 45 | end 46 | object btnCancelRequest: TButton 47 | Left = 6 48 | Top = 104 49 | Width = 280 50 | Height = 32 51 | Caption = 'Cancelar a Requisi'#231#227'o' 52 | TabOrder = 3 53 | OnClick = btnCancelRequestClick 54 | end 55 | object btnConfirmRequest: TButton 56 | Left = 290 57 | Top = 104 58 | Width = 285 59 | Height = 32 60 | Caption = 'Confirmar a Requisi'#231#227'o' 61 | TabOrder = 2 62 | OnClick = btnConfirmRequestClick 63 | end 64 | object txtNotification: TEdit 65 | Left = 7 66 | Top = 82 67 | Width = 569 68 | Height = 21 69 | TabOrder = 1 70 | end 71 | end 72 | end 73 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Charges/ViewUpdateMetadataCharge.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Charges/ViewUpdateMetadataCharge.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Others/ViewDetailOthers.dfm: -------------------------------------------------------------------------------- 1 | object ViewDetailOthers: TViewDetailOthers 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Notifica'#231#227'o - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 24 28 | Width = 104 29 | Height = 13 30 | Caption = '*Identificador - token' 31 | end 32 | object txtIdent: TEdit 33 | Left = 6 34 | Top = 41 35 | Width = 569 36 | Height = 21 37 | TabOrder = 0 38 | end 39 | object btnCancelRequest: TButton 40 | Left = 6 41 | Top = 65 42 | Width = 280 43 | Height = 32 44 | Caption = 'Cancelar a Requisi'#231#227'o' 45 | TabOrder = 2 46 | OnClick = btnCancelRequestClick 47 | end 48 | object btnConfirmRequest: TButton 49 | Left = 290 50 | Top = 65 51 | Width = 285 52 | Height = 32 53 | Caption = 'Confirmar a Requisi'#231#227'o' 54 | TabOrder = 1 55 | OnClick = btnConfirmRequestClick 56 | end 57 | end 58 | end 59 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Others/ViewDetailOthers.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Others/ViewDetailOthers.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewCreatePlan.dfm: -------------------------------------------------------------------------------- 1 | object ViewCreatePlan: TViewCreatePlan 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object gbDevedor: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Dados do Body - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label2: TLabel 26 | Left = 7 27 | Top = 17 28 | Width = 239 29 | Height = 13 30 | Caption = '*Nome - Ex. Plano de Internet - Velocidade 10 Mb' 31 | end 32 | object Label3: TLabel 33 | Left = 7 34 | Top = 97 35 | Width = 94 36 | Height = 13 37 | Caption = 'Repeti'#231#245'es - Ex. 12' 38 | end 39 | object Label5: TLabel 40 | Left = 7 41 | Top = 58 42 | Width = 85 43 | Height = 13 44 | Caption = '*Intervalo - Ex. 1' 45 | end 46 | object txtName: TEdit 47 | Left = 7 48 | Top = 29 49 | Width = 559 50 | Height = 21 51 | TabOrder = 0 52 | end 53 | object txtRepeats: TEdit 54 | Left = 7 55 | Top = 110 56 | Width = 559 57 | Height = 21 58 | TabOrder = 2 59 | end 60 | object txtInterval: TEdit 61 | Left = 7 62 | Top = 70 63 | Width = 559 64 | Height = 21 65 | TabOrder = 1 66 | end 67 | object btnCancelRequest: TButton 68 | Left = 7 69 | Top = 226 70 | Width = 280 71 | Height = 32 72 | Caption = 'Cancelar a Requisi'#231#227'o' 73 | TabOrder = 4 74 | OnClick = btnCancelRequestClick 75 | end 76 | object btnConfirmRequest: TButton 77 | Left = 290 78 | Top = 226 79 | Width = 291 80 | Height = 32 81 | Caption = 'Confirmar a Requisi'#231#227'o' 82 | TabOrder = 3 83 | OnClick = btnConfirmRequestClick 84 | end 85 | end 86 | end 87 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewCreatePlan.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Plans/ViewCreatePlan.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewCreatePlanHistory.dfm: -------------------------------------------------------------------------------- 1 | object ViewCreatePlanHistory: TViewCreatePlanHistory 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Planos- *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 26 28 | Width = 148 29 | Height = 13 30 | Caption = '*Identificador - subscription_id' 31 | end 32 | object txtIdent: TEdit 33 | Left = 6 34 | Top = 41 35 | Width = 569 36 | Height = 21 37 | TabOrder = 0 38 | end 39 | object btnCancelRequest: TButton 40 | Left = 6 41 | Top = 128 42 | Width = 280 43 | Height = 32 44 | Caption = 'Cancelar a Requisi'#231#227'o' 45 | TabOrder = 3 46 | OnClick = btnCancelRequestClick 47 | end 48 | object btnConfirmRequest: TButton 49 | Left = 290 50 | Top = 128 51 | Width = 285 52 | Height = 32 53 | Caption = 'Confirmar a Requisi'#231#227'o' 54 | TabOrder = 2 55 | OnClick = btnConfirmRequestClick 56 | end 57 | object gbDevedor: TGroupBox 58 | Left = 6 59 | Top = 68 60 | Width = 569 61 | Height = 59 62 | Caption = 'Dados do Body' 63 | TabOrder = 1 64 | object Label2: TLabel 65 | Left = 4 66 | Top = 19 67 | Width = 244 68 | Height = 13 69 | Caption = '*Descri'#231#227'o - Ex. Minha mensagem do hist'#243'rico aqui' 70 | end 71 | object Button1: TButton 72 | Left = 7 73 | Top = 226 74 | Width = 280 75 | Height = 32 76 | Caption = 'Cancelar a Requisi'#231#227'o' 77 | TabOrder = 2 78 | OnClick = btnCancelRequestClick 79 | end 80 | object Button2: TButton 81 | Left = 290 82 | Top = 226 83 | Width = 291 84 | Height = 32 85 | Caption = 'Confirmar a Requisi'#231#227'o' 86 | TabOrder = 1 87 | OnClick = btnConfirmRequestClick 88 | end 89 | object txtDescription: TEdit 90 | Left = 4 91 | Top = 33 92 | Width = 560 93 | Height = 21 94 | TabOrder = 0 95 | end 96 | end 97 | end 98 | end 99 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewCreatePlanHistory.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Plans/ViewCreatePlanHistory.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewCreateSubscription.dfm: -------------------------------------------------------------------------------- 1 | object ViewCreateSubscription: TViewCreateSubscription 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object gbDevedor: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground Planos - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label2: TLabel 26 | Left = 7 27 | Top = 59 28 | Width = 239 29 | Height = 13 30 | Caption = '*Nome - Ex. Plano de Internet - Velocidade 10 Mb' 31 | end 32 | object Label3: TLabel 33 | Left = 7 34 | Top = 143 35 | Width = 79 36 | Height = 13 37 | Caption = '*Quantia - Ex. 1' 38 | end 39 | object Label5: TLabel 40 | Left = 7 41 | Top = 101 42 | Width = 83 43 | Height = 13 44 | Caption = '*Valor - Ex. 6990' 45 | end 46 | object Label1: TLabel 47 | Left = 7 48 | Top = 18 49 | Width = 111 50 | Height = 13 51 | Caption = '*Identificador - plan_id' 52 | end 53 | object txtName: TEdit 54 | Left = 7 55 | Top = 72 56 | Width = 574 57 | Height = 21 58 | TabOrder = 1 59 | end 60 | object txtAmount: TEdit 61 | Left = 7 62 | Top = 156 63 | Width = 574 64 | Height = 21 65 | TabOrder = 3 66 | end 67 | object txtValue: TEdit 68 | Left = 7 69 | Top = 113 70 | Width = 574 71 | Height = 21 72 | TabOrder = 2 73 | end 74 | object btnCancelRequest: TButton 75 | Left = 7 76 | Top = 226 77 | Width = 280 78 | Height = 32 79 | Caption = 'Cancelar a Requisi'#231#227'o' 80 | TabOrder = 5 81 | OnClick = btnCancelRequestClick 82 | end 83 | object btnConfirmRequest: TButton 84 | Left = 290 85 | Top = 226 86 | Width = 291 87 | Height = 32 88 | Caption = 'Confirmar a Requisi'#231#227'o' 89 | TabOrder = 4 90 | OnClick = btnConfirmRequestClick 91 | end 92 | object txtIdent: TEdit 93 | Left = 7 94 | Top = 31 95 | Width = 574 96 | Height = 21 97 | TabOrder = 0 98 | end 99 | end 100 | end 101 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewCreateSubscription.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Plans/ViewCreateSubscription.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewDetailPlan.dfm: -------------------------------------------------------------------------------- 1 | object ViewDetailPlan: TViewDetailPlan 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Planos' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 24 28 | Width = 148 29 | Height = 13 30 | Caption = '*Identificador - subscription_id' 31 | end 32 | object txtIdent: TEdit 33 | Left = 6 34 | Top = 41 35 | Width = 569 36 | Height = 21 37 | TabOrder = 0 38 | end 39 | object btnCancelRequest: TButton 40 | Left = 6 41 | Top = 65 42 | Width = 280 43 | Height = 32 44 | Caption = 'Cancelar a Requisi'#231#227'o' 45 | TabOrder = 2 46 | OnClick = btnCancelRequestClick 47 | end 48 | object btnConfirmRequest: TButton 49 | Left = 290 50 | Top = 65 51 | Width = 285 52 | Height = 32 53 | Caption = 'Confirmar a Requisi'#231#227'o' 54 | TabOrder = 1 55 | OnClick = btnConfirmRequestClick 56 | end 57 | end 58 | end 59 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewDetailPlan.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Plans/ViewDetailPlan.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewGetPlan.dfm: -------------------------------------------------------------------------------- 1 | object ViewGetPlan: TViewGetPlan 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object gbDevedor: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground Planos - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label2: TLabel 26 | Left = 7 27 | Top = 18 28 | Width = 117 29 | Height = 13 30 | Caption = 'Nome - Ex. Meu Produto' 31 | end 32 | object Label3: TLabel 33 | Left = 7 34 | Top = 101 35 | Width = 67 36 | Height = 13 37 | Caption = 'OffSet - Ex. 5' 38 | end 39 | object Label5: TLabel 40 | Left = 7 41 | Top = 59 42 | Width = 62 43 | Height = 13 44 | Caption = 'Limite - Ex. 5' 45 | end 46 | object txtName: TEdit 47 | Left = 7 48 | Top = 31 49 | Width = 574 50 | Height = 21 51 | TabOrder = 0 52 | end 53 | object txtOffset: TEdit 54 | Left = 7 55 | Top = 113 56 | Width = 574 57 | Height = 21 58 | TabOrder = 2 59 | end 60 | object txtLimit: TEdit 61 | Left = 7 62 | Top = 71 63 | Width = 574 64 | Height = 21 65 | TabOrder = 1 66 | end 67 | object btnCancelRequest: TButton 68 | Left = 7 69 | Top = 226 70 | Width = 280 71 | Height = 32 72 | Caption = 'Cancelar a Requisi'#231#227'o' 73 | TabOrder = 4 74 | OnClick = btnCancelRequestClick 75 | end 76 | object btnConfirmRequest: TButton 77 | Left = 290 78 | Top = 226 79 | Width = 291 80 | Height = 32 81 | Caption = 'Confirmar a Requisi'#231#227'o' 82 | TabOrder = 3 83 | OnClick = btnConfirmRequestClick 84 | end 85 | end 86 | end 87 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewGetPlan.pas: -------------------------------------------------------------------------------- 1 | unit ViewGetPlan; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, 7 | System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.UITypes, 8 | Vcl.StdCtrls, uChargeClasses, XSuperJSON, XSuperObject, System.JSON; 9 | 10 | type 11 | TViewGetPlan = class(TForm) 12 | gbDevedor: TGroupBox; 13 | Label2: TLabel; 14 | Label3: TLabel; 15 | txtName: TEdit; 16 | txtOffset: TEdit; 17 | Label5: TLabel; 18 | txtLimit: TEdit; 19 | btnCancelRequest: TButton; 20 | btnConfirmRequest: TButton; 21 | procedure FormCreate(Sender: TObject); 22 | procedure btnCancelRequestClick(Sender: TObject); 23 | procedure btnConfirmRequestClick(Sender: TObject); 24 | private 25 | function GetName: String; 26 | function GetLimit: String; 27 | function GetOffset: String; 28 | public 29 | property NameIdentifier: String read GetName; 30 | property Limit: String read GetLimit; 31 | property Offset: String read GetOffset; 32 | procedure ClearRequestfields; 33 | end; 34 | 35 | implementation 36 | 37 | {$R *.dfm} 38 | 39 | procedure TViewGetPlan.btnCancelRequestClick(Sender: TObject); 40 | begin 41 | ModalResult := mrCancel; 42 | end; 43 | 44 | procedure TViewGetPlan.btnConfirmRequestClick(Sender: TObject); 45 | begin 46 | ModalResult := mrOk; 47 | end; 48 | 49 | procedure TViewGetPlan.FormCreate(Sender: TObject); 50 | begin 51 | Self.Position := poScreenCenter; 52 | end; 53 | 54 | function TViewGetPlan.GetLimit: String; 55 | begin 56 | Result := txtLimit.Text; 57 | end; 58 | 59 | function TViewGetPlan.GetName: String; 60 | begin 61 | Result := txtName.Text; 62 | end; 63 | 64 | function TViewGetPlan.GetOffset: String; 65 | begin 66 | Result := txtOffset.Text; 67 | end; 68 | 69 | procedure TViewGetPlan.ClearRequestfields; 70 | begin 71 | txtName.Text := ''; 72 | txtOffset.Text := ''; 73 | txtLimit.Text := ''; 74 | end; 75 | 76 | end. 77 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewPayPlan.dfm: -------------------------------------------------------------------------------- 1 | object ViewPayPlan: TViewPayPlan 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal de Pagamento' 5 | ClientHeight = 371 6 | ClientWidth = 634 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox1: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 634 21 | Height = 371 22 | Align = alClient 23 | Caption = 'Pagamento de Planos - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label12: TLabel 26 | Left = 320 27 | Top = 159 28 | Width = 146 29 | Height = 13 30 | Caption = '*Vencimento - Ex. 2025-12-30' 31 | end 32 | object Label15: TLabel 33 | Left = 8 34 | Top = 22 35 | Width = 148 36 | Height = 13 37 | Caption = '*Identificador - subscription_id' 38 | end 39 | object btnCancelRequest: TButton 40 | Left = 4 41 | Top = 335 42 | Width = 307 43 | Height = 32 44 | Caption = 'Cancelar a Requisi'#231#227'o' 45 | TabOrder = 7 46 | OnClick = btnCancelRequestClick 47 | end 48 | object btnConfirmRequest: TButton 49 | Left = 314 50 | Top = 335 51 | Width = 316 52 | Height = 32 53 | Caption = 'Confirmar a Requisi'#231#227'o' 54 | TabOrder = 6 55 | OnClick = btnConfirmRequestClick 56 | end 57 | object GroupBox3: TGroupBox 58 | Left = 8 59 | Top = 42 60 | Width = 300 61 | Height = 134 62 | Caption = '*Cliente' 63 | TabOrder = 1 64 | object Label4: TLabel 65 | Left = 4 66 | Top = 86 67 | Width = 118 68 | Height = 13 69 | Caption = '*Telefone - 5144916523' 70 | end 71 | object Label3: TLabel 72 | Left = 4 73 | Top = 63 74 | Width = 134 75 | Height = 13 76 | Caption = 'E-mail - email@servidor.com' 77 | end 78 | object Label2: TLabel 79 | Left = 4 80 | Top = 39 81 | Width = 149 82 | Height = 13 83 | Caption = '*CPF/CNPJ - Ex. 94271564656' 84 | end 85 | object Label1: TLabel 86 | Left = 4 87 | Top = 15 88 | Width = 152 89 | Height = 13 90 | Caption = '*Nome - Ex. Gorbadoc Oldbuck ' 91 | end 92 | object Label18: TLabel 93 | Left = 4 94 | Top = 110 95 | Width = 118 96 | Height = 13 97 | Caption = 'Nascimento -1990-08-29' 98 | end 99 | object txtName: TEdit 100 | Left = 156 101 | Top = 12 102 | Width = 141 103 | Height = 21 104 | TabOrder = 0 105 | end 106 | object txtCPF: TEdit 107 | Left = 156 108 | Top = 36 109 | Width = 141 110 | Height = 21 111 | TabOrder = 1 112 | end 113 | object txtEmail: TEdit 114 | Left = 145 115 | Top = 60 116 | Width = 152 117 | Height = 21 118 | TabOrder = 2 119 | end 120 | object txtPhone: TEdit 121 | Left = 124 122 | Top = 83 123 | Width = 173 124 | Height = 21 125 | TabOrder = 3 126 | end 127 | object txtBirth: TEdit 128 | Left = 124 129 | Top = 107 130 | Width = 173 131 | Height = 21 132 | TabOrder = 4 133 | end 134 | end 135 | object txtExpire: TEdit 136 | Left = 467 137 | Top = 156 138 | Width = 163 139 | Height = 21 140 | TabOrder = 3 141 | end 142 | object GroupBox4: TGroupBox 143 | Left = 8 144 | Top = 177 145 | Width = 300 146 | Height = 72 147 | Caption = 'Configura'#231#245'es - Juros ap'#243's vencimento' 148 | TabOrder = 4 149 | object Label13: TLabel 150 | Left = 9 151 | Top = 26 152 | Width = 99 153 | Height = 13 154 | Caption = 'Valor - Ex. 200 (2%)' 155 | end 156 | object Label14: TLabel 157 | Left = 9 158 | Top = 48 159 | Width = 184 160 | Height = 13 161 | Caption = 'Valor do Juros / Dia - Ex. 33 (0,033%)' 162 | end 163 | object txtFine: TEdit 164 | Left = 117 165 | Top = 21 166 | Width = 180 167 | Height = 21 168 | TabOrder = 0 169 | end 170 | object txtInterest: TEdit 171 | Left = 199 172 | Top = 45 173 | Width = 98 174 | Height = 21 175 | TabOrder = 1 176 | end 177 | end 178 | object GroupBox5: TGroupBox 179 | Left = 314 180 | Top = 177 181 | Width = 316 182 | Height = 72 183 | Caption = 'Mensagem' 184 | TabOrder = 5 185 | object txtMessage: TMemo 186 | Left = 6 187 | Top = 13 188 | Width = 309 189 | Height = 53 190 | Lines.Strings = ( 191 | 'Memo1') 192 | TabOrder = 0 193 | end 194 | end 195 | object txtIdent: TEdit 196 | Left = 162 197 | Top = 19 198 | Width = 146 199 | Height = 21 200 | TabOrder = 0 201 | end 202 | object GroupBox2: TGroupBox 203 | Left = 314 204 | Top = 14 205 | Width = 316 206 | Height = 141 207 | Caption = 'Endere'#231'o' 208 | TabOrder = 2 209 | object Label5: TLabel 210 | Left = 4 211 | Top = 19 212 | Width = 133 213 | Height = 13 214 | Caption = 'Rua - Ex. Avenida Juscelino' 215 | end 216 | object Label6: TLabel 217 | Left = 4 218 | Top = 43 219 | Width = 84 220 | Height = 13 221 | Caption = 'Numero - Ex. 909' 222 | end 223 | object Label7: TLabel 224 | Left = 4 225 | Top = 67 226 | Width = 93 227 | Height = 13 228 | Caption = 'Bairro - Ex. Bauxita' 229 | end 230 | object Label8: TLabel 231 | Left = 4 232 | Top = 91 233 | Width = 96 234 | Height = 13 235 | Caption = 'CEP - Ex. 35400000' 236 | end 237 | object Label9: TLabel 238 | Left = 142 239 | Top = 43 240 | Width = 112 241 | Height = 13 242 | Caption = 'Cidade- Ex. Ouro Preto' 243 | end 244 | object Label10: TLabel 245 | Left = 4 246 | Top = 115 247 | Width = 118 248 | Height = 13 249 | Caption = 'Complemento - Ex. Casa' 250 | end 251 | object Label11: TLabel 252 | Left = 177 253 | Top = 91 254 | Width = 77 255 | Height = 13 256 | Caption = 'Estado - Ex. MG' 257 | end 258 | object txtNumber: TEdit 259 | Left = 89 260 | Top = 40 261 | Width = 50 262 | Height = 21 263 | TabOrder = 1 264 | end 265 | object txtZipCode: TEdit 266 | Left = 102 267 | Top = 88 268 | Width = 73 269 | Height = 21 270 | TabOrder = 4 271 | end 272 | object txtNeighborhood: TEdit 273 | Left = 102 274 | Top = 64 275 | Width = 213 276 | Height = 21 277 | TabOrder = 3 278 | end 279 | object txtState: TEdit 280 | Left = 254 281 | Top = 88 282 | Width = 61 283 | Height = 21 284 | TabOrder = 5 285 | end 286 | object txtComplement: TEdit 287 | Left = 125 288 | Top = 112 289 | Width = 190 290 | Height = 21 291 | TabOrder = 6 292 | end 293 | object txtCity: TEdit 294 | Left = 254 295 | Top = 40 296 | Width = 61 297 | Height = 21 298 | TabOrder = 2 299 | end 300 | object txtStreet: TEdit 301 | Left = 138 302 | Top = 16 303 | Width = 177 304 | Height = 21 305 | TabOrder = 0 306 | end 307 | end 308 | end 309 | end 310 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewPayPlan.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Plans/ViewPayPlan.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewPayPlanCreditCard.dfm: -------------------------------------------------------------------------------- 1 | object ViewPayPlanCreditCard: TViewPayPlanCreditCard 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal de Pagamento' 5 | ClientHeight = 371 6 | ClientWidth = 634 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox1: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 634 21 | Height = 371 22 | Align = alClient 23 | Caption = 'Pagamento de Cobran'#231'as ' 24 | TabOrder = 0 25 | object Label15: TLabel 26 | Left = 8 27 | Top = 22 28 | Width = 148 29 | Height = 13 30 | Caption = '*Identificador - subscription_id' 31 | end 32 | object btnCancelRequest: TButton 33 | Left = 4 34 | Top = 335 35 | Width = 301 36 | Height = 32 37 | Caption = 'Cancelar a Requisi'#231#227'o' 38 | TabOrder = 5 39 | OnClick = btnCancelRequestClick 40 | end 41 | object btnConfirmRequest: TButton 42 | Left = 311 43 | Top = 335 44 | Width = 321 45 | Height = 32 46 | Caption = 'Confirmar a Requisi'#231#227'o' 47 | TabOrder = 4 48 | OnClick = btnConfirmRequestClick 49 | end 50 | object GroupBox3: TGroupBox 51 | Left = 4 52 | Top = 41 53 | Width = 301 54 | Height = 141 55 | Caption = '*Cliente' 56 | TabOrder = 1 57 | object Label4: TLabel 58 | Left = 9 59 | Top = 91 60 | Width = 118 61 | Height = 13 62 | Caption = '*Telefone - 5144916523' 63 | end 64 | object Label3: TLabel 65 | Left = 9 66 | Top = 67 67 | Width = 140 68 | Height = 13 69 | Caption = '*E-mail - email@servidor.com' 70 | end 71 | object Label2: TLabel 72 | Left = 9 73 | Top = 43 74 | Width = 120 75 | Height = 13 76 | Caption = '*CPF - Ex. 94271564656' 77 | end 78 | object Label1: TLabel 79 | Left = 9 80 | Top = 19 81 | Width = 152 82 | Height = 13 83 | Caption = '*Nome - Ex. Gorbadoc Oldbuck ' 84 | end 85 | object Label18: TLabel 86 | Left = 9 87 | Top = 116 88 | Width = 124 89 | Height = 13 90 | Caption = '*Nascimento -1990-08-29' 91 | end 92 | object txtName: TEdit 93 | Left = 163 94 | Top = 16 95 | Width = 133 96 | Height = 21 97 | TabOrder = 0 98 | end 99 | object txtCPF: TEdit 100 | Left = 134 101 | Top = 40 102 | Width = 162 103 | Height = 21 104 | TabOrder = 1 105 | end 106 | object txtEmail: TEdit 107 | Left = 155 108 | Top = 64 109 | Width = 141 110 | Height = 21 111 | TabOrder = 2 112 | end 113 | object txtPhone: TEdit 114 | Left = 134 115 | Top = 88 116 | Width = 162 117 | Height = 21 118 | TabOrder = 3 119 | end 120 | object txtBirth: TEdit 121 | Left = 134 122 | Top = 113 123 | Width = 163 124 | Height = 21 125 | TabOrder = 4 126 | end 127 | end 128 | object txtIdent: TEdit 129 | Left = 162 130 | Top = 19 131 | Width = 469 132 | Height = 21 133 | TabOrder = 0 134 | end 135 | object GroupBox2: TGroupBox 136 | Left = 311 137 | Top = 41 138 | Width = 320 139 | Height = 141 140 | Caption = 'Endere'#231'o' 141 | TabOrder = 2 142 | object Label5: TLabel 143 | Left = 3 144 | Top = 19 145 | Width = 139 146 | Height = 13 147 | Caption = '*Rua - Ex. Avenida Juscelino' 148 | end 149 | object Label6: TLabel 150 | Left = 3 151 | Top = 43 152 | Width = 90 153 | Height = 13 154 | Caption = '*Numero - Ex. 909' 155 | end 156 | object Label7: TLabel 157 | Left = 3 158 | Top = 67 159 | Width = 99 160 | Height = 13 161 | Caption = '*Bairro - Ex. Bauxita' 162 | end 163 | object Label8: TLabel 164 | Left = 3 165 | Top = 91 166 | Width = 102 167 | Height = 13 168 | Caption = '*CEP - Ex. 35400000' 169 | end 170 | object Label9: TLabel 171 | Left = 139 172 | Top = 43 173 | Width = 118 174 | Height = 13 175 | Caption = '*Cidade- Ex. Ouro Preto' 176 | end 177 | object Label10: TLabel 178 | Left = 5 179 | Top = 115 180 | Width = 118 181 | Height = 13 182 | Caption = 'Complemento - Ex. Casa' 183 | end 184 | object Label11: TLabel 185 | Left = 175 186 | Top = 91 187 | Width = 83 188 | Height = 13 189 | Caption = '*Estado - Ex. MG' 190 | end 191 | object txtNumber: TEdit 192 | Left = 95 193 | Top = 40 194 | Width = 43 195 | Height = 21 196 | TabOrder = 1 197 | end 198 | object txtZipCode: TEdit 199 | Left = 106 200 | Top = 88 201 | Width = 68 202 | Height = 21 203 | TabOrder = 4 204 | end 205 | object txtNeighborhood: TEdit 206 | Left = 106 207 | Top = 64 208 | Width = 211 209 | Height = 21 210 | TabOrder = 3 211 | end 212 | object txtState: TEdit 213 | Left = 259 214 | Top = 88 215 | Width = 58 216 | Height = 21 217 | TabOrder = 5 218 | end 219 | object txtComplement: TEdit 220 | Left = 127 221 | Top = 112 222 | Width = 190 223 | Height = 21 224 | TabOrder = 6 225 | end 226 | object txtCity: TEdit 227 | Left = 259 228 | Top = 40 229 | Width = 58 230 | Height = 21 231 | TabOrder = 2 232 | end 233 | object txtStreet: TEdit 234 | Left = 145 235 | Top = 16 236 | Width = 172 237 | Height = 21 238 | TabOrder = 0 239 | end 240 | end 241 | object GroupBox4: TGroupBox 242 | Left = 8 243 | Top = 182 244 | Width = 297 245 | Height = 147 246 | Caption = 'Dados do Cart'#227'o' 247 | TabOrder = 3 248 | object Label12: TLabel 249 | Left = 5 250 | Top = 19 251 | Width = 96 252 | Height = 13 253 | Caption = '*Bandeira - Ex. visa' 254 | end 255 | object Label13: TLabel 256 | Left = 5 257 | Top = 41 258 | Width = 177 259 | Height = 13 260 | Caption = '*Numero - Ex. 4012 0010 3844 3335' 261 | end 262 | object Label14: TLabel 263 | Left = 5 264 | Top = 86 265 | Width = 72 266 | Height = 13 267 | Caption = '*CVV - Ex. 123' 268 | end 269 | object Label16: TLabel 270 | Left = 5 271 | Top = 112 272 | Width = 143 273 | Height = 13 274 | Caption = '*Venc. M'#234's/Ano- Ex. 05 2021' 275 | end 276 | object txtCard1: TEdit 277 | Left = 5 278 | Top = 55 279 | Width = 70 280 | Height = 21 281 | TabOrder = 1 282 | end 283 | object txtMonth: TEdit 284 | Left = 149 285 | Top = 109 286 | Width = 70 287 | Height = 21 288 | TabOrder = 6 289 | end 290 | object txtCVV: TEdit 291 | Left = 82 292 | Top = 83 293 | Width = 210 294 | Height = 21 295 | TabOrder = 5 296 | end 297 | object txtBrand: TEdit 298 | Left = 105 299 | Top = 16 300 | Width = 187 301 | Height = 21 302 | TabOrder = 0 303 | end 304 | object txtCard2: TEdit 305 | Left = 77 306 | Top = 55 307 | Width = 70 308 | Height = 21 309 | TabOrder = 2 310 | end 311 | object txtCard3: TEdit 312 | Left = 149 313 | Top = 55 314 | Width = 70 315 | Height = 21 316 | TabOrder = 3 317 | end 318 | object txtCard4: TEdit 319 | Left = 222 320 | Top = 55 321 | Width = 70 322 | Height = 21 323 | TabOrder = 4 324 | end 325 | object txtYear: TEdit 326 | Left = 222 327 | Top = 109 328 | Width = 70 329 | Height = 21 330 | TabOrder = 7 331 | end 332 | end 333 | end 334 | end 335 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewPayPlanCreditCard.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Plans/ViewPayPlanCreditCard.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewUpdateMetadataPlan.dfm: -------------------------------------------------------------------------------- 1 | object ViewUpdateMetadataPlan: TViewUpdateMetadataPlan 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground: Planos - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 26 28 | Width = 148 29 | Height = 13 30 | Caption = '*Identificador - subscription_id' 31 | end 32 | object Label2: TLabel 33 | Left = 7 34 | Top = 67 35 | Width = 108 36 | Height = 13 37 | Caption = '*Notifica'#231#227'o - Ex.: null' 38 | end 39 | object txtIdent: TEdit 40 | Left = 6 41 | Top = 41 42 | Width = 569 43 | Height = 21 44 | TabOrder = 0 45 | end 46 | object btnCancelRequest: TButton 47 | Left = 6 48 | Top = 104 49 | Width = 280 50 | Height = 32 51 | Caption = 'Cancelar a Requisi'#231#227'o' 52 | TabOrder = 3 53 | OnClick = btnCancelRequestClick 54 | end 55 | object btnConfirmRequest: TButton 56 | Left = 290 57 | Top = 104 58 | Width = 285 59 | Height = 32 60 | Caption = 'Confirmar a Requisi'#231#227'o' 61 | TabOrder = 2 62 | OnClick = btnConfirmRequestClick 63 | end 64 | object txtNotification: TEdit 65 | Left = 7 66 | Top = 82 67 | Width = 569 68 | Height = 21 69 | TabOrder = 1 70 | end 71 | end 72 | end 73 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewUpdateMetadataPlan.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Plans/ViewUpdateMetadataPlan.pas -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewUpdatePlan.dfm: -------------------------------------------------------------------------------- 1 | object ViewUpdatePlan: TViewUpdatePlan 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Playground Planos - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 26 28 | Width = 111 29 | Height = 13 30 | Caption = '*Identificador - plan_id' 31 | end 32 | object Label2: TLabel 33 | Left = 6 34 | Top = 68 35 | Width = 239 36 | Height = 13 37 | Caption = '*Nome - Ex. Plano de Internet - Velocidade 10 Mb' 38 | end 39 | object txtIdent: TEdit 40 | Left = 6 41 | Top = 41 42 | Width = 569 43 | Height = 21 44 | TabOrder = 0 45 | end 46 | object btnCancelRequest: TButton 47 | Left = 6 48 | Top = 104 49 | Width = 280 50 | Height = 32 51 | Caption = 'Cancelar a Requisi'#231#227'o' 52 | TabOrder = 3 53 | OnClick = btnCancelRequestClick 54 | end 55 | object btnConfirmRequest: TButton 56 | Left = 290 57 | Top = 104 58 | Width = 285 59 | Height = 32 60 | Caption = 'Confirmar a Requisi'#231#227'o' 61 | TabOrder = 2 62 | OnClick = btnConfirmRequestClick 63 | end 64 | object txtName: TEdit 65 | Left = 6 66 | Top = 82 67 | Width = 569 68 | Height = 21 69 | TabOrder = 1 70 | end 71 | end 72 | end 73 | -------------------------------------------------------------------------------- /Code/Api Boletos/Utils/Views/Plans/ViewUpdatePlan.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Boletos/Utils/Views/Plans/ViewUpdatePlan.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Classes/BodyAccountClass.pas: -------------------------------------------------------------------------------- 1 | unit BodyAccountClass; 2 | 3 | interface 4 | 5 | uses xSuperObject, xSuperJSON, System.RTTI; 6 | 7 | Type 8 | TRefuseAll = record 9 | [Alias('recusarTodos')] RefuseAll: Boolean; 10 | end; 11 | 12 | TReceiveKey = class 13 | [Alias('txidObrigatorio')] TxidMandatory : Boolean; 14 | [Alias('qrCodeEstatico')] QrCodeStatic : TRefuseAll; 15 | end; 16 | 17 | TKeyGN = class 18 | [Alias('recebimento')] Receive : TReceiveKey; 19 | end; 20 | 21 | TKey = class 22 | [Alias('aliasKeyGN')] KeyGN : TKeyGN; 23 | end; 24 | 25 | TPix = class 26 | [Alias('chaves')] Key : TKey; 27 | [Alias('receberSemChave')] ReceiveKey: Boolean; 28 | end; 29 | 30 | TBodyAccountClass = class 31 | private 32 | FPix : TPix; 33 | procedure SetPix(const Value: TPix); 34 | public 35 | [Alias('pix')] 36 | property Pix: TPix read FPix write SetPix; 37 | constructor Create; 38 | end; 39 | 40 | 41 | implementation 42 | 43 | { TBodyAccountPixClass } 44 | 45 | constructor TBodyAccountClass.Create; 46 | begin 47 | inherited; 48 | end; 49 | 50 | procedure TBodyAccountClass.SetPix(const Value: TPix); 51 | begin 52 | FPix := Value; 53 | end; 54 | 55 | end. 56 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Classes/BodyChargesClass.pas: -------------------------------------------------------------------------------- 1 | unit BodyChargesClass; 2 | 3 | interface 4 | {$IFDEF UNICODE} 5 | uses xSuperObject, xSuperJSON, System.Generics.Collections, System.SysUtils; 6 | 7 | Type 8 | 9 | TCalendar = record 10 | [Alias('expiracao')] 11 | expiration: Integer; 12 | end; 13 | 14 | TStatus = (NOT_INFO, ATIVA, CONCLUIDA, REMOVIDA_PELO_USUARIO_RECEBEDOR, REMOVIDA_PELO_PSP); 15 | 16 | TDebtor = record 17 | [Alias('cpf')] cpf: string; 18 | [Alias('nome')] name: string; 19 | end; 20 | 21 | TValue = record 22 | [Alias('original')] 23 | original: string; 24 | end; 25 | 26 | TAddInfo = class 27 | [Alias('nome')] name: string; 28 | [Alias('valor')] value: string; 29 | end; 30 | {$ENDIF} 31 | 32 | TBodyCobClass = class 33 | private 34 | FCalendar : TCalendar; 35 | FDebtor : TDebtor; 36 | FValue : TValue; 37 | FKey : String; 38 | FPayerRequest: String; 39 | FListAddInfo : TObjectList; 40 | FStatus : TStatus; 41 | 42 | procedure SetCalendar(const Value: TCalendar); 43 | procedure SetDebtor(const Value: TDebtor); 44 | procedure SetValue(const Value: TValue); 45 | procedure SetKey(const Value: String); 46 | procedure SetPayerRequest(const Value: String); 47 | procedure SetStatus(const Value: TStatus); 48 | 49 | public 50 | [Alias('chave')] 51 | property Key: String read FKey write SetKey; 52 | [Alias('calendario')] 53 | property Calendar: TCalendar read FCalendar write SetCalendar; 54 | [Alias('devedor')] 55 | property Debtor: TDebtor read FDebtor write SetDebtor; 56 | [Alias('status')] 57 | property Status: TStatus read FStatus write SetStatus; 58 | [Alias('valor')] 59 | property Value: TValue read FValue write SetValue; 60 | [Alias('solicitacaoPagador')] 61 | property PayerRequest: String read FPayerRequest write SetPayerRequest; 62 | [Alias('infoAdicionais')] 63 | property ListAddInfo: TObjectList read FListAddInfo write FListAddInfo; 64 | procedure AddItem(const Value: TAddInfo); 65 | constructor Create; 66 | end; 67 | 68 | implementation 69 | 70 | { TBodyCobClasses } 71 | 72 | constructor TBodyCobClass.Create; 73 | begin 74 | inherited; 75 | end; 76 | 77 | procedure TBodyCobClass.SetCalendar(const Value: TCalendar); 78 | begin 79 | FCalendar := Value; 80 | end; 81 | 82 | procedure TBodyCobClass.SetKey(const Value: String); 83 | begin 84 | FKey := Value; 85 | end; 86 | 87 | procedure TBodyCobClass.SetDebtor(const Value: TDebtor); 88 | begin 89 | FDebtor := Value; 90 | end; 91 | 92 | procedure TBodyCobClass.SetValue(const Value: TValue); 93 | begin 94 | FValue := Value; 95 | end; 96 | 97 | procedure TBodyCobClass.SetPayerRequest(const Value: String); 98 | begin 99 | FPayerRequest := Value; 100 | end; 101 | 102 | procedure TBodyCobClass.SetStatus(const Value: TStatus); 103 | begin 104 | FStatus := Value; 105 | end; 106 | 107 | procedure TBodyCobClass.AddItem(const Value: TAddInfo); 108 | begin 109 | FListAddInfo.Add(TAddInfo.Create); 110 | FListAddInfo[0].name := Value.name; 111 | FListAddInfo[0].value := Value.value; 112 | end; 113 | 114 | end. 115 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Classes/BodyPixClass.pas: -------------------------------------------------------------------------------- 1 | unit BodyPixClass; 2 | 3 | interface 4 | {$IFDEF UNICODE} 5 | uses xSuperObject, xSuperJSON; 6 | 7 | Type 8 | 9 | TFavored = record 10 | [Alias('chave')] 11 | Key: String; 12 | end; 13 | 14 | TPayer = record 15 | [Alias('chave')] key: string; 16 | [Alias('infoPagador')] PayingInfo: string; 17 | end; 18 | 19 | {$ENDIF} 20 | 21 | TBodyPixClass = class 22 | private 23 | FPayer : TPayer; 24 | FFavored : TFavored; 25 | FValue : String; 26 | 27 | procedure SetPayer(const Value: TPayer); 28 | procedure SetFavored(const Value: TFavored); 29 | procedure SetValue(const Value: String); 30 | public 31 | [Alias('valor')] 32 | property Value: String read FValue write SetValue; 33 | [Alias('pagador')] 34 | property Payer: TPayer read FPayer write SetPayer; 35 | [Alias('favorecido')] 36 | property Favored: TFavored read FFavored write SetFavored; 37 | constructor Create; 38 | end; 39 | 40 | TBodyPixDevolution = class 41 | private 42 | FValue : String; 43 | procedure SetValue(const Value: String); 44 | public 45 | [Alias('valor')] 46 | property Value: String read FValue write SetValue; 47 | end; 48 | 49 | implementation 50 | 51 | { TBodyPixClass } 52 | 53 | constructor TBodyPixClass.Create; 54 | begin 55 | inherited; 56 | end; 57 | 58 | procedure TBodyPixClass.SetFavored(const Value: TFavored); 59 | begin 60 | FFavored := Value; 61 | end; 62 | 63 | procedure TBodyPixClass.SetPayer(const Value: TPayer); 64 | begin 65 | FPayer := Value; 66 | end; 67 | 68 | procedure TBodyPixClass.SetValue(const Value: String); 69 | begin 70 | FValue := Value; 71 | end; 72 | 73 | { TBodyPixDevolution } 74 | 75 | procedure TBodyPixDevolution.SetValue(const Value: String); 76 | begin 77 | FValue := Value; 78 | end; 79 | 80 | end. 81 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Classes/BodyWebhookClass.pas: -------------------------------------------------------------------------------- 1 | unit BodyWebhookClass; 2 | 3 | interface 4 | 5 | uses xSuperObject, xSuperJSON; 6 | 7 | Type 8 | TBodyWebhookClass = class 9 | private 10 | FWebhookUrl : String; 11 | procedure SetWebhookUrl(const Value: String); 12 | public 13 | [Alias('webhookUrl')] 14 | property WebhookUrl: String read FWebhookUrl write SetWebhookUrl; 15 | constructor Create; 16 | end; 17 | 18 | implementation 19 | 20 | { TBodyWebhookClass } 21 | 22 | constructor TBodyWebhookClass.Create; 23 | begin 24 | inherited; 25 | end; 26 | 27 | procedure TBodyWebhookClass.SetWebhookUrl(const Value: String); 28 | begin 29 | FWebhookUrl := Value; 30 | end; 31 | 32 | end. 33 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/EndPoints/AccountEndpoints.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/EndPoints/AccountEndpoints.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/EndPoints/AuthenticationEndpoints.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/EndPoints/AuthenticationEndpoints.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/EndPoints/ChargesEndpoints.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/EndPoints/ChargesEndpoints.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/EndPoints/Connections.pas: -------------------------------------------------------------------------------- 1 | unit Connections; 2 | 3 | interface 4 | 5 | Uses Classes, XSuperObject, IdHTTP, Vcl.Controls,Vcl.ExtDlgs, System.SysUtils, 6 | IdServerIOHandler, IdSSL, IdSSLOpenSSL, IdIOHandler, IdIOHandlerSocket, 7 | IdIOHandlerStack, idLogFile, IdGlobal, MainPix; 8 | 9 | function OauthToken: iSuperObject; 10 | function SetupClient: TIdHTTP; 11 | 12 | implementation 13 | 14 | threadvar 15 | HttpClient: TIdHTTP; 16 | {$IFDEF DEBUG} 17 | HttpLog: TIdLogFile; 18 | {$ENDIF} 19 | JsonToSend: TMemoryStream; 20 | 21 | { TConnections } 22 | 23 | function OauthToken : iSuperObject ; 24 | Const 25 | Body = '{"grant_type": "client_credentials"}'; 26 | var 27 | sResponse : String; 28 | begin 29 | 30 | MainPix.frmPix.CleanQrCodeImage; 31 | 32 | HttpClient := SetupClient; 33 | 34 | HttpClient.Request.Username := MainPix.frmPix.ClientID; 35 | HttpClient.Request.Password := MainPix.frmPix.ClientSecret; 36 | 37 | HttpClient.Request.BasicAuthentication := True; 38 | 39 | JsonToSend := TMemoryStream.Create; 40 | WriteStringToStream(JsonToSend, Body, IndyTextEncoding_UTF8); 41 | JsonToSend.Position := 0; 42 | 43 | sResponse := HttpClient.Post(MainPix.frmPix.Enviroment +'/oauth/token',JsonToSend); 44 | 45 | Result := SO(sResponse); 46 | 47 | end; 48 | 49 | function SetupClient: TIdHTTP; 50 | begin 51 | Result := TIdHTTP.Create( nil ); 52 | Result.ConnectTimeout := 20000; 53 | Result.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); 54 | 55 | with TIdSSLIOHandlerSocketOpenSSL(Result.IOHandler).SSLOptions do 56 | begin 57 | CertFile := MainPix.frmPix.CertFilePem; 58 | KeyFile := MainPix.frmPix.CertFilePem; 59 | 60 | Mode := sslmUnassigned; 61 | SSLVersions := [sslvTLSv1_2]; 62 | end; 63 | 64 | with Result do 65 | begin 66 | Request.CustomHeaders.Values['Content-Type'] := 'application/json; application/x-www-form-urlencoded;'; 67 | Request.ContentType := 'application/json'; 68 | Request.CharSet := 'utf-8'; 69 | Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Acoo Browser; GTB5; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; Maxthon; InfoPath.1; .NET CLR 3.5.30729; .NET CLR 3.0.30618)'; 70 | HandleRedirects := True; 71 | HTTPOptions := [hoKeepOrigProtocol, hoInProcessAuth]; 72 | end; 73 | 74 | {$IFDEF DEBUG} 75 | Result.Intercept := HttpLog; 76 | {$ENDIF} 77 | end; 78 | 79 | end. 80 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/EndPoints/KeyPixEndpoints.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/EndPoints/KeyPixEndpoints.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/EndPoints/LocEndpoints.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/EndPoints/LocEndpoints.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/EndPoints/PixEndpoints.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/EndPoints/PixEndpoints.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/EndPoints/WebhookEndpoints.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/EndPoints/WebhookEndpoints.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/MainPix.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/MainPix.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixAccountConfig.dfm: -------------------------------------------------------------------------------- 1 | object ViewAccountConfig: TViewAccountConfig 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = '*Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object btnCancelRequest: TButton 26 | Left = 6 27 | Top = 225 28 | Width = 280 29 | Height = 32 30 | Caption = 'Cancelar a Requisi'#231#227'o' 31 | TabOrder = 1 32 | OnClick = btnCancelRequestClick 33 | end 34 | object btnConfirmRequest: TButton 35 | Left = 290 36 | Top = 225 37 | Width = 285 38 | Height = 32 39 | Caption = 'Confirmar a Requisi'#231#227'o' 40 | TabOrder = 0 41 | OnClick = btnConfirmRequestClick 42 | end 43 | object cbxReceiveKey: TCheckBox 44 | Left = 6 45 | Top = 18 46 | Width = 121 47 | Height = 17 48 | Caption = 'Receber sem Chave' 49 | TabOrder = 2 50 | end 51 | object Chaves: TGroupBox 52 | Left = 6 53 | Top = 39 54 | Width = 569 55 | Height = 98 56 | Caption = 'Configura'#231#245'es da Chave' 57 | TabOrder = 3 58 | object Chave: TLabel 59 | Left = 13 60 | Top = 18 61 | Width = 284 62 | Height = 13 63 | Caption = '*Chave Pix - Ex. a1f4102e-a446-4a57-bcce-6fa48899c1d1' 64 | end 65 | object txtKey: TEdit 66 | Left = 303 67 | Top = 15 68 | Width = 263 69 | Height = 21 70 | TabOrder = 0 71 | end 72 | object cbxTxidMandatory: TCheckBox 73 | Left = 13 74 | Top = 45 75 | Width = 121 76 | Height = 17 77 | Caption = 'Txid Obrigat'#243'rio' 78 | TabOrder = 1 79 | end 80 | object cbxRefuseAll: TCheckBox 81 | Left = 13 82 | Top = 66 83 | Width = 180 84 | Height = 17 85 | Caption = 'QRCode Estatico - Recusar Todos ' 86 | TabOrder = 2 87 | end 88 | end 89 | end 90 | end 91 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixAccountConfig.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/Views/ViewPixAccountConfig.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixConfigWebhook.dfm: -------------------------------------------------------------------------------- 1 | object ViewConfigWebhook: TViewConfigWebhook 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = '*Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 24 28 | Width = 284 29 | Height = 13 30 | Caption = '*Chave Pix - Ex. a1f4102e-a446-4a57-bcce-6fa48899c1d1' 31 | end 32 | object txtIdent: TEdit 33 | Left = 6 34 | Top = 38 35 | Width = 569 36 | Height = 21 37 | TabOrder = 0 38 | end 39 | object btnCancelRequest: TButton 40 | Left = 6 41 | Top = 152 42 | Width = 280 43 | Height = 32 44 | Caption = 'Cancelar a Requisi'#231#227'o' 45 | TabOrder = 2 46 | OnClick = btnCancelRequestClick 47 | end 48 | object btnConfirmRequest: TButton 49 | Left = 290 50 | Top = 152 51 | Width = 285 52 | Height = 32 53 | Caption = 'Confirmar a Requisi'#231#227'o' 54 | TabOrder = 1 55 | OnClick = btnConfirmRequestClick 56 | end 57 | object cbxSkipmtls: TCheckBox 58 | Left = 6 59 | Top = 130 60 | Width = 211 61 | Height = 17 62 | Caption = 'Pular valida'#231#227'o do mTLS' 63 | TabOrder = 3 64 | end 65 | end 66 | object gbBody: TGroupBox 67 | Left = 6 68 | Top = 63 69 | Width = 569 70 | Height = 63 71 | Caption = 'Body da Requisi'#231#227'o' 72 | TabOrder = 1 73 | object Label2: TLabel 74 | Left = 7 75 | Top = 16 76 | Width = 244 77 | Height = 13 78 | Caption = '*URL Webhook - Ex. https://exemplo-pix/webhook' 79 | end 80 | object txtWebhookURL: TEdit 81 | Left = 7 82 | Top = 35 83 | Width = 559 84 | Height = 21 85 | TabOrder = 0 86 | end 87 | end 88 | end 89 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixConfigWebhook.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/Views/ViewPixConfigWebhook.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixCreateCharge.dfm: -------------------------------------------------------------------------------- 1 | object ViewPixCreateCharge: TViewPixCreateCharge 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = '*Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 3 27 | Top = 18 28 | Width = 156 29 | Height = 13 30 | Caption = '*Identificador :txid da Cobran'#231'a' 31 | end 32 | object txtIdent: TEdit 33 | Left = 159 34 | Top = 15 35 | Width = 421 36 | Height = 21 37 | TabOrder = 0 38 | end 39 | object gbDevedor: TGroupBox 40 | Left = 3 41 | Top = 36 42 | Width = 577 43 | Height = 64 44 | Caption = 'Devedor' 45 | TabOrder = 1 46 | object Label2: TLabel 47 | Left = 16 48 | Top = 17 49 | Width = 27 50 | Height = 13 51 | Caption = 'Nome' 52 | end 53 | object Label3: TLabel 54 | Left = 16 55 | Top = 41 56 | Width = 19 57 | Height = 13 58 | Caption = 'CPF' 59 | end 60 | object txtName: TEdit 61 | Left = 56 62 | Top = 14 63 | Width = 518 64 | Height = 21 65 | TabOrder = 0 66 | end 67 | object txtCpf: TEdit 68 | Left = 57 69 | Top = 38 70 | Width = 518 71 | Height = 21 72 | TabOrder = 1 73 | end 74 | end 75 | object GroupBox1: TGroupBox 76 | Left = 3 77 | Top = 100 78 | Width = 278 79 | Height = 43 80 | Caption = '*Calend'#225'rio - Ex. 3600 (1 hora)' 81 | TabOrder = 2 82 | object Label4: TLabel 83 | Left = 5 84 | Top = 18 85 | Width = 47 86 | Height = 13 87 | Caption = 'Expira'#231#227'o' 88 | end 89 | object txtExpiration: TEdit 90 | Left = 56 91 | Top = 15 92 | Width = 219 93 | Height = 21 94 | TabOrder = 0 95 | Text = '3600' 96 | end 97 | end 98 | object gbValor: TGroupBox 99 | Left = 285 100 | Top = 100 101 | Width = 296 102 | Height = 43 103 | Caption = '*Valor - Ex. 5.00' 104 | TabOrder = 3 105 | object Label5: TLabel 106 | Left = 13 107 | Top = 18 108 | Width = 36 109 | Height = 13 110 | Caption = 'Original' 111 | end 112 | object txtValue: TEdit 113 | Left = 54 114 | Top = 15 115 | Width = 238 116 | Height = 21 117 | TabOrder = 0 118 | end 119 | end 120 | object GroupBox2: TGroupBox 121 | Left = 3 122 | Top = 142 123 | Width = 577 124 | Height = 43 125 | Caption = '*Chave Pix - Ex. a1f4102e-a446-4a57-bcce-6fa48899c1d1' 126 | TabOrder = 4 127 | object txtKey: TEdit 128 | Left = 5 129 | Top = 16 130 | Width = 569 131 | Height = 21 132 | TabOrder = 0 133 | end 134 | end 135 | object GroupBox4: TGroupBox 136 | Left = 3 137 | Top = 185 138 | Width = 577 139 | Height = 43 140 | Caption = 141 | 'Solicita'#231#227'o do Pagador - Ex. Informe o n'#250'mero ou identificador d' + 142 | 'o pedido.' 143 | TabOrder = 5 144 | object txtPayerRequest: TEdit 145 | Left = 5 146 | Top = 17 147 | Width = 569 148 | Height = 21 149 | TabOrder = 0 150 | end 151 | end 152 | object btnConfirmRequest: TButton 153 | Left = 289 154 | Top = 226 155 | Width = 291 156 | Height = 32 157 | Caption = 'Confirmar a Requisi'#231#227'o' 158 | TabOrder = 6 159 | OnClick = btnConfirmRequestClick 160 | end 161 | object btnCancelRequest: TButton 162 | Left = 3 163 | Top = 226 164 | Width = 280 165 | Height = 32 166 | Caption = 'Cancelar a Requisi'#231#227'o' 167 | TabOrder = 7 168 | OnClick = btnCancelRequestClick 169 | end 170 | end 171 | end 172 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixCreateCharge.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/Views/ViewPixCreateCharge.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixCreateImmediateCharge.dfm: -------------------------------------------------------------------------------- 1 | object ViewCreateImmediateCharge: TViewCreateImmediateCharge 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = 'Body da Requisi'#231#227'o - *Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object btnConfirmRequest: TButton 26 | Left = 290 27 | Top = 222 28 | Width = 291 29 | Height = 32 30 | Caption = 'Confirmar a Requisi'#231#227'o' 31 | TabOrder = 5 32 | OnClick = btnConfirmRequestClick 33 | end 34 | object btnCancelRequest: TButton 35 | Left = 7 36 | Top = 222 37 | Width = 280 38 | Height = 32 39 | Caption = 'Cancelar a Requisi'#231#227'o' 40 | TabOrder = 6 41 | OnClick = btnCancelRequestClick 42 | end 43 | object gbDevedor: TGroupBox 44 | Left = 7 45 | Top = 16 46 | Width = 574 47 | Height = 73 48 | Caption = 'Devedor' 49 | TabOrder = 0 50 | object Label1: TLabel 51 | Left = 16 52 | Top = 17 53 | Width = 27 54 | Height = 13 55 | Caption = 'Nome' 56 | end 57 | object Label2: TLabel 58 | Left = 16 59 | Top = 45 60 | Width = 19 61 | Height = 13 62 | Caption = 'CPF' 63 | end 64 | object txtName: TEdit 65 | Left = 56 66 | Top = 14 67 | Width = 512 68 | Height = 21 69 | TabOrder = 0 70 | end 71 | object txtCpf: TEdit 72 | Left = 56 73 | Top = 42 74 | Width = 512 75 | Height = 21 76 | TabOrder = 1 77 | end 78 | end 79 | object GroupBox1: TGroupBox 80 | Left = 7 81 | Top = 90 82 | Width = 280 83 | Height = 43 84 | Caption = '*Calend'#225'rio - Ex. 3600 (1 hora)' 85 | TabOrder = 1 86 | object Label4: TLabel 87 | Left = 5 88 | Top = 17 89 | Width = 47 90 | Height = 13 91 | Caption = 'Expira'#231#227'o' 92 | end 93 | object txtExpiration: TEdit 94 | Left = 56 95 | Top = 15 96 | Width = 219 97 | Height = 21 98 | TabOrder = 0 99 | Text = '3600' 100 | end 101 | end 102 | object gbValor: TGroupBox 103 | Left = 290 104 | Top = 90 105 | Width = 291 106 | Height = 43 107 | Caption = '*Valor - Ex. 5.00' 108 | TabOrder = 2 109 | object Label3: TLabel 110 | Left = 13 111 | Top = 18 112 | Width = 36 113 | Height = 13 114 | Caption = 'Original' 115 | end 116 | object txtValue: TEdit 117 | Left = 54 118 | Top = 15 119 | Width = 231 120 | Height = 21 121 | TabOrder = 0 122 | end 123 | end 124 | object GroupBox2: TGroupBox 125 | Left = 7 126 | Top = 134 127 | Width = 574 128 | Height = 43 129 | Caption = '*Chave Pix - Ex. a1f4102e-a446-4a57-bcce-6fa48899c1d1' 130 | TabOrder = 3 131 | object txtKey: TEdit 132 | Left = 5 133 | Top = 16 134 | Width = 563 135 | Height = 21 136 | TabOrder = 0 137 | end 138 | end 139 | object GroupBox4: TGroupBox 140 | Left = 7 141 | Top = 177 142 | Width = 574 143 | Height = 43 144 | Caption = 145 | 'Solicita'#231#227'o do Pagador - Ex. Informe o n'#250'mero ou identificador d' + 146 | 'o pedido.' 147 | TabOrder = 4 148 | object txtPayerRequest: TEdit 149 | Left = 5 150 | Top = 17 151 | Width = 563 152 | Height = 21 153 | TabOrder = 0 154 | end 155 | end 156 | end 157 | end 158 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixCreateImmediateCharge.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/Views/ViewPixCreateImmediateCharge.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixDetail.dfm: -------------------------------------------------------------------------------- 1 | object ViewDetail: TViewDetail 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = '*Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 24 28 | Width = 156 29 | Height = 13 30 | Caption = '*Identificador :txid da Cobran'#231'a' 31 | end 32 | object txtIdent: TEdit 33 | Left = 6 34 | Top = 41 35 | Width = 569 36 | Height = 21 37 | TabOrder = 0 38 | end 39 | object btnCancelRequest: TButton 40 | Left = 6 41 | Top = 65 42 | Width = 280 43 | Height = 32 44 | Caption = 'Cancelar a Requisi'#231#227'o' 45 | TabOrder = 2 46 | OnClick = btnCancelRequestClick 47 | end 48 | object btnConfirmRequest: TButton 49 | Left = 290 50 | Top = 65 51 | Width = 285 52 | Height = 32 53 | Caption = 'Confirmar a Requisi'#231#227'o' 54 | TabOrder = 1 55 | OnClick = btnConfirmRequestClick 56 | end 57 | end 58 | end 59 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixDetail.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/Views/ViewPixDetail.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixDetailDevolution.dfm: -------------------------------------------------------------------------------- 1 | object ViewPixDetailDevolution: TViewPixDetailDevolution 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = '*Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 8 27 | Top = 22 28 | Width = 164 29 | Height = 13 30 | Caption = '*Identificador :e2eid da Cobran'#231'a' 31 | end 32 | object Label2: TLabel 33 | Left = 8 34 | Top = 68 35 | Width = 146 36 | Height = 13 37 | Caption = '*Identificador :id da Cobran'#231'a' 38 | end 39 | object txtE2eid: TEdit 40 | Left = 8 41 | Top = 41 42 | Width = 569 43 | Height = 21 44 | TabOrder = 0 45 | end 46 | object txtId: TEdit 47 | Left = 8 48 | Top = 83 49 | Width = 569 50 | Height = 21 51 | TabOrder = 1 52 | end 53 | object btnConfirmRequest: TButton 54 | Left = 286 55 | Top = 110 56 | Width = 291 57 | Height = 32 58 | Caption = 'Confirmar a Requisi'#231#227'o' 59 | TabOrder = 2 60 | OnClick = btnConfirmRequestClick 61 | end 62 | object btnCancelRequest: TButton 63 | Left = 8 64 | Top = 110 65 | Width = 277 66 | Height = 32 67 | Caption = 'Cancelar a Requisi'#231#227'o' 68 | TabOrder = 3 69 | OnClick = btnCancelRequestClick 70 | end 71 | end 72 | end 73 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixDetailDevolution.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/Views/ViewPixDetailDevolution.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixDevolution.dfm: -------------------------------------------------------------------------------- 1 | object ViewPixDevolution: TViewPixDevolution 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = '*Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 8 27 | Top = 22 28 | Width = 164 29 | Height = 13 30 | Caption = '*Identificador :e2eid da Cobran'#231'a' 31 | end 32 | object Label2: TLabel 33 | Left = 8 34 | Top = 68 35 | Width = 146 36 | Height = 13 37 | Caption = '*Identificador :id da Cobran'#231'a' 38 | end 39 | object txtE2eid: TEdit 40 | Left = 8 41 | Top = 41 42 | Width = 569 43 | Height = 21 44 | TabOrder = 0 45 | end 46 | object txtId: TEdit 47 | Left = 8 48 | Top = 83 49 | Width = 569 50 | Height = 21 51 | TabOrder = 1 52 | end 53 | object btnConfirmRequest: TButton 54 | Left = 284 55 | Top = 159 56 | Width = 291 57 | Height = 32 58 | Caption = 'Confirmar a Requisi'#231#227'o' 59 | TabOrder = 2 60 | OnClick = btnConfirmRequestClick 61 | end 62 | object btnCancelRequest: TButton 63 | Left = 6 64 | Top = 159 65 | Width = 277 66 | Height = 32 67 | Caption = 'Cancelar a Requisi'#231#227'o' 68 | TabOrder = 3 69 | OnClick = btnCancelRequestClick 70 | end 71 | object GroupBox1: TGroupBox 72 | Left = 8 73 | Top = 107 74 | Width = 573 75 | Height = 49 76 | Caption = 'Body da Requisi'#231#227'o' 77 | TabOrder = 4 78 | object Label3: TLabel 79 | Left = 7 80 | Top = 20 81 | Width = 81 82 | Height = 13 83 | Caption = '*Valor - Ex. 5.00' 84 | end 85 | object txtValue: TEdit 86 | Left = 94 87 | Top = 17 88 | Width = 475 89 | Height = 21 90 | TabOrder = 0 91 | end 92 | end 93 | end 94 | end 95 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixDevolution.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/Views/ViewPixDevolution.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixE2eidDetail.dfm: -------------------------------------------------------------------------------- 1 | object ViewPixE2eidDetail: TViewPixE2eidDetail 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = '*Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 24 28 | Width = 164 29 | Height = 13 30 | Caption = '*Identificador :e2eid da Cobran'#231'a' 31 | end 32 | object txtIdent: TEdit 33 | Left = 6 34 | Top = 41 35 | Width = 569 36 | Height = 21 37 | TabOrder = 0 38 | end 39 | object btnCancelRequest: TButton 40 | Left = 6 41 | Top = 65 42 | Width = 280 43 | Height = 32 44 | Caption = 'Cancelar a Requisi'#231#227'o' 45 | TabOrder = 2 46 | OnClick = btnCancelRequestClick 47 | end 48 | object btnConfirmRequest: TButton 49 | Left = 290 50 | Top = 65 51 | Width = 285 52 | Height = 32 53 | Caption = 'Confirmar a Requisi'#231#227'o' 54 | TabOrder = 1 55 | OnClick = btnConfirmRequestClick 56 | end 57 | end 58 | end 59 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixE2eidDetail.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/Views/ViewPixE2eidDetail.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixIdDetail.dfm: -------------------------------------------------------------------------------- 1 | object ViewPixIdDetail: TViewPixIdDetail 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = '*Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 24 28 | Width = 146 29 | Height = 13 30 | Caption = '*Identificador :id da Cobran'#231'a' 31 | end 32 | object txtIdent: TEdit 33 | Left = 6 34 | Top = 41 35 | Width = 569 36 | Height = 21 37 | TabOrder = 0 38 | end 39 | object btnCancelRequest: TButton 40 | Left = 6 41 | Top = 65 42 | Width = 280 43 | Height = 32 44 | Caption = 'Cancelar a Requisi'#231#227'o' 45 | TabOrder = 2 46 | OnClick = btnCancelRequestClick 47 | end 48 | object btnConfirmRequest: TButton 49 | Left = 290 50 | Top = 65 51 | Width = 285 52 | Height = 32 53 | Caption = 'Confirmar a Requisi'#231#227'o' 54 | TabOrder = 1 55 | OnClick = btnConfirmRequestClick 56 | end 57 | end 58 | end 59 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixIdDetail.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/Views/ViewPixIdDetail.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixKeyDetail.dfm: -------------------------------------------------------------------------------- 1 | object ViewPixKeyDetail: TViewPixKeyDetail 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = '*Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 6 27 | Top = 24 28 | Width = 103 29 | Height = 13 30 | Caption = '*Identificador :chave' 31 | end 32 | object txtIdent: TEdit 33 | Left = 6 34 | Top = 41 35 | Width = 569 36 | Height = 21 37 | TabOrder = 0 38 | end 39 | object btnCancelRequest: TButton 40 | Left = 6 41 | Top = 65 42 | Width = 280 43 | Height = 32 44 | Caption = 'Cancelar a Requisi'#231#227'o' 45 | TabOrder = 2 46 | OnClick = btnCancelRequestClick 47 | end 48 | object btnConfirmRequest: TButton 49 | Left = 290 50 | Top = 65 51 | Width = 285 52 | Height = 32 53 | Caption = 'Confirmar a Requisi'#231#227'o' 54 | TabOrder = 1 55 | OnClick = btnConfirmRequestClick 56 | end 57 | end 58 | end 59 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixKeyDetail.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/Views/ViewPixKeyDetail.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixList.dfm: -------------------------------------------------------------------------------- 1 | object ViewList: TViewList 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = '*Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 8 27 | Top = 25 28 | Width = 172 29 | Height = 13 30 | Caption = '*Inicio - Ex. 2021-06-01T23:01:35Z' 31 | end 32 | object Label2: TLabel 33 | Left = 8 34 | Top = 68 35 | Width = 163 36 | Height = 13 37 | Caption = '*Fim - Ex. 2021-06-01T23:01:35Z' 38 | end 39 | object txtStartDate: TEdit 40 | Left = 8 41 | Top = 41 42 | Width = 569 43 | Height = 21 44 | TabOrder = 0 45 | end 46 | object txtEndDate: TEdit 47 | Left = 8 48 | Top = 83 49 | Width = 569 50 | Height = 21 51 | TabOrder = 1 52 | end 53 | object btnConfirmRequest: TButton 54 | Left = 286 55 | Top = 110 56 | Width = 291 57 | Height = 31 58 | Caption = 'Confirmar a Requisi'#231#227'o' 59 | TabOrder = 2 60 | OnClick = btnConfirmRequestClick 61 | end 62 | object btnCancelRequest: TButton 63 | Left = 8 64 | Top = 110 65 | Width = 275 66 | Height = 32 67 | Caption = 'Cancelar a Requisi'#231#227'o' 68 | TabOrder = 3 69 | OnClick = btnCancelRequestClick 70 | end 71 | end 72 | end 73 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixList.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/Views/ViewPixList.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixSend.dfm: -------------------------------------------------------------------------------- 1 | object ViewPixSend: TViewPixSend 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = '*Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object btnConfirmRequest: TButton 26 | Left = 286 27 | Top = 226 28 | Width = 291 29 | Height = 32 30 | Caption = 'Confirmar a Requisi'#231#227'o' 31 | TabOrder = 1 32 | OnClick = btnConfirmRequestClick 33 | end 34 | object btnCancelRequest: TButton 35 | Left = 8 36 | Top = 226 37 | Width = 275 38 | Height = 32 39 | Caption = 'Cancelar a Requisi'#231#227'o' 40 | TabOrder = 2 41 | OnClick = btnCancelRequestClick 42 | end 43 | object GroupBox1: TGroupBox 44 | Left = 7 45 | Top = 16 46 | Width = 569 47 | Height = 208 48 | Caption = 'Body da Requisi'#231#227'o' 49 | TabOrder = 0 50 | object Label3: TLabel 51 | Left = 8 52 | Top = 22 53 | Width = 81 54 | Height = 13 55 | Caption = '*Valor - Ex. 5.00' 56 | end 57 | object txtValue: TEdit 58 | Left = 95 59 | Top = 19 60 | Width = 468 61 | Height = 21 62 | TabOrder = 0 63 | end 64 | object GroupBox2: TGroupBox 65 | Left = 6 66 | Top = 142 67 | Width = 560 68 | Height = 51 69 | Caption = 'Favorecido' 70 | TabOrder = 2 71 | object Label4: TLabel 72 | Left = 5 73 | Top = 24 74 | Width = 181 75 | Height = 13 76 | Caption = '*Chave Pix - Ex. jo'#227'o@meuemail.com' 77 | end 78 | object txtKeyFav: TEdit 79 | Left = 192 80 | Top = 21 81 | Width = 365 82 | Height = 21 83 | TabOrder = 0 84 | end 85 | end 86 | object GroupBox4: TGroupBox 87 | Left = 6 88 | Top = 51 89 | Width = 560 90 | Height = 83 91 | Caption = '*Pagador' 92 | TabOrder = 1 93 | object Label5: TLabel 94 | Left = 6 95 | Top = 24 96 | Width = 284 97 | Height = 13 98 | Caption = '*Chave Pix - Ex. a1f4102e-a446-4a57-bcce-6fa48899c1d1' 99 | end 100 | object Label6: TLabel 101 | Left = 6 102 | Top = 55 103 | Width = 283 104 | Height = 13 105 | Caption = 'Informa'#231#227'o do Pagador - Ex. Segue o pagamento da conta' 106 | end 107 | object txtKeyPag: TEdit 108 | Left = 296 109 | Top = 21 110 | Width = 261 111 | Height = 21 112 | TabOrder = 0 113 | end 114 | object txtPayerInfo: TEdit 115 | Left = 296 116 | Top = 52 117 | Width = 261 118 | Height = 21 119 | TabOrder = 1 120 | end 121 | end 122 | end 123 | end 124 | end 125 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixSend.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/Views/ViewPixSend.pas -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixUpdateCharge.dfm: -------------------------------------------------------------------------------- 1 | object ViewUpdateCharge: TViewUpdateCharge 2 | Left = 0 3 | Top = 0 4 | Caption = 'Modal da Requisi'#231#227'o' 5 | ClientHeight = 261 6 | ClientWidth = 584 7 | Color = 6001140 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object GroupBox3: TGroupBox 18 | Left = 0 19 | Top = 0 20 | Width = 584 21 | Height = 261 22 | Align = alClient 23 | Caption = '*Campos Obrigat'#243'rios' 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 3 27 | Top = 18 28 | Width = 156 29 | Height = 13 30 | Caption = '*Identificador :txid da Cobran'#231'a' 31 | end 32 | object txtIdent: TEdit 33 | Left = 165 34 | Top = 15 35 | Width = 415 36 | Height = 21 37 | TabOrder = 0 38 | end 39 | object gbDevedor: TGroupBox 40 | Left = 3 41 | Top = 36 42 | Width = 577 43 | Height = 64 44 | Caption = 'Devedor' 45 | TabOrder = 1 46 | object Label2: TLabel 47 | Left = 16 48 | Top = 17 49 | Width = 27 50 | Height = 13 51 | Caption = 'Nome' 52 | end 53 | object Label3: TLabel 54 | Left = 16 55 | Top = 41 56 | Width = 19 57 | Height = 13 58 | Caption = 'CPF' 59 | end 60 | object txtName: TEdit 61 | Left = 56 62 | Top = 14 63 | Width = 518 64 | Height = 21 65 | TabOrder = 0 66 | end 67 | object txtCpf: TEdit 68 | Left = 57 69 | Top = 38 70 | Width = 518 71 | Height = 21 72 | TabOrder = 1 73 | end 74 | end 75 | object GroupBox1: TGroupBox 76 | Left = 3 77 | Top = 100 78 | Width = 278 79 | Height = 43 80 | Caption = 'Calend'#225'rio - Ex. 3600 (1 hora)' 81 | TabOrder = 2 82 | object Label4: TLabel 83 | Left = 5 84 | Top = 18 85 | Width = 47 86 | Height = 13 87 | Caption = 'Expira'#231#227'o' 88 | end 89 | object txtExpiration: TEdit 90 | Left = 56 91 | Top = 15 92 | Width = 219 93 | Height = 21 94 | TabOrder = 0 95 | Text = '3600' 96 | end 97 | end 98 | object gbValor: TGroupBox 99 | Left = 285 100 | Top = 100 101 | Width = 296 102 | Height = 43 103 | Caption = 'Valor - Ex. 5.00' 104 | TabOrder = 3 105 | object Label5: TLabel 106 | Left = 13 107 | Top = 18 108 | Width = 36 109 | Height = 13 110 | Caption = 'Original' 111 | end 112 | object txtValue: TEdit 113 | Left = 54 114 | Top = 15 115 | Width = 238 116 | Height = 21 117 | TabOrder = 0 118 | end 119 | end 120 | object GroupBox2: TGroupBox 121 | Left = 3 122 | Top = 142 123 | Width = 278 124 | Height = 43 125 | Caption = 'Chave Pix - a1f4102e-a446-4a57-bcce-6fa48899c1d1' 126 | TabOrder = 4 127 | object txtKey: TEdit 128 | Left = 5 129 | Top = 16 130 | Width = 270 131 | Height = 21 132 | TabOrder = 0 133 | end 134 | end 135 | object GroupBox4: TGroupBox 136 | Left = 285 137 | Top = 142 138 | Width = 295 139 | Height = 43 140 | Caption = 'Solicita'#231#227'o do Pagador - Ex. Informe o n'#250'mero do pedido.' 141 | TabOrder = 5 142 | object txtPayerRequest: TEdit 143 | Left = 5 144 | Top = 17 145 | Width = 287 146 | Height = 21 147 | TabOrder = 0 148 | end 149 | end 150 | object btnConfirmRequest: TButton 151 | Left = 289 152 | Top = 226 153 | Width = 291 154 | Height = 32 155 | Caption = 'Confirmar a Requisi'#231#227'o' 156 | TabOrder = 7 157 | OnClick = btnConfirmRequestClick 158 | end 159 | object btnCancelRequest: TButton 160 | Left = 3 161 | Top = 226 162 | Width = 280 163 | Height = 32 164 | Caption = 'Cancelar a Requisi'#231#227'o' 165 | TabOrder = 8 166 | OnClick = btnCancelRequestClick 167 | end 168 | object GroupBox5: TGroupBox 169 | Left = 3 170 | Top = 184 171 | Width = 578 172 | Height = 43 173 | Caption = 'Informa'#231#245'es Adicionais' 174 | TabOrder = 6 175 | object Label7: TLabel 176 | Left = 296 177 | Top = 18 178 | Width = 24 179 | Height = 13 180 | Caption = 'Valor' 181 | end 182 | object Label6: TLabel 183 | Left = 5 184 | Top = 18 185 | Width = 27 186 | Height = 13 187 | Caption = 'Nome' 188 | end 189 | object txtAddInfoName: TEdit 190 | Left = 38 191 | Top = 15 192 | Width = 242 193 | Height = 21 194 | TabOrder = 0 195 | end 196 | object txtAddInfoValue: TEdit 197 | Left = 326 198 | Top = 15 199 | Width = 248 200 | Height = 21 201 | TabOrder = 1 202 | end 203 | end 204 | end 205 | end 206 | -------------------------------------------------------------------------------- /Code/Api Pix/Utils/Views/ViewPixUpdateCharge.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/gerencianet/gn-api-sdk-delphi/42c204ff9c14b2036daa52083c3c4759db44934d/Code/Api Pix/Utils/Views/ViewPixUpdateCharge.pas -------------------------------------------------------------------------------- /Code/External/XSuperObject.inc: -------------------------------------------------------------------------------- 1 | (* 2 | * XSuperObject - Simple JSON Framework 3 | * 4 | * The MIT License (MIT) 5 | * Copyright (c) 2015 Onur YILDIZ 6 | * 7 | * 8 | * Permission is hereby granted, free of charge, to any person 9 | * obtaining a copy of this software and associated documentation 10 | * files (the "Software"), to deal in the Software without restriction, 11 | * including without limitation the rights to use, copy, modify, 12 | * merge, publish, distribute, sublicense, and/or sell copies of the Software, 13 | * and to permit persons to whom the Software is furnished to do so, 14 | * subject to the following conditions: 15 | * 16 | * The above copyright notice and this permission notice shall 17 | * be included in all copies or substantial portions of the Software. 18 | * 19 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 20 | * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES 21 | * OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 22 | * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, 23 | * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, 24 | * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH 25 | * THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. 26 | * 27 | *) 28 | 29 | (* 30 | * Marshalling Options 31 | *) 32 | {$DEFINE SP_DATASET} 33 | {$DEFINE SP_STREAM} 34 | 35 | // ** Zero Based Strings Definations... 36 | {$UNDEF XE2UP} 37 | {$IFDEF DCC} 38 | {$IF CompilerVersion >= 24} 39 | {$DEFINE XE2UP} 40 | {$ENDIF} 41 | {$ENDIF} -------------------------------------------------------------------------------- /Code/External/chilkatDllPath.inc: -------------------------------------------------------------------------------- 1 | 2 | {$IFDEF WIN32} 3 | const DLLName = 'ChilkatDelphi32.dll'; 4 | {$ELSE} 5 | {$IFDEF WIN64} 6 | const DLLName = 'ChilkatDelphi64.dll'; 7 | {$ELSE} 8 | const DLLName = 'ChilkatDelphi32.dll'; //Older versions of Delphi 9 | {$ENDIF} 10 | {$ENDIF} 11 | 12 | -------------------------------------------------------------------------------- /Code/MainCode.pas: -------------------------------------------------------------------------------- 1 | unit MainCode; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, Winapi.Messages, System.Variants, System.Classes, System.SysUtils, 7 | Vcl.StdCtrls, Vcl.Controls, Vcl.ExtCtrls, Vcl.Forms, XSuperObject, Vcl.Dialogs, 8 | MainPix, MainEmissions, Vcl.Graphics, Vcl.Imaging.pngimage; 9 | 10 | type 11 | TMainCode = class(TForm) 12 | mainFrmApiBoletos: TPanel; 13 | mainFrmApiPix: TPanel; 14 | Image1: TImage; 15 | Image2: TImage; 16 | procedure mainFrmApiBoletosClick(Sender: TObject); 17 | procedure mainFrmApiPixClick(Sender: TObject); 18 | procedure FormCreate(Sender: TObject); 19 | private 20 | 21 | public 22 | 23 | end; 24 | 25 | var 26 | frmCode : TMainCode; 27 | 28 | implementation 29 | 30 | {$R *.dfm} 31 | 32 | procedure TMainCode.FormCreate(Sender: TObject); 33 | begin 34 | frmCode.Position := poScreenCenter; 35 | end; 36 | 37 | procedure TMainCode.mainFrmApiBoletosClick(Sender: TObject); 38 | begin 39 | Application.CreateForm(TMainEmissions, frmBoletos); 40 | frmBoletos.Visible := False; 41 | frmBoletos.ShowModal; 42 | end; 43 | 44 | procedure TMainCode.mainFrmApiPixClick(Sender: TObject); 45 | begin 46 | Application.CreateForm(TMainPix, frmPix); 47 | frmPix.Visible := False; 48 | frmPix.ShowModal; 49 | end; 50 | 51 | end. 52 | -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | (The MIT License) 2 | 3 | Copyright (c) 2015 TJ Gerencianet 4 | 5 | Permission is hereby granted, free of charge, to any person obtaining 6 | a copy of this software and associated documentation files (the 7 | 'Software'), to deal in the Software without restriction, including 8 | without limitation the rights to use, copy, modify, merge, publish, 9 | distribute, sublicense, and/or sell copies of the Software, and to 10 | permit persons to whom the Software is furnished to do so, subject to 11 | the following conditions: 12 | 13 | The above copyright notice and this permission notice shall be 14 | included in all copies or substantial portions of the Software. 15 | 16 | THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, 17 | EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 18 | MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 19 | IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY 20 | CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, 21 | TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 22 | SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. 23 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # SDK PIX GERENCIANET - DELPHI 2 | 3 | SDK oficial para API PIX da Gerencianet Pagamentos. 4 | 5 | **Em caso de dúvidas, você pode verificar a [Documentação](https://dev.gerencianet.com.br/docs/api-pix) da API PIX na Gerencianet e, necessitando de mais detalhes ou informações, entre em contato com nossa consultoria técnica, via nossos [Canais de Comunicação](https://gerencianet.com.br/central-de-ajuda).** 6 | 7 | ## Pré requisitos 8 | * Aplicaçoes que usarão a SDK devem ser compiladas na plataforma Windows 32-bit; 9 | * Apenas aplicações Desktop. 10 | 11 | ## Testes 12 | ``` 13 | Embarcadeiro Delphi Community Edition 14 | ``` 15 | 16 | ## Download da SDK 17 | 18 | Todo o código de demonstração está disponível nesse repositório do GitHub. Após concluir o download descompacte o arquivo em alguma pasta de sua preferência e a SDK estará pronta para uso. 19 | 20 | ## Execução Demo 21 | 22 | Dentro da SDK, abra a pasta `Api Compilada` e lá terá o arquivo a ser executado - `ApisGN.exe`. 23 | 24 | ## Utilizando da SDK 25 | 26 | Para utilização da SDK, basta adicionar as classes ao seu projeto e chama-las conforme suas necessidades. 27 | 28 | :warning: 29 | ### Dependendo do Endpoint a ser utilizado, será necessário adicionar as DLL´s (`Disponíveis em: \Api Compilada`) e classes externas (`Disponíveis em: \Code\External`) ao seu projeto também. 30 | 31 | ## Dependências do Projeto 32 | 33 | Para desenvolvimento da SDK, foi utilizada algumas classes externas disponíveis em: 34 | 35 | * Classe Super Object: https://github.com/onryldz/x-superobject 36 | * Classe ZXingQRCode: https://github.com/foxitsoftware/DelphiZXingQRCode/tree/master/Source 37 | * Classe Chilkat: https://www.chilkatsoft.com/delphiDll.asp 38 | 39 | Essas classes externas estão dentro de nosso projeto na pasta "Utils/External". 40 | 41 | :warning: 42 | ### Este projeto foi desenvolvido para ser retrocompatível, ou seja, compatível tanto com as versões mais recentes do Delphi quanto as versões mais antigas, no entanto, a Gerencianet somente irá dar suporte às aplicações desktop win-32 desenvolvidas no Delphi Community Edition. 43 | 44 | ## Documentação Adicional 45 | 46 | A documentação completa com todos os endpoints disponíveis está em [https://dev.gerencianet.com.br/docs/api-pix](https://dev.gerencianet.com.br/docs). 47 | 48 | ## Changelog 49 | 50 | [CHANGELOG](CHANGELOG.md) 51 | 52 | ## License ## 53 | [MIT](LICENSE) 54 | --------------------------------------------------------------------------------