Skip to content

Commit 967abbe

Browse files
martinfnswmartinfnsw
committed
Merge branch 'hotfix/SS-419' into develop
2 parents b5d3f41 + c23157a commit 967abbe

9 files changed

+745
-1293
lines changed

‎TestServices.dfm‎

Lines changed: 13 additions & 628 deletions
Large diffs are not rendered by default.

‎TestServices.pas‎

Lines changed: 305 additions & 388 deletions
Large diffs are not rendered by default.

‎Validate/ValidateLcoResponse.pas‎

Lines changed: 0 additions & 85 deletions
This file was deleted.

‎Validate/ValidateLrfcResponse.pas‎

Lines changed: 0 additions & 79 deletions
This file was deleted.

‎Validate/Validation.pas‎

Lines changed: 1 addition & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -19,12 +19,9 @@ interface
1919
IdGlobalProtocols,
2020
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IPPeerClient, Vcl.StdCtrls, REST.Client,
2121
Data.Bind.Components, Data.Bind.ObjectScope, REST.Types,
22-
Vcl.ComCtrls, ValidateCfdiResponse, ValidateRequest,
23-
ValidateLrfcResponse, ValidateLcoResponse;
22+
Vcl.ComCtrls, ValidateCfdiResponse, ValidateRequest;
2423

2524
function ValidateCFDI(Url, Token, XML: String): TValidateCfdiResponse;
26-
function ValidateLrfc(Url, Token, Lrfc: String): TValidateLrfcResponse;
27-
function ValidateLco(Url, Token, Lco: String): TValidateLcoResponse;
2825

2926
implementation
3027

@@ -34,16 +31,4 @@ function ValidateCFDI(Url, Token, XML: String): TValidateCfdiResponse;
3431
Token, XML));
3532
end;
3633

37-
function ValidateLrfc(Url, Token, Lrfc: String): TValidateLrfcResponse;
38-
begin
39-
Result := TValidateLrfcResponse.FromJsonString(ValidateLrfcRequest(Url,
40-
Token, Lrfc));
41-
end;
42-
43-
function ValidateLco(Url, Token, Lco: String): TValidateLcoResponse;
44-
begin
45-
Result := TValidateLcoResponse.FromJsonString
46-
(ValidateLcoRequest(Url, Token, Lco));
47-
end;
48-
4934
end.

‎unitTestDelphiRest.dpr‎

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -18,8 +18,6 @@ uses
1818
CancelationRequest in 'Cancelation\CancelationRequest.pas',
1919
Issue in 'Issue\Issue.pas',
2020
Validation in 'Validate\Validation.pas',
21-
ValidateLcoResponse in 'Validate\ValidateLcoResponse.pas',
22-
ValidateLrfcResponse in 'Validate\ValidateLrfcResponse.pas',
2321
ValidateCfdiResponse in 'Validate\ValidateCfdiResponse.pas',
2422
ValidateRequest in 'Validate\ValidateRequest.pas',
2523
JsonIssue in 'Issue\JsonIssue\JsonIssue.pas',

0 commit comments

Comments
 (0)