Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: VX002RPG - Replica Informações da VV0 para a VVA durante a gravação do atendimento.
Descrição: Este ponto de entrada é executado durante a alteração de um atendimento modelo 2 e tem como finalidade replicar informações da VV0 para a VVA durante a gravação do atendimento. Eventos /* ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±± ±±ºPrograma ³ VX002RPGRV º Autor ³ Rubens º Data ³ 21/04/10 º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºDescricao ³ Replica Informacoes da VV0 para a VVA para a gravacao do º±± ±±º ³ atendimento, deve ser executado antes de gravar o atend. º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß */ Static Function VX002RPGRV(cTp,aPar1,aPar2,aPar3,aPar4,aPar5) Local aAux := {} Default cTp := "" Default aPar1 := {} Default aPar2 := {} Default aPar3 := {} Default aPar4 := {} Default aPar5 := {} Do Case Case Empty(cTp) // Dados Gerais VV1->(dbSetOrder(1)) if !Empty(M->VVA_CHAINT) .and. VV1->(dbSeek(xFilial("VV1")+M->VVA_CHAINT)) M->VV9_CODMAR := VV1->VV1_CODMAR M->VV9_MODVEI := VV1->VV1_MODVEI M->VVA_ESTVEI := VV1->VV1_ESTVEI M->VVA_CODORI := VV1->VV1_CODORI else M->VV9_CODMAR := M->VV0_CODMAR M->VV9_MODVEI := M->VV0_MODVEI M->VVA_ESTVEI := "0" // Veiculo Novo ... M->VVA_CODORI := "0" // Fabrica ... endif M->VV0_TOTENT := FM_SQL("SELECT SUM(VS9.VS9_VALPAG) AS VALOR FROM "+RetSQLName("VS9")+" VS9 , "+RetSQLName("VSA")+" VSA WHERE VS9.VS9_FILIAL='"+xFilial("VS9")+"' AND VS9.VS9_NUMIDE='"+M->VV9_NUMATE+"' AND VS9.VS9_TIPOPE='V' AND VS9.D_E_L_E_T_=' ' AND VSA.VSA_FILIAL='"+xFilial("VSA")+"' AND VSA.VSA_TIPPAG=VS9.VS9_TIPPAG AND VSA.VSA_TIPO='5' AND VSA.D_E_L_E_T_=' '") //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³ Atualiza a Categoria, Tipo de Venda e Cliente/Loja Alienacao ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ aAux := VX002CATVEN(M->VV9_NUMATE) M->VV0_CATVEN := aAux[1] // Categoria de Venda M->VV0_TIPVEN := aAux[2] // Tipo de Venda M->VV0_CLIALI := aAux[3] // Cliente Alienacao M->VV0_LOJALI := aAux[4] // Loja Cliente Alienacao M->VV0_TIPO := "N" // VV0_TIPO = 'N' ( SA1 -> Cliente ) M->VV0_VALNEG := M->VV0_VALMOV M->VV0_CODCLI := M->VV9_CODCLI M->VV0_LOJA := M->VV9_LOJA If Empty(M->VV0_DTHEMI) M->VV0_DTHEMI := Dtoc(dDataBase) + [/] + Time() EndIf M->VV0_VALTRO := nVlDevol // Devolucao para o Cliente M->VVA_VALVDA := nVlVeicu // Valor do Veiculo M->VVA_VALFRE := M->VV0_VALFRE //////////////////////////////////////////////////////////// // Campos Customizados ( M->VVA_?????? := M->VV0_?????? ) // //////////////////////////////////////////////////////////// If ExistBlock("VX002RPG") ExecBlock("VX002RPG",.f.,.f.) EndIf Programa Fonte VEIXX002, VX002RPG Sintaxe VX002RPG - Replica Informações da VV0 para a VVA durante a gravação do atendimento. ( [ ] ) Parâmetros:
Retorno
Exemplos #Include "Protheus.ch"/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Funcao ³ VX002RPG ³ Autor ³ ³ Data ³ / / ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descricao ³ Replica Informacoes da VV0 para a VVA para a gravacao do ³±±±±³ ³ atendimento. ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Exemplo ³ M->VVA_?????? := M->VV0_?????? ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/User Function VX002RPG() MsgInfo("Passou pelo ponto de entrada VX002RPG","Atencao!")// M->VVA_VALASS := M->VV0_VALASSReturn() Variáveis
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas