Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (flora.rocha), última alteração por admin em 23 jun, 2012

Ponto-de-Entrada: VM017DNF - Efetua alteração de informação
Abrangências: Microsiga Protheus 10
Versões: Todas
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição: 
O ponto de entrada VM017DNF está localizado na rotina de remessa de veículos, após a gravação da nota fiscal. Assim é possível efetuar alterações nas informações geradas para a nota fiscal.
Eventos

 if !lExclui .and. (Inclui .or. Altera)

 
if Empty(M->VV0_FORPAG)
cTipPag        := RetCondVei()
M->VV0_FORPAG := cTipPag
Endif
 
if VV1->VV1_SITVEI $ "124" .and. (Inclui .or. Altera) .and. cTipR <> "2"
Help(" ",1,"VEICJAVEND")
Return .f.
Endif
/*
if cTipR == "2"
if SF4->F4_PODER3 <> "D" // Remessa
MsgInfo("O TES tem que controlar poder de terceiro na DEVOLUCAO!","Atencao!")
Return .f.
Endif
Else
if SF4->F4_PODER3 <> "R" // Remessa
MsgInfo("O TES tem que controlar poder de terceiro na REMESSA!","Atencao!")
Return .f.
Endif
Endif
*/
 
lMsHelpAuto:= .t.
lMsErroAuto:= .f.
 
lJaGrv := .f.
 
if M->VVA_VALMOV == 0
M->VVA_VALMOV := M->VV0_VALMOV
Endif
if M->VVA_VALVDA == 0
M->VVA_VALVDA := M->VV0_VALMOV
Endif
if cTipR == "2"
M->VV0_CODTES := get_TES
M->VV0_CHASSI := get_CHASSI
endif
if cTipR == "2"
M->VV0_OPEMOV := "6"  //Retorno da Entrada por Remessa
Else
M->VV0_OPEMOV := "3"  //Remessa Normal
Endif
If Empty(M->VV0_CODTES)
M->VV0_CODTES := GetNewPar("MV_TESREMV","771")
Endif
M->VVA_CODTES := M->VV0_CODTES
nTotEnt := M->VVA_VALVDA
 
If FM_NRNFFP(1) // 1a Chamada da tela que verifica NF quando Formulario Proprio
 
lOk := .f.
Return .f.
 
Else
 
lOk   := .t.
cNota := cNumero
Begin Transaction
IncProc(STR0002) //Gravando Remessa...
cNumTra := M->VV0_NUMTRA
FS_GRAVA010("S",nOpc)
if lMsErroAuto
DisarmTransaction()
Break
Endif
IncProc(STR0002) //Gravando Remessa...
FS_GRAVA010("G",nOpc)
if lMsErroAuto
DisarmTransaction()
Break
Endif
dbSelectArea("SB1")
dbSetOrder(7)
dbSeek(xFilial("SB1")+cGruVei+VV1->VV1_CHAINT)
//
   FM_LOCVZL(2)
FGX_AMOVVEI(xFilial("VV1"),VV1->VV1_CHASSI)
   //
dbSelectArea("VV0")
reclock("VV0",.f.)
VV0_VALTOT := SF2->F2_VALBRUT
VV0_VBAICM := SF2->F2_BASEICM
VV0_TOTICM := SF2->F2_VALICM
msunlock()
if cTipR == "2"
For i:=1 to Len(aIteBrw)
if aIteBrw[i,1]
dbSelectArea("VVF")
dbSetOrder(1)
if dbSeek(xFilial("VVF")+aIteBrw[i,5])
dbSelectArea("VVG")
dbSetOrder(1)
if dbSeek(xFilial("VVG")+aIteBrw[i,5])
//Grava situacao da NF como DEVOLVIDA
dbSelectArea("VVF")
RecLock("VVF",.f.)
VVF->VVF_SITNFI := "2"
VVF->VVF_DATUSU := Dtos(dDataBase)+"-"+__cUserID
MsUnlock()
Exit
Endif
Endif
Endif
Next
Endif
nOpca := 1
 
If ExistBlock("VM017DNF")
ExecBlock("VM017DNF",.f.,.f.)
EndIf
 
End Transaction
 
SX5->(MsRUnLock())
 
Programa Fonte 
VEIVM017
Sintaxe

VM017DNF - Efetua alteração de informação ( [ ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    ()
Exemplos 
/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡„o    ³ VM017DNF ³ Autor ³ Otavio Favarelli      ³ Data ³ 10/06/10 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡„o ³ Este ponto de entrada esta localizado na rotina de remessa ³±±±±³			 ³ de veiculos, apos a gravacao da nota fiscal. Assim e possi ³±±±±³			 ³ vel efetuar alteracoes nas informacoes geradas para a nota ³±±±±³			 ³ fiscal.													  ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Sintaxe   ³                                                            ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso       ³                                                            ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/User Function VM017DNF()	MsgAlert("O ponto de entrada VM017DNF foi executado com sucesso!","Sucesso!")Return .t.
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não