sapstock.cpp

这是一个工厂的生产线的仓库管理.有计划,实绩,库存等

#include "stdafx.h"
#include "SAPStock.h"
using namespace FAP;

void SAPStock::InitGrid(int iLanguage)
{
	//SEQUENCE,DELIVER_YMD,PRODUCT_CODE,DELIVER_QTY,ORIGIN_CODE,DESTINATION_CODE,LOT

	DataGridTextBoxColumn *oSEQUENCE;
	DataGridTextBoxColumn *oDELIVER_YMD;
	DataGridTextBoxColumn *oPRODUCT_CODE;
	DataGridTextBoxColumn *oDELIVER_QTY;
	DataGridTextBoxColumn *oORIGIN_CODE;
	DataGridTextBoxColumn *oDESTINATION_CODE;
	DataGridTextBoxColumn *oLOT;
	DataGridTextBoxColumn *oUnit;

	//DataGridTextBoxColumn *oCheck;

	DataGridBoolColumn	  *oCheck;
    	

	oDataSet		= new DataSet();
	oTableStyle		= new DataGridTableStyle();
	oTableStyle->MappingName	= S"SAPStock";

	//oSEQUENCE
	oSEQUENCE	= new DataGridTextBoxColumn();
	oSEQUENCE->MappingName	= S"SEQUENCE";
	oSEQUENCE->HeaderText	= infSAPStock->saSAPSEQUENCE[iLanguage];
	oSEQUENCE->Alignment		= HorizontalAlignment::Center;
	oSEQUENCE->Width			= 80;
	oSEQUENCE->NullText		= S"";
	oSEQUENCE->ReadOnly		=true;

	//oDELIVER_YMD
	oDELIVER_YMD		= new DataGridTextBoxColumn();
	oDELIVER_YMD->MappingName		= S"DELIVER_YMD";
	oDELIVER_YMD->HeaderText		= infSAPStock->saSAPDELIVER_YMD[iLanguage];
	oDELIVER_YMD->Alignment		= HorizontalAlignment::Center;
	oDELIVER_YMD->Width			= 100;
	oDELIVER_YMD->NullText		= S"";
	oDELIVER_YMD->ReadOnly		=true;

	//oPRODUCT_CODE
	oPRODUCT_CODE			= new DataGridTextBoxColumn();
	oPRODUCT_CODE->MappingName			= S"PRODUCT_CODE";
	oPRODUCT_CODE->HeaderText			= infSAPStock->saSAPPRODUCT_CODE[iLanguage];
	oPRODUCT_CODE->Alignment				= HorizontalAlignment::Center;
	oPRODUCT_CODE->Width					= 120;
	oPRODUCT_CODE->NullText		= S"";
	oPRODUCT_CODE->ReadOnly		=true;

	//DELIVER_QTY
	oDELIVER_QTY			= new DataGridTextBoxColumn();
	oDELIVER_QTY->MappingName		= S"DELIVER_QTY";
	oDELIVER_QTY->HeaderText			= String::Concat(infSAPStock->saSAPDELIVER_QTY[iLanguage],S"  \0");
	oDELIVER_QTY->Alignment			= HorizontalAlignment::Right;
	oDELIVER_QTY->Width				= 140;
	oDELIVER_QTY->NullText		= S"";
	oDELIVER_QTY->ReadOnly		=true;
	oDELIVER_QTY->Format=S"#,###.###";

	//oORIGIN_CODE
	oORIGIN_CODE			= new DataGridTextBoxColumn();
	oORIGIN_CODE->MappingName			= S"ORIGIN_CODE";
	oORIGIN_CODE->HeaderText			= infSAPStock->saSAPORIGIN_CODE[iLanguage];
	oORIGIN_CODE->Alignment			= HorizontalAlignment::Center;
	oORIGIN_CODE->Width				= 80;
	oORIGIN_CODE->NullText		= S"";
	oORIGIN_CODE->ReadOnly		=true;

	// oDESTINATION_CODE
	oDESTINATION_CODE					= new DataGridTextBoxColumn();
	oDESTINATION_CODE->MappingName		= S"DESTINATION_CODE";
	oDESTINATION_CODE->HeaderText		= infSAPStock->saSAPDESTINATION_CODE[iLanguage];
	oDESTINATION_CODE->Alignment		= HorizontalAlignment::Center;
	oDESTINATION_CODE->Width			= 80;
	oDESTINATION_CODE->NullText			= S"";
	oDESTINATION_CODE->ReadOnly			=true;

	// oUnit
	oUnit					= new DataGridTextBoxColumn();
	oUnit->MappingName		= S"DESTINATION_UNIT";
	oUnit->HeaderText		= infSAPStock->sa_UNIT[iLanguage];
	oUnit->Alignment		= HorizontalAlignment::Center;
	oUnit->Width			= 80;
	oUnit->NullText			= S"";
	oUnit->ReadOnly			=true;


	//Lot No
	oLOT				= new DataGridTextBoxColumn();
	oLOT->MappingName	= S"LOT";
	oLOT->HeaderText	= infSAPStock->saSAPLOT[iLanguage];
	oLOT->Alignment		= HorizontalAlignment::Center;
	oLOT->Width			= 130;
	oLOT->NullText		= S"";
	oLOT->ReadOnly		= true;

	
	//Check Box
	oCheck			    = new DataGridBoolColumn();
	oCheck->MappingName	= S"Check1";
	oCheck->HeaderText	= infSAPStock->saSAPChk[iLanguage];
	oCheck->Alignment	= HorizontalAlignment::Center;
	oCheck->Width		= 117;
	//oCheck->NullText	= S"";
	oCheck->AllowNull   = false;
	oCheck->TrueValue	= __box(1);
	oCheck->FalseValue 	= __box(0);
	oCheck->NullValue	= __box(0);//Convert::DBNull;
	oCheck->ReadOnly	= false;


	DataGridColumnStyle* cols[] = {oSEQUENCE,
		oDELIVER_YMD,oPRODUCT_CODE,oDELIVER_QTY,oORIGIN_CODE,oDESTINATION_CODE,oUnit,oLOT,oCheck};

	oTableStyle->GridColumnStyles->AddRange(cols);


	dbGridSAP->TableStyles->Add(oTableStyle);

	
}

void SAPStock::GetGrid()
{
	String *strSQL ;
	DataSet * dSetTmp;
	DataTable *dTableTmp;
	DataView *dViewTmp;
	DataColumn *dColTmp;
	

	strSQL = S" select SEQUENCE,DELIVER_YMD,PRODUCT_CODE,decode(UNIT,'PC',floor(DELIVER_QTY),DELIVER_QTY) as DELIVER_QTY,ORIGIN_CODE,DESTINATION_CODE,UNIT as DESTINATION_UNIT,LOT from deliver_data_temp where STOCK_YMD is null order by DELIVER_YMD desc,DESTINATION_CODE asc";

	dDBSAP->blnCnnOpen();

	dSetTmp = dDBSAP->dSetSQL_Select(strSQL,S"SAPStock",0);

	dTableTmp = dSetTmp->Tables->Item[S"SAPStock"];

	dColTmp =	new DataColumn(S"Check1",__typeof(int));

	dTableTmp->Columns->Add(dColTmp);

	//Insert By KasenHOo @ 2005/12/15

	if (dTableTmp->Rows->Count == 0) {
		this->Close();

	}
	
	//End By KasenHOo @ 2005/12/15


	//clear Checkbox
	int intCnt;

	for (intCnt = 0;intCnt < dTableTmp->Rows->Count;intCnt ++) {
	
		dTableTmp->Rows->Item[intCnt]->Item[S"Check1"] = S"0";
	}

	
	dViewTmp = new DataView(dTableTmp);

	dViewTmp->AllowDelete = false;

	dViewTmp->AllowNew = false;

	dbGridSAP->Refresh();
	

	dbGridSAP->DataSource = dViewTmp;

	

}