Descrição | Este Ponto de Entrada permite gravar o levantamento dos Valores de Faturamento, Devolução e Inventário das Peças. |
|---|
Observações |
|---|
Exemplos | /*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Funcao ³ OJD12GV2 ³ Autor ³ MIL Data ³ 05/09/13 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descricao ³ Gravação do Faturamento, Devolução e Inventário das Peças ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Uso ³ Veiculos ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function OJD12GV2()
Local lRet := .f. |
|---|
MsgInfo("Ponto de entrada OJD12GV2 executado com sucesso.")
Return(lRet)
Preview |
|---|
Veja também |
|---|
Idioma | Português(Brasil) |
|---|
Versões | Todas |
|---|
Sistemas Operacionais Suportados | Todos |
|---|
Compatível com as Bases de Dados | Todas |
|---|
Updates |
|---|
Parâmetros |
|---|
Retorno |
|---|
Eventos de chamada do Ponto de Entrada | VQ3->(DbGoTo((cSQLVQ3)->(VQ3RECNO)))
RecLock("VQ3",.f.)
VQ3->VQ3_DEVBAL := nVQ3_DEVBAL
VQ3->VQ3_DEVOFI := nVQ3_DEVOFI
VQ3->VQ3_DEVINT := nVQ3_DEVINT
VQ3->VQ3_VALINV := nVQ3_VALINV
VQ3->VQ3_CUSDEV := nVQ3_CUSDEV
VQ3->VQ3_CUSBAL := nVQ3_CUSBAL
VQ3->VQ3_CUSOFI := nVQ3_CUSOFI
VQ3->VQ3_CUSFAB := nVQ3_CUSFAB
VQ3->VQ3_TOTBAL := nVQ3_TOTBAL
VQ3->VQ3_TOTOFI := nVQ3_TOTOFI
VQ3->VQ3_TOTINT := nVQ3_TOTINT
VQ3->VQ3_TOTFAB := nVQ3_TOTFAB
VQ3->VQ3_DULTVD := sTod((cSQLVQ3)->B2_USAI)
VQ3->VQ3_LOCAL := If((cSQLVQ3)->(BM_PROORI)=="1","D1","N1") // "D1" quando original e "N1" quando não Original
VQ3->VQ3_TIPLOC := If((cSQLVQ3)->(BM_PROORI)=="1","M","N") // "M" quando original e "N" quando não Original
VQ3->VQ3_STOCK := "S" // criar campo no SB1 ( Peça Estocada (S) ou Não Estocada (N) )
MsUnlock()
//
If ExistBlock("OJD12GV2")
ExecBlock("OJD12GV2",.f.,.f.)
Endif |
|---|
Variáveis |
|---|
Programa Fonte | OFINJD12.PRW |
|---|
