VAR
GLAcc@1003 : Record 15;
GLRegDoc@1110010 : Codeunit 31000001;
Text1110001@1110001 : TextConst 'ENU=The entry cannot be reversed;PTG=NÆo ‚ poss¡vel estornar o movimento';
CarteraSetup@1110000 : Record 31000016;
BEGIN
GLAcc.GET(GLEntry."G/L Account No.");
CheckPostingDate(
GLEntry."Posting Date",GLEntry.TABLECAPTION,GLEntry.FIELDCAPTION("Entry No."),GLEntry."Entry No.");
GLAcc.TESTFIELD(Blocked,FALSE);
VAR
GLAcc@1003 : Record 15;
GLRegDoc@1110010 : Codeunit 31000001;
Text1110001@1110001 : TextConst 'ENU=The entry cannot be reversed;PTG=NÆo ‚ poss¡vel estornar o movimento';
CarteraSetup@1110000 : Record 31000016;
// Add the following line.
LicensePermission@1000000000 : Record 2000000043;
// End of the added line.
BEGIN
GLAcc.GET(GLEntry."G/L Account No.");
CheckPostingDate(
GLEntry."Posting Date",GLEntry.TABLECAPTION,GLEntry.FIELDCAPTION("Entry No."),GLEntry."Entry No.");
GLAcc.TESTFIELD(Blocked,FALSE);
GLEntry."Posting Date",GLEntry.TABLECAPTION,GLEntry.FIELDCAPTION("Entry No."),GLEntry."Entry No.");
GLAcc.TESTFIELD(Blocked,FALSE);
GLEntry.TESTFIELD("Job No.",'');
//--PT--
// Delete the following lines.
IF CarteraSetup.READPERMISSION THEN
IF (GLEntry."Bill No." <> '') OR (GLRegDoc."CheckPostedDocsInPostedBG/PO"(GLEntry)) THEN
ERROR(Text1110001);
// End of the deleted lines.
CheckSeloEntries(GLEntry."Document No.");
//------
IF GLEntry.Reversed THEN
AlreadyReversedEntry(GLEntry.TABLECAPTION,GLEntry."Entry No.");
GLEntry."Posting Date",GLEntry.TABLECAPTION,GLEntry.FIELDCAPTION("Entry No."),GLEntry."Entry No.");
GLAcc.TESTFIELD(Blocked,FALSE);
GLEntry.TESTFIELD("Job No.",'');
//--PT--
// Add the following lines.
IF LicensePermission.GET(LicensePermission."Object Type"::Table, DATABASE::"Cartera Setup") THEN
IF LicensePermission."Execute Permission" <> LicensePermission."Execute Permission"::" " THEN BEGIN
IF (GLEntry."Bill No." <> '') OR (GLRegDoc."CheckPostedDocsInPostedBG/PO"(GLEntry)) THEN
ERROR(Text1110001);
END;
// End of the added lines.
CheckSeloEntries(GLEntry."Document No.");
//------
IF GLEntry.Reversed THEN
AlreadyReversedEntry(GLEntry.TABLECAPTION,GLEntry."Entry No.");