M160STRU - Acrescenta Campos no arquivo temporário

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

(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 M160STRU
Local aStr := PARAMIXB[1]
Local aCabec := PARAMIXB[2]
Local aCpoSC8 := PARAMIXB[3]
Local nPos := aScan(aCpoSC8,"PLN_FORNEC")
//Inclui campo C8_TESTE na analise da cotacao quando disponivel 
dbSelectArea("SX3") 
SX3->(dbSetOrder(2)) 
If SX3->(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") 
EndIf
Return {aStr,aCabec,aCpoSC8}