MsgInfo("Ponto de entrada OJD12GV1 executado com sucesso.")

Return(lRet)

VS3->(DbGoTo((cSQLVS3)->(VS3RECNO)))
RecLock("VS3",.f.)
VS3->VS3_FLGNAT := "1"
MsUnlock()

If (cSQLVS3)->(VQ3RECNO) > 0
VQ3->(DbGoTo((cSQLVS3)->(VQ3RECNO)))
RecLock("VQ3",.f.)
Else
If VQ3->(DbSeek(xFilial("VQ3")+(cSQLVS3)->(B1_COD)+Left(Dtos(dDatabase),4)+Subs(Dtos(dDatabase),5,2)))
RecLock("VQ3",.f.)
Else
RecLock("VQ3",.t.)
VQ3->VQ3_FILIAL := xFilial("VS3") // Filial
VQ3->VQ3_PRODUT := (cSQLVS3)->(B1_COD) // Produto
VQ3->VQ3_ANO := Left(Dtos(dDatabase),4) // Ano
VQ3->VQ3_MES := Subs(Dtos(dDatabase),5,2) // Mes
Endif
Endif
VQ3->VQ3_HITSB := nVQ3_HITSB // Hits Balcao
VQ3->VQ3_IMEDB := nVQ3_IMEDB // NA Imediato Bal
VQ3->VQ3_8HRDB := nVQ3_8HRDB // NA 8H Dealer Bal
VQ3->VQ3_8HROB := nVQ3_8HROB // NA 8H Outros Bal
VQ3->VQ3_24HRB := nVQ3_24HRB // NA 24h Balcao
VQ3->VQ3_VDPERB := nVQ3_VDPERB // Vda.Perd.Balcao
VQ3->VQ3_HITSO := nVQ3_HITSO // Hits Oficina
VQ3->VQ3_IMEDO := nVQ3_IMEDO // NA Imediato Ofi
VQ3->VQ3_8HRDO := nVQ3_8HRDO // NA 8H Dealer Ofi
VQ3->VQ3_8HROO := nVQ3_8HROO // NA 8H Outros Ofi
VQ3->VQ3_24HRO := nVQ3_24HRO // NA 24h Oficina
VQ3->VQ3_VDPERO := nVQ3_VDPERO // Vda.Perd.Ofi.
VQ3->VQ3_HITSI := nVQ3_HITSI // Hits Interno
VQ3->VQ3_IMEDI := nVQ3_IMEDI // NA Imediato Int
VQ3->VQ3_8HRDI := nVQ3_8HRDI // NA 8H Dealer Int
VQ3->VQ3_8HROI := nVQ3_8HROI // NA 8H Outros Int
VQ3->VQ3_24HRI := nVQ3_24HRI // NA 24h Interno
VQ3->VQ3_VDPERI := nVQ3_VDPERI // Vda.Perd.Int.
MsUnlock()
//
If ExistBlock("OJD12GV1")
ExecBlock("OJD12GV1",.f.,.f.)
Endif
//
Endif