Histórico da Página

O Ponto de Entrada M160STRU acrescenta campos no arquivo temporário.  Por meio deste ponto, o M160PLAN acrescenta o conteúdo dos campos dentro do array de dados da planilha da cotação.

LOCALIZAÇÃO   : Function MaMontaCot() responsável pela montagem dos dados para análise da cotação.

 EM QUE PONTO : O ponto se encontra após a montagem da estrutura do arquivo temporário a ser criado. Os PEs M160STRU e M160PLAN são usados em conjunto para manipulaçao do arquivo temporário e do array com os dados da planilha de cotação.
 

MATA160.PRW

M160STRU - Acrescenta Campos no arquivo temporário ( < aStru> , < aCabec> , < aCpoSC8> ) --> aRet

aRet(vetor)
• É esperado como retorno um vetor com tres dimensões onde:aRet[1]=Array com os campos existentes mais os específicos incluídos. aRet[2]=Array com os títulos dos campos existentes mais os específicos incluídos. aRet[3]=Array com os campos manipulados

ATENÇÃO : Deve-se apenas incluir campos da SC8 (Cotação) na análise e nunca excluir os já existentes, pois pode comprometer o funcionamento da rotina.

User Function M160STRULocal aStr := PARAMIXB[1]Local aCabec := PARAMIXB[2]Local aCpoSC8 := PARAMIXB[3]Local nPos := aScan(aCpoSC8,"PLN_FORNEC")If nPos > 0	//Adiciona campo no array contendo os configuracoes do campo "PLN_FORNEC"	aAdd(aStr,aStr[nPos])	aAdd(aCabec,aCabec[nPos])	aAdd(aCpoSC8,aCpoSC8[nPos])                                   	//Exclui campo "PLN_FORNEC" da posicao antiga	aDel(aStr,nPos)	aDel(aCabec,nPos)	aDel(aCpoSC8,nPos)	//Ajusta tamanho do array	aSize(aStr,len(aStr)-1)	aSize(aCabec,len(aCabec)-1)	aSize(aCpoSC8,len(aCpoSC8)-1)	//Inclui campo C8_TESTE na analise da cotacao quando disponivel	dbSelectArea("SX3")	dbSetOrder(2)	If dbSeek("C8_TESTE")		aadd(aStr,{"C8_TESTE",SX3->X3_TIPO,SX3->X3_TAMANHO,SX3->X3_DECIMAL})		aadd(aCabec,{"C8_TESTE","",RetTitle("C8_TESTE"),PesqPict("SC8","C8_TESTE")})		aAdd(aCpoSC8,"C8_TESTE")	EndIfEndIfReturn {aStr,aCabec,aCpoSC8}