#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"
User Function M410AGRVM415GRV()
Local aArea := GetArea() //Armazena o ambiente ativo para restaurar ao fim do processo
Local nOpcao := PARAMIXB[1] //Número da Opção (1 - Inclusão / 2 - Alteração / 3 - Exclusão)
Local nContI cQrySCK := 0
Local nTotItens := 1
Local cProd := aScan(aHeader,{|x| Alltrim(x[2])== "C6_PRODUTO"})
//aCols - Variável Private que contém os itens da SC6 antes de iniciar a gravação
//aHeader - Variável Private que contém as estruturas dos campos da SC6 antes de iniciar a gravação
If nOpcao == 1
For nContI := 1 To nTotItens
If aCols[nContI][cProd] == "000001"
"" //Query
Local cAliasSCK := GetNextAlias() //Criação de tabelas temporárias
Local nTotal := 0 //Valor Total do orçamento
If nOpcao == 1 .Or. nOpcao == 2 //Inclusao ou Alteração
//------------------------------------------
// Query da tabela SCK - Itens de Orçamento
//------------------------------------------
cQrySCK := " SELECT CK_FILIAL, CK_NUM, CK_VALOR "
cQrySCK += " FROM "+RetSqlName("SCK")
cQrySCK += " WHERE CK_FILIAL = '"+ SCK->CK_FILIAL +"' "
cQrySCK += " AND CK_NUM = '"+ SCK->CK_NUM +"' "
cQrySCK += " AND D_E_L_E_T_=' ' "
cQrySCK := ChangeQuery(cQrySCK)
dbUseArea(.T.,"TOPCONN",TCGENQRY(,,cQrySCK),cAliasSCK,.T.,.T.)
While (cAliasSCK)->(!Eof()) .And. SCK->CK_FILIAL + SCK->CK_NUM == (cAliasSCK)->CK_FILIAL + (cAliasSCK)->CK_NUM
nTotal += (cAliasSCK)->CK_VALOR
(cAliasSCK)->(DbSkip())
EndDo
Alert("Encontrado o Produto 000001")
Orçamento gerado com sucesso! / Valor Total: "+Alltrim(Str(nTotal)))
(cAliasSCK)->(dbCloseArea()) //Fecha a tabela temporaria
EndIf
Next nContI
EndIf
RestArea(aArea) //Restaura o ambiente ativo no início da chamada
Return | 