Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
CTB390GRV - Gravação do orçamento
CTB390GRV - Gravação do orçamento

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
0QualquerNumero fixo
M->CV1_ORCMTOrecordCampo orçamento da tabela itens do orçamento
M->CV1_CALENDarray_of_recordCampo calendario da tabela itens do orçamento
M->CV1_MOEDAarray_of_recordCampo Moeda da tabela itens do orçamento
M->CV1_REVISAarray_of_recordCampo 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.