sapstockcheck.cpp

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

#include "stdafx.h"
#include "SAPStockCheck.h"

using namespace FAP;

void SAPStockCheck::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 *oUnit;
	DataGridTextBoxColumn *oLOT;
//	DataGridBoolColumn	  *oCheck;


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

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

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

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

	//DELIVER_QTY
	oDELIVER_QTY			= new DataGridTextBoxColumn();
	oDELIVER_QTY->MappingName		= S"DELIVER_QTY";
	oDELIVER_QTY->HeaderText			= infSAPCheck->saSAPDELIVER_QTY[iLanguage];
	oDELIVER_QTY->Alignment			= HorizontalAlignment::Center;
	oDELIVER_QTY->Width				=80;
	oDELIVER_QTY->NullText		= S"";
	oDELIVER_QTY->ReadOnly		=true;

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

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

	// oDESTINATION_CODE
	oUnit					= new DataGridTextBoxColumn();
	oUnit->MappingName		= S"UNIT";
	oUnit->HeaderText		= infSAPCheck->sa_UNIT[iLanguage];
	oUnit->Alignment		= HorizontalAlignment::Center;
	oUnit->Width			=90;
	oUnit->NullText			= S"";
	oUnit->ReadOnly			=true;

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


	////Check Box
	//oCheck			    = new DataGridBoolColumn();
	//oCheck->MappingName	= S"Check1";
	//oCheck->HeaderText	= S"";
	//oCheck->Alignment	= HorizontalAlignment::Center;
	//oCheck->Width		= 0;
	////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};

	oTableStyle->GridColumnStyles->AddRange(cols);


	dbGridSap->TableStyles->Add(oTableStyle);


}

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


	strSQL = S" select SEQUENCE,DELIVER_YMD,PRODUCT_CODE,";

	strSQL=String::Concat(strSQL,S"decode(UNIT,'PC',floor(DELIVER_QTY),DELIVER_QTY) as DELIVER_QTY ,");
	strSQL=String::Concat(strSQL,S"ORIGIN_CODE,DESTINATION_CODE,UNIT,LOT from deliver_data_temp where STOCK_YMD is null");

	strSQL =String::Concat(strSQL,S" and sequence in ( ", strWhere,S")");

	strSQL = String::Concat(strSQL,S" and stock_ymd is null");

	//strSQL = String::Concat(strSQL,S" and sequence not in ( select sequence from deliver_data_temp where stock_ymd not is null)");

	dbBSapCheck->blnCnnOpen();

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

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

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

	//dTableTmp->Columns->Add(dColTmp);

	
	//add by kasenhoo@ 051215
	if (dTableTmp->Rows->Count == 0) {
		this->Close();
	}


	//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;



}