Perguntas ITENS PEDIDO DE COMPRA

/*
±±ºPrograma  ³mt120ok   ºAutor  ³Microsiga           º Data ³  11/11/03   º±±
±±ºDesc.     ³ Apos digitacao do pedido de compras                        º±±

// Creio que seja durante a importação dos itens da SC para o PC, executado para cada item
*/
user function mt120ok()

local careasc1 := GetArea('SC1'), carea := GetArea(), _i

sc1->( dbsetorder(1) )

nPosCLVL    := ascan( aheader,{ |aVal| alltrim( aVal[2] ) == "C7_CLVL"   } )
nPosNUMSC   := ascan( aheader,{ |aVal| alltrim( aVal[2] ) == "C7_NUMSC"  } )
nPosITEMSC  := ascan( aheader,{ |aVal| alltrim( aVal[2] ) == "C7_ITEMSC" } )

nPosOBS     := ascan( aheader,{ |aVal| alltrim( aVal[2] ) == "C7_OBS"   } )
nPosITEMCTA := ascan( aheader,{ |aVal| alltrim( aVal[2] ) == "C7_ITEMCTA"   } )
nPosCC      := ascan( aheader,{ |aVal| alltrim( aVal[2] ) == "C7_CC"   } )
nPosCONTA   := ascan( aheader,{ |aVal| alltrim( aVal[2] ) == "C7_CONTA"   } )
nPosVLRORC  := ascan( aheader,{ |aVal| alltrim( aVal[2] ) == "C7_VLRORC"   } )

For _i := 1 to len(aCols)
	If sc1->( dbseek( xfilial() + aCols[_i,nPosNUMSC] + aCols[_i,nPosITEMSC] ) )
		aCols[_i,nPosOBS]     := sc1->c1_obs
		aCols[_i,nPosITEMCTA] := sc1->c1_itemcta
		aCols[_i,nPosCC]      := sc1->c1_cc
		aCols[_i,nPosCONTA]   := sc1->c1_conta
		aCols[_i,nPosCLVL]    := sc1->c1_clvl
		aCols[_i,nPosVLRORC]  := sc1->c1_vlrorc
	Endif
Next

RestArea(careasc1)
RestArea(carea)

Return(.t.)

/*
±±ºPrograma  ³mt120ok   ºAutor  ³Microsiga           º Data ³  11/11/03   º±±
±±ºDesc.     ³ Apos digitacao do pedido de compras                        º±±

// Creio que seja durante a importação dos itens da SC para o PC, executado para cada item
*/
user function mt120ok()

local careasc1 := GetArea('SC1'), carea := GetArea(), _i

sc1->( dbsetorder(1) )

nPosNUMSC   := ascan( aheader,{ |aVal| alltrim( aVal[2] ) == "C7_NUMSC"  } )
nPosITEMSC  := ascan( aheader,{ |aVal| alltrim( aVal[2] ) == "C7_ITEMSC" } )
nPosQUANT   := ascan( aheader,{ |aVal| alltrim( aVal[2] ) == "C7_QUANT"   } )
nPosPRODUTO := ascan( aheader,{ |aVal| alltrim( aVal[2] ) == "C7_PRODUTO"   } )

aProdSC1 := {}	// Monta Array de Produtos Originados de SC

For _i := 1 to len(aCols)
	If !aCols[_i][Len(aHeader)+1] .And. !Empty(aCols[_i,nPosNUMSC])	// Linha Nao Esta Deletada
		nAchou := Ascan(aProdSC1,{|x| x[1]==aCols[_i,nPosPRODUTO]})
		If Empty(nAchou)
			AAdd(aProdSC1,{aCols[_i,nPosPRODUTO],;
							aCols[_i,nPosQUANT]})
		Else
			aProdSC1[nAchou,2] += aCols[_i,nPosQUANT]
		Endif
	Endif
Next

// Valida Produtos Digitados a Mais no Pedido de Compras
// Caso o Produto já existe no array de SC´s então não permite a validação da tela

lRet := .T.

For _i := 1 to len(aCols)
	If !aCols[_i][Len(aHeader)+1] .And. Empty(aCols[_i,nPosNUMSC])	// Linha Nao Esta Deletada
		nAchou := Ascan(aProdSC1,{|x| x[1]==aCols[_i,nPosPRODUTO]})
		If !Empty(nAchou)
			MsgStop("Atenção Linha " + Str(_i,3) + " Produto " + aCols[_i,nPosPRODUTO] + " Já Foi Importado de Solicitação de Compras, Não Pode Ser Informado Novamente !")
			lRet := .F.
		Endif
	Endif
Next

RestArea(careasc1)
RestArea(carea)

Return(lRet)