Linha Microsiga Protheus

Árvore de páginas

Exemplo
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] // Data de importação // Padrão = Data Base
				"001"    ,; //aRetPO[3] //Ag embarcador
				"004"    ,; //aRetPO[4] //via de transporte
				,;			//aRetPO[5] //Origem
				"004" 	 ,; //aRetPO[6] //Destino
				"004"    ,; //aRetPO[7] //Comprador
				"004"    ,; //aRetPO[8] //Incorterm
				"004"    ,;//aRetPO[9] //Importador
				dDataBase,;//aRetPO[10]// Data da confirmação do Pedido //Padrão = data base
				"1"		 }//aRetPO[11] // Desova de Container //Padrão = 1}
EndIf
Return 	xRetSO

Descrição

Gera, Atualiza e analisa cotações de Solicitações de Importação e ao fim da analise gera uma P.O

Observações

Não é feita nenhuma validação diferenciada para as Solicitações de Importação, é de total responsabilidade do usuário fazer as validações para não incluir fornecedores, Compradores e outros campos que não atendem a solicitações de importação.
Esse Ponto de entrada é executado em dois pontos diferentes, o primeiro no MATA130 e o segundo no COMXFUN ao finalizar a analise de cotação.
A legenda da geração de cotação fica BRANCA quando a SI já está em processo de cotação.
A legenda de outras rotinas não foram alteradas, isso deve ser feito pelo usuário por forma de outros pontos de entrada citado na aba "Veja Também" .

Veja também

MT110LEG - Para alterar as legendas das solicitações de Importação em processo de cotação
MT120COR - Para alterar as legendas e cores do Pedido de Compra

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

PARAMIXB[1] / Numérico
1 Indica que o ponto esta sendo executado na geração de cotação.
2 Indica que o ponto esta sendo executado na analise de cotação (antes de gerar a P.O).

Variáveis

xRetSO / se PARAMIXB [1] for igual a 1 o retorno é Logico, se PARAMIXB [1] for igual a 2 o retorno será um Array

Programa Fonte

MATA130.PRX e COMXFUN.PRX
Retorno
Quando o PARAMIXB [1] for 1 o retorno deve ser lógico
.T.  se a cotação é para ser feita apenas com produto importado
.F. se a cotação é para ser feita normal

Quando o PARAMIXB[1] for 2 o retorno deve ser um Array com o tamanho de 11
xRetSO := {"CC", ;                       //aRetPO[1] // Padrão = CC
				dDataBase,; //aRetPO[2] // Data de importação // Padrão = Data Base
				"001"    ,;      //aRetPO[3] //Ag embarcador
				"004"    ,;      //aRetPO[4] //via de transporte
				,;		   //aRetPO[5] //Origem
				"004" 	 ,; //aRetPO[6] //Destino
				"004"    ,;      //aRetPO[7] //Comprador
				"004"    ,;      //aRetPO[8] //Incorterm
				"004"    ,;      //aRetPO[9] //Importador
				dDataBase,;//aRetPO[10]// Data da confirmação do Pedido //Padrão = data base
				"1"		 }  //aRetPO[11] // Desova de Container //Padrão = 1}
  • Sem rótulos