M160STRU - Agrega campos en el archivo temporal

Descripción:

El punto de entrada M160STRU agrega campos en el archivo temporal.  Por medio de este punto, el M160PLAN agrega el contenido de los campos dentro del array de datos de la planilla de la cotización.

Eventos

LOCALIZACIÓN: Function MaMontaCot() responsable por el montaje de los datos para análisis de la cotización.

 EN QUE PUNTO: El punto se encuentra después del montaje de la estructura del archivo temporal que se creará. Los PE M160STRU y M160PLAN se utilizan en conjunto para el manejo del archivo temporal y del array con los datos de la planilla de cotización.
 

Programa fuente

MATA160.PRW

Sintaxis

M160STRU - Agrega campos en el archivo temporal ( < aStru> , < aCabec> , < aCpoSC8> ) --> aRet

Parámetros:

Devolución

aRet

(vector)

Se espera como respuesta un vector con tres dimensiones donde:aRet[1]=Array con los campos existentes más los específicos incluidos. aRet[2]=Array con los títulos de los campos existentes más los específicos incluidos. aRet[3]=Array con los campos manejados.

Observaciones

ATENCIÓN: Solamente se debe incluir campos de la SC8 (Cotización) en el análisis y nunca eliminar los que ya existen, porque puede comprometer el funcionamiento de la rutina.

Ejemplos

User Function M160STRU
Local aStr := PARAMIXB[1]
Local aCabec := PARAMIXB[2]
Local aCpoSC8 := PARAMIXB[3]
Local nPos := aScan(aCpoSC8,"PLN_FORNEC")
//Incluye campo C8_TESTE en el análisis de la cotización cuando está disponible
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}