Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (pauloc), última alteração por admin em 03 jul, 2012

Ponto-de-Entrada: CTB390GRV - Gravação do orçamento
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
Descrição: 
Executado apos a gravação do orçamento
Eventos

Ocorre dentro da Rotina de aprovacao orcamentaria                         

Programa Fonte 
CTBA390.PRW
Sintaxe

CTB390GRV - Gravação do orçamento ( [ 0 ], [ M->CV1_ORCMTO ], [ M->CV1_CALEND ], [ M->CV1_MOEDA ], [ M->CV1_REVISA ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
0 Qualquer Numero fixo
M->CV1_ORCMTO record Campo orçamento da tabela itens do orçamento
M->CV1_CALEND array_of_record Campo calendario da tabela itens do orçamento
M->CV1_MOEDA array_of_record Campo Moeda da tabela itens do orçamento
M->CV1_REVISA array_of_record Campo revisão da tabela itens do orçamento
Retorno
Nil (Nulo)
Exemplos 
Local aAreaCV2 := CV2->(GetArea())Local aAreaCV1 := CV1->(GetArea())Local cCV2Key  := CV2->(CV2_FILIAL+CV2_ORCMTO+CV2_CALEND+CV2_MOEDA+CV2_REVISA)Local cAPROVA  := cUserNameIf !Empty(CV2->CV2_APROVA)	MsgInfo(STR0020 + AllTrim(CV1->CV1_APROVA), STR0008) //"Atencao" //"Orcamento ja aprovado pelo usuario "	Return .T.EndifIf CV2->CV2_STATUS == "3"	MsgInfo(STR0007, STR0008) //"Orcamento ja revisado nao podendo ser alterado !"		//"Atencao"	Return .T.EndifDbSelectArea("CV1")DbSetOrder(1)DbClearFil()MsSeek(cCV2Key)BEGIN TRANSACTIONWhile !Eof() .And. cCV2Key == CV1->(CV1_FILIAL+CV1_ORCMTO+CV1_CALEND+CV1_MOEDA+CV1_REVISA)	RecLock("CV1", .F.)		/// EFETUA A GRAVACAO DO FLAG DE APROVACAO NO ARQUIVO DETALHE	Replace CV1_APROVA With cAPROVA	CV1->(MsUnLock())	CV1->(DbSkip())EndDoRecLock("CV2", .F.)		/// EFETUA A GRAVACAO DO FLAG DE APROVACAO NO ARQUIVO HEADERReplace CV2_APROVA With cAPROVACV2->(MsUnLock())END TRANSACTIONIf l390Grv					/// PE APOS A GRAVACAO DO ORCAMENTO	ExecBlock("CTB390GRV", .F., .F.,{0,M->CV1_ORCMTO,M->CV1_CALEND,M->CV1_MOEDA,M->CV1_REVISA})Endif//Ctb390Fil()RestArea(aAreaCV1)RestArea(aAreaCV2)Return .T.