Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: VX002RPG - Replica Informações da VV0 para a VVA durante a gravação do atendimento.
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)
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:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
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
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não