Versiones: | Microsiga Protheus 10 |
Compatible Países: | Todos |
Sistemas operativos: | Todos |
Compatible a las bases de datos: | Todos |
Idiomas: | Español , Inglés |
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:
| Nome | Tipo | Descripción | Estándar | Obligatorio | Referencia | ||||||||||||
| aStru | Array of Record | Estructura del archivo temporal | X | ||||||||||||||
| aCabec | Array of Record | Estructura del encabezado de las planillas | X | ||||||||||||||
| aCpoSC8 | Array of Record | Array que contiene los campos de las planillas | X |
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}