Linha Microsiga Protheus

Árvore de páginas

Função: Execauto FATA300 - Oportunidade de vendas.
Abrangências: Microsiga Protheus 11 , Protheus 10
Versões: Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Nível de Acesso: Nível 1 (Acesso Clientes)
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
Descrição: 
Esta função utilizada para geração da oportunidade de vendas via rotina automática (ExecAuto)
Programa Fonte: 
FATA300.PRX
Sintaxe:

Execauto FATA300 - Oportunidade de vendas. ( [ nOpcAuto ] [ xAutoCab ] [ xAutoAD2 ] [ xAutoAD3 ] [ xAutoAD4 ] [ xAutoAD9 ] [ xAutoADJ ] )

Retorno:
    ()
Observações

Exemplos 
#Include "Protheus.ch"User Function MYFata300()Local aCabec		:= {}Local lRet			:= .T.Local lTodosSim		:= .F.Private lMsErroAuto := .f.dbSelectArea("AD1")dbSetOrder(1)If !dbSeek(xFilial("AD1")+"000001"+"01") // Monta o array com as informacoes para a gravacao aCabec:= 		{{ "AD1_FILIAL"  		     , ""		                       	, NIL },;				{ "AD1_NROPOR"  		     , "000001"                       	, NIL },;   				{ "AD1_REVISA"  		     , "01"		                       	, NIL },;				{ "AD1_DESCRI"  		     , "TESTE DE ROT AUTOM"            	, NIL },;				{ "AD1_DATA  " 			     , DATE()                       	, NIL },;				{ "AD1_HORA  " 			     , TIME()                       	, NIL },;				{ "AD1_USER  " 			     , "000000"                       	, NIL },;				{ "AD1_VEND  " 			     , "01"                         	, NIL },;				{ "AD1_NOMVEN"   			 , "TESTE VEND"                    	, NIL },; 				{ "AD1_DTINI "   			 , DATE()	                    	, NIL },; 				{ "AD1_PROVEN"   			 , "01"		                    	, NIL },; 				{ "AD1_STAGE "   			 , "01"		                    	, NIL },; 				{ "AD1_MOEDA "   			 , 1		                    	, NIL },; 				{ "AD1_PRIOR "   			 , "1"		                    	, NIL },; 				{ "AD1_STATUS"   			 , "1"		                    	, NIL }} EndIf lTodosSim := ApMsgNoYes( 'Confirma a ação [Sim p/Todos] ?' )//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³Gravacao da oportunidade³//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙIf lTodosSim	MSExecAuto({|x,y|FATA300(x,y)},3,aCabec) 	If lMsErroAuto		DisarmTransaction()		MostraErro()		lRet := .F.	Else		lRet := .T.	EndIfEndIf Return lRet
Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
nOpcAuto Numérico Opção desejada 3- Inclusão 4- Alteração 5- Exclusão
xAutoCab Array of Record Array contendo os itens de cabeçalho da oportunidade de venda.
xAutoAD2 Array of Record Array contendo os itens da pasta Concorrente.
xAutoAD3 Array of Record Array contendo os itens da pasta Time de vendas.
xAutoAD4 Array of Record Array contendo os itens da pasta Parceiros.
xAutoAD9 Array of Record Array contendo os itens da pasta Contatos.
xAutoADJ Array of Record Array contendo os itens da pasta Produtos.