Hi Everybody,
I write code but can’t group Document No when export to excel.
Pos := 0;
NoSeri := ‘’;
NoDoc := ‘’;
StrTran :=’’;
Nosign := ‘’;
VendorName := ‘’;
VATRate := ‘’;
Pos := STRPOS(“VAT Entry”.“External Document No.”, ‘|’);
TotalLen := STRLEN(“VAT Entry”.“External Document No.”);
IF Pos <= 0 THEN
Pos := STRPOS(“VAT Entry”.“External Document No.”, ‘@’);
IF Pos > 0 THEN BEGIN
Nosign := COPYSTR(“VAT Entry”.“External Document No.”, 1, Pos - 1);
StrTran := COPYSTR(“VAT Entry”.“External Document No.”, Pos+1,STRLEN(“VAT Entry”.“External Document No.”));
END;
Pos := STRPOS(StrTran, ‘|’);
IF Pos > 0 THEN BEGIN
NoSeri := COPYSTR(StrTran,1,Pos-1);
NoDoc := COPYSTR(StrTran,Pos+1,STRLEN(StrTran));
END
ELSE
NoDoc := “VAT Entry”.“External Document No.”;
// Vendor Name
{IF “VAT Entry”.“Bill-to/Pay-to Name” <> ‘’ THEN
VendorName := “VAT Entry”.“Bill-to/Pay-to Name”
ELSE BEGIN
IF Vendor.GET(“VAT Entry”.“Bill-to/Pay-to No.”) THEN
VendorName := Vendor.Name
END;
}
IF PurchaseHeader.GET(“VAT Entry”.“Document No.”) THEN
VendorName :=PurchaseHeader.“Buy-from Vendor Name”;
{IF “VAT Entry”.“Bill-to/Pay-to Address” <> ‘’ THEN
VendorAdd := “VAT Entry”.“Bill-to/Pay-to Address”}
IF “VAT Entry”.“VAT Description” <> ‘’ THEN
VendorAdd := “VAT Entry”.“VAT Description”
ELSE BEGIN
IF Vendor.GET(“VAT Entry”.“Bill-to/Pay-to No.”) THEN
VendorAdd := Vendor.Address + ’ , ’ + Vendor.“Address 2”;
END;
// VAT Rate
IF VATPostingSetUp.GET(“VAT Bus. Posting Group”,“VAT Prod. Posting Group”) THEN
VATRate := FORMAT(VATPostingSetUp.“VAT %”)+’%’;
// Total Amount of free goods
IF “VAT Entry”.Amount = 0 THEN
AmountFree := AmountFree + ABS(Base);
// Total Amount of export goods
IF UPPERCASE(“VAT Entry”.“Gen. Bus. Posting Group”) IN [‘EXPORT’,‘FOREIGN’,‘INTERNATIONAL’] THEN
AmountExport := AmountExport + ABS(Base);
//–Code From GroupFooter
//IF CurrReport.TOTALSCAUSEDBY = FIELDNO(“Document No.”) THEN CurrReport.SHOWOUTPUT(FALSE);
//IF CurrReport.TOTALSCAUSEDBY = FIELDNO(“Posting Date”) THEN CurrReport.SHOWOUTPUT(FALSE);
//IF CurrReport.TOTALSCAUSEDBY = FIELDNO(“VAT Bus. Posting Group”) THEN CurrReport.SHOWOUTPUT(FALSE);
//IF (CurrReport.TOTALSCAUSEDBY = FIELDNO(“VAT Entry”.“VAT Prod. Posting Group”)) THEN BEGIN
IF (cdeDoc <> “Document No.”) OR (dtePostDate <> “Posting Date”)
OR (cdeVATBPGrp <> “VAT Bus. Posting Group”) OR (cdeVATPPGrp <> “VAT Prod. Posting Group”) THEN
STT +=1;
STT2 +=1;
BaseAmount := “VAT Entry”.Base;
VATAmount := “VAT Entry”.Amount;
TotalBaseAmount += BaseAmount;
TotalVATAmount += VATAmount;
TotalBaseAmount_VAT += BaseAmount;
TotalVATAmount_VAT += VATAmount;
WITH TempExcelBuffer DO BEGIN
INIT;
“No.” += 10;
Text_7 := Nosign;
Text_1 := NoSeri;
Text_2 := NoDoc;
Date_1 := “VAT Entry”.“Document Date”;
Text_3 := VendorName;
Code_1 := “VAT Entry”.“VAT Registration No.”;
Text_4 := “VAT Entry”.“Resp. VAT Registration No.”;
Text_5 := VendorAdd;
Decimal_1 := BaseAmount;
Text_6 := VATRate;
Decimal_3 := VATAmount;
Code_2 := “VAT Entry”.“Document No.”;
Code_3 :=FORMAT(STT2);
IF INSERT THEN;
END;
//END;
//
cdeDoc := “Document No.”;
dtePostDate := “Posting Date”;
cdeVATBPGrp := “VAT Bus. Posting Group”;
cdeVATPPGrp := “VAT Prod. Posting Group”;
Please fix code, Thanks very much.
Best Regards,
Dinhson