//--------------------------------------------------------------------------- #include #pragma hdrstop #include "HiddenPrintData_F.h" #include "PrintingForm.h" #include "MetaData_F.h" #include "Simulation_F.h" #include "GuideBar.h" #include "YarnCompositionData.h" #include "Main_F.h" #include "Design.h" #include "Cost.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" THiddenPrintDataForm *HiddenPrintDataForm; //--------------------------------------------------------------------------- __fastcall THiddenPrintDataForm::THiddenPrintDataForm(TComponent* Owner) : TForm(Owner) { ListOfQRLabel=NULL; ListOfQRShape=NULL; ListOfQRImage=NULL; } //--------------------------------------------------------------------------- void __fastcall THiddenPrintDataForm::FormCreate(TObject *Sender) { SetFont(); } //--------------------------------------------------------------------------- void __fastcall THiddenPrintDataForm::SetFont(){ SetSmallFont(Font); //Landscape SetSmallFont(qrSimpleLandscape->Font); SetSmallFont(QRLabel4->Font); SetSmallFont(qrl_0_1->Font); SetSmallFont(QRLabel3->Font); SetSmallFont(QRLabel1->Font); //Simple SetSmallFont(qrSimple->Font); SetSmallFont(qrlTitle->Font); //SS SetSmallFont(qrStandardSimulation->Font); SetSmallFont(QRLabel18->Font); //SD SetSmallFont(qrStandardDesign->Font); SetSmallFont(QRLabel59->Font); //SY SetSmallFont(qrStandardYarn->Font); SetSmallFont(QRLabel61->Font); //SYV SetSmallFont(qrStandardYarnVivien->Font); SetSmallFont(QRLabel63->Font); SetSmallFont(QRLabel81->Font); //TotalCost SetSmallFont(qrTotalCost->Font); SetSmallFont(qrlTC_Title->Font); //QRRichText등과 같는 것은 지원하는 Font가 부족하여 적용이 안될 때도 있다 //QRRichText1 부터 QRRichText(n) 까지 일괄 변경한다 SetSmallFont(QRRichText1->Font); SetSmallFont(QRRichText2->Font); SetSmallFont(QRRichText3->Font); SetSmallFont(QRRichText4->Font); SetSmallFont(QRRichText5->Font); SetSmallFont(QRRichText6->Font); SetSmallFont(QRRichText7->Font); SetSmallFont(QRRichText8->Font); SetSmallFont(QRRichText9->Font); SetSmallFont(QRRichText10->Font); SetSmallFont(QRRichText11->Font); SetSmallFont(QRRichText12->Font); SetSmallFont(QRRichText13->Font); SetSmallFont(QRRichText14->Font); SetSmallFont(QRRichText15->Font); SetSmallFont(QRRichText16->Font); SetSmallFont(QRRichText17->Font); SetSmallFont(QRRichText18->Font); SetSmallFont(QRRichText19->Font); SetSmallFont(QRRichText20->Font); SetSmallFont(QRRichText21->Font); SetSmallFont(QRRichText22->Font); SetSmallFont(QRRichText23->Font); SetSmallFont(QRRichText24->Font); SetSmallFont(QRRichText25->Font); SetSmallFont(QRRichText26->Font); SetSmallFont(QRRichText27->Font); SetSmallFont(QRRichText28->Font); SetSmallFont(QRRichText29->Font); SetSmallFont(QRRichText30->Font); SetSmallFont(QRRichText31->Font); SetSmallFont(QRRichText32->Font); SetSmallFont(QRRichText33->Font); SetSmallFont(QRRichText34->Font); SetSmallFont(QRRichText35->Font); SetSmallFont(QRRichText36->Font); SetSmallFont(QRRichText37->Font); SetSmallFont(QRRichText38->Font); SetSmallFont(QRRichText39->Font); SetSmallFont(QRRichText40->Font); SetSmallFont(QRRichText41->Font); SetSmallFont(QRRichText42->Font); SetSmallFont(QRRichText43->Font); SetSmallFont(QRRichText44->Font); SetSmallFont(QRRichText45->Font); SetSmallFont(QRRichText46->Font); SetSmallFont(QRRichText47->Font); SetSmallFont(QRRichText48->Font); SetSmallFont(QRRichText49->Font); SetSmallFont(QRRichText50->Font); SetSmallFont(QRRichText51->Font); SetSmallFont(QRRichText52->Font); SetSmallFont(QRRichText53->Font); SetSmallFont(QRRichText54->Font); SetSmallFont(QRRichText55->Font); SetSmallFont(QRRichText56->Font); SetSmallFont(QRRichText57->Font); SetSmallFont(QRRichText58->Font); //SetSmallFont(QRRichText59->Font); //SetSmallFont(QRRichText60->Font); } //--------------------------------------------------------------------------- void __fastcall THiddenPrintDataForm::Endqr(){ if(ListOfQRLabel){ while(ListOfQRLabel->Count){ TQRLabel *qrl=(TQRLabel *)ListOfQRLabel->Last(); delete qrl; ListOfQRLabel->Remove(qrl); } delete ListOfQRLabel; ListOfQRLabel=NULL; } if(ListOfQRShape){ while(ListOfQRShape->Count){ TQRShape *qrs=(TQRShape *)ListOfQRShape->Last(); delete qrs; ListOfQRShape->Remove(qrs); } delete ListOfQRShape; ListOfQRShape=NULL; } if(ListOfQRImage){ while(ListOfQRImage->Count){ TQRImage *qri=(TQRImage *)ListOfQRImage->Last(); delete qri; ListOfQRImage->Remove(qri); } delete ListOfQRImage; ListOfQRImage=NULL; } } //--------------------------------------------------------------------------- void __fastcall THiddenPrintDataForm::SetqrSimpleLandscape() { //////////////////////////////////////////////////////////////////////////////// Main->SetAll(); //////////////////////////////////////////////////////////////////////////////// int YU[4]={0,0,0,0}; AnsiString Spec[4]; for(int l=0;lmaindata.bar;l++){ for(int m=0;mtexlayer->YarnUseList->Count;m++){ YarnUse *yu = (YarnUse *)Main->texlayer->YarnUseList->Items[m]; if(yu->layer_num==l){ AnsiString str; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; YarnCompositionData_F->AddYMToStr(str,yarn->ym); str+=IntToStr((int)yarn->denier); str+="/"; str+=IntToStr(yarn->filament); str+=" "; YarnCompositionData_F->AddYPToStr(str,yarn->yp); Spec[l]=str; YU[l]=m; break; } } } //////////////////////////////////////////////////////////////////////////////// AnsiString InOut[4]={"FULL","FULL","FULL","FULL"}; for(int l=0;lmaindata.bar;l++){ if(GuideBar_F->gd.iodescription[l]!=""){ InOut[l]=GuideBar_F->gd.iodescription[l]; continue; } AnsiString str; Tex *tex = ((Tex *)Main->texlayer->TexList->Items[l]); for(int i=0;iWales->Count;i++){ WaleState *ws = (WaleState *)tex->Wales->Items[i]; if(ws->in){ str+=IntToStr(ws->cnt)+"o "; } else { str+=IntToStr(ws->cnt)+"x "; } } if(tex->Wales->Count==1)str="FULL"; if(str!="")InOut[l]=str; } //////////////////////////////////////////////////////////////////////////////// AnsiString Chain[4]; for(int l=0;lmaindata.bar;l++){ AnsiString str; Tex *tex = ((Tex *)Main->texlayer->TexList->Items[l]); if(tex->Curve->Count%2||tex->Curve->Count<3){ //홀수이면 전부 표현 for(int i=0;iCurve->Count;i++){ KO *ko = (KO *)tex->Curve->Items[i]; if(PrintForm->rgChain->ItemIndex==0){ str+=IntToStr(ko->in)+IntToStr(ko->via)+" "; } else { str+=IntToStr(ko->in)+IntToStr(ko->via)+IntToStr(ko->out)+" "; } if(i==5&&tex->Curve->Count>6){ //넘치면 표현 안함 str+="..."; break; } } } else { // 짝수이면 중복 체크 // bool repeat=true; KO *ko01 = (KO *)tex->Curve->Items[0]; KO *ko02 = (KO *)tex->Curve->Items[1]; for(int i=0;iCurve->Count/2;i++){ KO *ko1 = (KO *)tex->Curve->Items[2*i]; KO *ko2 = (KO *)tex->Curve->Items[2*i+1]; if(ko01->in!=ko1->in||ko01->via!=ko1->via|| ko02->in!=ko2->in||ko02->via!=ko2->via) { repeat=false; break; } } if(repeat){ KO *ko1 = (KO *)tex->Curve->Items[0]; KO *ko2 = (KO *)tex->Curve->Items[1]; if(PrintForm->rgChain->ItemIndex==0){ str+=IntToStr(ko1->in)+IntToStr(ko1->via)+" "+IntToStr(ko2->in)+IntToStr(ko2->via)+" "; } else { str+=IntToStr(ko1->in)+IntToStr(ko1->via)+IntToStr(ko1->out)+" "+ IntToStr(ko2->in)+IntToStr(ko2->via)+IntToStr(ko2->out)+" "; } } else { for(int i=0;iCurve->Count;i++){ KO *ko = (KO *)tex->Curve->Items[i]; if(PrintForm->rgChain->ItemIndex==0){ str+=IntToStr(ko->in)+IntToStr(ko->via)+" "; } else { str+=IntToStr(ko->in)+IntToStr(ko->via)+IntToStr(ko->out)+" "; } if(i==5&&tex->Curve->Count>6){ //넘치면 표현 안함 str+="..."; break; } } } } Chain[l]=str; } //////////////////////////////////////////////////////////////////////////////// char buf[256]; Extended value; //////////////////////////////////////////////////////////////////////////////// qrl_0_1->Caption=Main->maindata.ProductName; qrl_1_1->Caption=MyFloatToStr(MetaDataForm->md.testw*MetaDataForm->md.testh,2)+"cm*cm"; qrl_1_2->Caption=MyFloatToStr(MetaDataForm->md.testweight,2)+"g"; qrl_1_3->Caption=MyFloatToStr(SimulationForm->sd.width,2)+"\""; qrl_1_4->Caption=MyFloatToStr(SimulationForm->sd.gauge,2)+"w/inch"; memset(buf,0,256); double weight1=value=SimulationForm->sd.width* 2.54*91.44*MetaDataForm->md.testweight/(MetaDataForm->md.testw*MetaDataForm->md.testh); FloatToText(buf, &value, fvExtended, ffNumber, 8, 1); qrl_1_5->Caption=AnsiString(buf)+"g"; qrl_1_6->Caption=MyFloatToStr(SimulationForm->sd.cpc,2)+"c/cm"; memset(buf,0,256); value=(SimulationForm->sd.cpc-Main->maindata.cpc)/SimulationForm->sd.cpc*100; FloatToText(buf, &value, fvExtended, ffNumber, 8, 1); qrl_1_7->Caption=AnsiString(buf)+"%"; qrl_2_1->Caption=MyFloatToStr(Main->maindata.width,2)+"\""; qrl_2_2->Caption=IntToStr(Main->maindata.gauge)+"w/inch"; memset(buf,0,256); double weight2=value=weight1/SimulationForm->sd.cpc*Main->maindata.cpc; FloatToText(buf, &value, fvExtended, ffNumber, 8, 1); qrl_2_3->Caption=AnsiString(buf)+"g"; qrl_2_4->Caption=MyFloatToStr(Main->maindata.cpc,2)+"c/cm"; qrl_3_1->Caption=MetaDataForm->md.machineName; qrl_3_2->Caption=MyFloatToStr(Main->maindata.width,2)+"\""; qrl_3_3->Caption=IntToStr(MetaDataForm->md.rpm); qrl_3_4->Caption=MyFloatToStr(Main->maindata.cpc,2)+"c/cm"; memset(buf,0,256); value=weight2; FloatToText(buf, &value, fvExtended, ffNumber, 8, 1); qrl_3_5->Caption=AnsiString(buf)+"g"; qrl_3_6->Caption=IntToStr(MetaDataForm->md.cutyard); memset(buf,0,256); value=weight2*MetaDataForm->md.cutyard/1000; FloatToText(buf, &value, fvExtended, ffNumber, 8, 3); qrl_3_7->Caption=AnsiString(buf)+"kg"; qrl_3_8->Caption=MetaDataForm->md.Time; if(Main->maindata.bar>0){ YarnUse *yu = (YarnUse *)Main->texlayer->YarnUseList->Items[YU[0]]; Yarn *yarn = (Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; qrl_4_1->Caption=Spec[0]; qrl_4_2->Caption=IntToStr(yu->use); qrl_4_3->Caption=IntToStr(yu->beam); qrl_4_4->Caption=AnsiString(yarn->lot); qrl_4_5->Caption=InOut[0]; qrl_4_6->Caption=Chain[0]; } if(Main->maindata.bar>1){ YarnUse *yu = (YarnUse *)Main->texlayer->YarnUseList->Items[YU[1]]; Yarn *yarn = (Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; qrl_5_1->Caption=Spec[1]; qrl_5_2->Caption=IntToStr(yu->use); qrl_5_3->Caption=IntToStr(yu->beam); qrl_5_4->Caption=AnsiString(yarn->lot); qrl_5_5->Caption=InOut[1]; qrl_5_6->Caption=Chain[1]; } if(Main->maindata.bar>2){ YarnUse *yu = (YarnUse *)Main->texlayer->YarnUseList->Items[YU[2]]; Yarn *yarn = (Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; qrl_6_1->Caption=Spec[2]; qrl_6_2->Caption=IntToStr(yu->use); qrl_6_3->Caption=IntToStr(yu->beam); qrl_6_4->Caption=AnsiString(yarn->lot); qrl_6_5->Caption=InOut[2]; qrl_6_6->Caption=Chain[2]; } if(Main->maindata.bar>3){ YarnUse *yu = (YarnUse *)Main->texlayer->YarnUseList->Items[YU[3]]; Yarn *yarn = (Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; qrl_7_1->Caption=Spec[3]; qrl_7_2->Caption=IntToStr(yu->use); qrl_7_3->Caption=IntToStr(yu->beam); qrl_7_4->Caption=AnsiString(yarn->lot); qrl_7_5->Caption=InOut[3]; qrl_7_6->Caption=Chain[3]; } if(Main->maindata.bar>0){ YarnUse *yu = (YarnUse *)Main->texlayer->YarnUseList->Items[YU[0]]; Yarn *yarn = (Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; qrl_9_1->Caption=MyFloatToStr(Main->maindata.cpc,2)+"c/cm"; qrl_9_2->Caption=IntToStr(yu->mmPerRACK); qrl_9_3->Caption=IntToStr(yu->total_use); qrl_9_4->Caption=IntToStr((int)yarn->denier); memset(buf,0,256); value=yu->GPY; FloatToText(buf, &value, fvExtended, ffNumber, 8, 3); qrl_9_5->Caption=AnsiString(buf)+"g"; memset(buf,0,256); value=yu->percent; FloatToText(buf, &value, fvExtended, ffNumber, 8, 3); qrl_9_6->Caption=AnsiString(buf)+"%"; qrl_9_7->Caption=IntToStr((int)(yu->MPY*1000+0.5))+"mm"; } if(Main->maindata.bar>1){ YarnUse *yu = (YarnUse *)Main->texlayer->YarnUseList->Items[YU[1]]; Yarn *yarn = (Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; qrl_10_1->Caption=MyFloatToStr(Main->maindata.cpc,2)+"c/cm"; qrl_10_2->Caption=IntToStr(yu->mmPerRACK); qrl_10_3->Caption=IntToStr(yu->total_use); qrl_10_4->Caption=IntToStr((int)yarn->denier); memset(buf,0,256); value=yu->GPY; FloatToText(buf, &value, fvExtended, ffNumber, 8, 3); qrl_10_5->Caption=AnsiString(buf)+"g"; memset(buf,0,256); value=yu->percent; FloatToText(buf, &value, fvExtended, ffNumber, 8, 3); qrl_10_6->Caption=AnsiString(buf)+"%"; qrl_10_7->Caption=IntToStr((int)(yu->MPY*1000+0.5))+"mm"; } if(Main->maindata.bar>2){ YarnUse *yu = (YarnUse *)Main->texlayer->YarnUseList->Items[YU[2]]; Yarn *yarn = (Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; qrl_11_1->Caption=MyFloatToStr(Main->maindata.cpc,2)+"c/cm"; qrl_11_2->Caption=IntToStr(yu->mmPerRACK); qrl_11_3->Caption=IntToStr(yu->total_use); qrl_11_4->Caption=IntToStr((int)yarn->denier); memset(buf,0,256); value=yu->GPY; FloatToText(buf, &value, fvExtended, ffNumber, 8, 3); qrl_11_5->Caption=AnsiString(buf)+"g"; memset(buf,0,256); value=yu->percent; FloatToText(buf, &value, fvExtended, ffNumber, 8, 3); qrl_11_6->Caption=AnsiString(buf)+"%"; qrl_11_7->Caption=IntToStr((int)(yu->MPY*1000+0.5))+"mm"; } if(Main->maindata.bar>3){ YarnUse *yu = (YarnUse *)Main->texlayer->YarnUseList->Items[YU[3]]; Yarn *yarn = (Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; qrl_12_1->Caption=MyFloatToStr(Main->maindata.cpc,2)+"c/cm"; qrl_12_2->Caption=IntToStr(yu->mmPerRACK); qrl_12_3->Caption=IntToStr(yu->total_use); qrl_12_4->Caption=IntToStr((int)yarn->denier); memset(buf,0,256); value=yu->GPY; FloatToText(buf, &value, fvExtended, ffNumber, 8, 3); qrl_12_5->Caption=AnsiString(buf)+"g"; memset(buf,0,256); value=yu->percent; FloatToText(buf, &value, fvExtended, ffNumber, 8, 3); qrl_12_6->Caption=AnsiString(buf)+"%"; qrl_12_7->Caption=IntToStr((int)(yu->MPY*1000+0.5))+"mm"; } double total_weight=0; int total_length=0; for(int i=0;imaindata.bar;i++){ YarnUse *yu = (YarnUse *)Main->texlayer->YarnUseList->Items[YU[i]]; total_weight+=yu->GPY; total_length+=(int)(yu->MPY*1000+0.5); } memset(buf,0,256); value=total_weight; FloatToText(buf, &value, fvExtended, ffNumber, 8, 3); qrl_13_1->Caption=AnsiString(buf)+"g"; qrl_13_2->Caption="100.000%"; qrl_13_3->Caption=IntToStr(total_length)+"mm"; qrl_14_1->Caption=IntToStr(MetaDataForm->md.rpm); qrl_14_2->Caption=MyFloatToStr(Main->maindata.cpc,2)+"c/cm"; qrl_14_3->Caption=MyFloatToStr(MetaDataForm->md.hours,2); qrl_14_4->Caption=IntToStr(MetaDataForm->md.efficiency)+"%"; qrl_14_5->Caption=IntToStr(MetaDataForm->md.count_of_w); qrl_14_6->Caption=IntToStr(MetaDataForm->md.yield_per_day)+"Y"; } //--------------------------------------------------------------------------- void __fastcall THiddenPrintDataForm::SetqrSimple(){ //////////////////////////////////////////////////////////////////////////////// char buf[256]; Extended value; //////////////////////////////////////////////////////////////////////////////// Main->SetAll(); //////////////////////////////////////////////////////////////////////////////// AnsiString InOut[4]={"FULL","FULL","FULL","FULL"}; for(int l=0;lmaindata.bar;l++){ if(GuideBar_F->gd.iodescription[l]!=""){ InOut[l]=GuideBar_F->gd.iodescription[l]; continue; } AnsiString str; Tex *tex = ((Tex *)Main->texlayer->TexList->Items[l]); for(int i=0;iWales->Count;i++){ WaleState *ws = (WaleState *)tex->Wales->Items[i]; if(ws->in){ str+=IntToStr(ws->cnt)+AnsiString((char)('A'+ws->yarnIndex))+" "; } else { str+=IntToStr(ws->cnt)+"X "; } } if(tex->Wales->Count==1)str="FULL"; if(str!="")InOut[l]=str; } //////////////////////////////////////////////////////////////////////////////// AnsiString Chain[4]; for(int l=0;lmaindata.bar;l++){ AnsiString str; Tex *tex = ((Tex *)Main->texlayer->TexList->Items[l]); if(tex->Curve->Count%2||tex->Curve->Count<3){ //홀수이면 전부 표현 for(int i=0;iCurve->Count;i++){ KO *ko = (KO *)tex->Curve->Items[i]; if(PrintForm->rgChain->ItemIndex==0){ str+=IntToStr(ko->in)+IntToStr(ko->via)+" "; } else { str+=IntToStr(ko->in)+IntToStr(ko->via)+IntToStr(ko->out)+" "; } } } else { // 짝수이면 중복 체크 // bool repeat=true; KO *ko01 = (KO *)tex->Curve->Items[0]; KO *ko02 = (KO *)tex->Curve->Items[1]; for(int i=0;iCurve->Count/2;i++){ KO *ko1 = (KO *)tex->Curve->Items[2*i]; KO *ko2 = (KO *)tex->Curve->Items[2*i+1]; if(ko01->in!=ko1->in||ko01->via!=ko1->via|| ko02->in!=ko2->in||ko02->via!=ko2->via) { repeat=false; break; } } if(repeat){ KO *ko1 = (KO *)tex->Curve->Items[0]; KO *ko2 = (KO *)tex->Curve->Items[1]; if(PrintForm->rgChain->ItemIndex==0){ str+=IntToStr(ko1->in)+IntToStr(ko1->via)+" "+IntToStr(ko2->in)+IntToStr(ko2->via)+" "; } else { str+=IntToStr(ko1->in)+IntToStr(ko1->via)+IntToStr(ko1->out)+" "+ IntToStr(ko2->in)+IntToStr(ko2->via)+IntToStr(ko2->out)+" "; } } else { for(int i=0;iCurve->Count;i++){ KO *ko = (KO *)tex->Curve->Items[i]; if(PrintForm->rgChain->ItemIndex==0){ str+=IntToStr(ko->in)+IntToStr(ko->via)+" "; } else { str+=IntToStr(ko->in)+IntToStr(ko->via)+IntToStr(ko->out)+" "; } } } } Chain[l]=str; } //////////////////////////////////////////////////////////////////////////////// QRLabel2->Caption ="NAME : "+Main->maindata.ProductName; QRLabel60->Caption="CODE : "+Main->maindata.ProductCode; QRLabel58->Caption="TIME : "+MetaDataForm->md.Time; //////////////////////////////////////////////////////////////////////////////// QRRichText12->Lines->Clear(); QRRichText12->Lines->Add("BAR"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString str="L"+IntToStr(yu->layer_num+1); QRRichText12->Lines->Add(str); } QRRichText13->Lines->Clear(); QRRichText13->Lines->Add("IDX"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; AnsiString str=AnsiString((char)('A'+yu->yarnIndex)); QRRichText13->Lines->Add(str); } QRRichText2->Lines->Clear(); QRRichText2->Lines->Add("MAKER"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString str=yarn->lot; QRRichText2->Lines->Add(str); } QRRichText5->Lines->Clear(); QRRichText5->Lines->Add("SPEC."); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString spec; YarnCompositionData_F->AddYMToStr(spec,yarn->ym); spec+=IntToStr((int)yarn->denier); spec+="/"; spec+=IntToStr(yarn->filament); spec+=" "; YarnCompositionData_F->AddYPToStr(spec,yarn->yp); AnsiString str=spec; QRRichText5->Lines->Add(str); } QRRichText6->Lines->Clear(); QRRichText6->Lines->Add("CODE"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString str=yarn->code; QRRichText6->Lines->Add(str); } QRRichText7->Lines->Clear(); QRRichText7->Lines->Add("%"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString str=MyFloatToStr(yu->percent,2)+"%"; QRRichText7->Lines->Add(str); } QRRichText8->Lines->Clear(); QRRichText8->Lines->Add("mm/RACK"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString str=IntToStr(yu->mmPerRACK); QRRichText8->Lines->Add(str); } QRRichText9->Lines->Clear(); QRRichText9->Lines->Add("USE"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString str=IntToStr(yu->use); QRRichText9->Lines->Add(str); } QRRichText10->Lines->Clear(); QRRichText10->Lines->Add("BEAM"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString str=IntToStr(yu->beam); QRRichText10->Lines->Add(str); } QRRichText11->Lines->Clear(); QRRichText11->Lines->Add("TOTAL"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString str=IntToStr(yu->total_use); QRRichText11->Lines->Add(str); } //////////////////////////////////////////////////////////////////////////////// QRRichText1->Lines->Clear(); QRRichText1->Lines->Add(""); QRRichText1->Lines->Add("RAW"); QRRichText1->Lines->Add("SIMULATED"); QRRichText14->Lines->Clear(); QRRichText14->Lines->Add("WPI"); QRRichText14->Lines->Add(IntToStr(Main->maindata.gauge)); QRRichText14->Lines->Add(MyFloatToStr(SimulationForm->sd.gauge,2)); QRRichText15->Lines->Clear(); QRRichText15->Lines->Add("CPC"); QRRichText15->Lines->Add(MyFloatToStr(Main->maindata.cpc,2)); QRRichText15->Lines->Add(MyFloatToStr(SimulationForm->sd.cpc,2)); QRRichText16->Lines->Clear(); QRRichText16->Lines->Add("Width"); QRRichText16->Lines->Add(MyFloatToStr(Main->maindata.width,2)+" inch"); QRRichText16->Lines->Add(MyFloatToStr(SimulationForm->sd.width,2)+" inch"); QRRichText17->Lines->Clear(); QRRichText17->Lines->Add("Weight"); double gpy=0; for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; gpy+=yu->GPY; } memset(buf,0,256); value=gpy; FloatToText(buf, &value, fvExtended, ffNumber, 8, 1); QRRichText17->Lines->Add(AnsiString(buf)+" g/y"); memset(buf,0,256); value=gpy/Main->maindata.cpc*SimulationForm->sd.cpc; FloatToText(buf, &value, fvExtended, ffNumber, 8, 1); QRRichText17->Lines->Add(AnsiString(buf)+" g/y"); //////////////////////////////////////////////////////////////////////////////// QRRichText18->Lines->Clear(); AnsiString str="QUOTA/DAY : "+IntToStr(MetaDataForm->md.rpm)+" X "+ MyFloatToStr(MetaDataForm->md.hours,2)+"h X 60 X " +MyFloatToStr(MetaDataForm->md.efficiency/100.0,2)+" / "+ MyFloatToStr(Main->maindata.cpc,2)+" / 91.44 X "+IntToStr(MetaDataForm->md.count_of_w)+" = "+ MyFloatToStr(MetaDataForm->md.rpm*MetaDataForm->md.hours*60.0*(MetaDataForm->md.efficiency/100.0)/ Main->maindata.cpc/91.44*MetaDataForm->md.count_of_w,2); QRRichText18->Lines->Add(str); //////////////////////////////////////////////////////////////////////////////// QRRichText19->Lines->Clear(); QRRichText19->Lines->Add("MACHINE NAME : "+MetaDataForm->md.machineName); //////////////////////////////////////////////////////////////////////////////// QRRichText20->Lines->Clear(); QRRichText21->Lines->Clear(); for(int i=0;imaindata.bar;i++){ Tex *tex=(Tex *)Main->texlayer->TexList->Items[i]; while(QRRichText20->Lines->Count>QRRichText21->Lines->Count){ QRRichText21->Lines->Add(""); } QRRichText21->Lines->Add("L"+IntToStr(i+1)); QRRichText20->Lines->Add(Chain[i]+" = "+IntToStr(Main->maindata.course)+" COS"); } //////////////////////////////////////////////////////////////////////////////// QRRichText22->Lines->Clear(); QRRichText23->Lines->Clear(); for(int i=0;imaindata.bar;i++){ Tex *tex=(Tex *)Main->texlayer->TexList->Items[i]; while(QRRichText23->Lines->Count>QRRichText22->Lines->Count){ QRRichText22->Lines->Add(""); } QRRichText22->Lines->Add("L"+IntToStr(i+1)); QRRichText23->Lines->Add(InOut[i]+" START="+IntToStr(tex->leftShift)); } //////////////////////////////////////////////////////////////////////////////// QRRichText24->Lines->Clear(); for(int i=0;immDetail->Lines->Count;i++){ QRRichText24->Lines->Add(MetaDataForm->mmDetail->Lines->Strings[i]); } //////////////////////////////////////////////////////////////////////////////// HDC dc=NULL; int dx=0,dy=0,sx=0,sy=0; //////////////////////////////////////////////////////////////////////////////// //DesignForm->DrawChart(true); QRImgDesign->Picture->Bitmap->Height=0;//전에것을 지우고.. QRImgDesign->Picture->Bitmap->Width=QRImgDesign->Width; QRImgDesign->Picture->Bitmap->Height=QRImgDesign->Height; dc=DesignForm->chartTempL2->CreateDC(); dx=0,dy=0,sx=0,sy=0; if(DesignForm->chartTempL2->Width>QRImgDesign->Width) { sx = DesignForm->chartTempL2->Width-QRImgDesign->Width; dx = 0; } else { sx = 0; dx = 0; } if(DesignForm->chartTempL2->Height>QRImgDesign->Height) { sy = DesignForm->chartTempL2->Height-QRImgDesign->Height; dy = 0; } else { sy = 0; dy = 0; } BitBlt(QRImgDesign->Picture->Bitmap->Canvas->Handle, dx, dy, QRImgDesign->Width, QRImgDesign->Height, dc, sx, sy, SRCCOPY); DesignForm->chartTempL2->DeleteDC(dc); //////////////////////////////////////////////////////////////////////////////// //SimulationForm->MakeImage(); QRImgSimulation->Picture->Bitmap->Height=0;//전에것을 지우고.. QRImgSimulation->Picture->Bitmap->Width=QRImgSimulation->Width; QRImgSimulation->Picture->Bitmap->Height=QRImgSimulation->Height; dc=SimulationForm->image->CreateDC(); dx=0,dy=0,sx=0,sy=0; if(SimulationForm->image->Width>QRImgSimulation->Width) { sx = SimulationForm->image->Width-QRImgSimulation->Width; dx = 0; } else { sx = 0; dx = 0; } if(SimulationForm->image->Height>QRImgSimulation->Height) { sy = SimulationForm->image->Height-QRImgSimulation->Height; dy = 0; } else { sy = 0; dy = 0; } BitBlt(QRImgSimulation->Picture->Bitmap->Canvas->Handle, dx, dy, QRImgSimulation->Width, QRImgSimulation->Height, dc, sx, sy, SRCCOPY); SimulationForm->image->DeleteDC(dc); //////////////////////////////////////////////////////////////////////////////// } //--------------------------------------------------------------------------- void __fastcall THiddenPrintDataForm::SetqrStandardSimulation(){ //////////////////////////////////////////////////////////////////////////////// ListOfQRImage=new TList; //////////////////////////////////////////////////////////////////////////////// Main->SetAll(); //////////////////////////////////////////////////////////////////////////////// QRLabel125->Caption="NAME : "+Main->maindata.ProductName; QRLabel126->Caption="CODE : "+Main->maindata.ProductCode; QRLabel127->Caption="TIME : "+MetaDataForm->md.Time; //////////////////////////////////////////////////////////////////////////////// QRRichText3->Lines->Clear(); QRRichText3->Lines->Add(""); QRRichText3->Lines->Add("RAW"); QRRichText3->Lines->Add("SIMULATED"); QRRichText4->Lines->Clear(); QRRichText4->Lines->Add("WPI"); QRRichText4->Lines->Add(IntToStr(Main->maindata.gauge)); QRRichText4->Lines->Add(MyFloatToStr(SimulationForm->sd.gauge,2)); QRRichText25->Lines->Clear(); QRRichText25->Lines->Add("CPC"); QRRichText25->Lines->Add(MyFloatToStr(Main->maindata.cpc,2)); QRRichText25->Lines->Add(MyFloatToStr(SimulationForm->sd.cpc,2)); QRRichText26->Lines->Clear(); QRRichText26->Lines->Add("Width"); QRRichText26->Lines->Add(MyFloatToStr(Main->maindata.width,2)+" inch"); QRRichText26->Lines->Add(MyFloatToStr(SimulationForm->sd.width,2)+" inch"); //////////////////////////////////////////////////////////////////////////////// QRRichText27->Lines->Clear(); QRRichText27->Lines->Add("FUZZ : "+IntToStr(SimulationForm->sd.fuzz)); AnsiString str; if(SimulationForm->sd.back){ str="BACK"; } else { str="FRONT"; } QRRichText27->Lines->Add("FACE : "+str); QRRichText27->Lines->Add("VERTICAL REPEAT : "+IntToStr(SimulationForm->sd.rH)); QRRichText27->Lines->Add("HORIZONTAL REPEAT : "+IntToStr(SimulationForm->sd.rW)); //////////////////////////////////////////////////////////////////////////////// int dx=0,dy=0,sx=0,sy=0; //////////////////////////////////////////////////////////////////////////////// //SimulationForm->MakeImage(); TTexpiaBitmap *image=SimulationForm->image; int cntx=(image->Width-1)/360+1; int cnty=(image->Height-1)/260+1; if(cntx>2)cntx=2; if(cnty>3)cnty=3; for(int i=0;iParent=qrStandardSimulation; qri->Width=360; qri->Height=260; qri->Picture->Bitmap->Width=qri->Width; qri->Picture->Bitmap->Height=qri->Height; qri->Left=38+i*qri->Width; qri->Top=305+j*qri->Height; HDC dc=image->CreateDC(); dx=0,dy=0; sx = i*qri->Width; sy = j*qri->Height; BitBlt(qri->Picture->Bitmap->Canvas->Handle, dx, dy, qri->Width, qri->Height, dc, sx, sy, SRCCOPY); image->DeleteDC(dc); ListOfQRImage->Add(qri); } } //////////////////////////////////////////////////////////////////////////////// } //--------------------------------------------------------------------------- void __fastcall THiddenPrintDataForm::SetqrStandardDesign(){ //////////////////////////////////////////////////////////////////////////////// ListOfQRImage=new TList; char buf[256]; Extended value; //////////////////////////////////////////////////////////////////////////////// Main->SetAll(); //////////////////////////////////////////////////////////////////////////////// AnsiString InOut[4]={"FULL","FULL","FULL","FULL"}; for(int l=0;lmaindata.bar;l++){ if(GuideBar_F->gd.iodescription[l]!=""){ InOut[l]=GuideBar_F->gd.iodescription[l]; continue; } AnsiString str; Tex *tex = ((Tex *)Main->texlayer->TexList->Items[l]); for(int i=0;iWales->Count;i++){ WaleState *ws = (WaleState *)tex->Wales->Items[i]; if(ws->in){ str+=IntToStr(ws->cnt)+AnsiString((char)('A'+ws->yarnIndex))+" "; } else { str+=IntToStr(ws->cnt)+"X "; } } if(tex->Wales->Count==1)str="FULL"; if(str!="")InOut[l]=str; } //////////////////////////////////////////////////////////////////////////////// AnsiString Chain[4]; for(int l=0;lmaindata.bar;l++){ AnsiString str; Tex *tex = ((Tex *)Main->texlayer->TexList->Items[l]); if(tex->Curve->Count%2||tex->Curve->Count<3){ //홀수이면 전부 표현 for(int i=0;iCurve->Count;i++){ KO *ko = (KO *)tex->Curve->Items[i]; if(PrintForm->rgChain->ItemIndex==0){ str+=IntToStr(ko->in)+IntToStr(ko->via)+" "; } else { str+=IntToStr(ko->in)+IntToStr(ko->via)+IntToStr(ko->out)+" "; } } } else { // 짝수이면 중복 체크 // bool repeat=true; KO *ko01 = (KO *)tex->Curve->Items[0]; KO *ko02 = (KO *)tex->Curve->Items[1]; for(int i=0;iCurve->Count/2;i++){ KO *ko1 = (KO *)tex->Curve->Items[2*i]; KO *ko2 = (KO *)tex->Curve->Items[2*i+1]; if(ko01->in!=ko1->in||ko01->via!=ko1->via|| ko02->in!=ko2->in||ko02->via!=ko2->via) { repeat=false; break; } } if(repeat){ KO *ko1 = (KO *)tex->Curve->Items[0]; KO *ko2 = (KO *)tex->Curve->Items[1]; if(PrintForm->rgChain->ItemIndex==0){ str+=IntToStr(ko1->in)+IntToStr(ko1->via)+" "+IntToStr(ko2->in)+IntToStr(ko2->via)+" "; } else { str+=IntToStr(ko1->in)+IntToStr(ko1->via)+IntToStr(ko1->out)+" "+ IntToStr(ko2->in)+IntToStr(ko2->via)+IntToStr(ko2->out)+" "; } } else { for(int i=0;iCurve->Count;i++){ KO *ko = (KO *)tex->Curve->Items[i]; if(PrintForm->rgChain->ItemIndex==0){ str+=IntToStr(ko->in)+IntToStr(ko->via)+" "; } else { str+=IntToStr(ko->in)+IntToStr(ko->via)+IntToStr(ko->out)+" "; } } } } Chain[l]=str; } //////////////////////////////////////////////////////////////////////////////// QRLabel128->Caption="NAME : "+Main->maindata.ProductName; QRLabel129->Caption="CODE : "+Main->maindata.ProductCode; QRLabel130->Caption="TIME : "+MetaDataForm->md.Time; //////////////////////////////////////////////////////////////////////////////// QRRichText28->Lines->Clear(); QRRichText28->Lines->Add(""); QRRichText28->Lines->Add("RAW"); QRRichText28->Lines->Add("SIMULATED"); QRRichText29->Lines->Clear(); QRRichText29->Lines->Add("WPI"); QRRichText29->Lines->Add(IntToStr(Main->maindata.gauge)); QRRichText29->Lines->Add(MyFloatToStr(SimulationForm->sd.gauge,2)); QRRichText30->Lines->Clear(); QRRichText30->Lines->Add("CPC"); QRRichText30->Lines->Add(MyFloatToStr(Main->maindata.cpc,2)); QRRichText30->Lines->Add(MyFloatToStr(SimulationForm->sd.cpc,2)); QRRichText31->Lines->Clear(); QRRichText31->Lines->Add("Width"); QRRichText31->Lines->Add(MyFloatToStr(Main->maindata.width,2)+" inch"); QRRichText31->Lines->Add(MyFloatToStr(SimulationForm->sd.width,2)+" inch"); QRRichText32->Lines->Clear(); QRRichText32->Lines->Add("Weight"); double gpy=0; for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; gpy+=yu->GPY; } memset(buf,0,256); value=gpy; FloatToText(buf, &value, fvExtended, ffNumber, 8, 1); QRRichText32->Lines->Add(AnsiString(buf)+" g/y"); memset(buf,0,256); value=gpy/Main->maindata.cpc*SimulationForm->sd.cpc; FloatToText(buf, &value, fvExtended, ffNumber, 8, 1); QRRichText32->Lines->Add(AnsiString(buf)+" g/y"); //////////////////////////////////////////////////////////////////////////////// QRRichText33->Lines->Clear(); AnsiString str="QUOTA/DAY : "+IntToStr(MetaDataForm->md.rpm)+" X "+ MyFloatToStr(MetaDataForm->md.hours,2)+"h X 60 X " +MyFloatToStr(MetaDataForm->md.efficiency/100.0,2)+" / "+ MyFloatToStr(Main->maindata.cpc,2)+" / 91.44 X "+IntToStr(MetaDataForm->md.count_of_w)+" = "+ MyFloatToStr(MetaDataForm->md.rpm*MetaDataForm->md.hours*60.0*(MetaDataForm->md.efficiency/100.0)/ Main->maindata.cpc/91.44*MetaDataForm->md.count_of_w,2); QRRichText33->Lines->Add(str); //////////////////////////////////////////////////////////////////////////////// QRRichText34->Lines->Clear(); QRRichText34->Lines->Add("MACHINE NAME : "+MetaDataForm->md.machineName); //////////////////////////////////////////////////////////////////////////////// QRRichText35->Lines->Clear(); QRRichText36->Lines->Clear(); for(int i=0;imaindata.bar;i++){ Tex *tex=(Tex *)Main->texlayer->TexList->Items[i]; while(QRRichText35->Lines->Count>QRRichText36->Lines->Count){ QRRichText36->Lines->Add(""); } QRRichText36->Lines->Add("L"+IntToStr(i+1)); QRRichText35->Lines->Add(Chain[i]+" = "+IntToStr(Main->maindata.course)+" COS"); } //////////////////////////////////////////////////////////////////////////////// QRRichText37->Lines->Clear(); QRRichText38->Lines->Clear(); for(int i=0;imaindata.bar;i++){ Tex *tex=(Tex *)Main->texlayer->TexList->Items[i]; while(QRRichText38->Lines->Count>QRRichText37->Lines->Count){ QRRichText37->Lines->Add(""); } QRRichText37->Lines->Add("L"+IntToStr(i+1)); QRRichText38->Lines->Add(InOut[i]+" START="+IntToStr(tex->leftShift)); } //////////////////////////////////////////////////////////////////////////////// QRRichText39->Lines->Clear(); for(int i=0;immDetail->Lines->Count;i++){ QRRichText39->Lines->Add(MetaDataForm->mmDetail->Lines->Strings[i]); } //////////////////////////////////////////////////////////////////////////////// int dx=0,dy=0,sx=0,sy=0; //////////////////////////////////////////////////////////////////////////////// //DesignForm->DrawChart(true); TTexpiaBitmap *image=DesignForm->chartTempL2; if(image){ int cntx=(image->Width-1)/360+1; int cnty=(image->Height-1)/200+1; if(cntx>2)cntx=2; if(cnty>2)cnty=2; for(int i=0;iParent=qrStandardDesign; qri->Width=360; qri->Height=200; qri->Picture->Bitmap->Width=qri->Width; qri->Picture->Bitmap->Height=qri->Height; qri->Left=38+(cntx-i-1)*qri->Width; qri->Top=680+(cnty-j-1)*qri->Height; HDC dc=image->CreateDC(); dx=0,dy=0; if(image->Width>qri->Width) { sx = image->Width-(i+1)*qri->Width; dx = 0; } else { sx = 0; dx = 0; } if(image->Height>qri->Height) { sy = (cnty-j-1)*qri->Height; dy = 0; } else { sy = 0; dy = 0; } BitBlt(qri->Picture->Bitmap->Canvas->Handle, dx, dy, qri->Width, qri->Height, dc, sx, sy, SRCCOPY); image->DeleteDC(dc); ListOfQRImage->Add(qri); } } } //////////////////////////////////////////////////////////////////////////////// } //--------------------------------------------------------------------------- void __fastcall THiddenPrintDataForm::SetqrStandardYarn(){ //////////////////////////////////////////////////////////////////////////////// Main->SetAll(); //////////////////////////////////////////////////////////////////////////////// ListOfQRLabel=new TList; ListOfQRShape=new TList; TQRLabel *qrl=NULL; TQRShape *qrs=NULL; char buf[256]; Extended value; //////////////////////////////////////////////////////////////////////////////// QRLabel131->Caption="NAME : "+Main->maindata.ProductName; QRLabel132->Caption="CODE : "+Main->maindata.ProductCode; QRLabel133->Caption="TIME : "+MetaDataForm->md.Time; //////////////////////////////////////////////////////////////////////////////// qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=40; qrl->Top=139; qrl->Caption="IDX"; ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=70; qrl->Top=139; qrl->Caption="NAME"; ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=140; qrl->Top=139; qrl->Caption="CODE"; ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=220; qrl->Top=139; qrl->Caption="MAKER"; ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=300; qrl->Top=139; qrl->Caption="SPEC."; ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=435; qrl->Top=139; qrl->Caption="COL."; ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=470; qrl->Top=139; qrl->Caption="CONT."; ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=520; qrl->Top=139; qrl->Caption="REFL."; ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=570; qrl->Top=139; qrl->Caption="TRANS."; ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=630; qrl->Top=139; qrl->Caption="COST/Kg"; ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=695; qrl->Top=139; qrl->Caption="TIME"; ListOfQRLabel->Add(qrl); for(int i=0;itexlayer->YarnList->Count;i++){ Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[i]; qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=40; qrl->Top=139+(i+1)*13; qrl->Caption=AnsiString((char)('A'+i)); ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=70; qrl->Top=139+(i+1)*13; qrl->Caption=yarn->name; ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=140; qrl->Top=139+(i+1)*13; qrl->Caption=yarn->code; ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=220; qrl->Top=139+(i+1)*13; qrl->Caption=yarn->lot; ListOfQRLabel->Add(qrl); AnsiString spec; YarnCompositionData_F->AddYMToStr(spec,yarn->ym); spec+=IntToStr((int)yarn->denier); spec+="/"; spec+=IntToStr(yarn->filament); spec+=" "; YarnCompositionData_F->AddYPToStr(spec,yarn->yp); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=300; qrl->Top=139+(i+1)*13; qrl->Caption=spec; ListOfQRLabel->Add(qrl); qrs=new TQRShape(this); qrs->Parent=qrStandardYarn; qrs->Left=435; qrs->Top=140+(i+1)*13; qrs->Height=11; qrs->Width=20; qrs->Brush->Color=yarn->color; ListOfQRShape->Add(qrs); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=470; qrl->Top=139+(i+1)*13; double v=yarn->contraction; v+=1; if(v<0.01)v=0.01; qrl->Caption=MyFloatToStr(100.0/v,2)+"%"; ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=520; qrl->Top=139+(i+1)*13; qrl->Caption=MyFloatToStr(yarn->reflection,2); ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=570; qrl->Top=139+(i+1)*13; qrl->Caption=MyFloatToStr(yarn->transparency,2); ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=630; qrl->Top=139+(i+1)*13; qrl->Caption=MyFloatToStr(yarn->cost,2); ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrStandardYarn; qrl->Left=695; qrl->Top=139+(i+1)*13; qrl->Caption=yarn->detail; ListOfQRLabel->Add(qrl); } //////////////////////////////////////////////////////////////////////////////// QRRichText40->Lines->Clear(); QRRichText40->Lines->Add("BAR"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString str="L"+IntToStr(yu->layer_num+1); QRRichText40->Lines->Add(str); } QRRichText41->Lines->Clear(); QRRichText41->Lines->Add("IDX"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; AnsiString str=AnsiString((char)('A'+yu->yarnIndex)); QRRichText41->Lines->Add(str); } QRRichText43->Lines->Clear(); QRRichText43->Lines->Add("SPEC."); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString spec; YarnCompositionData_F->AddYMToStr(spec,yarn->ym); spec+=IntToStr((int)yarn->denier); spec+="/"; spec+=IntToStr(yarn->filament); spec+=" "; YarnCompositionData_F->AddYPToStr(spec,yarn->yp); AnsiString str=spec; QRRichText43->Lines->Add(str); } QRRichText42->Lines->Clear(); QRRichText42->Lines->Add("m/y"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; QRRichText42->Lines->Add(MyFloatToStr(yu->MPY,3)); } QRRichText44->Lines->Clear(); QRRichText44->Lines->Add("g/y"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; QRRichText44->Lines->Add(MyFloatToStr(yu->GPY,2)); } QRRichText45->Lines->Clear(); QRRichText45->Lines->Add("%"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString str=MyFloatToStr(yu->percent,2)+"%"; QRRichText45->Lines->Add(str); } QRRichText46->Lines->Clear(); QRRichText46->Lines->Add("mm/RACK"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString str=IntToStr(yu->mmPerRACK); QRRichText46->Lines->Add(str); } QRRichText47->Lines->Clear(); QRRichText47->Lines->Add("USE"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString str=IntToStr(yu->use); QRRichText47->Lines->Add(str); } QRRichText48->Lines->Clear(); QRRichText48->Lines->Add("BEAM"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString str=IntToStr(yu->beam); QRRichText48->Lines->Add(str); } QRRichText49->Lines->Clear(); QRRichText49->Lines->Add("TOTAL"); for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; AnsiString str=IntToStr(yu->total_use); QRRichText49->Lines->Add(str); } QRRichText58->Lines->Clear(); QRRichText58->Lines->Add("COST/Y"); double total_cost=0; for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; total_cost+=yarn->cost*yu->GPY/1000.0; AnsiString str=MyFloatToStr(yarn->cost*yu->GPY/1000.0,2); QRRichText58->Lines->Add(str); } QRRichText58->Lines->Add(MyFloatToStr(total_cost,2)); //////////////////////////////////////////////////////////////////////////////// QRRichText50->Lines->Clear(); QRRichText50->Lines->Add(""); QRRichText50->Lines->Add("RAW"); QRRichText50->Lines->Add("SIMULATED"); QRRichText51->Lines->Clear(); QRRichText51->Lines->Add("WPI"); QRRichText51->Lines->Add(IntToStr(Main->maindata.gauge)); QRRichText51->Lines->Add(MyFloatToStr(SimulationForm->sd.gauge,2)); QRRichText52->Lines->Clear(); QRRichText52->Lines->Add("CPC"); QRRichText52->Lines->Add(MyFloatToStr(Main->maindata.cpc,2)); QRRichText52->Lines->Add(MyFloatToStr(SimulationForm->sd.cpc,2)); QRRichText53->Lines->Clear(); QRRichText53->Lines->Add("Width"); QRRichText53->Lines->Add(MyFloatToStr(Main->maindata.width,2)+" inch"); QRRichText53->Lines->Add(MyFloatToStr(SimulationForm->sd.width,2)+" inch"); QRRichText54->Lines->Clear(); QRRichText54->Lines->Add("Weight"); double gpy=0; for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; gpy+=yu->GPY; } memset(buf,0,256); value=gpy; FloatToText(buf, &value, fvExtended, ffNumber, 8, 1); QRRichText54->Lines->Add(AnsiString(buf)+" g/y"); memset(buf,0,256); value=gpy/Main->maindata.cpc*SimulationForm->sd.cpc; FloatToText(buf, &value, fvExtended, ffNumber, 8, 1); QRRichText54->Lines->Add(AnsiString(buf)+" g/y"); //////////////////////////////////////////////////////////////////////////////// QRRichText55->Lines->Clear(); AnsiString str="QUOTA/DAY : "+IntToStr(MetaDataForm->md.rpm)+" X "+ MyFloatToStr(MetaDataForm->md.hours,2)+"h X 60 X " +MyFloatToStr(MetaDataForm->md.efficiency/100.0,2)+" / "+ MyFloatToStr(Main->maindata.cpc,2)+" / 91.44 X "+IntToStr(MetaDataForm->md.count_of_w)+" = "+ MyFloatToStr(MetaDataForm->md.rpm*MetaDataForm->md.hours*60.0*(MetaDataForm->md.efficiency/100.0)/ Main->maindata.cpc/91.44*MetaDataForm->md.count_of_w,2); QRRichText55->Lines->Add(str); //////////////////////////////////////////////////////////////////////////////// QRRichText56->Lines->Clear(); QRRichText56->Lines->Add("MACHINE NAME : "+MetaDataForm->md.machineName); //////////////////////////////////////////////////////////////////////////////// QRRichText57->Lines->Clear(); for(int i=0;immDetail->Lines->Count;i++){ QRRichText57->Lines->Add(MetaDataForm->mmDetail->Lines->Strings[i]); } //////////////////////////////////////////////////////////////////////////////// } //--------------------------------------------------------------------------- void __fastcall THiddenPrintDataForm::SetqrStandardYarnVivien(){ //////////////////////////////////////////////////////////////////////////////// Main->SetAll(); //////////////////////////////////////////////////////////////////////////////// ListOfQRLabel=new TList; TQRLabel *qrl=NULL; char buf[256]; Extended value; //////////////////////////////////////////////////////////////////////////////// QRLabel113->Caption=Main->maindata.ProductName; QRLabel114->Caption=MetaDataForm->md.machineName; QRMemo9->Lines->Clear(); QRMemo9->Lines->Add(IntToStr(Main->maindata.gauge)); QRMemo9->Lines->Add(IntToStr(Main->maindata.bar)); QRMemo10->Lines->Clear(); QRMemo10->Lines->Add(IntToStr(MetaDataForm->md.count_of_w)); QRLabel116->Caption=MyFloatToStr(Main->maindata.width*2.54,2)+"cm"; QRLabel117->Caption=MyFloatToStr(SimulationForm->sd.width*2.54,2)+"cm"; double gpy=0; for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; gpy+=yu->GPY; } memset(buf,0,256); value=gpy/91.44*100.0; FloatToText(buf, &value, fvExtended, ffNumber, 8, 1); QRLabel119->Caption=AnsiString(buf)+"g/m"; memset(buf,0,256); value=gpy/91.44*100.0/Main->maindata.cpc*SimulationForm->sd.cpc; FloatToText(buf, &value, fvExtended, ffNumber, 8, 1); QRLabel118->Caption=AnsiString(buf)+"g/m"; QRLabel120->Caption=MyFloatToStr(Main->maindata.cpc,2); QRLabel121->Caption=MyFloatToStr(Main->maindata.gauge/2.54,2); QRLabel122->Caption=MyFloatToStr(SimulationForm->sd.gauge/2.54,2); QRLabel123->Caption=MyFloatToStr(SimulationForm->sd.cpc,2); memset(buf,0,256); value=(Main->maindata.cpc-SimulationForm->sd.cpc)/SimulationForm->sd.cpc*100; value+=100; FloatToText(buf, &value, fvExtended, ffNumber, 8, 1); QRLabel124->Caption=AnsiString(buf)+"%"; //////////////////////////////////////////////////////////////////////////////// TList *list=new TList; for(int j=0;jtexlayer->YarnList->Count;j++){ YarnUse *yu=NULL; for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu2=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; if(yu2->yarnIndex==j){ if(yu==NULL){ yu=new YarnUse; list->Add(yu); } yu->yarnIndex=j; yu->percent+=yu2->percent; } } } int cnt=list->Count; while(list->Count){ double v=0; int index=0; for(int k=0;kCount;k++){ YarnUse *yu2=(YarnUse *)list->Items[k]; if(yu2->percent>=v){ v=yu2->percent; index=k; } } YarnUse *yu=(YarnUse *)list->Items[index]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; for(int l=0;l<10;l++){ if(yarn->code[l]=='\0')break; qrl=new TQRLabel(this); qrl->Parent=qrStandardYarnVivien; qrl->Left=101+27*l; qrl->Top=444+(cnt-list->Count)*31.18; qrl->Caption=yarn->code[l]; ListOfQRLabel->Add(qrl); } if(yarn->name[0]!='\0'){ qrl=new TQRLabel(this); qrl->Parent=qrStandardYarnVivien; qrl->Alignment=taCenter; qrl->Left=444; qrl->Top=444+(cnt-list->Count)*31.18; qrl->Caption=yarn->name; ListOfQRLabel->Add(qrl); } qrl=new TQRLabel(this); qrl->Parent=qrStandardYarnVivien; qrl->Alignment=taCenter; qrl->Left=562; qrl->Top=444+(cnt-list->Count)*31.18; qrl->Caption=MyFloatToStr(yu->percent,2)+"%"; ListOfQRLabel->Add(qrl); delete yu; list->Remove(yu); } delete list; //////////////////////////////////////////////////////////////////////////////// if(Main->maindata.ProductCode!=""){ char *code=Main->maindata.ProductCode.c_str(); for(int l=0;l<10;l++){ if(code[l]=='\0')break; qrl=new TQRLabel(this); qrl->Parent=qrStandardYarnVivien; qrl->Left=52+27*l; qrl->Top=927; qrl->Caption=code[l]; ListOfQRLabel->Add(qrl); } } //////////////////////////////////////////////////////////////////////////////// } //--------------------------------------------------------------------------- void __fastcall THiddenPrintDataForm::SetqrTotalCost(){ //////////////////////////////////////////////////////////////////////////////// Main->SetAll(); //////////////////////////////////////////////////////////////////////////////// ListOfQRLabel=new TList; TQRLabel *qrl=NULL; char buf[256]; Extended value; //////////////////////////////////////////////////////////////////////////////// if(MetaDataForm->md.Time!="") qrlTC_Time->Caption="("+MetaDataForm->md.Time+")"; else qrlTC_Time->Caption=""; qrlTC_ExchangeRate->Caption="적용환율 U$ : \\ "+FloatToStr(Cost_F->exchange_rate); qrlTC_UsePart->Caption="사용 부서 : "+MetaDataForm->md.ResponsiblePart; qrlTC_Code->Caption="자재 코드 : "+Main->maindata.ProductCode; qrlTC_Name->Caption="자재 명 : "+Main->maindata.ProductName; TDateTime dt = Date(); String dtstr; DateTimeToString(dtstr,"yyyy.mm.dd",dt.CurrentDateTime()); qrlTC_Date->Caption = "Date : "+dtstr; double gpy=0; for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; gpy+=yu->GPY; } memset(buf,0,256); value=100.0/91.44*gpy/Main->maindata.cpc*SimulationForm->sd.cpc; FloatToText(buf, &value, fvExtended, ffNumber, 8, 2); qrlTC_TreatWeight2->Caption=AnsiString(buf)+" g/m"; memset(buf,0,256); value=(Main->maindata.cpc/SimulationForm->sd.cpc)*100.0; FloatToText(buf, &value, fvExtended, ffNumber, 8, 1); qrlTC_Ratio2->Caption=AnsiString(buf)+" %"; memset(buf,0,256); value=100.0/91.44*gpy; FloatToText(buf, &value, fvExtended, ffNumber, 8, 2); qrlTC_RawWeight2->Caption=AnsiString(buf)+" g/m"; qrlTC_RawWidth2->Caption=MyFloatToStr(Main->maindata.width,2)+"\""; qrlTC_TreatWidth2->Caption=MyFloatToStr(SimulationForm->sd.width,2)+"\""; qrlTC_RawGauge2->Caption=MyFloatToStr(Main->maindata.gauge/2.54,2)+" W/cm"; qrlTC_TreatGauge2->Caption=MyFloatToStr(SimulationForm->sd.gauge/2.54,2)+" W/cm"; qrlTC_RawCourse2->Caption=MyFloatToStr(Main->maindata.cpc,2)+" C/cm"; qrlTC_TreatCourse2->Caption=MyFloatToStr(SimulationForm->sd.cpc,2)+" C/cm"; //////////////////////////////////////////////////////////////////////////////// TList *list=new TList; for(int j=0;jtexlayer->YarnList->Count;j++){ YarnUse *yu=NULL; for(int i=0;itexlayer->YarnUseList->Count;i++){ YarnUse *yu2=(YarnUse *)Main->texlayer->YarnUseList->Items[i]; if(yu2->yarnIndex==j){ if(yu==NULL){ yu=new YarnUse; list->Add(yu); } yu->yarnIndex=j; yu->percent+=yu2->percent; yu->GPY+=yu2->GPY; } } } double yarn_total_cost=0; int cnt=list->Count; while(list->Count){ double v=0; int index=0; for(int k=0;kCount;k++){ YarnUse *yu2=(YarnUse *)list->Items[k]; if(yu2->percent>=v){ v=yu2->percent; index=k; } } YarnUse *yu=(YarnUse *)list->Items[index]; Yarn *yarn=(Yarn *)Main->texlayer->YarnList->Items[yu->yarnIndex]; if(yarn->name[0]!='\0'){ qrl=new TQRLabel(this); qrl->Parent=qrTotalCost; qrl->Alignment=taLeftJustify; qrl->Left=60; qrl->Top=213+(cnt-list->Count)*20; qrl->Caption=yarn->name; ListOfQRLabel->Add(qrl); } qrl=new TQRLabel(this); qrl->Parent=qrTotalCost; qrl->Alignment=taRightJustify; qrl->Left=370; qrl->Top=213+(cnt-list->Count)*20; memset(buf,0,256); value=yu->percent; FloatToText(buf, &value, fvExtended, ffNumber, 8, 2); qrl->Caption=AnsiString(buf); ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrTotalCost; qrl->Alignment=taRightJustify; qrl->Left=475; qrl->Top=213+(cnt-list->Count)*20; memset(buf,0,256); value=yu->percent/100.0*(100.0/91.44*gpy/Main->maindata.cpc*SimulationForm->sd.cpc);//괄호안은 가공중량 FloatToText(buf, &value, fvExtended, ffNumber, 8, 2); qrl->Caption=AnsiString(buf); ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrTotalCost; qrl->Alignment=taRightJustify; qrl->Left=560; qrl->Top=213+(cnt-list->Count)*20; double loss=0; if(yarn->ym==ymPO) loss=Cost_F->PolyLoss; else if(yarn->ym==ymSPANDEX) loss=Cost_F->SpanLoss; else loss=Cost_F->NylonLoss;//ymNY...//ymCOTTON....//ymNONE qrl->Caption=FloatToStr(loss); ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrTotalCost; qrl->Alignment=taRightJustify; qrl->Left=665; qrl->Top=213+(cnt-list->Count)*20; double treatloss=0; if(yarn->ym==ymPO) treatloss=Cost_F->PolyTreatLoss; else if(yarn->ym==ymSPANDEX) treatloss=Cost_F->SpanTreatLoss; else treatloss=Cost_F->NylonTreatLoss;//ymNY...//ymCOTTON....//ymNONE qrl->Caption=FloatToStr(treatloss); ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrTotalCost; qrl->Alignment=taRightJustify; qrl->Left=810; qrl->Top=213+(cnt-list->Count)*20; memset(buf,0,256); value=yarn->cost; FloatToText(buf, &value, fvExtended, ffNumber, 8, 2); qrl->Caption=AnsiString(buf); ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrTotalCost; qrl->Alignment=taRightJustify; qrl->Left=915; qrl->Top=213+(cnt-list->Count)*20; memset(buf,0,256); double yarncost=value=yarn->cost*(100.0/91.44*yu->GPY/Main->maindata.cpc*SimulationForm->sd.cpc)/1000.0*(1.0+loss/100.0)*(1.0+treatloss/100.0); yarn_total_cost+=yarncost; FloatToText(buf, &value, fvExtended, ffNumber, 8, 3); qrl->Caption=AnsiString(buf); ListOfQRLabel->Add(qrl); qrl=new TQRLabel(this); qrl->Parent=qrTotalCost; qrl->Alignment=taRightJustify; qrl->Left=1000; qrl->Top=213+(cnt-list->Count)*20; memset(buf,0,256); value=yarncost/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrl->Caption=AnsiString(buf); ListOfQRLabel->Add(qrl); delete yu; list->Remove(yu); } delete list; //////////////////////////////////////////////////////////////////////////////// memset(buf,0,256); value=yarn_total_cost; FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_TotalYarnCost2->Caption=AnsiString(buf); memset(buf,0,256); value=yarn_total_cost/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_TotalYarnCost2US->Caption=AnsiString(buf); qrlTC_CAPA->Caption="( "+FloatToStr(Cost_F->CAPA)+" CAPA )"; qrlTC_MachineCount->Caption="적용대수 : "+FloatToStr(Cost_F->MachineCount); memset(buf,0,256); value=Cost_F->CMT_Machine; FloatToText(buf, &value, fvExtended, ffNumber, 10, 0); qrlTC_CMT_Machine->Caption="일대당 CMT : "+AnsiString(buf); qrlTC_data1->Caption="(1) "+AnsiString(Cost_F->data1); qrlTC_data2->Caption="(2) "+AnsiString(Cost_F->data2); qrlTC_data3->Caption="(3) "+AnsiString(Cost_F->data3); qrlTC_data4->Caption="(4) "+AnsiString(Cost_F->data4); qrlTC_data5->Caption="(5) "+AnsiString(Cost_F->data5); qrlTC_data6->Caption="(6) "+AnsiString(Cost_F->data6); qrlTC_data7->Caption="(7) "+AnsiString(Cost_F->data7); memset(buf,0,256); value=Cost_F->val1; FloatToText(buf, &value, fvExtended, ffNumber, 10, 0); qrlTC_value1->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val2; FloatToText(buf, &value, fvExtended, ffNumber, 10, 0); qrlTC_value2->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val3; FloatToText(buf, &value, fvExtended, ffNumber, 10, 0); qrlTC_value3->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val4; FloatToText(buf, &value, fvExtended, ffNumber, 10, 0); qrlTC_value4->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val5; FloatToText(buf, &value, fvExtended, ffNumber, 10, 0); qrlTC_value5->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val6; FloatToText(buf, &value, fvExtended, ffNumber, 10, 0); qrlTC_value6->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val7; FloatToText(buf, &value, fvExtended, ffNumber, 10, 0); qrlTC_value7->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val1/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount; FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_value1KR->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val2/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount; FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_value2KR->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val3/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount; FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_value3KR->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val4/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount; FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_value4KR->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val5/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount; FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_value5KR->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val6/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount; FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_value6KR->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val7/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount; FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_value7KR->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val1/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_value1US->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val2/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_value2US->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val3/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_value3US->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val4/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_value4US->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val5/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_value5US->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val6/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_value6US->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->val7/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_value7US->Caption=AnsiString(buf); memset(buf,0,256); double production_cost=value= (Cost_F->val1+Cost_F->val2+Cost_F->val3+Cost_F->val4+Cost_F->val5+Cost_F->val6+Cost_F->val7) /Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount; FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_ProductionCost2->Caption=AnsiString(buf); memset(buf,0,256); value=production_cost/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_ProductionCost2US->Caption=AnsiString(buf); qrlTC_RawLoss1->Caption="다) 편직 LOSS (가+나) x "+FloatToStr(Cost_F->RawLoss)+"%"; memset(buf,0,256); value=(production_cost+yarn_total_cost)*Cost_F->RawLoss/100.0; FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_RawLoss2->Caption=AnsiString(buf); memset(buf,0,256); value=(production_cost+yarn_total_cost)*Cost_F->RawLoss/100.0/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_RawLoss2US->Caption=AnsiString(buf); //////////////////////////////////////////////////////////////////////////////// memset(buf,0,256); value=(production_cost+yarn_total_cost)*(1.0+Cost_F->RawLoss/100.0); FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_RawCost2->Caption=AnsiString(buf); memset(buf,0,256); value=(production_cost+yarn_total_cost)*(1.0+Cost_F->RawLoss/100.0)/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_RawCost2US->Caption=AnsiString(buf); qrlTC_RawMargin1->Caption="MARGIN "+FloatToStr(Cost_F->RawMargin)+"%"; memset(buf,0,256); value=(production_cost+yarn_total_cost)*(1.0+Cost_F->RawLoss/100.0)*(Cost_F->RawMargin/100.0); FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_RawMargin2->Caption=AnsiString(buf); memset(buf,0,256); value=(production_cost+yarn_total_cost)*(1.0+Cost_F->RawLoss/100.0)*(Cost_F->RawMargin/100.0)/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_RawMargin2US->Caption=AnsiString(buf); memset(buf,0,256); double raw_price=value=(production_cost+yarn_total_cost)*(1.0+Cost_F->RawLoss/100.0)*(1.0+Cost_F->RawMargin/100.0); FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_RawPrice2->Caption=AnsiString(buf); memset(buf,0,256); value=raw_price/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_RawPrice2US->Caption=AnsiString(buf); //////////////////////////////////////////////////////////////////////////////// memset(buf,0,256); value=Cost_F->TreatCost; FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_TreatFee2->Caption=AnsiString(buf);//가공료 memset(buf,0,256); value=Cost_F->TreatCost/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_TreatFee2US->Caption=AnsiString(buf);//가공료 qrlTC_TreatLoss1->Caption="마) 가공 LOSS (생지판매가격+가공료) x "+FloatToStr(Cost_F->TreatLoss)+"%"; memset(buf,0,256); value=(raw_price+Cost_F->TreatCost)*(Cost_F->TreatLoss/100.0); FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_TreatLoss2->Caption=AnsiString(buf); memset(buf,0,256); value=(raw_price+Cost_F->TreatCost)*(Cost_F->TreatLoss/100.0)/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_TreatLoss2US->Caption=AnsiString(buf); memset(buf,0,256); value=Cost_F->TreatCost+(raw_price+Cost_F->TreatCost)*(Cost_F->TreatLoss/100.0); FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_TreatCost2->Caption=AnsiString(buf); memset(buf,0,256); value=(Cost_F->TreatCost+(raw_price+Cost_F->TreatCost)*(Cost_F->TreatLoss/100.0))/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_TreatCost2US->Caption=AnsiString(buf); //////////////////////////////////////////////////////////////////////////////// memset(buf,0,256); value=(raw_price+Cost_F->TreatCost)*(1.0+Cost_F->TreatLoss/100.0); FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_TotalTreatCost2->Caption=AnsiString(buf); memset(buf,0,256); value=(raw_price+Cost_F->TreatCost)*(1.0+Cost_F->TreatLoss/100.0)/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_TotalTreatCost2US->Caption=AnsiString(buf); qrlTC_TreatMargin1->Caption="MARGIN "+FloatToStr(Cost_F->TreatMargin)+"%"; memset(buf,0,256); value=(raw_price+Cost_F->TreatCost)*(1.0+Cost_F->TreatLoss/100.0)*(Cost_F->TreatMargin/100.0); FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_TreatMargin2->Caption=AnsiString(buf); memset(buf,0,256); value=(raw_price+Cost_F->TreatCost)*(1.0+Cost_F->TreatLoss/100.0)*(Cost_F->TreatMargin/100.0)/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_TreatMargin2US->Caption=AnsiString(buf); memset(buf,0,256); double treat_price=value=(raw_price+Cost_F->TreatCost)*(1.0+Cost_F->TreatLoss/100.0)*(1.0+Cost_F->TreatMargin/100.0); FloatToText(buf, &value, fvExtended, ffNumber, 10, 3); qrlTC_TreatPrice2->Caption=AnsiString(buf); memset(buf,0,256); value=treat_price/Cost_F->exchange_rate; FloatToText(buf, &value, fvExtended, ffNumber, 8, 4); qrlTC_TreatPrice2US->Caption=AnsiString(buf); //////////////////////////////////////////////////////////////////////////////// if(treat_price<=0) treat_price=1;//division by zero qrlTC_TotalYarnCostRatio->Caption=MyFloatToStr(100.0/treat_price*yarn_total_cost,0)+"%"; qrlTC_data1Ratio->Caption=MyFloatToStr(100.0/treat_price*Cost_F->val1/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount,0)+"%"; qrlTC_data2Ratio->Caption=MyFloatToStr(100.0/treat_price*Cost_F->val2/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount,0)+"%"; qrlTC_data3Ratio->Caption=MyFloatToStr(100.0/treat_price*Cost_F->val3/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount,0)+"%"; qrlTC_data4Ratio->Caption=MyFloatToStr(100.0/treat_price*Cost_F->val4/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount,0)+"%"; qrlTC_data5Ratio->Caption=MyFloatToStr(100.0/treat_price*Cost_F->val5/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount,0)+"%"; qrlTC_data6Ratio->Caption=MyFloatToStr(100.0/treat_price*Cost_F->val6/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount,0)+"%"; qrlTC_data7Ratio->Caption=MyFloatToStr(100.0/treat_price*Cost_F->val7/Cost_F->CAPA/Cost_F->work_day_month/Cost_F->MachineCount,0)+"%"; qrlTC_ProductionCostRatio->Caption=MyFloatToStr(100.0/treat_price*production_cost,0)+"%"; qrlTC_RawLossRatio->Caption=MyFloatToStr(100.0/treat_price*(production_cost+yarn_total_cost)*Cost_F->RawLoss/100.0,0)+"%"; qrlTC_RawCostRatio->Caption=MyFloatToStr(100.0/treat_price*(production_cost+yarn_total_cost)*(1.0+Cost_F->RawLoss/100.0),0)+"%"; qrlTC_RawMarginRatio->Caption=MyFloatToStr(100.0/treat_price*(production_cost+yarn_total_cost)*(1.0+Cost_F->RawLoss/100.0)*(Cost_F->RawMargin/100.0),0)+"%"; qrlTC_RawPriceRatio->Caption=MyFloatToStr(100.0/treat_price*(production_cost+yarn_total_cost)*(1.0+Cost_F->RawLoss/100.0)*(1.0+Cost_F->RawMargin/100.0),0)+"%"; qrlTC_TreatFeeRatio->Caption=MyFloatToStr(100.0/treat_price*Cost_F->TreatCost,0)+"%"; qrlTC_TreatLossRatio->Caption=MyFloatToStr(100.0/treat_price*(raw_price+Cost_F->TreatCost)*(Cost_F->TreatLoss/100.0),0)+"%"; qrlTC_TreatCostRatio->Caption=MyFloatToStr(100.0/treat_price*(Cost_F->TreatCost+(raw_price+Cost_F->TreatCost)*(Cost_F->TreatLoss/100.0)),0)+"%"; qrlTC_TotalTreatCostRatio->Caption=MyFloatToStr(100.0/treat_price*(raw_price+Cost_F->TreatCost)*(1.0+Cost_F->TreatLoss/100.0),0)+"%"; qrlTC_TreatMarginRatio->Caption=MyFloatToStr(100.0/treat_price*(raw_price+Cost_F->TreatCost)*(1.0+Cost_F->TreatLoss/100.0)*(Cost_F->TreatMargin/100.0),0)+"%"; qrlTC_TreatPriceRatio->Caption=MyFloatToStr(100.0/treat_price*(raw_price+Cost_F->TreatCost)*(1.0+Cost_F->TreatLoss/100.0)*(1.0+Cost_F->TreatMargin/100.0),0)+"%"; } //---------------------------------------------------------------------------