Ponto-de-Entrada: OX001VS1 - Alteração do Orçamento Após a Gravação do Cabeçalho
| 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 permite alterar o orçamento após a gravação do cabeçalho (VS1).
Eventos
User Function OX001VS1()
MsgInfo(“Ponto de Entrada OX001VS1”,”Atencao”)
return nil
Programa Fonte
OFIXX001
Sintaxe
OX001VS1 - Alteração do Orçamento Após a Gravação do Cabeçalho ( [ ] )
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
()
Observações
DBSelectArea("VS1")
DBSetOrder(1)
reclock("VS1",.t.)
FG_GRAVAR("VS1")
for nCntFor2 := 1 to Len(aCmpFis)
&(aCmpFis[nCntFor2,1]) := aCmpFis[nCntFor2,2]
next
IF M->VS1_TIPORC == "1"
VS1_CODMAR := ""
endif
VS1_DATORC := dDataBase
VS1_VALDES := MaFisRet(,"NF_DESCONTO")
VS1_DESCON := MaFisRet(,"NF_DESCONTO")
VS1_ICMCAL := MaFisRet(,"NF_VALICM")
VS1_VTOTNF := MaFisRet(,"NF_TOTAL") - MaFisRet(,"NF_DESCZF")
//
cOrcOrcT := VS1->VS1_NUMORC
//
if VS1->(FieldPos("VS1_VALDUP")) > 0
VS1_VALDUP := MaFisRet(,"NF_BASEDUP")
endif
VS1_NOROUT := "1"
VS1_STATUS := cVS1Status
MSMM(VS1->VS1_OBSMEM,TamSx3("VS1_OBSERV")[1],,&(aMemos[1][2]),1,,,"VS1","VS1_OBSMEM")//gravar a observacao - Rafael - 25/01
if INCLUI .and. VS1->(FieldPos("VS1_MVFASE")) > 0
VS1_MVFASE := VAI->VAI_MVFASE
end
// PONTO DE ENTRADA
If ExistBlock("OX001VS1")
ExecBlock("OX001VS1",.f.,.f.)
EndIf
//
msunlock()
DBSelectArea("VS1")
DBSetOrder(1)
DBSeek(xFilial("VS1")+cOrcOrcT)
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |