Ejemplo
User Function MT130SI
Local xRetSO
If PARAMIXB[1] == 1
	xRetSO := MsgYesNo("Cotação de Produto Importado")
Else
	xRetSO := {"CC", ; //aRetPO[1] // Padrão = CC
				dDataBase,; //aRetPO[2] // Fecha de importación // Estándar = Data Base
				"001"    ,; //aRetPO[3] //Ag embarcador
				"004"    ,; //aRetPO[4] //medio de transporte
				,;			//aRetPO[5] //Origen
				"004" 	 ,; //aRetPO[6] //Destino
				"004"    ,; //aRetPO[7] //Comprador
				"004"    ,; //aRetPO[8] //Incorterm
				"004"    ,;//aRetPO[9] //Importador
				dDataBase,;//aRetPO[10]// Fecha de confirmación del Pedido //Estándar = data base
				"1"		 }//aRetPO[11] // Descarga de contenedor //Estándar = 1}
EndIf
Return 	xRetSO

Descripción

Genera, Actualiza y analiza cotizaciones de solicitudes de importación y al final del análisis genera la P.O

Observaciones

No se hace ninguna validación diferenciada para las solicitudes de importación, es de total responsabilidad del usuario realizar las validaciones para no incluir proveedores, compradores y otros campos que no cumplen con las solicitudes de importación.
Este punto de entrada se ejecuta en dos puntos diferentes, el primero en el MATA130 y el segundo en el COMXFUN, al finalizar el análisis de cotización.
La leyenda de la generación de cotización queda en BLANCO cuando la SI ya está en proceso de cotización.
La leyenda de otras rutinas no se modificó, esto debe hacerlo el usuario, mediante otros puntos de entrada mencionados en la solapa "Vea también".

Vea también

MT110LEG - Para modificar las leyendas de las solicitudes de importación en proceso de cotización
MT120COR - Para modificar las leyendas y colores del pedido de compra.

Idioma

Portugués (Brasil)

Versiones

Microsiga_Protheus11

Sistemas operativos compatibles

Todos

Compatible con las bases de datos:

Todas

Parámetros

PARAMIXB1 / Numérico
1 Indica que el punto se está ejecutando al generar la cotización.
2 Indica que el punto se está ejecutando en el análisis de cotización (antes de generar la P.O).

Variables

xRetSO / si PARAMIXB 1 es igual a 1 la respuesta es Lógica, si PARAMIXB 1 es igual a 2 respuesta será un Array

Programa fuente

MATA130.PRX y COMXFUN.PRX

Respuesta
Cuando el PARAMIXB [1] sea 1 la respuesta debe ser lógica
.T.  si la cotización es para hacerla solamente con producto importado
.F. si la cotización es para hacerla normal

Cuando el PARAMIXB[1] sea 2 la respuesta debe ser un Array con el tamaño de 11
xRetSO := {"CC", ;                       //aRetPO[1] // Estándar = CC
				dDataBase,; //aRetPO[2] // Fecha de importación // Estándar = Data Base
				"001"    ,;      //aRetPO[3] //Ag embarcador
				"004"    ,;      //aRetPO[4] //medio de transporte
				,;		   //aRetPO[5] //Origen
				"004" 	 ,; //aRetPO[6] //Destino
				"004"    ,;      //aRetPO[7] //Comprador
				"004"    ,;      //aRetPO[8] //Incorterm
				"004"    ,;      //aRetPO[9] //Importador
				dDataBase,;//aRetPO[10]// Fecha de confirmación del Pedido //Estándar = data base
				"1"		 }  //aRetPO[11] // Descarga de Contenedor //Estándar = 1}